$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>TRANSOR-TO-COMMONLISP.XFORMS!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 R E A D T A B L E " I N
0000040 T E R L I S P " 036 P A C K A G
0000060 E " I N T E R L I S P " ) \r 006
0000100 001 ( F I L E C R E A T E D "
0000120 5 - J a n - 8 8 1 2 : 4 5 : 5
0000140 5 " 006 004 { D S K } < X A V I E
0000160 R > T O - C O M M O N L I S P .
0000200 X F O R M S ; 1 1 006 001 1 4 3 7
0000220 9 1 \r \r p r e v i
0000240 o u s d a t e % : " 1 8 - N
0000260 o v - 8 7 1 3 : 3 8 : 5 5 "
0000300 { D S K } < X A V I E R > T O -
0000320 C O M M O N L I S P . X F O R M
0000340 S ; 1 0 ) \r \r \r ( * " \r C o p
0000360 y r i g h t ( c ) 1 9 8 7 ,
0000400 1 9 8 8 b y S y s t e m
0000420 D e v e l o p m e n t C o r p
0000440 . . A l l r i g h t s r
0000460 e s e r v e d . \r " ) \r \r ( P R
0000500 E T T Y C O M P R I N T X F O
0000520 R M S V A R S ) \r \r ( R P A Q Q
0000540 006 002 X F O R M S V A R S 006 001
0000560 ( ( * T r a n s f o r m a t i
0000600 o n s f r o m I n t e r l i
0000620 s p - D t o C o m m o n L
0000640 i s p . T h e s e t r a n s
0000660 f o r m a t i o n s w e r e
0000700 \r
0000720 d e v e l o p e d
0000740 b y S y s t e m D e v e l
0000760 o p m e n t G r o u p o f
0001000 U N I S Y S C o r p . T h e
0001020 r e i s n o g u a r a n t
0001040 e e o f \r
0001060 c o r
0001100 r e c t n e s s , c o m p l e
0001120 t e n e s s o r s u p p o r
0001140 t f o r t h e s e t r a n
0001160 s f o r m a t i o n s . C o p
0001200 y r i g h t \r
0001220 ( C )
0001240 \r
0001260 b y U N I S Y S
0001300 C o r p . 1 9 8 6 , 1 9 8
0001320 7 . 0 A l l r i g h t s r
0001340 e s e r v e d . P l e a s e
0001360 d i r e c t s u g g e s t i o
0001400 n s f o r \r
0001420 i m
0001440 p r o v e m e n t s a n d e
0001460 x t e n s i o n s t o D a r
0001500 r e l J . V a n B u e r
0001520 ( d a r r e l j @ R D C F . S M
0001540 . U N I S Y S . C O M ) \r
0001560
0001600 o r R i c h a r d F r
0001620 i t z s o n ( f r i t z s o n
0001640 @ b i g b u r d . P R C . U n i
0001660 s y s . C O M ) ) \r
0001700 X F O
0001720 R M S F N S \r
0001740 ( U S E R M
0001760 A C R O S T E S T O R V A L )
0002000 \r
0002020 ( V A R S X l a t e d
0002040 R e c o r d s C o m m o n L i
0002060 s p C o m m e n t s D a t a T
0002100 y p e S p e c i a l F o r m s
0002120 ( C L I S P A R R A Y N I L )
0002140 \r
0002160 ( C L I S P
0002200 I F T R A N F L G N I L ) \r
0002220
0002240 ( N O R M A L C
0002260 O M M E N T S F L G T ) ) \r
0002300
0002320 ( P ( S E T Q T R A N S
0002340 O U T R E A D T A B L E ( C O
0002360 P Y R E A D T A B L E ( F I N
0002400 D - R E A D T A B L E " X C L
0002420 " ) ) ) \r
0002440 ( R E A D
0002460 T A B L E P R O P T R A N S O
0002500 U T R E A D T A B L E ' C A S
0002520 E I N S E N S I T I V E N I L
0002540 ) ) \r
0002560 ( F N S C O M P U
0002600 T E F O R M A T S M A K E L A
0002620 M P R O G D a t a T y p e P
0002640 S T R I N G I F Y ) \r
0002660 ( T
0002700 R A N S A V E ) \r
0002720 ( P R O
0002740 P M A K E F I L E - E N V I R
0002760 O N M E N T T O - C O M M O N
0003000 L I S P T O - C O M M O N L I
0003020 S P . X F O R M S ) ) ) \r \r \r \r
0003040 006 004 ( * T r a n s f o r m a t
0003060 i o n s f r o m I n t e r l
0003100 i s p - D t o C o m m o n
0003120 L i s p . T h e s e t r a n
0003140 s f o r m a t i o n s w e r e
0003160 d e v e l o p e d b y S y
0003200 s t e m \r D e v e l o p m e n
0003220 t G r o u p o f U N I S Y
0003240 S C o r p . T h e r e i s
0003260 n o g u a r a n t e e o f
0003300 c o r r e c t n e s s , c o
0003320 m p l e t e n e s s o r s u
0003340 p p o r t f o r \r t h e s e
0003360 t r a n s f o r m a t i o n s
0003400 . C o p y r i g h t ( C )
0003420 b y U N I S Y S C o r p .
0003440 1 9 8 6 , 1 9 8 7 . 0 A l l
0003460 r i g h t s r e s e r v e d
0003500 . P l e a s e d i r e c t
0003520 \r s u g g e s t i o n s f o r
0003540 i m p r o v e m e n t s a n
0003560 d e x t e n s i o n s t o
0003600 D a r r e l J . V a n B u
0003620 e r ( d a r r e l j @ R D C F
0003640 . S M . U N I S Y S . C O M )
0003660 o r \r R i c h a r d F r i t
0003700 z s o n ( f r i t z s o n @ b
0003720 i g b u r d . P R C . U n i s y
0003740 s . C O M ) ) 006 001 \r \r \r ( R P A
0003760 Q Q 006 002 X F O R M S F N S 006 001
0004000 N I L ) \r \r ( A D D T O V A R
0004020 006 002 U S E R M A C R O S 006 001
0004040 \r ( T E S T
0004060 O R V A L N I L ( E ( S E
0004100 T Q Q U S A G E U N K N O W
0004120 N ) \r
0004140 T
0004160 ) \r
0004200 ( O R R [ ( C O M S (
0004220 S E L E C T Q ( % # # ! 0
0004240 1 ) \r
0004260
0004300 [ ( P R O G N L
0004320 A M B D A N L A M B D A A N
0004340 D S E L E C T Q ) \r
0004360
*
0004420 ' ( I F ( E Q ( % # # ) \r
0004440
*
0004500 ( % #
0004520 # ! 0 - 1 ) ) \r
0004540
*
0004600 ( ! 0 T E S T O R V A
0004620 L - 1 ) \r
0004640
*
0004700 ( ( E ( S E T Q Q U S A G E
0004720 T E S T ) \r
0004740
*
0005000 T ] \r
0005020
0005040 ( P R O
0005060 G % ' ( E ( S E T Q Q U
0005100 S A G E T E S T ) \r
0005120
*
0005160 T ) ) \r
0005200
*
0005240 [ P R O G 1 % ' ( I F
0005260 ( E Q ( % # # ) \r
0005300
*
0005360 ( % # # ! 0 2 ) ) \r
0005400
*
0005440 (
0005460 ! 0 T E S T O R V A L 2 ) \r
0005500
*
0005560 ( ( E ( S E T Q Q U S A
0005600 G E T E S T ) \r
0005620
*
0005660 T
0005700 ] \r
0005720
0005740 ( O R ' ( C O M S
0005760 Q M A R K ! 0 T E S T O R
0006000 V A L _ _ ) ) \r
0006020
0006040 ( D O
0006060 | ' T T Y : | ) \r
0006100
0006120 ( R
0006140 E T U R N % ' ( C O M S Q
0006160 M A R K ( B E L O W P R O G
0006200 0 ) \r
0006220
*
0006260 T E S T O R
0006300 V A L _ _ ) ) \r
0006320
0006340 ( N I
0006360 L N I L ) \r
0006400
0006420 ( S E L E
0006440 C T Q ( % # # ! 0 ! 0 1
0006460 ) \r
0006500
0006520 [ ( S
0006540 E L E C T Q C O N D ) \r
0006560
*
0006620 ' ( I F ( E
0006640 Q ( % # # ) \r
0006660
*
0006720 ( % #
0006740 # ! 0 - 1 ) ) \r
0006760
*
0007020 ( M A R K
0007040 ! 0 ! 0 T E S T O R V A L
0007060 _ _ ) \r
0007100
*
0007140 ( ( E ( S E T Q Q
0007160 U S A G E T E S T ) \r
0007200
*
0007260 T ] \r
0007300
*
0007340 ' ( E ( S E T Q Q U S A G E
0007360 V A L U E ) \r
0007400
*
0007440 T ] \r
0007460
0007500 N I L ) ) ) \r \r ( A D D T O V A
0007520 R 006 002 E D I T C O M S A 006 001
0007540 T E S T O R V A L ) \r \r ( R P A
0007560 Q Q 006 002 X l a t e d R e c o r
0007600 d s 006 001 \r ( a s
0007620 s e r t e d f a c t s a g e n
0007640 d a i t e m Q U E S T I O N
0007660 F C - M E N U I T E M 2 n d O
0007700 r d e r O p A g g F o r m B
0007720 a g F o r m E n t a i l m e n
0007740 t \r
0007760 Q u a n t i f i e d F o r m u
0010000 l a I M P l i c a t i o n R
0010020 I M P l i c a t i o n B I C O
0010040 N D i t i o n a l B i n a r y
0010060 O p e r a t i o n N e g a t i
0010100 o n \r
0010120 A c c e s s S p e c i f i c
0010140 a t i o n C o m p u t a t i o
0010160 n R e s t r i c t i o n T e s
0010200 t ) ) \r \r ( R P A Q Q 006 002 C o
0010220 m m o n L i s p C o m m e n t s
0010240 006 001 \r ( C L I S
0010260 P F E A T U R E S A R E P
0010300 R I M A R I L Y H A N D L E D
0010320 B Y D W C O M M A N D I
0010340 N L A M B D A T R A N S F O
0010360 R M A T I O N . T H I S W O
0010400 R K S F O R \r
0010420 R E C O R D P A
0010440 C K A G E T O O , I F A N
0010460 Y D A T A T Y P E O R A R
0010500 R A Y R E C O R D ( A N D S
0010520 I N C E G E T H A S H / P U T
0010540 H A S H A R E \r
0010560
*
0010660 U N S U P P O R T E D , H A S
0010700 H R E C O R D ) \r
0010720 D E C L A R A T I
0010740 O N S A R E M O D I F I E D
0010760 T O S O M E O T H E R T
0011000 Y P E . N O T E T H A T D
0011020 E C L A R A T I O N F O R M S
0011040 L I K E \r
0011060 ( B I T S 5 ) \r
0011100 H A V E
0011120 T O B E R E M O V E D I N
0011140 T H I S R E D E C L A R A T
0011160 I O N . I F A B I L I T Y
0011200 T O D E T E R M I N E T Y P
0011220 E O F A R E C O R D I S
0011240 \r
0011260 I M P O R T A N T , T Y P E R
0011300 E C O R D D E C L A R A T I O
0011320 N S W I L L D O . I F A
0011340 C C E S S T I M E I S I M
0011360 P O R T A N T , R E C O R D S
0011400 W I T H A \r
0011420 B A L A N C E D
0011440 O R B - T R E E L A Y O U T
0011460 M A Y B E A D E Q U A T E
0011500 ) ) \r \r ( R P A Q Q 006 002 D a t
0011520 a T y p e S p e c i a l F o r m
0011540 s 006 001 ( c r e a t e f e t c
0011560 h f f e t c h r e p l a c e
0011600 f r e p l a c e ) ) \r \r ( R P
0011620 A Q Q 006 002 C L I S P A R R A Y
0011640 006 001 N I L ) \r \r ( R P A Q Q
0011660 006 002 C L I S P I F T R A N F L G
0011700 006 001 N I L ) \r \r ( R P A Q Q
0011720 006 002 N O R M A L C O M M E N T S
0011740 F L G 006 001 T ) \r ( S E T Q T
0011760 R A N S O U T R E A D T A B L E
0012000 ( C O P Y R E A D T A B L E
0012020 ( F I N D - R E A D T A B L E
0012040 " X C L " ) ) ) \r ( R E A D T A
0012060 B L E P R O P T R A N S O U T
0012100 R E A D T A B L E ' C A S E I
0012120 N S E N S I T I V E N I L ) \r
0012140 ( D E F I N E Q \r \r ( 006 004 C O M
0012160 P U T E F O R M A T S 006 001 \r
0012200 [ L A M B D A ( P R I N T O U
0012220 T A R G S ) 006 006 006 001
0012240
0012260 006
0012300 006 ( * ; " E d i t e d 2 0
0012320 - O c t - 8 7 1 2 : 2 8 b y
0012340 D J V B " ) 006 001 \r
0012360 \r 006
0012400 006 ( * I N P U T I S L I S
0012420 T O F A R G S T O P R I
0012440 N T O U T - - A F T E R T
0012460 H E F I L E A R G . \r 006 001
0012500 006 006 R E S U L
0012520 T S H O U L D B E T H E
0012540 L I S T O F A R G S N E E
0012560 D E D B Y F O R M A T T O
0012600 D O T H E S A M E T H I
0012620 N G ) 006 001 \r \r ( P R O G
0012640 ( ( F M T S T R ( C O N C A
0012660 T ) ) \r F
0012700 M T A R G S ) \r L P
0012720 [ C O N D \r
0012740 ( ( N U L L P R I N
0012760 T O U T A R G S ) \r
0013000 ( R E T U R N
0013020 ( C O N S F M T S T R F M T
0013040 A R G S ] \r
0013060 [ S E L E C T Q ( C A R P R
0013100 I N T O U T A R G S ) \r
0013120 ( . T A B
0013140 [ 006 002 i f 006 001 ( F I X P ( C
0013160 A D R P R I N T O U T A R G S
0013200 ) \r
0013220
0013240 t h e n \r
0013260
0013300 ( S E T Q F M T S T R
0013320 ( C O N C A T F M T S T R "
0013340 ~ " ( C A D R P R I N T O U
0013360 T A R G S ) \r
0013400
*
0013440 " T " ) ) \r
0013460
0013500 e l s
0013520 e \r
0013540
0013560 ( S E T Q F M T S T R ( C O
0013600 N C A T F M T S T R " ~ V T
0013620 " ) ) \r
0013640
0013660 ( S E T Q F M T A R G S
0013700 ( N C O N C 1 F M T A R G S
0013720 ( C A D R P R I N T O U T A R
0013740 G S ] \r
0013760 ( 006 002 p o p 006 001
0014000 P R I N T O U T A R G S ) ) \r
0014020 ( .
0014040 T A B 0 [ 006 002 i f 006 001 ( F I
0014060 X P ( C A D R P R I N T O U
0014100 T A R G S ) \r
0014120
0014140 t h e n \r
0014160
0014200 ( S E T Q
0014220 F M T S T R ( C O N C A T F
0014240 M T S T R " ~ " ( C A D R
0014260 P R I N T O U T A R G S ) \r
0014300
*
0014360 " , 0 T " ) ) \r
0014400
0014420 e l s e \r
0014440
0014460 ( S E T
0014500 Q F M T S T R ( C O N C A T
0014520 F M T S T R " ~ V , 0 T " )
0014540 ) \r
0014560
0014600 ( S E T Q F M T A R G S (
0014620 N C O N C 1 F M T A R G S (
0014640 C A D R P R I N T O U T A R G
0014660 S ] \r
0014700 ( 006 002 p o p 006 001
0014720 P R I N T O U T A R G S ) ) \r
0014740 ( %
0014760 , ( S E T Q F M T S T R (
0015000 C O N C A T F M T S T R " ~
0015020 @ T " ) ) ) \r
0015040 ( % , , ( S E T Q
0015060 F M T S T R ( C O N C A T F
0015100 M T S T R " ~ 2 @ T " ) ) ) \r
0015120 ( %
0015140 , , , ( S E T Q F M T S T R
0015160 ( C O N C A T F M T S T R
0015200 " ~ 3 @ T " ) ) ) \r
0015220 ( . S P ( S E
0015240 T Q F M T S T R ( C O N C A
0015260 T F M T S T R " ~ V @ T " )
0015300 ) \r
0015320 ( S E T Q F M T A R
0015340 G S ( N C O N C 1 F M T A R
0015360 G S ( C A D R P R I N T O U
0015400 T A R G S ) ) ) \r
0015420 ( 006 002 p
0015440 o p 006 001 P R I N T O U T A R G
0015460 S ) ) \r
0015500 ( ( T 0 ) \r
0015520 ( S E
0015540 T Q F M T S T R ( C O N C A
0015560 T F M T S T R " ~ % % " ) )
0015600 ) \r
0015620 ( . S K I P [ 006 002 i f 006 001 (
0015640 F I X P ( C A D R P R I N T
0015660 O U T A R G S ) ) \r
0015700
0015720 006 002 t h e n 006 001 ( S E T
0015740 Q F M T S T R ( C O N C A T
0015760 F M T S T R " ~ " ( C A D
0016000 R P R I N T O U T A R G S ) \r
0016020
*
0016100 " % % " ) ) \r
0016120
0016140 006 002 e l s e 006 001 ( S E T Q F
0016160 M T S T R ( C O N C A T F M
0016200 T S T R " ~ V % % " ) \r
0016220
0016240 ( S E T Q
0016260 F M T A R G S ( N C O N C 1
0016300 F M T A R G S ( C A D R P R
0016320 I N T O U T A R G S ] \r
0016340
0016360 ( 006 002 p o p 006 001 P R I N T O
0016400 U T A R G S ) ) \r
0016420 ( . P A G E ( S
0016440 E T Q F M T S T R ( C O N C
0016460 A T F M T S T R " ~ | " ) )
0016500 ) \r
0016520 ( | . P 2 | ( S E T Q F M T
0016540 S T R ( C O N C A T F M T S
0016560 T R " ~ S " ) ) \r
0016600 (
0016620 S E T Q F M T A R G S ( N C
0016640 O N C 1 F M T A R G S ( C A
0016660 D R P R I N T O U T A R G S )
0016700 ) ) \r
0016720 ( 006 002 p o p 006 001
0016740 P R I N T O U T A R G S ) ) \r
0016760 ( (
0017000 . S U P . S U B . B A S E )
0017020 \r \r
0017040 006 006 ( * D O N '
0017060 T K N O W H O W T O H A
0017100 N D L E T H I S , S O D O
0017120 A R E M A R K ) 006 001 \r \r
0017140
0017160 ( K E E P L I S T P R I N T
0017200 O U T S U B % : ) ) \r
0017220 ( ( . F O N T
0017240 % # ) \r
0017260 \r 006 006 ( *
0017300 D O N ' T K N O W H O W T
0017320 O H A N D L E T H I S , S
0017340 O D O A R E M A R K ) 006 001
0017360 \r \r
0017400 ( K E E P L I S T P
0017420 R I N T O U T F O N T % : ) \r
0017440
0017460 ( C L I S P % ( P R O G
0017500 1 ( C A R P R I N T O U T A
0017520 R G S ) \r
0017540
0017560 ( S E T Q P R
0017600 I N T O U T A R G S ( C D R
0017620 P R I N T O U T A R G S ) ) ) \r
0017640
0017660 p o p P R
0017700 I N T O U T A R G S ) ) \r
0017720 ( ( . P P
0017740 F . P P V . P P F T L . P
0017760 P V T L ) \r
0020000 \r 006 006 ( *
0020020 D O N ' T K N O W H O W
0020040 T O H A N D L E T H I S ,
0020060 S O D O A R E M A R K ) 006
0020100 001 \r \r
0020120 ( K E E P L I S T
0020140 P R I N T O U T % : ) \r
0020160 (
0020200 S E T Q F M T S T R ( C O N
0020220 C A T F M T S T R " ~ A " )
0020240 ) \r
0020260 ( S E T Q F M T A R
0020300 G S ( N C O N C 1 F M T A R
0020320 G S ( C A D R P R I N T O U
0020340 T A R G S ) ) ) \r
0020360 ( 006 002 p
0020400 o p 006 001 P R I N T O U T A R G
0020420 S ) ) \r
0020440 ( ( . N . F R . F R 2 )
0020460 \r \r
0020500 006 006 ( * D O N '
0020520 T K N O W H O W T O H A
0020540 N D L E T H I S , S O D O
0020560 A R E M A R K ) 006 001 \r \r
0020600
0020620 ( K E E P L I S T P R I N T
0020640 O U T % : ) \r
0020660 ( 006 002 p o p
0020700 006 001 P R I N T O U T A R G S )
0020720 \r
0020740 ( S E T Q F M T S T R
0020760 ( C O N C A T F M T S T R
0021000 " ~ A " ) ) \r
0021020 ( S E T Q
0021040 F M T A R G S ( N C O N C 1
0021060 F M T A R G S ( C A D R P R
0021100 I N T O U T A R G S ) ) ) \r
0021120
0021140 ( 006 002 p o p 006 001 P R I N T O
0021160 U T A R G S ) ) \r
0021200 ( ( . P A R A .
0021220 P A R A 2 ) \r
0021240 \r 006 006 (
0021260 * D O N ' T K N O W H O W
0021300 T O H A N D L E T H I S ,
0021320 S O D O A R E M A R K )
0021340 006 001 \r \r
0021360 ( K E E P L I S T
0021400 P R I N T O U T % : ) \r
0021420
0021440 ( S E T Q F M T S T R ( C O
0021460 N C A T F M T S T R " ~ A "
0021500 ) ) \r
0021520 ( 006 002 p o p 006 001 P
0021540 R I N T O U T A R G S ) \r
0021560
0021600 ( 006 002 p o p 006 001 P R I N T O U
0021620 T A R G S ) \r
0021640 ( S E T Q
0021660 F M T A R G S ( N C O N C 1
0021700 F M T A R G S ( C A D R P R
0021720 I N T O U T A R G S ) ) ) \r
0021740
0021760 ( 006 002 p o p 006 001 P R I N T O
0022000 U T A R G S ) ) \r
0022020 ( C O N D \r
0022040 [ (
0022060 F I X P ( C A R P R I N T O
0022100 U T A R G S ) )
0022120 006 006 ( * T
0022140 A B O R S P A C E S S H O
0022160 R T H A N D ) 006 001 \r
0022200 ( C O N
0022220 D \r
0022240 ( ( M I N U S P
0022260 ( C A R P R I N T O U T A R G
0022300 S ) ) 006
0022320 006 ( * S P A C E S ) 006 001 \r
0022340
0022360 ( S E T Q F M T S T R
0022400 ( C O N C A T F M T S T R
0022420 " ~ " ( I M I N U S ( C A R
0022440 P R I N T O U T A R G S ) ) \r
0022460
*
0022520 " @ T " ) )
0022540 ) \r
0022560 ( T ( S E T Q
0022600 F M T S T R ( C O N C A T F
0022620 M T S T R " ~ " ( C A R P
0022640 R I N T O U T A R G S ) \r
0022660
*
0022720 " T " ] \r
0022740 (
0022760 ( F A S S O C ( C A R P R I
0023000 N T O U T A R G S ) \r
0023020
0023040 P R I N T O U T M A C R
0023060 O S ) \r \r
0023100 006 006 ( * D O
0023120 N ' T K N O W H O W T O
0023140 H A N D L E T H I S , S O
0023160 D O A R E M A R K ) 006 001 \r \r
0023200
0023220 ( K E E P L I S T P R I N
0023240 T O U T M A C R O S % : ) ) \r
0023260
0023300 ( [ A N D ( L I T A T O M (
0023320 C A R P R I N T O U T A R G S
0023340 ) ) \r
0023360 ( M E M B
0023400 ( S U B A T O M ( C A R P R
0023420 I N T O U T A R G S ) \r
0023440
*
0023500 1 2 ) \r
0023520
0023540 ' ( . I . F ]
0023560
0023600 006 006 ( * N U M E R I C F
0023620 O R M A T R E Q U E S T ) 006 001
0023640 \r
0023660 [ S E T Q F M T S T R \r
0023700
0023720 ( C O N C A T \r
0023740 F
0023760 M T S T R \r
0024000 ( C A D D R
0024020 \r
0024040 ( T R A N S O R F O
0024060 R M \r
0024100 ` ( P R I N T
0024120 N U M \r
0024140 ' , [ C
0024160 O N S ( C O N D \r
0024200
0024220 ( ( E
0024240 Q ( S U B A T O M ( C A R
0024260 P R I N T O U T A R G S ) \r
0024300
*
0024340 2 2
0024360 ) \r
0024400
0024420 ' I ) \r
0024440
*
0024500 ' F I X ) \r
0024520
0024540 ( T ' F
0024560 L O A T ) ) \r
0024600
0024620 ( 006 002 w h i l e 006
0024640 001 P O I N T 006 002 b i n d 006 001
0024660 ( P O I N T _ 2 ) \r
0024700
*
0024740 006 002 c o l l e c t 006 001 ( S U B
0024760 A T O M ( C A R P R I N T O
0025000 U T A R G S ) \r
0025020
*
0025060 ( A D D 1
0025100 P O I N T ) \r
0025120
*
0025160 ( A N D ( S
0025200 E T Q P O I N T ( S T R P O
0025220 S " . " ( C A R P R I N T
0025240 O U T A R G S ) \r
0025260
*
0025360 ( A D D 1 P O I N T ) )
0025400 ) \r
0025420
*
0025460 ( S U B 1 P
0025500 O I N T ] 0 ] \r
0025520 ( S E T Q
0025540 F M T A R G S ( N C O N C 1
0025560 F M T A R G S ( C A D R P
0025600 R I N T O U T A R G S ) ) ) \r
0025620
0025640 ( 006 002 p o p 006 001 P R I N T O
0025660 U T A R G S ) ) \r
0025700 [ [ A N D
0025720 ( S T R I N G P ( C A R P R
0025740 I N T O U T A R G S ) ) \r
0025760
0026000 ( N U L L ( S T R P O
0026020 S " ~ " ( C A R P R I N T
0026040 O U T A R G S ] \r
0026060 ( S E T Q
0026100 F M T S T R ( C O N C A T
0026120 F M T S T R ( C A R P R I N
0026140 T O U T A R G S ] \r
0026160 [ [ A N D
0026200 ( E Q ' Q U O T E ( C A A
0026220 R P R I N T O U T A R G S ) )
0026240 \r
0026260 ( L I T A T O M
0026300 ( C A D A R P R I N T O U T
0026320 A R G S ) ) \r
0026340 ( N
0026360 U L L ( S T R P O S " ~ "
0026400 ( C A D A R P R I N T O U T A
0026420 R G S ] \r
0026440 ( S E T Q F M T
0026460 S T R ( C O N C A T F M T S
0026500 T R ( C A D A R P R I N T O
0026520 U T A R G S ] \r
0026540 ( T ( S E T
0026560 Q F M T S T R ( C O N C A T
0026600 F M T S T R " ~ A " ) \r
0026620
0026640 ( S E T Q F M T A R G S
0026660 ( N C O N C 1 F M T A R G S
0026700 ( C A R P R I N T O U T A R
0026720 G S ] \r ( C
0026740 L I S P % ( P R O G 1 ( C
0026760 A R P R I N T O U T A R G S )
0027000 \r
0027020 ( S E T Q
0027040 P R I N T O U T A R G S ( C
0027060 D R P R I N T O U T A R G S )
0027100 ) ) \r
0027120 p o p P R I N T O U T
0027140 A R G S ) \r
0027160 ( G O L P ] ) \r \r ( 006 004 M A K
0027200 E L A M P R O G 006 001 \r [ L A
0027220 M B D A ( P R G ) 006 006 006 001
0027240
*
0027300 006 006 ( *
0027320 ; " E d i t e d 2 6 - M a
0027340 r - 8 7 1 2 : 0 3 b y D J
0027360 V B " ) 006 001 \r \r ( P R O
0027400 G ( [ I N I T V ( 006 002 f o r
0027420 006 001 X 006 002 i n 006 001 ( C A D
0027440 R P R G ) 006 002 c o l l e c t
0027460 006 001 ( C A R X ) 006 002 w h e
0027500 n 006 001 ( i s X ( A L I S
0027520 T ] \r [ I
0027540 N I T V A L ( 006 002 f o r 006 001
0027560 X 006 002 i n 006 001 ( C A D R P
0027600 R G ) 006 002 w h e n 006 001 ( i s
0027620 X ( A L I S T ) ) 006 002 c
0027640 o l l e c t 006 001 ( C O N D \r
0027660
*
0027760 ( ( E Q L E N G
0030000 T H X 2 ) \r
0030020
*
0030120 ( C A D R X ) ) \r
0030140
*
0030240 ( T ( C D R X ] \r
0030260 ( N O N I
0030300 N I T V ( 006 002 f o r 006 001 X
0030320 006 002 i n 006 001 ( C A D R P R G
0030340 ) 006 002 u n l e s s 006 001 ( i s
0030360 X ( A L I S T ) ) 006 002 c
0030400 o l l e c t 006 001 X ) ) ) \r
0030420 ( R E T U R N
0030440 ( C O N S [ L I S T ' L A M
0030460 B D A I N I T V ( C O N S
0030500 ( C A R P R G ) \r
0030520
*
0030560 ( C O N
0030600 S N O N I N I T V ( C D D R
0030620 P R G ] \r
0030640 I N
0030660 I T V A L ] ) \r \r ( 006 004 D a t a
0030700 T y p e P 006 001 \r [ L A M B D
0030720 A ( x ) 006 006 006 001
0030740
*
0031000 006 006 ( * R i
0031020 c h a r d F r i t z s o n "
0031040 5 - D e c - 8 6 0 6 : 4 6 " )
0031060 006 001 \r ( P R O G [ ( Y
0031100 ( C O N D \r
0031120 ( ( L I T A T O
0031140 M x ) \r
0031160 x ) \r
0031200 ( T ( C
0031220 A D R x ] \r
0031240 ( R E T U R N ( O R ( D A
0031260 T A T Y P E P x ) \r
0031300
0031320 ( C O N D \r
0031340
0031360 ( ( L I T A T O M x ) \r
0031400
0031420 ( M E M B x X
0031440 l a t e d R e c o r d s ) ) \r
0031460
0031500 ( T ( M E M B
0031520 ( C A R x ) \r
0031540
0031560 X l a t e
0031600 d R e c o r d s ) ) ) \r
0031620
0031640 ( E Q ( C A A R ( F I E
0031660 L D L O O K Y ) ) \r
0031700
0031720 ' D A T A T Y P E ) \r
0031740
0031760 ( A N D ( E Q (
0032000 C A A R ( F I E L D L O O K
0032020 Y ) ) \r
0032040
0032060 ' R E C O R D ) \r
0032100
0032120 ( M E M B Y X
0032140 l a t e d R e c o r d s ] ) \r \r
0032160 ( 006 004 S T R I N G I F Y 006 001 \r
0032200 [ L A M B D A ( S T R L I S
0032220 T ) 006 006 006 001
0032240
*
0032300 006 006 ( * ; " E d i t e d 1
0032320 8 - N o v - 8 7 1 1 : 1 3 b
0032340 y D J V B " ) 006 001 \r \r
0032360 ( L E T ( ( P A R T I A L "
0032400 " ) ) \r [ C L
0032420 I S P % [ M A P S T R L I
0032440 S T ( F U N C T I O N ( L A
0032460 M B D A ( X ) \r
0032500
*
0032540 ( C O N D \r
0032560
*
0032620 ( ( C D R X )
0032640 \r
0032660
*
0032720 ( S E T Q P A R T I A L ( C
0032740 O N C A T P A R T I A L ( C
0032760 A R X ) \r
0033000
*
0033060 " " ) ) )
0033100 \r
0033120
0033140 (
0033160 T ( S E T Q P A R T I A L
0033200 ( C O N C A T P A R T I A L
0033220 ( C A R X ] \r
0033240 f o r X o n
0033260 S T R L I S T 006 002 d o 006 001
0033300 ( C O N D \r
0033320
0033340 ( ( C
0033360 D R X ) \r
0033400
0033420 ( S
0033440 E T Q P A R T I A L ( C O N
0033460 C A T P A R T I A L ( C A R
0033500 X ) \r
0033520
*
0033600 " " ) ) ) \r
0033620
0033640 (
0033660 T ( S E T Q P A R T I A L
0033700 ( C O N C A T P A R T I A L
0033720 ( C A R X ] \r
0033740 P A R T I A L ] ) \r ) \r \r ( R
0033760 P A Q Q 006 002 D U M P F I L E 006
0034000 001 T O - C O M M O N L I S P .
0034020 X F O R M S ) \r \r ( R P A Q Q
0034040 006 002 U S E R N O T E S 006 001 ( (
0034060 / S E T A T O M V A L % : ( *
0034100 X F O R M C O R R E C T O
0034120 N L Y F O R D E E P B O U
0034140 N D S Y S T E M ) ) \r
0034160 ( A
0034200 D D L A S T % : ( * C H A N
0034220 G E T R A N F A I L E D T O
0034240 D W I M I F Y ) ) \r
0034260 ( A P
0034300 R O P O S % : ( * U N S U P
0034320 P O R T E D F E A T U R E ) )
0034340 \r
0034360 ( A S S O C % : ( * A
0034400 S S O C N O T C H A N G E D
0034420 , S O U S E S E Q L N O
0034440 T E Q ) ) \r
0034460 ( B L A M B D
0034500 A 1 ( * N O N - A T O M I C
0034520 C A R O F F O R M N O T
0034540 A N I N L I N E L A M B D
0034560 A . A P P L Y * I N S E R T
0034600 E D . ) ) \r
0034620 ( B L A M B D A
0034640 2 ( * D I S A G R E E M E N
0034660 T I N A R G C O U N T B
0034700 E T W E E N L A M B D A L I
0034720 S T A N D A R G S . ) ) \r
0034740
0034760 ( B L A M B D A 3 ( * L A
0035000 M B D A E X P R E S S I O N
0035020 L A C K S A B O D Y ) ) \r
0035040
0035060 ( B R E A K % : ( * U N R
0035100 E L A T E D T O C L % : B R
0035120 E A K ) ) \r
0035140 ( C H A R C O D
0035160 E % : ( * C H A R - I N T
0035200 C O R R E S P O N D S T O C
0035220 H A R C O D E B U T C H A R
0035240 N A M E S M A Y N O T ) )
0035260 \r
0035300 ( C L O C K 1 % : ( *
0035320 C L O C K n o t t r a n s l
0035340 a t e d ) ) \r
0035360 ( C L O C K %
0035400 : ( * C L O C K S E M A N
0035420 T I C S P R E S E R V E D B
0035440 U T M A Y B E S I M P L E
0035460 R I N C O N T E X T ) ) \r
0035500
0035520 ( C O M P I L E % : ( * I
0035540 L % : C O M P I L E T A K E S
0035560 L I S T O R S I N G L E
0035600 I T E M , C L % : C O M P I L
0035620 E T A K E S O N L Y S I N
0035640 G L E \r
0035660
0035700 I T E M . N O T C
0035720 H A N G A B L E A U T O M A T
0035740 I C A L L Y ) ) \r
0035760 ( C O N S
0036000 C O U N T % : ( * C O N S C
0036020 O U N T N O N O P E R A T I O
0036040 N A L ) ) \r
0036060 ( C O N S T A N
0036100 T S % : ( * D O N T H A V
0036120 E V A L U E F O R C O N S
0036140 T A N T , A N D N O E A S
0036160 Y W A Y T O F I N D I T
0036200 \r
0036220
0036240 A U T O M A T I C A L L
0036260 Y , A L T H O U G H I T M
0036300 A Y H A V E A P P E A R E D
0036320 A F E W L I N E S B A C
0036340 K I N \r
0036360
0036400 T H E F I L E
0036420 . I N A T L E A S T S O
0036440 M E C L % , T H E E A S Y
0036460 T R A N S L A T I O N O F
0036500 W H A T A \r
0036520
0036540 C O N S T A
0036560 N T S F I L E C O M E X P A
0036600 N D S I N T O I S ( D E F
0036620 P A R A M E T E R V A R ' G
0036640 L O B A L V A L U E ) \r
0036660
0036700 ( D
0036720 E F C O N S T A N T V A R ) \r
0036740
*
0037000 % , B U T T H I S O F T
0037020 E N L E A V E S Y O U W I
0037040 T H A C O N S T A N T S E
0037060 T T O N I L - - A N D
0037100 \r
0037120
0037140 R E S I S T A N T T O
0037160 C O R R E C T I O N ) ) \r
0037200 (
0037220 C O P Y A L L % : ( * C o m
0037240 m o n L i s p d o e s n o t
0037260 h a v e a C O P Y A L L .
0037300 C O P Y - T R E E w a s u
0037320 s e d . ) ) \r
0037340 ( C O U N T %
0037360 : ( * T O T A L L Y U N R
0037400 E L A T E D T O C L % : C O
0037420 U N T , A N D N O E Q U I
0037440 V A L E N T ? ) ) \r
0037460 ( D A T
0037500 A T Y P E S ( * R e c o r d
0037520 n o t a D A T A T Y P E
0037540 - - t r y i n g D W I M t
0037560 r a n s l a t i o n ) ) \r
0037600 (
0037620 D A T E % : ( * D A T E F
0037640 O R M A T T E D T O I N T E
0037660 R L I S P D E F A U L T . I
0037700 N L I N E E X P A N S I O N
0037720 U S E D M A Y B E \r
0037740
0037760 U N D E S I
0040000 R A B L E I F U S E D M U
0040020 C H ) ) \r
0040040 ( D E C L A R E 1
0040060 % : ( * S P E C I A L D E
0040100 C L A R A T I O N M A Y N E
0040120 E D T O B E M O V E D T
0040140 O R I G H T L E X I C A L
0040160 S C O P E ) ) \r
0040200 ( D E C L A
0040220 R E % : ( * M U L T I P L E
0040240 D E C L A R A T I O N T O O
0040260 C O M P L E X ) ) \r
0040300 ( D E
0040320 F P R I N T % : ( * D E F P
0040340 R I N T B E C O M E S A (
0040360 % : P R I N T - F U N C T I O N
0040400 - - ) \r
0040420
0040440 O P T I O N T O
0040460 T H E D E F S T R U C T F O
0040500 R T H E F I R S T A R G U
0040520 M E N T , B U T T H E C O
0040540 N V E N T I O N S \r
0040560
0040600 A L S O
0040620 D I F F E R I N D E F I N
0040640 I T I O N , S O Y O U W I
0040660 L L H A V E T O M A N U A
0040700 L L Y E D I T T H E \r
0040720
0040740 S
0040760 E C O N D A R G U M E N T F
0041000 U N C T I O N A S W E L L )
0041020 ) \r
0041040 ( D I R E C T O R Y N A
0041060 M E % : ( * H A R D C A S
0041100 E O F D I R E C T O R Y N A
0041120 M E ) ) \r
0041140 ( D R E M O V E %
0041160 : ( * D R E M O V E / D E L
0041200 Q F O R E F F E C T D I F
0041220 F E R S . I N C O M M O N L
0041240 I S P A S I D E E F F E C
0041260 T I S N O T \r
0041300
0041320 G U A R A N
0041340 T E E D W H I L E I N T E R
0041360 L I S P O N L Y F A I L S
0041400 F O R E F F E C T I F W H
0041420 O L E L I S T \r
0041440
0041460 D E L E T E
0041500 D ) ) \r
0041520 ( D R I B B L E % :
0041540 ( * C A N T D O A P P E
0041560 N D / T H A W W E D I N C L
0041600 ) ) \r
0041620 ( E R R O R ! % : (
0041640 * E R R O R ! T R A N S L A
0041660 T I O N U S E S " P R O P O
0041700 S E D " C L E R R O R S Y
0041720 S T E M S T A N D A R D . Y
0041740 O U R \r
0041760
0042000 M I L A G E M A Y V
0042020 A R Y ( T R Y S O M E K I
0042040 N D O F T H R O W R E W R
0042060 I T E I F I T F A I L S )
0042100 ) ) \r
0042120 ( E R R O R S E T % :
0042140 ( * E R R O R S E T n o t
0042160 t r a n s l a t e d ) ) \r
0042200
0042220 ( E R S E T Q % : ( * E R S
0042240 E T Q n o t t r a n s l a t
0042260 e d ) ) \r
0042300 ( E V E R Y % :
0042320 ( * E V E R Y n o t t r a
0042340 n s l a t e d ) ) \r
0042360 ( F I L
0042400 E N A M E F I E L D % : ( *
0042420 C A N ' T T R A N S F O R M
0042440 F I L E N A M E F I E L D W I
0042460 T H V A R I A B L E F I E L
0042500 D ) ) \r
0042520 ( F N T Y P % : (
0042540 * T R A N S F O R M O N L Y
0042560 C A P T U R E S U S E A S
0042600 P R E D I C A T E T O T E
0042620 S T F O R D E F I N I T I O
0042640 N ) ) \r
0042660 ( F O R C E O U T P
0042700 U T % : ( * C A N ' T T R
0042720 A N S L A T E V A R I A B L E
0042740 F O R W A I T F L G ) ) \r
0042760
0043000 ( F U N C T I O N % : ( *
0043020 T r a n s f o r m a t i o n i
0043040 s m a n g l i n g a F U N
0043060 C T I O N e x p r e s s i o n
0043100 ) ) \r
0043120 ( G E T F I L E I N F
0043140 O % : ( * U N S U P P O R T
0043160 E D O R V A R I A B L E A
0043200 T T R I B U T E I N G E T F
0043220 I L E I N F O ) ) \r
0043240 ( I D A
0043260 T E % : ( * A R G T O I
0043300 D A T E N E E D S W O R K )
0043320 ) \r
0043340 ( I N T E R L I S P - A
0043360 T O M ( * I n t e r l i s p
0043400 A T O M i s t r u e o f
0043420 L i t e r a l A t o m s a
0043440 n d N u m b e r s o n l y .
0043460 C o m m o n \r
0043500
0043520 L i
0043540 s p A T O M i s t r u e
0043560 o f a n y t h i n g w h i c
0043600 h i s n o t a C O N S )
0043620 ) \r
0043640 [ K W O T E % : ( *
0043660 N E E D ( D E F U N K W O T
0043700 E ( X ) \r
0043720
*
0043760 ( C O N D ( ( O R ( N U L L
0044000 X ) \r
0044020
*
0044060 ( E Q L X
0044100 T ) \r
0044120
*
0044160 ( N U M B E R P
0044200 X ) ) \r
0044220
*
0044260 X ) \r
0044300
*
0044340 ( T ( L I S
0044360 T ' Q U O T E X ] \r
0044400 ( L
0044420 D I F F % : ( * C o m m o n
0044440 L i s p L D I F F d o e s
0044460 n o t p r o d u c e a n e
0044500 r r o r w h e n a r g u m e
0044520 n t # 2 i s n o t a \r
0044540
0044560 t a i
0044600 l o f a r g u m e n t # 1 .
0044620 ) ) \r
0044640 ( L I S P X U N R E A
0044660 D % : ( * L I S P X U N R E
0044700 A D n o t t r a n s l a t e
0044720 d ) ) \r
0044740 ( L I S T P 1 % :
0044760 ( * T H I S I S A C O N
0045000 S E R V A T I V E C H A N G E
0045020 F O R L I S T P . F O R
0045040 S I M P L E E X P R E S S I O
0045060 N S , \r
0045100
0045120 T R A N S L A T I O N
0045140 I S E X A C T B U T M O R
0045160 E E X P E N S I V E I F R
0045200 E A L L Y T E S T O N L Y .
0045220 F O R \r
0045240
0045260 C O M P L E X E X P
0045300 R E S S I O N S U S E D F O
0045320 R V A L U E , C H A N G E S
0045340 A R E N E E D E D ) ) \r
0045360
0045400 ( L I S T P % : ( * M E S S
0045420 Y L I S T P , V E R I F Y
0045440 U S E R E A L L Y F O R V
0045460 A L U E ) ) \r
0045500 ( L O A D % :
0045520 ( * L O A D O P T I O N S
0045540 N O T I N C L ) ) \r
0045560 (
0045600 L O A D ? % : ( * N O W U
0045620 N C O N D I T I O N A L L O A
0045640 D ) ) \r
0045660 ( L O G O U T % :
0045700 ( * L O G O U T / E X I T N
0045720 O T I N C L S T A N D A R
0045740 D Y E T ) ) \r
0045760 ( M A P 2 C
0046000 % : ( * M A P 2 C W I T H
0046020 T A I L F N N O T D O N
0046040 E ) ) \r
0046060 ( M A P H A S H % :
0046100 ( * C L % : M A P H A S H
0046120 A P P L Y F N H A S O P P
0046140 O S I T E O R D E R F R O M
0046160 I L . L A M B D A L I S T
0046200 N O T \r
0046220
0046240 L O C A T E D S O
0046260 N O T T R A N S F O R M E D
0046300 ) ) \r
0046320 ( M K S T R I N G % :
0046340 ( * C A N T S I M U L A T
0046360 E M K S T R I N G V I A R
0046400 E A D T A B L E ) ) \r
0046420 ( N L
0046440 A M B D A % : ( * N O N L
0046460 A M B D A I N C O M M O N
0046500 L I S P - - T R Y A M A
0046520 C R O - - I F A R G L I S
0046540 T I S L I T A T O M , A
0046560 \r
0046600
0046620 M A C R O W I T H ( & R E
0046640 S T A R G ) \r
0046660
0046700 F O R A R G L
0046720 I S T ) ) \r
0046740 ( N L E F T % :
0046760 ( * D I D I N L I N E E
0047000 X P A N S I O N F O R N L E
0047020 F T , M A Y W A N T T O
0047040 D E F I N E F U N C T I O N
0047060 I F U S E D \r
0047100
0047120 M U C H ) ) \r
0047140
0047160 ( N L S E T Q % : ( * E R S
0047200 E T Q A N D N L S E T Q H
0047220 A V E B E E N T R A N S L A
0047240 T E D W I T H P R O P O S E
0047260 D A N S I C L E R R O R
0047300 \r
0047320
0047340 H A N D L I N G E X T E N S I
0047360 O N S . M A Y N O T W O R
0047400 K I N A L L L I S P S . )
0047420 ) \r
0047440 ( N O - T R A N S F O R
0047460 M A T I O N - N E E D E D ( *
0047500 T H E F O L L O W I N G F
0047520 U N C T I O N S S E E M T O
0047540 B E T H E S A M E \r
0047560
*
0047620 ( O F
0047640 C L I S A S A F E S U P
0047660 E R S E T ) \r
0047700
*
0047740 A N D T H U S H
0047760 A V E N O T R A N S F O R M
0050000 A T I O N S , O R H A V E
0050020 \r
0050040
*
0050100 T R A N S F O R M A T I O N S
0050120 T O W A R N O F O D D C
0050140 A S E S W H I C H D O N ' T
0050160 M A P \r
0050200
*
0050240 O R T O P R O C E
0050260 S S T H E C O R R E C T S
0050300 Y N T A X O F A S P E C I
0050320 A L F O R M . \r
0050340
*
0050400 ( A B S A N D
0050420 A P P L Y B O U N D P B Q
0050440 U O T E B Y T E C L R H A S
0050460 H C O N D \r
0050500
*
0050540 D I R E
0050560 C T O R Y ( I N S I M P L E
0050600 C A S E S A N Y W A Y ) \r
0050620
*
0050700 D P B D R I B B L E E
0050720 Q E Q U A L E V A L E X P
0050740 T F L O A T G C D G E N S
0050760 Y M \r
0051000
*
0051040 G E T H A S H
0051060 G O I N S P E C T I N T E R
0051100 S E C T I O N L A S T L D B
0051120 L E T L E T * \r
0051140
*
0051200 L
0051220 I S T L I S T * L O G L O
0051240 G A N D L O G N O T L O G X
0051260 O R M A X M I N \r
0051300
*
0051360 M I N U S P N C O N C N O T
0051400 N U L L O R P O P P R O
0051420 G P R O G 1 P R O G 2 \r
0051440
*
0051520 P R O G N Q U O T E R
0051540 E A D R E M P R O P R E T U
0051560 R N R E V E R S E R P L A C
0051600 A \r
0051620
*
0051660 R P L A C D T R
0051700 A C E S E T S E T Q S U B
0051720 S T T A I L P T E R P R I
0051740 U N I O N ) ) ) \r
0051760 ( N T H C
0052000 H A R % : ( * F L G & R
0052020 D T B L A R G S N E E D T
0052040 O D O ( E L T ( P R I N 1
0052060 - T O - S T R I N G A R G 1 )
0052100 \r
0052120
*
0052200 A R G 2 ) \r
0052220
0052240 T O G E T I
0052260 T R I G H T ) ) \r
0052300 ( N T Y
0052320 P X % : ( * R E W R I T E
0052340 I N T O T Y P E P S O M E H
0052360 O W ? ) ) \r
0052400 ( N U M B E R P
0052420 1 % : ( * M E S S Y N U M
0052440 B E R P , S H O U L D V E R
0052460 I F Y U S E F O R V A L U
0052500 E ) ) \r
0052520 ( N U M B E R P % :
0052540 ( * T H I S I S A C O
0052560 N S E R V A T I V E C H A N G
0052600 E F O R N U M B E R P / F I
0052620 X P / . . . F O R S I M P L
0052640 E \r
0052660
0052700 E X P R E S S I O N S ,
0052720 T R A N S L A T I O N I S E
0052740 X A C T B U T M O R E E X
0052760 P E N S I V E I F T E S T
0053000 O N L Y . \r
0053020
0053040 F O R C O M P L
0053060 E X E X P R E S S I O N S ,
0053100 W O N ' T W O R K F O R V
0053120 A L U E ) ) \r
0053140 ( O P E N F I
0053160 L E 1 % : ( * N O P L A C
0053200 E I N C L O P E N F O R
0053220 I L O P T I O N S ) ) \r
0053240
0053260 ( O P E N F I L E 2 % : ( *
0053300 O L D E S T R E C O G N I T I
0053320 O N B E L O N G I N F I L
0053340 E N A M E A S % : V E R S I
0053360 O N % : O L D E S T ) ) \r
0053400
0053420 ( O U T S I D E - C L % : ( *
0053440 F U N C T I O N I N A R E
0053460 A N O T A D D R E S S E D
0053500 B Y C L S T A N D A R D \r
0053520
*
0053560 ( E . G . D I S P L A Y ,
0053600 P R O C E S S E S , N E T W
0053620 O R K ) ) ) \r
0053640 ( P A C K F I
0053660 L E N A M E 1 % : ( * C O M
0053700 P U T E D C O M P O N E N T
0053720 N A M E S N O T T R A N S L
0053740 A T E D ) ) \r
0053760 ( P A C K F I
0054000 L E N A M E % : ( * N O T
0054020 P O S I T I O N S E N S I T I
0054040 V E I N C L . M A Y N E
0054060 E D C H A N G E S ) ) \r
0054100 (
0054120 P O S I T I O N % : ( * N O
0054140 S U C H O P E R A T I O N
0054160 I N C L ? ) ) \r
0054200 ( P R I N
0054220 T % : ( * U g l y t r a n
0054240 s l a t i o n o f P R I N T
0054260 ) ) \r
0054300 ( P R I N T D E F % :
0054320 ( * L E F T M A R G I N
0054340 O R T A I L F L G I G N O R
0054360 E D ) ) \r
0054400 ( P R I N T N U M
0054420 % : ( * I M P E R F E C T
0054440 T R A N S L A T I O N O F P
0054460 R I N T N U M ) ) \r
0054500 ( P R I
0054520 N T O U T % : ( * P R I N T
0054540 O U T S P E C I A L F O R M
0054560 A T T I N G ( E . G . P R E
0054600 T T Y P R I N T I N G ) \r
0054620
0054640 I G
0054660 N O R E D ) ) \r
0054700 ( P R I N T
0054720 O U T F O N T % : ( * . F O
0054740 N T I G N O R E D I N P R
0054760 I N T O U T ) ) \r
0055000 ( P R I N
0055020 T O U T M A C R O S % : ( *
0055040 P R I N T O U T M A C R O N
0055060 O T E X P A N D E D / T R A N
0055100 S L A T E D ) ) \r
0055120 ( P R I N
0055140 T O U T S U B % : ( * P R I
0055160 N T O U T S U B / S U P E R S
0055200 C R I P T I N G I G N O R E D
0055220 ) ) \r
0055240 ( P R O M P T P R I N
0055260 T % : ( * L O S E S S O M
0055300 E O F T H E S P I R I T
0055320 O F P R O M P T P R I N T ) )
0055340 \r
0055360 [ P U T A S S O C % : (
0055400 * N E E D ( D E F U N P U
0055420 T A S S O C ( K E Y V A L
0055440 A L S T ) \r
0055460
*
0055520 ( L E T ( ( P O S ( A
0055540 S S O C K E Y A L S T ) ) )
0055560 \r
0055600
*
0055640 ( * T H I S C O U L D
0055660 H A V E B E E N W R I T T
0055700 E N A S A N U G L Y P R
0055720 O G T O \r
0055740
*
0056000 A V O I
0056020 D B O T H A S S O C A N D
0056040 N C O N C H A V I N G T O
0056060 S C A N T H E \r
0056100
*
0056160 L I S T T O A D D A N E
0056200 W I T E M ) \r
0056220
*
0056260 ( C O N D
0056300 ( P O S ( R P L A C D P O S
0056320 V A L ) ) \r
0056340
*
0056400 [
0056420 ( C O N S P A L S T ) \r
0056440
*
0056520 ( N C O N C A L S
0056540 T ( L I S T ( C O N S K E
0056560 Y V A L ] \r
0056600
*
0056640 (
0056660 T ( C E R R O R " A r g n
0056700 o t l i s t ~ A " A L S T
0056720 ) ) ) \r
0056740
*
0057000 V A L ] \r
0057020 ( P U
0057040 T P R O P S 1 % : ( * W I E
0057060 R D M A C R O C A S E ) ) \r
0057100
0057120 ( P U T P R O P S % : ( *
0057140 N L A M B D A M A C R O N
0057160 O T S U P P O R T E D ) ) \r
0057200
0057220 ( R A N D % : ( * R A N D
0057240 O F E X P R E S S I O N D
0057260 E P E N D S O F T Y P E O
0057300 F V A L U E , F O R I N T
0057320 U S E \r
0057340
0057360 ( R A N D O M ( 1 + E X
0057400 P ) ) \r
0057420
0057440 % , F O R F L O A T ( R
0057460 A N D O M E X P ) ) ) \r
0057500 (
0057520 R E A D V I S E % : ( * R E
0057540 A D V I S E n o t t r a n s
0057560 l a t e d ) ) \r
0057600 ( R E C O R
0057620 D 1 % : ( * R E C O R D d
0057640 e c l a r a t i o n i n c o r
0057660 r e c t l y t r a n s l a t e
0057700 d . ) ) \r
0057720 ( R E S E T % :
0057740 ( * R E S E T L S T A N D
0057760 R E L A T I V E S S O M E W H
0060000 A T L I K E U N W I N D - P
0060020 R O T E C T , B U T Y O U '
0060040 R E O N Y O U R \r
0060060
0060100 O W N ) ) \r
0060120
0060140 [ S E L E C T C 2 % : ( *
0060160 S E L E C T C R E Q U I R E
0060200 S Y O U T O D O \r
0060220
0060240 ( D E
0060260 F M A C R O 006 002 S E L E C T C
0060300 006 001 ( S E L E C T O R & R E
0060320 S T C A S E S ) \r
0060340
0060360 ` [
0060400 C A S E , S E L E C T O R ,
0060420 @ ( 006 002 f o r 006 001 C A S E 006
0060440 002 o n 006 001 C A S E S 006 002 w h
0060460 i l e 006 001 ( C D R C A S E )
0060500 \r
0060520
*
0060560 006 002 c o l
0060600 l e c t 006 001 ( C O N S ( E V
0060620 A L ( C A A R C A S E ) ) \r
0060640
*
0060740 ( C D A R C A
0060760 S E ) ) ) \r
0061000
*
0061040 ( O T H E R W I S E , ( L A
0061060 S T C A S E S ] ) \r ] \r
0061100 (
0061120 S E T N % : ( * T O T A L L
0061140 Y U N P O R T A B L E . S E
0061160 T N I S N ' T E V E N S A
0061200 F E B E T W E E N D I F F E
0061220 R E N T I N T E R L I S P S !
0061240 ) ) \r
0061260 ( S E T S Y N T A X %
0061300 : ( * C L R E A D T A B L
0061320 E S O N L Y V A G U E L Y
0061340 L I K E I N T E R L I S P ) )
0061360 \r
0061400 ( S M A L L P % : ( *
0061420 N O C L T E S T F O R S
0061440 M A L L P , A T L E A S T
0061460 F I X N U M B E T T E R T H
0061500 A N B I G N U M ) ) \r
0061520 ( S
0061540 Q R T % : ( * I N I L ,
0061560 ( S Q R T - 1 ) \r
0061600
0061620 I S E R R O R ,
0061640 I N C L I T ' S % # C
0061660 ( 0 1 ) ) ) \r
0061700 ( S T R I N
0061720 G P 1 % : ( * M E S S Y S
0061740 T R I N G P , V E R I F Y U
0061760 S E F O R V A L U E ) ) \r
0062000
0062020 ( S T R I N G P % : ( * C
0062040 O N S E R V A T I V E S T R I
0062060 N G P . F O R S I M P L E
0062100 A R G , L E S S E F F I C I
0062120 E N T I F P R E D I C A T E
0062140 \r
0062160
0062200 O N L Y . F O R C O M P
0062220 L E X A R G F O R V A L U
0062240 E , I N C O R R E C T ) ) \r
0062260
0062300 ( S T R P O S % : ( * C A
0062320 N ' T T R A N S L A T E S K
0062340 I P / A N C H O R / T A I L / C
0062360 A S E A R R A Y ) ) \r
0062400 ( S U
0062420 B L I S % : ( * I N T E R L
0062440 I S P ( D ) \r
0062460
0062500 S U B L I S W I
0062520 T H F L G = T A L S O C O
0062540 P I E S S U B S T I T U T I O
0062560 N S W H I C H A R E L I S
0062600 T S . \r
0062620
0062640 T R A N S F O R M A T I
0062660 O N D O E S N O T . ) ) \r
0062700
0062720 ( S U B P A I R % : ( * S
0062740 E E I F P A I R L I S C A
0062760 N B E M O V E D O U T ) )
0063000 \r
0063020 ( S Y S T E M T Y P E % :
0063040 ( * M A N Y U S E S O F
0063060 S Y S T E M T Y P E A R E
0063100 D O N E A S S H A R P + / -
0063120 R E A D M A C R O S I N
0063140 C L ) ) \r
0063160 [ T C O N C % :
0063200 ( * N E E D ( D E F U N T
0063220 C O N C ( P T R X ) \r
0063240
*
0063300 ( L E T ( ( L
0063320 ( L I S T X ) ) ) \r
0063340
*
0063400 [ C O N D
0063420 ( ( N U L L P T R ) \r
0063440
*
0063520 ( S E T Q P T R ( L I S
0063540 T N I L ] \r
0063560
*
0063620 ( C O N D ( ( C A
0063640 R P T R ) \r
0063660
*
0063720 ( R P
0063740 L A C D ( C D R P T R ) \r
0063760
*
0064040 L ) ) \r
0064060
*
0064140 ( T ( R P L A C A
0064160 P T R L ) ) ) \r
0064200
*
0064240 ( R P L A C D
0064260 P T R L ] \r
0064300 ( T I M E % :
0064320 ( * T I M E N A N D T I
0064340 M E T Y P A R G S N O T S
0064360 U P P O R T E D I N C L ) )
0064400 \r
0064420 ( T Y P E N A M E P % :
0064440 ( * T Y P E N A M E P D A T
0064460 A T Y P E N A M E S N O T
0064500 M A P P E D ) ) \r
0064520 ( T Y P E
0064540 P % : ( * T Y P E P I S
0064560 A N C I E N T I N T E R L I S
0064600 P - 1 0 T E S T O N T Y P
0064620 E N U M B E R ! Y O U R P R
0064640 O B L E M I S T O \r
0064660
0064700 M A P T
0064720 Y P E N U M B E R T O C L
0064740 T Y P E N A M E ) ) \r
0064760 ( U N
0065000 D O A B L E ( * A N U N D
0065020 O A B L E / F N H A S B E
0065040 E N T R A N S F O R M E D T
0065060 O O R D I N A R Y C O U N T
0065100 E R P A R T ) ) \r
0065120 ( U N P A
0065140 C K % : ( * U N P A C K / C
0065160 H C O N A N D S U R R O U N
0065200 D I N G T O S E Q U E N C E
0065220 O P E R A T I O N S ? ? T H
0065240 E T R A N S L A T I O N \r
0065260
0065300 T O
0065320 C O E R C E W I L L W O R
0065340 K F O R S Y M B O L S A N
0065360 D S T R I N G S , B U T P
0065400 R I N C - T O - S T R I N G I
0065420 S \r
0065440
0065460 N E E D E D F O R M O S
0065500 T O T H E R K I N D S O F
0065520 A R G U M E N T S ) ) \r
0065540 (
0065560 c r e a t e % : ( * T h i s
0065600 c r e a t e c a n n o t
0065620 b e t r a n s l a t e d y e
0065640 t . ) ) \r
0065660 ( f e t c h 1 % :
0065700 ( * O U G H T T O B E C
0065720 O M E ( A R E F D A T U M
0065740 I N D E X ) \r
0065760
0066000 w h e r e I N D E
0066020 X d e p e n d s o n p o s
0066040 i t i o n o f f i e l d i
0066060 n r e c o r d a n d a n y
0066100 s k i p c o u n t s \r
0066120
0066140 b e f
0066160 o r e i t i n r e c o r d
0066200 ) ) \r
0066220 ( f e t c h % : ( *
0066240 O U G H T T O B E C O M E
0066260 ( A R E F D A T U M I N D
0066300 E X ) \r
0066320
0066340 w h e r e I N D E X d e
0066360 p e n d s o n p o s i t i o
0066400 n o f f i e l d i n r e
0066420 c o r d a n d a n y s k i
0066440 p c o u n t s \r
0066460
0066500 b e f o r e i
0066520 t i n r e c o r d ) ) \r
0066540
0066560 ( p u s h % : ( * T R A N S
0066600 L A T I O N O F M U L T I P
0066620 L E P U S H G I V E S M U
0066640 L T I P L E E V A L U A T I O
0066660 N O F P L A C E ) ) \r
0066700 (
0066720 r e p l a c e 1 % : ( * O U
0066740 G H T T O B E C O M E ( A
0066760 R E F D A T U M I N D E X )
0067000 \r
0067020
0067040 w h e r e I N D E X d e
0067060 p e n d s o n p o s i t i o
0067100 n o f f i e l d i n r e
0067120 c o r d a n d a n y s k i
0067140 p \r
0067160
0067200 c o u n t s b e f o r
0067220 e i t i n r e c o r d ) )
0067240 \r
0067260 ( r e p l a c e % : ( *
0067300 O U G H T T O B E C O M E
0067320 ( S E T F ( A R E F D A T
0067340 U M I N D E X ) \r
0067360
*
0067440 N E W V A L U E ) \r
0067460
0067500 w h e r e
0067520 I N D E X d e p e n d s o n
0067540 p o s i t i o n o f f i e
0067560 l d i n r e c o r d a n d
0067600 a n y s k i p \r
0067620
0067640 c o u n t
0067660 s b e f o r e i t i n r
0067700 e c o r d ) ) ) ) \r \r ( R P A Q
0067720 Q 006 002 N L I S T P C O M S 006 001
0067740 N I L ) \r \r ( R P A Q Q 006 002
0067760 L A M B D A C O M S 006 001 \r
0070000 [ ( C O M S ( S E L
0070020 E C T Q ( % # # 1 1 ) \r
0070040
0070060 ( [ L A M B D A N L A
0070100 M B D A ] \r
0070120 ' ( C O
0070140 M S Q ( I F ( A N D [ N O
0070160 T ( E Q L E N G T H ( % # #
0070200 ( N T H 2 ) ) \r
0070220
*
0070260 ( L E
0070300 N G T H ( % # # 1 2 ] \r
0070320
*
0070360 ( L I S T P ( % #
0070400 # 1 2 ) ) ) \r
0070420
0070440 ( ( R E M
0070460 A R K B L A M B D A 2 ) ) \r
0070500
*
0070540 N I L ) \r
0070560
0070600 M A R K \r
0070620
0070640 ( O R R ( 1 (
0070660 N T H 3 ) \r
0070700
0070720 D O T
0070740 H E S E ) \r
0070760
0071000 ( ( R E M A R
0071020 K B L A M B D A 3 ) ) ) \r
0071040
0071060 _ _ \r
0071100
0071120 ( N T
0071140 H 2 ) \r
0071160
0071200 D O T H E S E ) ) \r
0071220
0071240 ' ( C O M S Q ( R E M A R
0071260 K B L A M B D A 1 ) \r
0071300
0071320 ( - 1 A P P
0071340 L Y * ] ) \r \r ( R P A Q Q 006 002
0071360 T R A N S F O R M A T I O N S 006
0071400 001 ( * * C A T C H * T H R
0071420 O W / D E C L A R E D A T A T
0071440 Y P E / N C O N C / N C O N
0071460 C 1 / P U T P R O P / R P L
0071500 A C A / S E T A T O M V A L
0071520 \r
0071540 A D D A
0071560 D D . P R O C E S S A D D 1
0071600 A D D L A S T A D D M E N U
0071620 A D D P R O P A D D T O V A R
0071640 A D V I S E A L P H O R D E
0071660 R \r
0071700 A N T
0071720 I L O G A P P E N D A P P L
0071740 Y * A P R O P O S A R C C O
0071760 S A R C S I N A R C T A N
0072000 A R C T A N 2 A R G A R R A
0072020 Y A R R A Y P \r
0072040
0072060 A S K U S E R A S S O
0072100 C A T O M A T O M R E C O R
0072120 D A T T A C H A T T A C H M
0072140 E N U A T T A C H W I N D O W
0072160 B I N B I T B L T \r
0072200
0072220 B L O C K B O U
0072240 T B Q U O T E B R E A K B
0072260 R E A K D O W N B R K D W N R
0072300 E S U L T S B Y T E P O S I T
0072320 I O N B Y T E S I Z E \r
0072340
0072360 C C O D E P C
0072400 E N T E R P R I N T I N R E G I
0072420 O N C H A N G E C H A N G E
0072440 F O N T C H A R A C T E R C
0072460 H A R C O D E C H C O N \r
0072500
0072520 C H C O N 1
0072540 C H U N K . M E N U . C R E A T
0072560 E C L E A R W C L I S P %
0072600 C L I S P D E C C L O C K
0072620 C L O S E F C L O S E F ? \r
0072640
0072660 C L O S E W
0072700 C L R P R O M P T C N D I R
0072720 C O M P I L E C O N C A T
0072740 C O N D C O N S C O N S C O
0072760 U N T C O N S T A N T \r
0073000
0073020 C O N S T A N T
0073040 S C O P Y C O P Y A L L C
0073060 O P Y B Y T E S C O P Y C H A
0073100 R S C O P Y R E A D T A B L E
0073120 C O S C O U N T \r
0073140
0073160 C R E A T E . N U M
0073200 B E R P A D . R E A D E R C R
0073220 E A T E R E G I O N C R E A T
0073240 E W D A T A T Y P E D A T E
0073260 D E C L A R E \r
0073300
0073320 D E C L A R E % : D E
0073340 F D E F I N E - F I L E - I N
0073360 F O D E F I N E Q D E F P R
0073400 I N T D E L . P R O C E S S
0073420 D E L E T E M E N U \r
0073440
0073460 D E L F I L E D E
0073500 T A C H A L L W I N D O W S D
0073520 I F F E R E N C E D I R E C T
0073540 O R Y N A M E D I S M I S S
0073560 D O D R E M O V E \r
0073600
0073620 D R E V E R S E D
0073640 R I B B L E D S P C L I P P I
0073660 N G R E G I O N D S P C R E A
0073700 T E D S P F I L L D S P F O
0073720 N T D S P R E S E T \r
0073740
0073760 D S P R I G H T M
0074000 A R G I N D S P S C R O L L
0074020 D S P X P O S I T I O N D S P
0074040 Y P O S I T I O N D S U B L I
0074060 S D S U B S T D V \r
0074100
0074120 E C H O C O N T R
0074140 O L E D I T E E D I T V E
0074160 L T E O F P E Q L E N G T H
0074200 E Q P E R R O R E R R O R
0074220 ! E R R O R S E T E R S E T
0074240 Q \r
0074260 E V E
0074300 N P E V E R Y E X P R P F
0074320 A S S O C F C H A R A C T E R
0074340 F E T C H F I E L D L O O K
0074360 F I L E C O M S F I L E C O
0074400 M S L S T \r
0074420
0074440 F I L E N A M E F I E L D F
0074460 I L E P K G C H A N G E S F I
0074500 L E S L O A D F I N D F I L E
0074520 F I X F I X P F L A S H W
0074540 I N D O W F L A S T \r
0074560
0074600 F L E S S P F L
0074620 O A T P F M A X F M E M B
0074640 F M I N F N T H F N T Y P
0074660 F O N T C R E A T E F O N T P
0074700 R O P F O R \r
0074720
0074740 F O R C E O U T P U T F
0074760 Q U O T I E N T F R P L A C A
0075000 F R P L A C D F T I M E S
0075020 F U N C T I O N G E Q G E T
0075040 B O X P O S I T I O N \r
0075060
0075100 G E T D G E T F
0075120 I L E I N F O G E T F I L E P
0075140 T R G E T P R O P G E T P R
0075160 O P L I S T G E T P R O P M P
0075200 T W I N D O W G E T R E G I O
0075220 N \r
0075240 G E T
0075260 R E L A T I O N G E T T O P V
0075300 A L G E T W I N D O W P R O P
0075320 G I V E . T T Y . P R O C E S
0075340 S G L O B A L V A R S G R E
0075360 A T E R P \r
0075400
0075420 H A R R A Y H A R R A Y P
0075440 H A R R A Y S I Z E H A S H A
0075460 R R A Y H A S H A R R A Y P
0075500 H A S H L I N K H E L P I D
0075520 A T E \r
0075540 I
0075560 D I F F E R E N C E I E Q P
0075600 I G E Q I G R E A T E R P I
0075620 L E Q I L E S S P I M A X
0075640 I M I N I M I N U S I M O D
0075660 I N F I L E \r
0075700
0075720 I N F I L E C O M T A I L
0075740 I N F I L E P I N P U T I
0075760 N T E G E R L E N G T H I N T
0076000 E R R U P T C H A R I O F I L
0076020 E I P L U S \r
0076040
0076060 I Q U O T I E N T I R E
0076100 M A I N D E R I T I M E S K
0076120 W O T E L - C A S E L A M B
0076140 D A L A S T C L A Y O U T G
0076160 R A P H \r
0076200
0076220 L A Y O U T S E X P R L D I F
0076240 F L D I F F E R E N C E L E
0076260 N G T H L E Q L E S S P L
0076300 E T L E T * L I S P V E R S
0076320 I O N L I S P X \r
0076340
0076360 L I S P X P R I N T
0076400 L I S P X R E A D L I S P X R
0076420 E A D P L I S P X U N R E A D
0076440 L I S T F I L E S 1 L I S T
0076460 G E T L I S T P \r
0076500
0076520 L I S T P U T L I T
0076540 A T O M L L S H L O A D L
0076560 O A D ? L O A D F N S L O C
0076600 A L V A R S L O G O R L O G
0076620 O U T L R S H L S H \r
0076640
0076660 L S U B S T M
0076700 A C H I N E T Y P E M A P M
0076720 A P 2 C M A P 2 C A R M A P
0076740 C M A P C A R M A P C O N
0076760 M A P C O N C M A P H A S H
0077000 \r
0077020 M A P L I
0077040 S T M A R K A S C H A N G E D
0077060 M A S T E R S C O P E M E M
0077100 B M E M B E R M E N U M E
0077120 R G E M I N U S M I S S P E
0077140 L L E D ? \r
0077160
0077200 M K A T O M M K S T R I N G
0077220 M O U S E C O N F I R M M O
0077240 V E T O N C H A R S N C O N
0077260 C 1 N E Q N E W P R I N T D
0077300 E F N L A M B D A \r
0077320
0077340 N L E F T N L I S
0077360 T P N L S E T Q N O T A N Y
0077400 N O T E V E R Y N T H N T
0077420 H C H A R N T H C H A R C O D
0077440 E N T Y P X N U M B E R P
0077460 \r
0077500 N U M B E
0077520 R P A D . R E A D O D D P O
0077540 P E N F I L E O P E N L A M B
0077560 D A O P E N S T R E A M O P
0077600 E N W O P E N W P O U T F I
0077620 L E \r
0077640 O U
0077660 T P U T P A C K P A C K *
0077700 P A C K C P A C K F I L E N A
0077720 M E P E E K C P L U S P O
0077740 S I T I O N P R E T T Y C O M
0077760 P R I N T \r
0100000
0100020 P R I N 1 P R I N 2 P R I
0100040 N 3 P R I N T P R I N T B E
0100060 L L S P R I N T D E F P R I
0100100 N T N U M P R I N T O U T P
0100120 R O C E S S P \r
0100140
0100160 P R O C E S S P R O P P
0100200 R O G P R O G N P R O M P T
0100220 C H A R P R O M P T P R I N T
0100240 P U S H P U S H L I S T P
0100260 U S H N E W \r
0100300
0100320 P U T A S S O C P U T D
0100340 P U T H A S H P U T P R O P
0100360 P U T P R O P S Q U O T E Q
0100400 U O T I E N T R A N D R A N
0100420 D S E T R A T O M \r
0100440
0100460 R E A D C R E A D
0100500 L I N E R E A D P R E A D T
0100520 A B L E P R E A D V I S E R
0100540 E C L O O K R E C O R D R E
0100560 G I O N P R E M O V E \r
0100600
0100620 R E M P R O P L
0100640 I S T R E P L A C E R E S E
0100660 T F O R M R E S E T L S T R
0100700 E S E T S A V E R E S E T V A
0100720 R R E S E T V A R S \r
0100740
0100760 R E S T A R T . P
0101000 R O C E S S R E T F R O M R
0101020 E T T O R N U M B E R R P A
0101040 Q R P A Q ? R P A Q Q R P
0101060 L N O D E R P L N O D E 2 \r
0101100
0101120 R P L S T R
0101140 I N G R S H S A S S O C S
0101160 C R O L L B Y R E P A I N T F N
0101200 S E L E C T C S E L E C T Q
0101220 S E T A S E T F I L E P T R
0101240 \r
0101260 S E T M
0101300 E N U S E T N S E T P R O P
0101320 L I S T S E T Q S E T Q Q
0101340 S E T S Y N T A X S E T T O P
0101360 V A L S H A D E I T E M S H
0101400 O U L D N T \r
0101420
0101440 S H O W G R A P H S H O W
0101460 Z O O M G R A P H S I N S M
0101500 A L L P S O M E S O R T S
0101520 P A C E S S P E C V A R S S
0101540 Q R T S T K E V A L \r
0101560
0101600 S T K P O S S T
0101620 R E Q U A L S T R I N G P S
0101640 T R P O S S U B 1 S U B A T
0101660 O M S U B L I S S U B P A I
0101700 R S U B S E T S U B S T R I
0101720 N G \r
0101740 S U
0101760 S P E N D . P R O C E S S S W
0102000 A P S Y S T E M T Y P E T A
0102020 B T A N T C O N C T C P .
0102040 C L O S E . S E N D E R \r
0102060
0102100 T C P . O T H E
0102120 R . S T R E A M T H I S . P R
0102140 O C E S S T I M E T I M E S
0102160 T O T O P W T T Y D I S P L
0102200 A Y S T R E A M T T Y I N \r
0102220
0102240 T Y P E ?
0102260 T Y P E N A M E P T Y P E P
0102300 T Y P E R E C O R D U - C A S
0102320 E U A L P H O R D E R U N B
0102340 R E A K U N P A C K U S E R
0102360 E X E C \r
0102400
0102420 W F R O M M E N U W H E N C L
0102440 O S E W H E R E I S W H I L
0102460 E W I N D O W A D D P R O P
0102500 W I N D O W P W I N D O W P R
0102520 O P X N L S E T Q \r
0102540
0102560 Z E R O P \ A D D
0102600 T O F I L E B L O C K / A D D T
0102620 O C O M 1 a d d a d d l a s
0102640 t c h a n g e c r e a t e
0102660 d o f e t c h f f e t c h
0102700 \r
0102720 f o r f
0102740 r e p l a c e p o p p r i n
0102760 t o u t p u s h p u s h l i
0103000 s t p u s h n e w r e p l a
0103020 c e s w a p t y p e ? w h
0103040 i l e ) ) \r \r ( P U T P R O P S
0103060 006 002 * X F O R M 006 001 ( ( 1
0103100 * C O M M E N T * ) \r
0103120 [
0103140 I F ( E Q ( % # # 2 ) \r
0103160
0103200 ' * ) \r
0103220
0103240 ( ( 2 ; ; ) ) \r
0103260
0103300 ( ( I F ( G R E A T
0103320 E R P ( L E N G T H ( % # #
0103340 ) ) \r
0103360
0103400 1 0 ) \r
0103420
0103440 ( ( - 2 ; ; ) ) \r
0103460
0103500 ( ( - 2
0103520 ; ] \r
0103540 [ I 3 ( S T R
0103560 I N G I F Y ( C D D R ( % #
0103600 # ] \r
0103620 ( I F ( % # # (
0103640 N T H 4 ) ) \r
0103660 (
0103700 ( D E L E T E ( 4 T H R U )
0103720 ) ) \r
0103740 N I L ) ) )
0103760 \r \r ( P U T P R O P S 006 002 * C
0104000 A T C H X F O R M 006 001 ( ( 1
0104020 C A T C H ) ) ) \r \r ( P U T P
0104040 R O P S 006 002 * T H R O W X F
0104060 O R M 006 001 ( ( 1 T H R O W )
0104100 ) ) \r \r ( P U T P R O P S 006 002
0104120 / D E C L A R E D A T A T Y P E
0104140 X F O R M 006 001 ( ( M B D *
0104160 ) \r
0104200
0104220 D O T H I S ) ) \r \r ( P
0104240 U T P R O P S 006 002 / N C O N C
0104260 X F O R M 006 001 ( ( R E M A R
0104300 K U N D O A B L E ) \r
0104320
0104340 ( 1 N C O N C ) ) ) \r
0104360 \r ( P U T P R O P S 006 002 / N C
0104400 O N C 1 X F O R M 006 001 ( ( R
0104420 E M A R K U N D O A B L E ) \r
0104440
0104460 ( 1 N C O N
0104500 C ) \r
0104520 ( - 3
0104540 L I S T ) \r
0104560 (
0104600 L I 3 ) ) ) \r \r ( P U T P R O
0104620 P S 006 002 / P U T P R O P X F
0104640 O R M 006 001 ( ( R E M A R K U
0104660 N D O A B L E ) \r
0104700
0104720 ( 1 S E T F ) \r
0104740
0104760 ( - 2 G E T ) \r
0105000
0105020 ( B I 2 4
0105040 ) ) ) \r \r ( P U T P R O P S 006
0105060 002 / R P L A C A X F O R M 006 001
0105100 ( ( 1 R P L A C A ) \r
0105120
0105140 ( R E M A R K U N
0105160 D O A B L E ) ) ) \r \r ( P U T P
0105200 R O P S 006 002 / S E T A T O M V
0105220 A L X F O R M 006 001 ( ( R E M
0105240 A R K U N D O A B L E ) \r
0105260
0105300 ( R E M A
0105320 R K / S E T A T O M V A L % :
0105340 ) \r
0105360 (
0105400 1 S E T T O P V A L ) \r
0105420
0105440 D O T H I S
0105460 ) ) \r \r ( P U T P R O P S 006 002
0105500 A D D X F O R M 006 001 ( ( 1
0105520 a d d ) \r
0105540 D O T H I S
0105560 ) ) \r \r ( P U T P R O P S 006 002
0105600 A D D . P R O C E S S X F O R
0105620 M 006 001 ( ( R E M A R K O U T
0105640 S I D E - C L % : ) ) ) \r \r ( P
0105660 U T P R O P S 006 002 A D D 1 X
0105700 F O R M 006 001 ( ( 1 1 + ) ) )
0105720 \r \r ( P U T P R O P S 006 002 A D
0105740 D L A S T X F O R M 006 001 [ D
0105760 W ( I F ( E Q ( C A R (
0106000 % # # ) ) \r
0106020
0106040 ' C L I S P
0106060 % ) \r
0106100
0106120 ( D O T H I S ) \r
0106140
0106160 ( ( R
0106200 E M A R K A D D L A S T % : ]
0106220 ) \r \r ( P U T P R O P S 006 002 A
0106240 D D M E N U X F O R M 006 001 (
0106260 ( R E M A R K O U T S I D E -
0106300 C L % : ) ) ) \r \r ( P U T P R O
0106320 P S 006 002 A D D P R O P X F O
0106340 R M 006 001 ( ( 1 P U S H N E W
0106360 G E T P R O P ) \r
0106400
0106420 ( B I 2 4 ) \r
0106440
0106460 ( S W 2 3 ) ) ) \r
0106500 \r ( P U T P R O P S 006 002 A D D
0106520 T O V A R X F O R M 006 001 [ (
0106540 I F ( % # # ( N T H 4 ) )
0106560 \r
0106600 (
0106620 ( 1 S E T Q ) \r
0106640
0106660 ( L I 3 ) \r
0106700
0106720 ( E
0106740 M B E D 3 I N ( U N I O N
0106760 ' & ) ) \r
0107000
0107020 3 \r
0107040
0107060 ( I N ( % # #
0107100 0 2 ) ) ) \r
0107120
0107140 ( ( 1 P U S H N E W
0107160 ) \r
0107200
0107220 ( S W 2 3 ) \r
0107240
0107260 ( E M B E D
0107300 2 I N Q U O T E ] ) \r \r ( P
0107320 U T P R O P S 006 002 A D V I S E
0107340 X F O R M 006 001 ( ( R E M A R
0107360 K O U T S I D E - C L % : ) )
0107400 ) \r \r ( P U T P R O P S 006 002 A
0107420 L P H O R D E R X F O R M 006 001
0107440 ( ( 1 S T R I N G < ) ) ) \r
0107460 \r ( P U T P R O P S 006 002 A N T
0107500 I L O G X F O R M 006 001 ( ( 1
0107520 E X P ) ) ) \r \r ( P U T P R O
0107540 P S 006 002 A P P E N D X F O R
0107560 M 006 001 [ ( O R R ( 3 ) \r
0107600
0107620 ( ( N N
0107640 I L ] ) \r \r ( P U T P R O P S
0107660 006 002 A P P L Y * X F O R M 006 001
0107700 ( ( 1 F U N C A L L ) ) ) \r
0107720 \r ( P U T P R O P S 006 002 A P R
0107740 O P O S X F O R M 006 001 ( ( I
0107760 F ( E Q ( C A D D D R ( %
0110000 # # ) ) \r
0110020
0110040 T ) \r
0110060
0110100 ( ( 1 A P R O P O
0110120 S - L I S T ) \r
0110140
0110160 ( 4 ) ) \r
0110200
0110220 N I L ) \r
0110240
0110260 ( I F ( O R ( C
0110300 A D D R ( % # # ) ) \r
0110320
0110340 ( C A
0110360 D D D R ( % # # ) ) ) \r
0110400
0110420 ( ( R E M A
0110440 R K A P R O P O S % : ) ) \r
0110460
0110500 N I L )
0110520 ) ) \r \r ( P U T P R O P S 006 002
0110540 A R C C O S X F O R M 006 001 [
0110560 ( 1 A C O S ) \r
0110600
0110620 ( I F ( % # # 3 ) \r
0110640
0110660 ( ( 3 ) ) \r
0110700
0110720 ( ( M B D
0110740 ( T I M E S & ( / 1 8 0
0110760 ( F L O A T P I & ] ) \r \r
0111000 ( P U T P R O P S 006 002 A R C S
0111020 I N X F O R M 006 001 [ ( 1 A
0111040 S I N ) \r
0111060 ( I F
0111100 ( % # # 3 ) \r
0111120
0111140 ( ( 3 ) ) \r
0111160
0111200 ( ( M B D ( T I
0111220 M E S & ( / 1 8 0 ( F L
0111240 O A T P I & ] ) \r \r ( P U T
0111260 P R O P S 006 002 A R C T A N X
0111300 F O R M 006 001 [ ( 1 A T A N )
0111320 \r
0111340 ( I F ( % #
0111360 # 3 ) \r
0111400
0111420 ( ( 3 ) ) \r
0111440
0111460 ( ( M B D ( T I M E S
0111500 & ( / 1 8 0 ( F L O A T
0111520 P I & ] ) \r \r ( P U T P R O P
0111540 S 006 002 A R C T A N 2 X F O R
0111560 M 006 001 [ ( 1 A T A N ) \r
0111600
0111620 ( I F ( % # #
0111640 4 ) \r
0111660
0111700 ( ( 4 ) ) \r
0111720
0111740 ( ( M B D ( T I M E S
0111760 & ( / 1 8 0 ( F L O A T
0112000 P I & ] ) \r \r ( P U T P R O P
0112020 S 006 002 A R G X F O R M 006 001
0112040 [ ( 1 N T H ) \r
0112060 ( I
0112100 F ( N U M B E R P ( % # #
0112120 3 ) ) \r
0112140 [ ( I
0112160 3 ( S U B 1 ( % # # 3 ]
0112200 \r
0112220 ( ( E M B E
0112240 D 3 I N 1 - ] ) \r \r ( P U
0112260 T P R O P S 006 002 A R R A Y X
0112300 F O R M 006 001 ( ( 1 m a k e -
0112320 a r r a y ) \r
0112340 ( E
0112360 M B E D 2 I N A D D 1 ) \r
0112400
0112420 ( O R R ( ( 5 )
0112440 ) \r
0112460 N I
0112500 L ) \r
0112520 ( O R R (
0112540 ( 3 ) ) \r
0112560
0112600 N I L ) \r
0112620 ( O R
0112640 R ( 3 ( B : i n i t i a l
0112660 - e l e m e n t ) ) \r
0112700
0112720 N I L ) ) ) \r \r (
0112740 P U T P R O P S 006 002 A R R A Y
0112760 P X F O R M 006 001 ( T E S T O
0113000 R V A L \r
0113020 ( C O
0113040 M S ( S E L E C T Q U S A G
0113060 E ( T E S T N I L ) \r
0113100
*
0113140 [ V A L U E ' ( I F ( A
0113160 T O M ( % # # 2 ) ) \r
0113200
*
0113240 ( (
0113260 M B D A N D ) \r
0113300
*
0113340 ( I N
0113360 ( % # # 2 2 ) ) \r
0113400
*
0113440 N L A
0113460 M ) \r
0113500
*
0113540 ( [ 1 F U N C A L L
0113560 ( L A M B D A ( X ) \r
0113600
*
0113700 ( A N D ( A R R A Y P X ) \r
0113720
*
0114020 X ] \r
0114040
*
0114100 2
0114120 D O T H I S ( R E M A R K N
0114140 U M B E R P 1 % : ] \r
0114160
*
0114220 [ U N K N O W N ' ( C O M S Q
0114240 ( R E M A R K N U M B E R P
0114260 1 % : ) \r
0114300
*
0114340 ( O R R
0114360 ( 2 1 ) \r
0114400
*
0114460 ( ( M B D A N D ) \r
0114500
*
0114560 ( I N ( % #
0114600 # 2 2 ) ) \r
0114620
*
0114700 N L A M ] \r
0114720
0114740 N
0114760 I L ) ) ) ) \r \r ( P U T P R O P
0115000 S 006 002 A S K U S E R X F O R
0115020 M 006 001 ( ( R E M A R K O U T
0115040 S I D E - C L % : ) ) ) \r \r ( P
0115060 U T P R O P S 006 002 A S S O C
0115100 X F O R M 006 001 ( ( R E M A R K
0115120 A S S O C % : ) ) ) \r \r ( P U
0115140 T P R O P S 006 002 A T O M X F
0115160 O R M 006 001 ( ( 1 O R ) \r
0115200
0115220 ( E M B E D 2 I N
0115240 ( S Y M B O L P & ) \r
0115260
0115300 ( N U M B E R
0115320 P & ) ) \r
0115340 ( R E M
0115360 A R K I N T E R L I S P - A T
0115400 O M ) ) ) \r \r ( P U T P R O P S
0115420 006 002 A T O M R E C O R D X F
0115440 O R M 006 001 ( ( M B D * ) \r
0115460
0115500 D O T H I
0115520 S ) ) \r \r ( P U T P R O P S 006
0115540 002 A T T A C H X F O R M 006 001
0115560 [ ( 1 ( L A M B D A ( X L
0115600 ) \r
0115620
0115640 ( R P L A C D L ( C
0115660 O N S ( C A R L ) \r
0115700
*
0115740 ( C
0115760 D R L ) ) ) \r
0116000
0116020 ( R P L A C
0116040 A L X ] ) \r \r ( P U T P R O
0116060 P S 006 002 A T T A C H M E N U
0116100 X F O R M 006 001 ( ( R E M A R K
0116120 O U T S I D E - C L % : ) ) )
0116140 \r \r ( P U T P R O P S 006 002 A T
0116160 T A C H W I N D O W X F O R M
0116200 006 001 ( ( R E M A R K O U T S
0116220 I D E - C L % : ) ) ) \r \r ( P U
0116240 T P R O P S 006 002 B I N X F O
0116260 R M 006 001 ( ( 1 R E A D - B Y
0116300 T E ) ) ) \r \r ( P U T P R O P S
0116320 006 002 B I T B L T X F O R M 006
0116340 001 ( ( R E M A R K O U T S I
0116360 D E - C L % : ) ) ) \r \r ( P U T
0116400 P R O P S 006 002 B L O C K X F
0116420 O R M 006 001 [ ( 1 S L E E P )
0116440 \r
0116460 ( O R R ( ( E
0116500 M B E D 2 I N ( / & 1
0116520 0 0 0 ) ) \r
0116540
0116560 2 2 D O T H I S ) \r
0116600
0116620 ( ( N 0
0116640 ] ) \r \r ( P U T P R O P S 006 002
0116660 B O U T X F O R M 006 001 ( ( 1
0116700 W R I T E - B Y T E ) \r
0116720
0116740 ( S W 2 3 ) ) ) \r \r (
0116760 P U T P R O P S 006 002 B Q U O T
0117000 E X F O R M 006 001 ( ( L P Q
0117020 ( F \ , 033 N ) \r
0117040
0117060 2 D O T H I S )
0117100 \r
0117120 N L A M ) ) \r
0117140 \r ( P U T P R O P S 006 002 B R E
0117160 A K X F O R M 006 001 ( ( R E M
0117200 A R K B R E A K % : ) ) ) \r \r
0117220 ( P U T P R O P S 006 002 B R E A
0117240 K D O W N X F O R M 006 001 ( (
0117260 R E M A R K O U T S I D E - C
0117300 L % : ) ) ) \r \r ( P U T P R O P
0117320 S 006 002 B R K D W N R E S U L T
0117340 S X F O R M 006 001 ( ( R E M A
0117360 R K O U T S I D E - C L % : )
0117400 ) ) \r \r ( P U T P R O P S 006 002
0117420 B Y T E P O S I T I O N X F O
0117440 R M 006 001 ( ( 1 B Y T E - P O
0117460 S I T I O N ) ) ) \r \r ( P U T P
0117500 R O P S 006 002 B Y T E S I Z E
0117520 X F O R M 006 001 ( ( 1 B Y T E
0117540 - S I Z E ) ) ) \r \r ( P U T P R
0117560 O P S 006 002 C C O D E P X F O
0117600 R M 006 001 ( ( 1 C O M P I L E
0117620 D - F U N C T I O N - P ) ) ) \r
0117640 \r ( P U T P R O P S 006 002 C E N
0117660 T E R P R I N T I N R E G I O N
0117700 X F O R M 006 001 ( ( R E M A R
0117720 K O U T S I D E - C L % : ) )
0117740 ) \r \r ( P U T P R O P S 006 002 C
0117760 H A N G E X F O R M 006 001 ( (
0120000 1 c h a n g e ) \r
0120020
0120040 D O T H I S ) ) \r \r ( P U T
0120060 P R O P S 006 002 C H A N G E F O
0120100 N T X F O R M 006 001 ( ( R E M
0120120 A R K O U T S I D E - C L % :
0120140 ) ) ) \r \r ( P U T P R O P S 006
0120160 002 C H A R A C T E R X F O R M
0120200 006 001 ( ( M B D I N T E R N )
0120220 \r
0120240 N L A M
0120260 ) ) \r \r ( P U T P R O P S 006 002
0120300 C H A R C O D E X F O R M 006 001
0120320 ( [ I 2 ( C L : I N T - C
0120340 H A R ( E V A L ( % # # ] \r
0120360
0120400 ( 1 C H A
0120420 R - I N T ) \r
0120440
0120460 ( R E M A R K C H A R C O D
0120500 E % : ) ) ) \r \r ( P U T P R O P
0120520 S 006 002 C H C O N X F O R M 006
0120540 001 ( ( R E M A R K U N P A C
0120560 K % : ) \r
0120600 ( 1 S
0120620 T R I N G ) \r
0120640 ( M
0120660 B D ( M A P ' L I S T ( F
0120700 U N C T I O N C H A R - C O D
0120720 E ) \r
0120740
0120760 & ) ) \r
0121000 4
0121020 2 D O T H I S ) ) \r \r ( P U
0121040 T P R O P S 006 002 C H C O N 1
0121060 X F O R M 006 001 ( ( 1 C H A R
0121100 ) \r
0121120 ( N 0 ) \r
0121140
0121160 ( E M B E D 2
0121200 I N S T R I N G ) \r
0121220
0121240 ( M B D C H A R - C O
0121260 D E ) ) ) \r \r ( P U T P R O P S
0121300 006 002 C H U N K . M E N U . C R
0121320 E A T E X F O R M 006 001 ( ( R
0121340 E M A R K O U T S I D E - C L
0121360 % : ) ) ) \r \r ( P U T P R O P S
0121400 006 002 C L E A R W X F O R M 006
0121420 001 ( ( R E M A R K O U T S I
0121440 D E - C L % : ) ) ) \r \r ( P U T
0121460 P R O P S 006 002 C L I S P %
0121500 X F O R M 006 001 ( ( I F [ O R
0121520 ( M E M B ( L - C A S E (
0121540 % # # 1 ) ) \r
0121560
0121600 '
0121620 ( w h i l e f o r p u s h
0121640 p o p p u s h n e w a d d
0121660 s w a p ) ) \r
0121700
0121720 ( A N D ( M E
0121740 M B ( % # # 1 ) \r
0121760
*
0122020 D a t a T y p e S
0122040 p e c i a l F o r m s ) \r
0122060
*
0122120 ( D a t a T y p e P ( %
0122140 # # 2 ] \r
0122160
0122200 ( ( I % : ( C D D R
0122220 ( % # # ) ) ) \r
0122240
0122260 1 D O T H I S ) \r
0122300
0122320 ( ( I
0122340 % : ( C A D R ( % # # ) )
0122360 ) \r
0122400
0122420 1 D O T H I S ) ) ) ) \r \r ( P
0122440 U T P R O P S 006 002 C L I S P D
0122460 E C X F O R M 006 001 ( ( M B D
0122500 * ) \r
0122520 D O
0122540 T H I S ) ) \r \r ( P U T P R O P
0122560 S 006 002 C L O C K X F O R M 006
0122600 001 [ ( C O M S ( S E L E C T
0122620 Q ( C A D R ( % # # ) ) \r
0122640
*
0122700 [ ( 0 N I L ) \r
0122720
*
0122760 ' ( C O M S Q ( 1 * ) \r
0123000
*
0123040 [ O R R
0123060 ( 2 ( / 1 0 0 0 I N T E
0123100 R N A L - T I M E - U N I T S -
0123120 P E R - S E C O N D ) \r
0123140
*
0123220 ( G E T - I N T E R N A L - R
0123240 E A L - T I M E ) ) \r
0123260
*
0123320 ( ( N
0123340 ( / 1 0 0 0 I N T E R N A
0123360 L - T I M E - U N I T S - P E R
0123400 - S E C O N D ) \r
0123420
*
0123460 (
0123500 G E T - I N T E R N A L - R E A
0123520 L - T I M E ] \r
0123540
*
0123600 ( R E M A R K C L O
0123620 C K % : ] \r
0123640
0123660 [ 2 ' ( C
0123700 O M S Q ( 1 * ) \r
0123720
*
0123760 ( 2 ( /
0124000 1 0 0 0 I N T E R N A L - T I
0124020 M E - U N I T S - P E R - S E C
0124040 O N D ) \r
0124060
*
0124120 ( G E T - I N T E
0124140 R N A L - R U N - T I M E ) ) \r
0124160
*
0124220 (
0124240 R E M A R K C L O C K % : ] \r
0124260
*
0124320 ' ( R E M A R K C L O
0124340 C K 1 % : ] ) \r \r ( P U T P R O
0124360 P S 006 002 C L O S E F X F O R
0124400 M 006 001 ( ( 1 C L O S E ) ) )
0124420 \r \r ( P U T P R O P S 006 002 C L
0124440 O S E F ? X F O R M 006 001 ( (
0124460 1 C L O S E ) ) ) \r \r ( P U T
0124500 P R O P S 006 002 C L O S E W X
0124520 F O R M 006 001 ( ( R E M A R K
0124540 O U T S I D E - C L % : ) ) ) \r
0124560 \r ( P U T P R O P S 006 002 C L R
0124600 P R O M P T X F O R M 006 001 (
0124620 ( R E M A R K O U T S I D E -
0124640 C L % : ) ) ) \r \r ( P U T P R O
0124660 P S 006 002 C N D I R X F O R M
0124700 006 001 ( ( 1 S E T Q * D E F
0124720 A U L T - P A T H N A M E - D E
0124740 F A U L T S * ) \r
0124760
0125000 ( E M B E D 3 I N P A R S
0125020 E - N A M E S T R I N G ) ) ) \r
0125040 \r ( P U T P R O P S 006 002 C O M
0125060 P I L E X F O R M 006 001 ( ( R
0125100 E M A R K C O M P I L E % : )
0125120 ) ) \r \r ( P U T P R O P S 006 002
0125140 C O N C A T X F O R M 006 001 (
0125160 ( 1 C O N C A T E N A T E '
0125200 S T R I N G ) \r
0125220
0125240 ( N T H 3 ) \r
0125260
0125300 D O T H E S E 1 ( L P Q (
0125320 I F ( S T R I N G P ( % # #
0125340 ) ) \r
0125360
0125400 N I
0125420 L \r
0125440
0125460 ( ( M
0125500 B D S T R I N G ) ) ) \r
0125520
*
0125560 N X ) ) ) \r \r ( P U T P
0125600 R O P S 006 002 C O N D X F O R
0125620 M 006 001 ( 1 ( L P Q N X (
0125640 O R R D O T H E S E N I L )
0125660 ) ) ) \r \r ( P U T P R O P S 006
0125700 002 C O N S X F O R M 006 001 [ (
0125720 O R R ( 3 ) \r
0125740
0125760 ( ( O R R ( 2 ( A N
0126000 I L ) ) \r
0126020
0126040 ( ( N N I L N I
0126060 L ] ) \r \r ( P U T P R O P S 006
0126100 002 C O N S C O U N T X F O R M
0126120 006 001 ( ( 1 Q U O T E 0 ) \r
0126140
0126160 ( R E M A
0126200 R K C O N S C O U N T % : ) )
0126220 ) \r \r ( P U T P R O P S 006 002 C
0126240 O N S T A N T X F O R M 006 001
0126260 ( ( X T R 2 ) \r
0126300
0126320 D O T H I S ) ) \r \r ( P U
0126340 T P R O P S 006 002 C O N S T A N
0126360 T S X F O R M 006 001 ( ( 1 P
0126400 R O G N ) \r
0126420
0126440 2 \r
0126460 ( L
0126500 P Q [ O R R ( 2 D O T H I
0126520 S 0 ( - 1 D E F C O N S T
0126540 A N T ) ) \r
0126560
0126600 ( ( I F
0126620 ( A N D ( G E T T O P V A L
0126640 ( % # # ) ) \r
0126660
*
0126720 ( N E Q ( G E T T
0126740 O P V A L ( % # # ) ) \r
0126760
*
0127040 ' N O B I N D ) ) \r
0127060
*
0127120 [ ( I M B D ( L I
0127140 S T ' D E F C O N S T A N T
0127160 ' & ( K W O T E ( G E T T O
0127200 P V A L ( % # # ] \r
0127220
*
0127260 ( ( M B D D E F C O
0127300 N S T A N T ) \r
0127320
*
0127360 ( R E M A R K C O N S T
0127400 A N T S % : ] \r
0127420
0127440 N X ) ) ) \r \r (
0127460 P U T P R O P S 006 002 C O P Y
0127500 X F O R M 006 001 ( ( 1 C O P Y
0127520 - T R E E ) ) ) \r \r ( P U T P R
0127540 O P S 006 002 C O P Y A L L X F
0127560 O R M 006 001 ( ( 1 C O P Y - T
0127600 R E E ) \r
0127620 ( R
0127640 E M A R K C O P Y A L L % : )
0127660 ) ) \r \r ( P U T P R O P S 006 002
0127700 C O P Y B Y T E S X F O R M 006
0127720 001 ( ( R E M A R K O U T S I
0127740 D E - C L % : ) ) ) \r \r ( P U T
0127760 P R O P S 006 002 C O P Y C H A R
0130000 S X F O R M 006 001 ( ( R E M A
0130020 R K O U T S I D E - C L % : )
0130040 ) ) \r \r ( P U T P R O P S 006 002
0130060 C O P Y R E A D T A B L E X F
0130100 O R M 006 001 ( ( 1 C O P Y - R
0130120 E A D T A B L E ) ) ) \r \r ( P U
0130140 T P R O P S 006 002 C O S X F O
0130160 R M 006 001 [ ( I F ( % # # 3
0130200 ) \r
0130220 ( ( 3 ) )
0130240 \r
0130260 ( ( E M B E
0130300 D 2 I N ( T I M E S &
0130320 ( / ( F L O A T P I & ) \r
0130340
*
0130420 1 8 0 ] ) \r \r ( P U T P R O
0130440 P S 006 002 C O U N T X F O R M
0130460 006 001 ( ( R E M A R K C O U N
0130500 T % : ) ) ) \r \r ( P U T P R O P
0130520 S 006 002 C R E A T E . N U M B E
0130540 R P A D . R E A D E R X F O R
0130560 M 006 001 ( ( R E M A R K O U T
0130600 S I D E - C L % : ) ) ) \r \r ( P
0130620 U T P R O P S 006 002 C R E A T E
0130640 R E G I O N X F O R M 006 001 (
0130660 ( R E M A R K O U T S I D E -
0130700 C L % : ) ) ) \r \r ( P U T P R O
0130720 P S 006 002 C R E A T E W X F O
0130740 R M 006 001 ( ( R E M A R K O U
0130760 T S I D E - C L % : ) ) ) \r \r (
0131000 P U T P R O P S 006 002 D A T A T
0131020 Y P E X F O R M 006 001 ( ( 1
0131040 D E F S T R U C T ) \r
0131060
0131100 3 1 ( L P Q ( O
0131120 R R ( ( X T R 1 ) ) \r
0131140
*
0131200 N I L ) \r
0131220
0131240 N X )
0131260 \r
0131300 0 0 (
0131320 N T H 3 ) \r
0131340
0131360 [ L P Q ( I F ( % # # 2
0131400 ) \r
0131420
0131440 ( ( I F ( E Q ' _
0131460 ( % # # 3 ) ) \r
0131500
*
0131540 ( ( I E M B E D 1 ( L
0131560 I S T ' F ( % # # 2 ) \r
0131600
*
0131660 N I L ) \r
0131700
*
0131740 1 \r
0131760
*
0132020 ' I N \r
0132040
*
0132100 ( L I S T ' &
0132120 ( % # # 4 ) ) ) \r
0132140
*
0132200 ( B I 2 4 ) \r
0132220
*
0132260 ( 2 ) ) \r
0132300
*
0132340 ( ( R E M A R K R E C O
0132360 R D 1 % : ] \r
0132400
0132420 ( B O 1 ) ) ) \r \r ( P U T P
0132440 R O P S 006 002 D A T E X F O R
0132460 M 006 001 ( ( O R R ( 2 ) \r
0132500
0132520 N I L ) \r
0132540
0132560 ( 1 M U L T I P L E -
0132600 V A L U E - B I N D ( S E C
0132620 M I N H R D A M O Y R )
0132640 \r
0132660 ( G E T - D
0132700 E C O D E D - T I M E ) \r
0132720
0132740 ( C O N C A T E N A
0132760 T E ' S T R I N G D A " -
0133000 " ( C A S E M O ( 1 " J
0133020 a n " ) \r
0133040
*
0133120 ( 2 " F e b " ) \r
0133140
*
0133220 ( 3 " M a r " ) \r
0133240
*
0133320 ( 4 " A p
0133340 r " ) \r
0133360
*
0133420 (
0133440 5 " M a y " ) \r
0133460
*
0133540 ( 6 " J u n " ) \r
0133560
*
0133640 ( 7 " J u l
0133660 " ) \r
0133700
*
0133740 ( 8
0133760 " A u g " ) \r
0134000
*
0134060 ( 9 " S e p " ) \r
0134100
*
0134160 ( 1 0 " O c t
0134200 " ) \r
0134220
*
0134260 ( 1
0134300 1 " N o v " ) \r
0134320
*
0134400 ( 1 2 " D e c " ) ) \r
0134420
*
0134460 " - " Y R " " H R " :
0134500 " M I N " : " S E C ) ) \r
0134520
0134540 ( R E M A R K D A
0134560 T E % : ) \r
0134600 N L A M
0134620 ) ) \r \r ( P U T P R O P S 006 002
0134640 D E C L A R E X F O R M 006 001
0134660 ( ( I F ( E Q ( % # # 2
0134700 1 ) \r
0134720
0134740 ' S P E C V A R S ) \r
0134760
0135000 [ ( I F
0135020 ( % # # 3 ) \r
0135040
0135060 ( ( R E M
0135100 A R K D E C L A R E % : ) \r
0135120
*
0135160 ( M B D * ) \r
0135200
0135220 D O T
0135240 H I S ) \r
0135260
0135300 ( 2 ( 1 S P E
0135320 C I A L ) \r
0135340
0135360 ( R E M A
0135400 R K D E C L A R E 1 % : ] \r
0135420
0135440 ( ( M B
0135460 D * ) \r
0135500
0135520 D O T H I S ) ) ) ) \r \r (
0135540 P U T P R O P S 006 002 D E C L A
0135560 R E % : X F O R M 006 001 ( ( I
0135600 F ( E Q ( % # # 2 ) \r
0135620
*
0135660 ' E V A L @ C O M P I L E ) \r
0135700
0135720 (
0135740 ( 1 P R O G N ) \r
0135760
0136000 ( 2 ) ) \r
0136020
0136040 ( (
0136060 M B D * ) \r
0136100
0136120 D O T H I S ) ) )
0136140 ) \r \r ( P U T P R O P S 006 002 D
0136160 E F X F O R M 006 001 ( ( 1 D
0136200 E F U N ) \r
0136220 3 M A R
0136240 K D O T H I S _ _ U P (
0136260 B O 1 ) \r
0136300 ( D E L E
0136320 T E 1 ) \r
0136340 N L A M )
0136360 ) \r \r ( P U T P R O P S 006 002 D
0136400 E F I N E - F I L E - I N F O
0136420 X F O R M 006 001 ( ( E ( S E T
0136440 R E A D T A B L E ( F I N D -
0136460 R E A D T A B L E ( L I S T G
0136500 E T ( % # # ( N T H 2 ) )
0136520 \r
0136540
*
0136620 : R E A D
0136640 T A B L E ) ) ) \r
0136660
0136700 T )
0136720 \r
0136740
0136760 ( E ( L I S T P U T (
0137000 % # # ( N T H 2 ) ) \r
0137020
*
0137060 : P A C K A G
0137100 E " X C L " ) \r
0137120
0137140 T )
0137160 \r
0137200
0137220 ( E ( L I S T P U T (
0137240 % # # ( N T H 2 ) ) \r
0137260
*
0137320 : R E A D T A
0137340 B L E " X C L " ) \r
0137360
*
0137420 T ) ) ) \r \r ( P U T P R O P S
0137440 006 002 D E F I N E Q X F O R M 006
0137460 001 ( ( 1 P R O G N ) \r
0137500
0137520 2 \r
0137540
0137560 ( L P Q ( - 1 D E F ) \r
0137600
0137620 N X )
0137640 ) ) \r \r ( P U T P R O P S 006 002
0137660 D E F P R I N T X F O R M 006 001
0137700 ( ( R E M A R K D E F P R I
0137720 N T % : ) \r
0137740
0137760 ( M B D * ) \r
0140000
0140020 D O T H I S ) ) \r \r ( P U T
0140040 P R O P S 006 002 D E L . P R O C
0140060 E S S X F O R M 006 001 ( ( R E
0140100 M A R K O U T S I D E - C L %
0140120 : ) ) ) \r \r ( P U T P R O P S
0140140 006 002 D E L E T E M E N U X F O
0140160 R M 006 001 ( ( R E M A R K O U
0140200 T S I D E - C L % : ) ) ) \r \r (
0140220 P U T P R O P S 006 002 D E L F I
0140240 L E X F O R M 006 001 ( ( 1 D
0140260 E L E T E - F I L E ) ) ) \r \r (
0140300 P U T P R O P S 006 002 D E T A C
0140320 H A L L W I N D O W S X F O R
0140340 M 006 001 ( ( R E M A R K O U T
0140360 S I D E - C L % : ) ) ) \r \r ( P
0140400 U T P R O P S 006 002 D I F F E R
0140420 E N C E X F O R M 006 001 ( ( 1
0140440 - ) ) ) \r \r ( P U T P R O P S
0140460 006 002 D I R E C T O R Y N A M E
0140500 X F O R M 006 001 [ ( C O M S
0140520 ( S E L E C T Q ( C A D R (
0140540 % # # ) ) \r
0140560
*
0140620 [ N I L ' ( % : ( U S E
0140640 R - H O M E D I R - P A T H N A
0140660 M E ] \r
0140700
*
0140740 ( T ' ( % : * D E F A U L T
0140760 - P A T H N A M E - D E F A U L
0141000 T S * ) ) \r
0141020
*
0141060 ' ( R E M A R K D I R E C
0141100 T O R Y N A M E % : ] ) \r \r ( P
0141120 U T P R O P S 006 002 D I S M I S
0141140 S X F O R M 006 001 ( ( 1 S L
0141160 E E P ) \r
0141200 ( E
0141220 M B E D 2 I N ( / & 1
0141240 0 0 0 ) ) \r
0141260 2
0141300 2 D O T H I S ) ) \r \r ( P U
0141320 T P R O P S 006 002 D O X F O R
0141340 M 006 001 ( ( - 1 f o r ) \r
0141360
0141400 D O T H I S ) ) \r \r ( P U T
0141420 P R O P S 006 002 D R E M O V E
0141440 X F O R M 006 001 \r
0141460 [ ( 1 D E L E T E ) \r
0141500 M A R K 0
0141520