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