$ od -c -N 50000 [phylum]<LISPUSERS>Lyric>COMMENTHACKS!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 " 1
0000120 1 - D e c - 8 7 1 3 : 3 3 : 2
0000140 2 " 006 004 { D S K } < X A V I E
0000160 R > C O M M E N T H A C K S . ;
0000200 7 006 001 1 4 4 2 6 \r \r
0000220 c h a n g e s t o % :
0000240 ( F N S M Y S U P E R P R I
0000260 N T / C O M M E N T 2 M Y S U
0000300 P E R P R I N T / C O M M E N T
0000320 E D I T D E F . F U N C T I O
0000340 N S \r
0000360 F I X
0000400 D E F U N E D I T D A T E C O
0000420 M M E N T 2 M Y E D I T D A T
0000440 E ? E D I T D A T E ? ) \r
0000460
0000500 ( V A R S C O M M E N T H
0000520 A C K S C O M S ) \r
0000540 ( F
0000560 U N C T I O N S F O O F U N C
0000600 T I O N S ) \r
0000620 ( P R O P
0000640 S ( C O M M E N T H A C K S
0000660 M A K E F I L E - E N V I R O N
0000700 M E N T ) ) \r \r p r
0000720 e v i o u s d a t e % : " 1
0000740 0 - D e c - 8 7 1 0 : 5 8 : 4
0000760 8 " { D S K } < X A V I E R >
0001000 C O M M E N T H A C K S . ; 1 )
0001020 \r \r \r ( * " \r C o p y r i g h
0001040 t ( c ) 1 9 8 7 b y U n
0001060 i s y s C o r p . . A l l
0001100 r i g h t s r e s e r v e d
0001120 . \r " ) \r \r ( P R E T T Y C O M
0001140 P R I N T C O M M E N T H A C
0001160 K S C O M S ) \r \r ( R P A Q Q
0001200 006 002 C O M M E N T H A C K S C O
0001220 M S 006 001 ( ( F N S E D I T D
0001240 E F . F U N C T I O N S F I X
0001260 D E F U N E D I T D A T E M Y
0001300 E D I T D A T E ? M Y S U P E
0001320 R P R I N T / C O M M E N T \r
0001340
0001360 M Y
0001400 S U P E R P R I N T / C O M M E
0001420 N T 2 ) \r
0001440 ( P
0001460 ( M O V D ' M Y E D I T D A
0001500 T E ? ' E D I T D A T E ? ) \r
0001520
0001540 ( M O V
0001560 D ' M Y S U P E R P R I N T /
0001600 C O M M E N T ' S U P E R P R
0001620 I N T / C O M M E N T ) ) \r
0001640
0001660 ( P R O P E D I
0001700 T D E F F U N C T I O N S ) \r
0001720
0001740 ( P R O P (
0001760 M A K E F I L E - E N V I R O N
0002000 M E N T F I L E T Y P E ) \r
0002020
0002040 C O
0002060 M M E N T H A C K S ) \r
0002100
0002120 ( E D I T H I S T C
0002140 O M M E N T H A C K S ) ) ) \r (
0002160 D E F I N E Q \r \r ( 006 004 E D I T
0002200 D E F . F U N C T I O N S 006 001 \r
0002220 [ L A M B D A ( N A M E
0002240 T Y P E S O U R C E E D I T
0002260 C O M S O P T I O N S ) 006 006 006
0002300 001
0002320 006 006 ( * ; " E d i t e d
0002340 1 0 - D e c - 8 7 1 0 : 3 7
0002360 b y D J V B " ) 006 001 \r \r
0002400 ( L E T [ ( D E F ( G E T
0002420 D E F N A M E T Y P E S O
0002440 U R C E ' ( E D I T N O C O
0002460 P Y ] \r ( S E
0002500 T Q R E T R Y N I L ) \r
0002520 ( E D I T E D E
0002540 F E D I T C O M S N A M E
0002560 T Y P E [ F U N C T I O N (
0002600 L A M B D A ( N A M E D E F
0002620 T Y P E E X I T F L G ) \r
0002640
*
0002720 ( M A R K A S C H A N G E D
0002740 N A M E T Y P E ' C H A N
0002760 G E D ) \r
0003000
*
0003040 ( 006 002 F I X D E
0003060 F U N E D I T D A T E 006 001 D E
0003100 F ) \r
0003120
*
0003160 ( P U T D E F N A
0003200 M E T Y P E D E F ] \r
0003220 O P T
0003240 I O N S )
0003260
0003300 006 006 ( * ;
0003320 " A N D S A Y W E E D I
0003340 T E D I T " ) 006 001 \r \r
0003360 T ] ) \r \r ( 006 004 F I X
0003400 D E F U N E D I T D A T E 006 001 \r
0003420 [ L A M B D A ( E X P R )
0003440 006 006 006 001
0003460
*
0003520 006 006 ( * ; " E d i t e d
0003540 1 0 - D e c - 8 7 1 0 : 4 2
0003560 b y D J V B " ) 006 001 \r
0003600 \r
0003620 006 006 ( * ; ; " I n s e r t
0003640 s o r r e p l a c e s p r
0003660 e v i o u s e d i t d a t e
0003700 i n a ( D E F U N f (
0003720 a r g s ) ( D E C L A R E -
0003740 - ) . . . % " d o c s t r i
0003760 n g % " E D I T D A T E b o
0004000 d y " ) 006 001 \r \r ( A N D
0004020 I N I T I A L S ( L I S T P
0004040 E X P R ) \r
0004060 ( F M E M B ( C A R E X P R
0004100 ) \r
0004120 ' ( C L : D E F U N 006 002 D
0004140 E F M A C R O 006 001 ) \r ) \r
0004160 ( L I S T P ( C
0004200 D D R E X P R ) ) \r
0004220 ( P R O G ( ( E ( C
0004240 D D D R E X P R ) ) ) \r
0004260 R E T R Y \r
0004300 ( C O
0004320 N D \r
0004340 ( ( N L I S T P E )
0004360 \r
0004400 ( R E T U R N ) ) \r
0004420
0004440 ( ( L I S T P ( C A R E ) )
0004460 \r
0004500 ( S E L E C T Q ( C A
0004520 A R E ) \r
0004540 ( ( D
0004560 E C L A R E ) \r
0004600
0004620 ( S E T Q E ( C D
0004640 R E ) ) \r
0004660
0004700 ( G O R E T R Y ) ) \r
0004720
0004740 ( B R E A K 1 ( C O
0004760 N D \r
0005000
0005020 ( ( E Q ( C A R (
0005040 C A D A R E ) ) \r
0005060
*
0005120 ' P R O G N ) \r
0005140
0005160 ( S E T
0005200 Q E ( C D R ( C A D A R
0005220 E ) ) ) \r
0005240
0005260 ( G O R E T R
0005300 Y ) ) ) ) \r
0005320 ( A D
0005340 V - P R O G \r
0005360 \r 006 006 (
0005400 * N o e a s y w a y t o
0005420 m a r k c l e a n l y t h
0005440 e d a t e o f a n a d v
0005460 i s e d f u n c t i o n ) 006 001
0005500 \r \r
0005520
0005540 ( R E T U R N ) ) \r
0005560
0005600 N I L ) ) \r
0005620 ( ( S T
0005640 R I N G P ( C A R E ) )
0005660
0005700 006 006 ( * ; " D
0005720 O C S T R I N G " ) 006 001 \r \r
0005740
0005760 ( S E T Q E ( C D R E
0006000 ) ) \r
0006020 ( G O R E T R Y )
0006040 ) ) \r
0006060 ( C O N D \r
0006100 ( ( A N D
0006120 ( L I S T P ( C D R E ) ) \r
0006140
0006160 ( E D I T D A T
0006200 E ? ( C A R E ) ) ) \r
0006220
0006240 ( / R P L A C A E ( E D I T
0006260 D A T E ( C A R E ) \r
0006300
*
0006340 I N I T I A L S ) ) ) \r
0006360
0006400 ( T ( / A T T A C H ( E D I
0006420 T D A T E N I L I N I T I A
0006440 L S ) \r
0006460
0006500 E ) ) ) \r
0006520 ( R E T U R N E X P R
0006540 ] ) \r \r ( 006 004 M Y E D I T D A T
0006560 E ? 006 001 \r [ L A M B D A (
0006600 C O M M E N T ) 006 006 006 001
0006620
*
0006660 006 006 ( * ; " E d
0006700 i t e d 1 0 - D e c - 8 7 1
0006720 3 : 5 0 b y D J V B " ) 006 001
0006740 \r \r ( A N D * R E P L
0006760 A C E - O L D - E D I T - D A T
0007000 E S * ( L I S T P C O M M E
0007020 N T ) \r ( S U
0007040 P E R P R I N T E Q ( C A R
0007060 C O M M E N T ) \r
0007100 C O M M E N T
0007120 F L G ) \r ( L
0007140 I S T P ( C D R C O M M E N
0007160 T ) ) \r ( L I
0007200 S T P ( C D D R C O M M E N
0007220 T ) ) \r ( N U
0007240 L L ( C D D D R C O M M E N
0007260 T ) ) \r ( S T
0007300 R I N G P ( C A D D R C O M
0007320 M E N T ) ) \r
0007340 ( L E T ( ( C 2 ( C A D R
0007360 C O M M E N T ) ) ) \r
0007400 ( A N D ( N
0007420 O T ( S U P E R P R I N T E Q
0007440 C 2 C O M M E N T F L G ) )
0007460 \r
0007500 ( O R ( E Q C 2 I
0007520 N I T I A L S ) \r
0007540
0007560 ( C O N D \r
0007600
0007620 [ ( L I T A T O M C 2 ) \r
0007640
0007660 ( C O N D \r
0007700
0007720 [ ( E
0007740 Q C 2 ' ; ) \r
0007760
0010000 ( A N D ( S T
0010020 R P O S " E d i t e d " (
0010040 C A D D R C O M M E N T ) \r
0010060
*
0010120 1 N I L
0010140 T ) \r
0010160
0010200 ( G R E A T E R P
0010220 ( C L : L E N G T H ( C A D
0010240 D R C O M M E N T ) ) \r
0010260
*
0010320 ( C O N S T A N
0010340 T ( C L : L E N G T H " E d
0010360 i t e d 0 1 - j a n - 8 6 0
0010400 0 : 0 0 b y X " ] \r
0010420
0010440 ( T ( N O
0010460 T ( 006 002 f o r 006 001 P C 006 002
0010500 f r o m 006 001 1 006 002 t o 006 001
0010520 ( N C H A R S C 2 ) \r
0010540
*
0010600 006 002 a l w a y s 006 001
0010620 ( E Q ( N T H C H A R C O D E
0010640 C 2 P C ) \r
0010660
*
0010720 ( C H A
0010740 R C O D E ; ] \r
0010760
0011000 ( T ( A N D ( S T R I
0011020 N G P C 2 ) \r
0011040
0011060 ( I G R E A
0011100 T E R P 1 2 ( N C H A R S
0011120 C 2 ] ) \r \r ( 006 004 M Y S U P E R
0011140 P R I N T / C O M M E N T 006 001 \r
0011160 [ L A M B D A ( L F I L
0011200 E ) 006 006 006 001
0011220
*
0011260 006 006 ( * ; " E d i t e d
0011300 1 1 - D e c - 8 7 1 3 : 3 2
0011320 b y D J V B " ) 006 001 \r \r
0011340 ( C O N D \r ( (
0011360 A N D * * C O M M E N T * * F
0011400 L G ( N O T F I L E F L G )
0011420 \r ( N
0011440 O T M A K E M A P ) ) \r
0011460 ( A N D ( G R E A T
0011500 E R P ( P L U S ( D S P X P
0011520 O S I T I O N N I L F I L E
0011540 ) \r
0011560 (
0011600 S T R I N G W I D T H * * C O
0011620 M M E N T * * F L G F I L E )
0011640 ) \r
0011660 ( D S P R I G H T M
0011700 A R G I N N I L F I L E ) )
0011720 \r ( P
0011740 R I N E N D L I N E 0 F I L
0011760 E ) ) \r ( P R I
0012000 N 1 S * * C O M M E N T * * F
0012020 L G N I L F I L E ) ) \r
0012040 ( T ( L E T ( C O
0012060 M M E N T - L M A R G I N C O
0012100 M M E N T - R M A R G I N R I
0012120 G H T F L G F L U S H - L E F
0012140 T P S E M I P B O D Y ) \r
0012160 ( 006
0012200 002 D E C L A R E 006 001 ( S P E C
0012220 V A R S R I G H T F L G ) ) \r
0012240 [
0012260 S E T Q R I G H T F L G ( N
0012300 O T ( 006 002 i f 006 001 ( S U P E
0012320 R P R I N T E Q ( C A D R L
0012340 ) \r
0012360
*
0012420 C O M M E N T F L G ) \r
0012440
*
0012500 006 002 e l s e i f 006 001 ( S E T
0012520 Q S E M I P ( S E M I - C O
0012540 L O N - C O M M E N T - P L )
0012560 ) \r
0012600
0012620 006 002 t h e n 006
0012640 001 ( N E Q S E M I P 1 ) \r
0012660
*
0012720 006 002 e l s e 006 001 ( G
0012740 R E A T E R P ( L E N G T H
0012760 L ) \r
0013000
*
0013040 1 0 ] \r
0013060 [ C O N D \r
0013100 (
0013120 R I G H T F L G ( S E T Q C
0013140 O M M E N T - L M A R G I N (
0013160 O R C O M M E N T C O L ( S
0013200 U P E R P R I N T / C O M M E N
0013220 T 1 L R M A R G I N F I L
0013240 E ) \r
0013260
*
0013320 ) ) \r
0013340
0013360 ( S E T Q C O M M E
0013400 N T - R M A R G I N R M A R G
0013420 I N ) ) \r
0013440 ( ( A N D ( E Q
0013460 S E M I P 3 ) \r
0013500
0013520 ( N O T M A K E M A P ) )
0013540 \r
0013560 ( S E T Q C O M M E N
0013600 T - L M A R G I N 0 ) \r
0013620
0013640 ( S E T Q C O M M E N T - R M
0013660 A R G I N R M A R G I N ) ) \r
0013700
0013720 ( T ( S E T Q C O M M E
0013740 N T - L M A R G I N ( F I X R
0013760 ( T I M E S R M A R G I N
0014000 0 . 1 ) ) ) \r
0014020 ( S E T
0014040 Q C O M M E N T - R M A R G I
0014060 N ( D I F F E R E N C E R M
0014100 A R G I N C O M M E N T - L M
0014120 A R G I N ) ) \r
0014140 ( C L
0014160 : I F ( E Q C O M M E N T -
0014200 L M A R G I N ( D S P X P O S
0014220 I T I O N N I L F I L E ) )
0014240 \r
0014260 ( S E
0014300 T Q R I G H T F L G T ] \r
0014320 ( C
0014340 L : I F ( G R E A T E R P (
0014360 D S P X P O S I T I O N N I L
0014400 F I L E ) \r
0014420
0014440 C O M M E N T - L M A R
0014460 G I N ) \r
0014500 ( P R I N
0014520 E N D L I N E C O M M E N T -
0014540 L M A R G I N F I L E ) \r
0014560
0014600 ( D S P X P O S I T I O
0014620 N C O M M E N T - L M A R G I
0014640 N F I L E ) ) \r
0014660 ( O R R I G H
0014700 T F L G ( P R I N E N D L I N
0014720 E C O M M E N T - L M A R G I
0014740 N F I L E ) ) \r
0014760 ( S E T F O N T
0015000 ( P R O G 1 ( S E T F O N T
0015020 C O M M E N T F O N T F I L
0015040 E ) \r
0015060
0015100 ( C L : I F ( A N D S E
0015120 M I P ( N O T M A K E M A P
0015140 ) \r
0015160
0015200 [ S T
0015220 R I N G P ( S E T Q B O D Y
0015240 \r
0015260
*
0015320 ( C A R ( L I S T
0015340 P ( C D R ( L I S T P ( C
0015360 D R L ] \r
0015400
*
0015440 ( N U L L ( C D D D R L )
0015460 ) \r
0015500
0015520 ( O R
0015540 ( I M A G E S T R E A M P F
0015560 I L E ) \r
0015600
*
0015640 * P R I N T - S E M I C
0015660 O L O N - C O M M E N T S * ) )
0015700 \r
0015720
0015740 ( P R I N 2 - L O
0015760 N G - S T R I N G B O D Y F
0016000 I L E N I L N I L C O M M
0016020 E N T - L M A R G I N \r
0016040
*
0016100 C O M M E N
0016120 T - R M A R G I N T S E M I
0016140 P ) \r
0016160
0016200 ( 006 002 M Y S U
0016220 P E R P R I N T / C O M M E N T
0016240 2 006 001 L C O M M E N T - L M
0016260 A R G I N \r
0016300
*
0016340 ( I Q U O T I E N T ( P
0016360 L U S C O M M E N T - L M A R
0016400 G I N C O M M E N T - R M A R
0016420 G I N ) \r
0016440
*
0016500 2 ) \r
0016520
*
0016560 C O M M E N T
0016600 - R M A R G I N F I L E ) ) )
0016620 \r
0016640 F I L E ) \r
0016660 ( C L :
0016700 I F ( O R ( A N D S E M I
0016720 P ( N O T M A K E M A P ) )
0016740 \r
0016760 ( N O T
0017000 R I G H T F L G ) ) \r
0017020
0017040 ( P R I N E N D L I N E 0
0017060 F I L E ) ) \r
0017100 L ] ) \r \r ( 006 004 M Y
0017120 S U P E R P R I N T / C O M M E
0017140 N T 2 006 001 \r [ L A M B D A
0017160 ( C M T C O M M E N T - L M A
0017200 R G I N C O M M E N T - M I D
0017220 P O I N T C O M M E N T - R M
0017240 A R G I N F I L E S E M I N
0017260 ) 006 006 006 001 \r
0017300
*
0017360 006 006 ( * ; " E d i t e
0017400 d 1 1 - D e c - 8 7 1 3 : 3
0017420 1 b y D J V B " ) 006 001 \r
0017440
*
0017520 006 006 ( *
0017540 ; \r 006 001
0017560
*
0017620 006 006 " S E M I N U S E D
0017640 I N R E C U R S I V E C A
0017660 L L S T O P A S S D O W N
0017700 S E M I L E V E L " ) 006 001 \r
0017720 \r ( 006 002 i f 006 001 ( E Q
0017740 * P R I N T - S E M I C O L O
0017760 N - C O M M E N T S * ' A L L
0020000 ) \r 006 002 t h e n
0020020 006 001 \r \r
0020040 006 006 ( * ; ;
0020060 " P r i n t c o m m e n t b
0020100 e t w e e n g i v e n m a r
0020120 g i n s . U s e 2 s e m i
0020140 s i f ( * * - - ) o r
0020160 ( * - - ) o v e r 1 0
0020200 l o n g , o t h e r w i s e
0020220 u s e o n e s e m i . " ) 006
0020240 001 \r \r ( L E T *
0020260 \r ( ( S E M I
0020300 ( O R S E M I N ( 006 002 i f
0020320 006 001 ( O R ( A N D ( S U P
0020340 E R P R I N T E Q ( C A D R
0020360 C M T ) \r
0020400
*
0020440 C O M M E N T F L G ) \r
0020460
*
0020520 ( S E T Q C M T
0020540 ( C D R C M T ) ) ) \r
0020560
0020600 ( G
0020620 R E A T E R P ( L E N G T H
0020640 C M T ) \r
0020660
0020700 1 0
0020720 ) ) \r
0020740
0020760 006 002 t h e n 006 001 2 \r
0021000
0021020 006 002 e l s e 006 001
0021040 1 ) ) ) \r
0021060 ( S E M I S ( 006 002 i f 006 001 (
0021100 E Q S E M I 2 ) \r
0021120
0021140 006 002 t h e n 006 001 " ; ; " \r
0021160
0021200 006 002 e l s e 006 001 " ; " ) ) )
0021220 \r ( O R S E
0021240 M I N ( S E T Q C M T ( C
0021260 D R C M T ) ) )
0021300 006 006
0021320 ( * ; " I F T O P L E V
0021340 E L , S K I P * " ) 006 001 \r \r
0021360 ( S E T Q F
0021400 I L E ( \ G E T S T R E A M
0021420 F I L E ' O U T P U T ) ) \r
0021440 ( A N D ( E Q
0021460 ( D S P X P O S I T I O N N
0021500 I L F I L E ) \r
0021520 C O M M E
0021540 N T - L M A R G I N ) \r
0021560 ( P R I N O
0021600 P E N T A I L S E M I S F
0021620 I L E ) )
0021640 006 006 ( * ;
0021660 \r 006 001
0021700
*
0021740 006 006
0021760 " d o e s P R I N 3 , b u t
0022000 o n l y d o i f s t i l
0022020 l a t l e f t " ) 006 001 \r \r
0022040 ( 006 002 f o r 006 001
0022060 T A I L 006 002 o n 006 001 C M T
0022100 006 002 b i n d 006 001 L A S T I T
0022120 E M T H I S I T E M 006 002 f i
0022140 n a l l y 006 001 ( 006 002 i f 006 001
0022160 T A I L \r
0022200
*
0022260 006 002 t h e n 006 001 ( P R I N
0022300 D O T P T A I L F I L E ) )
0022320 \r 006 002 d
0022340 o 006 001 ( S E T Q T H I S I T
0022360 E M ( C A R T A I L ) ) \r
0022400 [ 006
0022420 002 i f 006 001 ( O R ( E Q L A
0022440 S T I T E M ' - ) \r
0022460
0022500 ( A N D ( G E Q ( D S P
0022520 X P O S I T I O N N I L F I
0022540 L E ) \r
0022560
0022600 C O M M E N T - M I D
0022620 P O I N T ) \r
0022640
0022660 ( N O T ( L I S T P T
0022700 H I S I T E M ) ) \r
0022720
0022740 ( L I T A T O M L
0022760 A S T I T E M ) \r
0023000
0023020 ( S E L C H A R Q (
0023040 N T H C H A R C O D E L A S T
0023060 I T E M - 1 ) \r
0023100
0023120 ( ( ; % .
0023140 - ) \r
0023160
0023200 T ) \r
0023220
0023240 N
0023260 I L ) ) ) \r
0023300 006 002 t h e n 006
0023320 001 ( P R I N E N D L I N E C
0023340 O M M E N T - L M A R G I N F
0023360 I L E ) \r
0023400 ( P R
0023420 I N O P E N T A I L S E M I
0023440 S F I L E ) \r
0023460 006 002 e l s e 006
0023500 001 ( 006 002 i f 006 001 [ A N D (
0023520 N E Q C M T T A I L ) \r
0023540
0023560 ( O R
0023600 ( L I S T P L A S T I T E M
0023620 ) \r
0023640
0023660 ( N O T ( M E M B
0023700 T H I S I T E M ' ( % . % ,
0023720 ; % : ] \r
0023740
0023760 006 002 t h e n 006 001 ( S U P E R
0024000 P R I N T / S P A C E F I L E
0024020 ) ) \r
0024040 ( O R ( L I
0024060 S T P T H I S I T E M ) \r
0024100
0024120 ( S T R I N G P
0024140 T H I S I T E M ) \r
0024160
0024200 ( 006 002 i f 006 001 ( G E
0024220 Q ( P L U S ( D S P X P O S
0024240 I T I O N N I L F I L E ) \r
0024260
*
0024320 ( S T R I N G
0024340 W I D T H T H I S I T E M (
0024360 O R F I L E * S T A N D A R
0024400 D - O U T P U T * ) \r
0024420
*
0024460 T ) \r
0024500
*
0024540 ( S T R I N G W I
0024560 D T H ( 006 002 i f 006 001 ( C D R
0024600 T A I L ) \r
0024620
*
0024700 006 002 t h e n 006 001 " " \r
0024720
*
0025000 006 002 e l s e 006 001 "
0025020 ) " ) \r
0025040
*
0025100 ( O R F I L E * S T
0025120 A N D A R D - O U T P U T * ) )
0025140 ) \r
0025160
0025200 C O M M E N T - R M A
0025220 R G I N ) \r
0025240
0025260 006 002 t h e n 006 001 ( P R
0025300 I N E N D L I N E C O M M E N
0025320 T - L M A R G I N F I L E ) \r
0025340
*
0025400 ( P R I N O P E N T A I
0025420 L S E M I S F I L E ] \r
0025440 ( S E
0025460 T Q L A S T I T E M T H I S
0025500 I T E M ) \r
0025520 ( 006 002 i f 006 001 ( L I
0025540 S T P L A S T I T E M ) \r
0025560
0025600 006 002 t h e n 006 001 ( 006 002 M Y S
0025620 U P E R P R I N T / C O M M E N
0025640 T 2 006 001 L A S T I T E M C O
0025660 M M E N T - L M A R G I N C O
0025700 M M E N T - M I D P O I N T \r
0025720
0025740 C
0025760 O M M E N T - R M A R G I N F
0026000 I L E S E M I ) \r
0026020 006 002 e l s
0026040 e i f 006 001 ( S T R I N G P L
0026060 A S T I T E M ) \r
0026100 006 002 t h
0026120 e n 006 001 ( P R I N 2 - L O N G
0026140 - S T R I N G L A S T I T E M
0026160 F I L E N I L T A I L C
0026200 O M M E N T - L M A R G I N C
0026220 O M M E N T - R M A R G I N T
0026240 \r
0026260
0026300 S E M I ) \r
0026320 006 002 e l s e 006 001
0026340 ( P R I N 2 S L A S T I T E
0026360 M T A I L F I L E ) ) ) \r
0026400 ( P R I N S H U
0026420 T T A I L N I L F I L E )
0026440
0026460 006 006 ( *
0026500 ; " I N C A S E M A K I
0026520 N G M A P " ) 006 001 \r
0026540
*
0026620 006 006 ( * ; \r
0026640 006 001
0026660
*
0026720 006 006 " A
0026740 N D F O R C E N E W L I N E
0026760 I N M Y S U P E R P R I N T
0027000 / C O M M E N T " ) 006 001 \r \r
0027020 ( S E T Q R I G
0027040 H T F L G N I L ) ) \r
0027060 006 002 e l s e 006 001
0027100
*
0027140 006 006 (
0027160 * ; " D o i t t h e o
0027200 l d w a y a s ( * - - )
0027220 " ) 006 001 \r \r
0027240 ( S U P E R P R I N T / C O M
0027260 M E N T 2 C M T C O M M E N
0027300 T - L M A R G I N C O M M E N
0027320 T - M I D P O I N T C O M M E
0027340 N T - R M A R G I N F I L E ]
0027360 ) \r ) \r ( M O V D ' M Y E D I
0027400 T D A T E ? ' E D I T D A T E
0027420 ? ) \r ( M O V D ' M Y S U P E
0027440 R P R I N T / C O M M E N T '
0027460 S U P E R P R I N T / C O M M E
0027500 N T ) \r \r ( P U T P R O P S 006
0027520 002 F U N C T I O N S E D I T D
0027540 E F 006 001 E D I T D E F . F U N
0027560 C T I O N S ) \r \r ( P U T P R O
0027600 P S 006 002 C O M M E N T H A C K
0027620 S M A K E F I L E - E N V I R
0027640 O N M E N T 006 001 ( : R E A D T
0027660 A B L E " I N T E R L I S P "
0027700 : P A C K A G E " I N T E R
0027720 L I S P " ) ) \r \r ( P U T P R O
0027740 P S 006 002 C O M M E N T H A C K
0027760 S F I L E T Y P E 006 001 : T C
0030000 O M P L ) \r ( D E C L A R E % :
0030020 D O N T C O P Y \r \r ( A D D
0030040 T O V A R 006 002 E D I T H I S T
0030060 A L I S T 006 001 ( C O M M E N T
0030100 H A C K S ( " 1 0 - D e c - 8
0030120 7 1 0 : 5 9 : 2 7 " D J V B
0030140 { D S K } < X A V I E R > C O
0030160 M M E N T H A C K S . ; 1 \r
0030200
*
0030240 ( C O M M
0030260 E N T 2 E D I T D A T E ? M
0030300 Y E D I T D A T E ? M Y S U P
0030320 E R P R I N T / C O M M E N T
0030340 \r
0030360
*
0030420 E D I T D E F . F U N
0030440 C T I O N S F I X D E F U N E
0030460 D I T D A T E ) ) \r
0030500
0030520 ( " 1 0 - D e
0030540 c - 8 7 1 7 : 0 9 : 3 5 " D
0030560 J V B { D S K } < X A V I E R
0030600 > C O M M E N T H A C K S . ; 3
0030620 \r
0030640
0030660 ( M Y S U P E R P
0030700 R I N T / C O M M E N T C O M
0030720 M E N T 2 M Y S U P E R P R I
0030740 N T / C O M M E N T 2 \r
0030760
*
0031020 M Y E D I T
0031040 D A T E ? ) \r
0031060
0031100 ( S T
0031120 U F F T O G E T E D I T D
0031140 A T E I N T O F U N C T I O
0031160 N S A N D P R I N T S E M
0031200 I C O L O N \r
0031220
*
0031260 C O M M E N T S F O
0031300 R E V E R Y T H I N G ) ) \r
0031320
0031340 ( "
0031360 1 1 - D e c - 8 7 1 2 : 4 9 :
0031400 3 0 " D J V B { D S K } < X
0031420 A V I E R > C O M M E N T H A C
0031440 K S . ; 4 ( \r
0031460
*
0031560 M Y S U P E R P
0031600 R I N T / C O M M E N T 2 \r
0031620
*
0031740 ) ) \r
0031760
0032000 ( " 1 1 - D e c
0032020 - 8 7 1 2 : 5 2 : 5 5 " D J
0032040 V B { D S K } < X A V I E R >
0032060 C O M M E N T H A C K S . ; 6
0032100 ( \r
0032120
*
0032220 E D I T D E F . F U
0032240 N C T I O N S \r
0032260
*
0032400 \r
0032420
*
0032520 F I X D E F U N E D
0032540 I T D A T E \r
0032560
*
0032660 )
0032700 \r
0032720
0032740 ( F I X E D D E
0032760 T A I L S ) ) \r
0033000
0033020 ( " 1 1 - D e c -
0033040 8 7 1 3 : 3 3 : 4 3 " D J V
0033060 B { D S K } < X A V I E R > C
0033100 O M M E N T H A C K S . ; 7 (
0033120 \r
0033140
*
0033240 M Y S U P E R P R I N T / C O
0033260 M M E N T 2 \r
0033300
*
0033400 \r
0033420
*
0033540 M Y S U P E R P R I N T / C O
0033560 M M E N T \r
0033600
*
0033700 ) \r
0033720
*
0033760 ( F I X I N G D E
0034000 T A I L S ) ) ) ) \r ) \r ( P U T
0034020 P R O P S C O M M E N T H A C
0034040 K S C O P Y R I G H T ( " U
0034060 n i s y s C o r p . " 1 9 8
0034100 7 ) ) \r ( D E C L A R E % : D
0034120 O N T C O P Y \r ( F I L E M
0034140 A P ( N I L ( 1 1 3 5 1 2
0034160 0 1 9 ( E D I T D E F . F U N
0034200 C T I O N S 1 1 4 5 . 1 7
0034220 8 4 ) ( F I X D E F U N E D I
0034240 T D A T E 1 7 8 6 . 3 4 2
0034260 6 ) ( M Y E D I T D A T E ?
0034300 \r 3 4 2 8 . 4 6 9 2 ) ( M
0034320 Y S U P E R P R I N T / C O M M
0034340 E N T 4 6 9 4 . 7 7 5 3 )
0034360 ( M Y S U P E R P R I N T / C
0034400 O M M E N T 2 7 7 5 5 . 1
0034420 2 0 1 7 ) ) ) ) ) \r S T O P \r 377
0034440