$ od -c -N 50000 [eris]<Lisp>KOTO>LISPUSERS>EMACSUSER.DCOM!1
0000000 ( F I L E C R E A T E D " 1 7
0000020 - F e b - 8 6 1 2 : 0 1 : 3 7
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > K O T O > E M A C S U S E
0000120 R . ; 3 ) \r " 1 5 - F e b - 8
0000140 6 1 5 : 5 0 : 4 5 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 E M A C S I F Y . R E P L A C E
0000220 E M A C S I F Y . F F E T C H
0000240 E M A C S I F Y . F R E P L A
0000260 C E i n \r " X e r o x L i
0000300 s p 1 5 - F e b - 8 6 . . .
0000320 " d a t e d " 1 5 - F e b -
0000340 8 6 1 6 : 0 3 : 5 2 " ) \r ( F
0000360 I L E C R E A T E D " 1 7 - F
0000400 e b - 8 6 1 1 : 5 8 : 5 5 "
0000420 { E R I S } < L I S P U S E R S
0000440 > K O T O > E M A C S U S E R .
0000460 ; 3 6 3 3 3 3 c h a n g e s
0000500 t o : ( P R O P S ( f f e
0000520 t c h \r E M A C S ) ( F F E
0000540 T C H E M A C S ) ( f r e p
0000560 l a c e E M A C S ) ( F R E
0000600 P L A C E E M A C S ) ) ( F
0000620 N S E M A C S I F Y . R E P L
0000640 A C E E M A C S I F Y . F F E
0000660 T C H \r E M A C S I F Y . F R
0000700 E P L A C E ) ( V A R S E M
0000720 A C S U S E R C O M S ) p r e
0000740 v i o u s d a t e : " 1 8 -
0000760 J u n - 8 5 2 2 : 4 9 : 0 7 "
0001000 \r { E R I S } < L I S P U S E
0001020 R S > K O T O > E M A C S U S E
0001040 R . ; 1 ) \r D E F H E L P E R
0001060 D 1 \r ( P 2 A N S W E R P
0001100 1 A T O M P 0 T R A N
0001120 F 3 F A U L T X ) \0 033 003
0001140 001 \0 \0 021 0 002 S 003 265 004 h 020 001 Y d g
0001160 \0 \0 033 X d 264 366 S k H 017 016 020 \0 N I
0001200 L \r ( 1 6 Q T R A N ) \r ( ) \r
0001220 D E F E X P A N D D 1 \r ( P
0001240 2 T A I L P 1 T R A N
0001260 P 0 A K A I 0 E X P R
0001300 ) \0 Q 003 \0 \0 001 021 001 @ 003 265 004 @
0001320 020 001 004 l 004 360 230 @ 001 g \0 \0 033 X 265 033
0001340 @ d 001 004 l 004 360 262 032 001 g \0 \0 033 Y 237
0001360 @ k I 017 016 b \0 260 325 @ 002 032 b \0 260 316
0001400 @ 021 001 002 J 223 J 003 265 004 @ 020 d 001 \t \0
0001420 \0 030 277 J 002 Z 260 357 \0 ( 1 1 0 Q D
0001440 E F E X P A N D ) \r ( 4 4 Q T
0001460 R A N 2 3 Q A K A ) \r ( ) \r
0001500 D E F E X P A N D F N D 1 \r (
0001520 I 0 F N ) \0 032 \0 \0 \0 001 @ d
0001540 g \0 \0 \n \0 \0 \t \0 \0 \n \0 \0 @ g \0 \0
0001560 g \0 \0 \v \0 \0 020 \0 ( 2 7 Q M A R
0001600 K A S C H A N G E D 1 5 Q P
0001620 U T D 1 2 Q D E F E X P A N
0001640 D 7 G E T D E F ) \r ( 2 4 Q
0001660 C H A N G E D 2 1 Q F N S
0001700 4 F N S ) \r ( ) \r D E F F O
0001720 R M S D 1 \r ( P 1 E P
0001740 0 A N S W E R I 0 E X P
0001760 R ) \0 ? 002 \0 \0 001 021 001 @ d 004 l
0002000 004 361 244 277 @ h 032 020 001 g \0 \0 360 221 h 020
0002020 @ d 001 g \0 \0 360 262 356 002 001 o \0 \0 \0 364
0002040 262 344 @ 002 213 d 001 271 H I \t \0 \0 \n \0 \0
0002060 270 002 003 265 362 H 020 \0 ( 6 6 Q \ N C
0002100 O N C 2 6 3 Q D E F F O R M
0002120 S ) \r ( 3 4 Q P R O G N 2 2
0002140 Q * ) \r ( 4 5 Q ( Q U O T
0002160 E C O M P I L E ) ) \r D E F I
0002200 N E 1 D 1 \r ( P 2 B O D Y
0002220 P 1 V A R S P 0 F N
0002240 I 0 $ F E X P R $ ) \0
0002260 003 \0 003 001 @ 001 @ 002 b \0 001 @ 002 b \0 021
0002300 003 002 H g \0 \0 I J 032 032 h 032 032 h 032 \t
0002320 \0 \0 020 \0 ( 3 5 Q D E F I N E )
0002340 \r ( 2 1 Q L A M B D A ) \r ( )
0002360 \r D E F I N E 2 D 1 \r ( P 2
0002400 B O D Y P 1 V A R S P
0002420 0 F N I 0 $ F E X P R
0002440 $ ) \0 003 \0 003 001 @ 001 @ 002 b \0 001
0002460 @ 002 b \0 021 003 002 H g \0 \0 I J 032 032 h
0002500 032 032 h 032 \t \0 \0 020 \0 ( 3 5 Q D E
0002520 F I N E ) \r ( 2 1 Q N L A M B
0002540 D A ) \r ( ) \r D E F E X P R . T
0002560 R A N D 1 \r ( P 1 $ A N S
0002600 W E R $ P 0 $ A R G S $
0002620 I 0 $ F O R M $ ) \0 032 002 \0
0002640 001 001 021 001 @ 002 X d 001 H 002 X \n \0 \0
0002660 Y @ I 001 030 @ I 002 031 @ 020 \0 ( 1 5 Q
0002700 D E F E X P R . T R A N 1 ) \r
0002720 N I L \r ( ) \r D E F E X P R . T
0002740 R A N 1 D 1 \r ( P 5 A N S
0002760 W E R P 4 A R G N A M E S
0003000 P 3 D E F P 2 L A S
0003020 T W R A P P E R P 1 W R A
0003040 P P E R S P 0 F N I 1
0003060 B O D Y I 0 P R O T O C
0003100 A L L ) 001 ( \v \0 \0 002 021 ` 005 @ d
0003120 003 224 001 270 @ 002 207 270 A 001 A 002 b 002 277 Y
0003140 \t \0 \0 001 Z I A \n \0 \0 [ J 003 265 [ K
0003160 \t \0 \0 J 003 265 E L 242 261 \0 353 g \0 \0 g
0003200 \0 \0 g \0 \0 h 032 032 g \0 \0 g \0 \0 H h
0003220 032 032 g \0 \0 g \0 \0 h 032 032 g \0 \0 L h
0003240 032 032 h 032 032 032 032 g \0 \0 H K 002 001 K 002
0003260 002 032 032 032 h 032 032 032 032 020 001 g \0 \0 360 262
0003300 270 I \t \0 \0 \ 260 262 001 g \0 \0 360 262 242 g
0003320 \0 \0 g \0 \0 K I \t \0 \0 k 331 k 021 2 \n
0003340 O 016 N 363 263 C g \0 \0 g \0 \0 g \0 \0 O
0003360 016 h 032 032 032 g \0 \0 g \0 \0 O 016 h 032 032
0003400 032 h 032 032 h 032 032 _ 024 277 O 022 265 023 O 024
0003420 h 032 _ 022 _ 020 277 O 016 k 324 _ 016 260 305 O
0003440 024 & _ 022 277 260 362 O 020 022 g \0 \0 g \0 \0
0003460 g \0 \0 I \t \0 \0 g \0 \0 g \0 \0 g \0 \0
0003500 g \0 \0 g \0 \0 g \0 \0 h 032 032 032 h 032 032
0003520 032 032 032 032 032 032 h 032 \n \0 \0 032 h 032 032 032
0003540 [ 261 377 017 g \0 \0 H K 002 001 K 002 002 032 032
0003560 032 020 \0 ( 4 1 7 Q \ A P P E N D
0003600 2 3 5 3 Q L E N G T H 2 1
0003620 6 Q L E N G T H 1 7 1 Q D
0003640 E F A R G N A M E S 4 7 Q F
0003660 I X E D I T D A T E 3 6 Q D
0003700 E F L A M B D A 2 7 Q L A S
0003720 T ) \r ( 4 3 3 Q D E F I N E 1
0003740 3 7 5 Q I 3 7 2 Q $ E X
0003760 P R $ 3 6 7 Q A R G 3 6 4
0004000 Q C O L L E C T 3 6 1 Q $
0004020 E X P R $ 3 5 6 Q T O 3 4
0004040 7 Q F R O M 3 4 4 Q I 3
0004060 4 1 Q F O R 2 5 7 Q $ E X
0004100 P R $ 2 5 4 Q A R G 2 4 3
0004120 Q $ E X P R $ 2 4 0 Q I G
0004140 E Q 2 3 5 Q C O N D 2 1 1
0004160 Q $ E X P R $ 2 0 6 Q L A
0004200 M B D A 2 0 0 Q R E S T 1
0004220 6 2 Q R E S T 1 3 6 Q D E
0004240 F I N E 1 1 2 2 Q Q U O T E
0004260 1 1 4 Q A R G N A M E S 1
0004300 1 1 Q Q U O T E 1 0 2 Q Q
0004320 U O T E 7 7 Q P U T P R O P
0004340 7 1 Q C O M P I L E 6 6 Q
0004360 Q U O T E 6 3 Q P R O G N
0004400 ) \r ( ) \r D E F F E X P R . T R
0004420 A N D 1 \r ( P 1 $ A N S W
0004440 E R $ P 0 $ A R G S $ I
0004460 0 $ F O R M $ ) \0 032 002 \0 001
0004500 001 021 001 @ 002 X d 001 H 002 X \n \0 \0 Y
0004520 @ I 001 030 @ I 002 031 @ 020 \0 ( 1 5 Q
0004540 D E F F E X P R . T R A N 1 ) \r
0004560 N I L \r ( ) \r D E F F E X P R .
0004600 T R A N 1 D 1 \r ( P 5 A N
0004620 S W E R P 4 A R G N A M E
0004640 S P 3 D E F P 2 L A
0004660 S T W R A P P E R P 1 W R
0004700 A P P E R S P 0 F N I
0004720 1 B O D Y I 0 P R O T O
0004740 C A L L ) \0 326 \v \0 \0 002 021 ` 005 @
0004760 d 003 224 001 270 @ 002 207 270 A 001 A 002 b 002 277
0005000 Y \t \0 \0 001 Z I A \n \0 \0 [ g \0 \0 g
0005020 \0 \0 K I \t \0 \0 k 331 k 021 2 \n O 016 N
0005040 363 263 & o \0 \0 \0 _ 024 277 O 022 265 023 O 024
0005060 h 032 _ 022 _ 020 277 O 016 k 324 _ 016 260 342 O
0005100 024 & _ 022 277 260 362 O 020 022 J 003 265 [ o \0
0005120 \0 \0 h 032 \n \0 \0 032 h 032 032 032 [ d \t \0
0005140 \0 I \t \0 \0 \ d 262 L g \0 \0 g \0 \0 g
0005160 \0 \0 h 032 032 g \0 \0 g \0 \0 H h 032 032 g
0005200 \0 \0 g \0 \0 h 032 032 g \0 \0 L h 032 032 h
0005220 032 032 032 032 g \0 \0 H K 002 001 K 002 002 032 032
0005240 032 h 032 032 032 032 020 001 g \0 \0 360 262 242 g \0
0005260 \0 260 241 g \0 \0 H K 002 001 K 002 002 032 032 032
0005300 020 \0 ( 1 7 0 Q D E F A R G N A
0005320 M E S 1 6 4 Q F I X E D I T
0005340 D A T E 1 5 2 Q \ A P P E N
0005360 D 2 5 2 Q L E N G T H 3 6
0005400 Q D E F L A M B D A 2 7 Q
0005420 L A S T ) \r ( 3 1 1 Q D E F I
0005440 N E 2 3 0 4 Q $ F E X P R $
0005460 2 7 6 Q R E S T 2 5 2 Q
0005500 D E F I N E 2 2 3 6 Q Q U O
0005520 T E 2 3 0 Q A R G N A M E S
0005540 2 2 5 Q Q U O T E 2 1 6 Q
0005560 Q U O T E 2 1 3 Q P U T P
0005600 R O P 2 0 5 Q C O M P I L E
0005620 2 0 2 Q Q U O T E 1 7 7 Q
0005640 P R O G N 4 5 Q $ F E X P
0005660 R $ 4 2 Q N L A M B D A ) \r
0005700 ( 1 4 5 Q ( P O P $ F E X
0005720 P R $ ) 7 2 Q ( P O P $ F
0005740 E X P R $ ) ) \r D E F A R G N A
0005760 M E S D 1 \r ( P 1 A R G N
0006000 A M E S P 0 L A S T W R A
0006020 P P E R I 0 W R A P P E R
0006040 S ) \0 { \b \0 \0 001 021 001 @ \t \0 \0
0006060 001 X d 003 262 M d 001 g \0 \0 360 262 E @ 002
0006100 @ 021 B \a K 003 265 003 207 001 _ 016 277 J 003 263
0006120 025 L 022 Y 265 006 H 002 001 020 \t \0 \0 H 002 001
0006140 031 277 260 ? O 016 d 003 221 002 001 276 M 265 017 N
0006160 h 032 ] 274 K 002 273 J 002 272 260 312 N & 275 260
0006200 365 021 0 004 @ 260 026 d 001 d 003 221 002 001 272 K
0006220 265 \a J h 032 \ 201 J & 273 002 003 265 353 L 022
0006240 Y I 020 \0 ( 6 3 Q L A S T 6
0006260 L A S T ) \r ( 2 1 Q R E S T )
0006300 \r ( ) \r D E F L A M B D A D 1
0006320 \r ( P 1 0 Q W R A P P E R
0006340 P 4 A N S W E R P 3 V
0006360 A L U E P 2 V A R P 1
0006400 V A R S P 0 C O M M E N
0006420 T S I 1 B O D Y I 0
0006440 W R A P P E R S ) \0 261 \t \0 \0 002
0006460 021 P 004 021 0 \a A 262 023 A 001 003 234 A d 001
0006500 001 o \0 \0 \0 \n \0 \0 252 277 M 022 X @ \t \0
0006520 \0 261 \0 200 001 A 002 b 002 277 _ 016 277 N 265 \n
0006540 O 016 h 032 ^ 275 260 320 O 016 & 276 260 312 d 001
0006560 021 001 \b O 020 d 004 l 004 361 244 I 032 Y 260 P
0006600 001 o \0 \0 \0 \n \0 \0 262 3 O 020 002 001 272 O
0006620 020 002 002 001 273 J I 032 271 K 262 5 g \0 \0 g
0006640 \0 \0 J h 032 032 g \0 \0 J K h 032 032 032 h
0006660 032 032 h 032 032 A 032 b 002 260 025 g \0 \0 g \0
0006700 \0 O 020 h 032 032 032 o \0 \0 \0 \n \0 \0 277 023
0006720 002 003 265 234 g \0 \0 I H A \n \0 \0 032 032 020
0006740 \0 ( 2 5 4 Q \ A P P E N D 2
0006760 2 3 5 Q L I S P E R R O R 1
0007000 2 7 Q M E M B 4 0 Q R E V
0007020 E R S E 2 7 Q M E M B ) \r (
0007040 2 4 6 Q L A M B D A 2 2 0 Q
0007060 W R A P P E R 2 1 5 Q I L
0007100 L E G A L 1 7 0 Q S E T Q
0007120 1 6 1 Q N U L L 1 5 6 Q C
0007140 O N D ) \r ( 2 3 2 Q " " 1
0007160 2 4 Q ( O P T I O N A L R E
0007200 S T ) 2 4 Q ( * D E C L A
0007220 R E ) ) \r D E F T R A N . T R A
0007240 N D 1 \r ( P 1 $ A N S W E
0007260 R $ P 0 $ A R G S $ I
0007300 0 $ F O R M $ ) \0 032 002 \0 001 001
0007320 021 001 @ 002 X d 001 H 002 X \n \0 \0 Y @
0007340 I 001 030 @ I 002 031 @ 020 \0 ( 1 5 Q D
0007360 E F T R A N . T R A N 1 ) \r N I
0007400 L \r ( ) \r D E F T R A N . T R A
0007420 N 1 D 1 \r ( P 5 A N S W E
0007440 R P 4 F N P 3 D E F
0007460 P 2 L A S T W R A P P E R
0007500 P 1 W R A P P E R S P
0007520 0 N A M E I 1 B O D Y
0007540 I 0 P R O T O C A L L ) 001
0007560 3 \v \0 \0 002 021 ` 005 @ d 003 224 001 270 @ 002
0007600 207 270 A 001 A 002 b 002 277 Y \t \0 \0 001 Z I
0007620 A \n \0 \0 [ d I \t \0 \0 k 331 k 021 2 \n
0007640 O 016 N 363 263 & o \0 \0 \0 _ 024 277 O 022 265
0007660 023 O 024 h 032 _ 022 _ 020 277 O 016 k 324 _ 016
0007700 260 342 O 024 & _ 022 277 260 362 O 020 022 J 003 265
0007720 003 202 261 \0 306 o \0 \0 \0 h 032 \n \0 \0 032 [
0007740 g \0 \0 g \0 \0 h 032 g \0 \0 g \0 \0 g \0
0007760 \0 h 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0
0010000 h 032 032 h 032 032 032 g \0 \0 g \0 \0 K h 032
0010020 032 032 g \0 \0 g \0 \0 g \0 \0 g \0 \0 h 032
0010040 032 h 032 032 032 g \0 \0 g \0 \0 g \0 \0 g \0
0010060 \0 h 032 032 h 032 032 032 g \0 \0 g \0 \0 h 032
0010100 032 h 032 032 032 032 032 032 032 h 032 032 032 [ d \t
0010120 \0 \0 H g \0 \0 \n \0 \0 \ g \0 \0 g \0 \0
0010140 g \0 \0 h 032 032 g \0 \0 g \0 \0 H h 032 032
0010160 g \0 \0 g \0 \0 h 032 032 g \0 \0 L h 032 032
0010200 h 032 032 032 032 g \0 \0 L K 002 001 K 002 002 032
0010220 032 032 h 032 032 032 032 020 001 g \0 \0 360 242 261 377
0010240 7 g \0 \0 261 377 5 \0 ( 3 4 3 Q P A
0010260 C K * 3 3 4 Q F I X E D I T
0010300 D A T E 1 5 0 Q \ A P P E N
0010320 D 2 4 4 Q L E N G T H 3 6
0010340 Q D E F L A M B D A 2 7 Q
0010360 L A S T ) \r ( 4 5 6 Q $ A R G
0010400 S $ 4 4 6 Q R E S T 4 2 2
0010420 Q D E F I N E 2 4 0 6 Q Q
0010440 U O T E 4 0 0 Q T R A N 3
0010460 7 5 Q Q U O T E 3 6 6 Q Q
0010500 U O T E 3 6 3 Q P U T P R O
0010520 P 3 5 5 Q C O M P I L E 3
0010540 5 2 Q Q U O T E 3 4 7 Q P
0010560 R O G N 3 4 0 Q . T R A N
0010600 3 1 0 Q $ T R A N $ 3 0 5 Q
0010620 R E T U R N 2 7 3 Q $ A N
0010640 S W E R $ 2 7 0 Q C D R 2
0010660 6 5 Q $ T R A N $ 2 6 2 Q
0010700 R P L A C D 2 5 0 Q $ A N S
0010720 W E R $ 2 4 5 Q C A R 2 4
0010740 2 Q $ T R A N $ 2 3 7 Q R
0010760 P L A C A 2 2 7 Q $ A N S W
0011000 E R $ 2 2 4 Q S E T Q 2 1
0011020 2 Q $ T R A N $ 2 0 7 Q C
0011040 D R 2 0 4 Q $ A R G S $ 2
0011060 0 1 Q S E T Q 1 7 3 Q $ A
0011100 N S W E R $ 1 7 0 Q $ A R G
0011120 S $ 1 6 5 Q P R O G 1 6 0
0011140 Q $ T R A N $ 1 5 5 Q N L
0011160 A M B D A ) \r ( 1 4 3 Q ( P
0011200 O P $ A R G S $ ) 6 4 Q (
0011220 P O P $ A R G S $ ) ) \r D E F
0011240 C L I S P . T R A N D 1 \r ( P
0011260 1 $ A N S W E R $ P 0
0011300 $ A R G S $ I 0 $ F O R M
0011320 $ ) \0 032 002 \0 001 001 021 001 @ 002 X d
0011340 001 H 002 X \n \0 \0 Y @ I 001 030 @ I 002 031
0011360 @ 020 \0 ( 1 5 Q D E F C L I S P
0011400 . T R A N 1 ) \r N I L \r ( ) \r D
0011420 E F C L I S P . T R A N 1 D 1
0011440 \r ( P 4 A N S W E R P 3
0011460 A R G N A M E S P 2 L A
0011500 S T W R A P P E R P 1 W R
0011520 A P P E R S P 0 F N I
0011540 1 B O D Y I 0 P R O T O
0011560 C A L L ) \0 | 005 \0 \0 002 021 P 004 @
0011600 d 003 224 001 270 @ 002 207 270 A 001 A 002 b 002 277
0011620 Y \t \0 \0 001 Z I \t \0 \0 [ g \0 \0 g \0
0011640 \0 g \0 \0 h 032 032 g \0 \0 g \0 \0 H h 032
0011660 032 g \0 \0 g \0 \0 h 032 032 g \0 \0 K h 032
0011700 032 h 032 032 032 032 g \0 \0 g \0 \0 H h 032 032
0011720 g \0 \0 g \0 \0 h 032 032 g \0 \0 g \0 \0 H
0011740 032 h 032 032 h 032 032 032 032 H I 032 A \n \0 \0
0011760 h 032 032 032 032 032 020 \0 ( 1 6 3 Q D E
0012000 F T R A N . T R A N 1 3 5 Q
0012020 D E F A R G N A M E S 2 7 Q
0012040 L A S T ) \r ( 1 4 2 Q D E F T
0012060 R A N S L A T E 1 3 7 Q Q U
0012100 O T E 1 3 1 Q C L I S P W O
0012120 R D 1 2 6 Q Q U O T E 1 1
0012140 7 Q Q U O T E 1 1 4 Q P U
0012160 T P R O P 1 0 0 Q Q U O T E
0012200 7 2 Q A R G N A M E S 6 7
0012220 Q Q U O T E 6 0 Q Q U O T
0012240 E 5 5 Q P U T P R O P 4 7
0012260 Q C O M P I L E 4 4 Q Q U
0012300 O T E 4 1 Q P R O G N ) \r (
0012320 ) \r D E F T R A N S L A T E D
0012340 1 \r ( I 0 S E X ) \0 031 001 \0
0012360 001 001 @ d 001 g \0 \0 033 021 001 \0 @ 001 @ 002
0012400 032 k H 017 016 022 \n \0 \0 020 \0 ( 2 6 Q
0012420 C L I S P T R A N ) \r ( 5 T R
0012440 A N ) \r ( ) \r E C O M S D 1 \r
0012460 ( P 4 E X P R P 2 F P
0012500 K G F N P 1 E X P R S P
0012520 0 F I L E C O M S I 0
0012540 F I L E ) \0 | \t \0 \0 001 021 0 002 @
0012560 \t \0 \0 X d o \0 \0 \0 \t \0 \0 \n \0 \0 @
0012600 \t \0 \0 Y d 021 021 004 K 003 265 026 023 H d \t
0012620 \0 \0 021 1 \b M 003 265 1 N 022 \n \0 \0 h 020
0012640 001 \ 003 265 004 260 036 \t \0 \0 277 L 001 g \0 \0
0012660 033 Z 225 H L l 002 J 206 H L l 002 g \0 \0
0012700 017 016 277 K 002 [ 260 303 001 d 002 235 _ 020 277 O
0012720 016 265 017 O 020 h 032 _ 016 ^ 277 M 002 ] 260 270
0012740 O 020 & _ 016 260 365 \0 ( 7 5 Q E V A
0012760 L 6 1 Q S E T 4 5 Q G E
0013000 T T O P V A L 2 6 Q E R E A
0013020 D F I L E 2 2 Q S E T 1 7
0013040 Q C O P Y 6 F I L E C O M
0013060 S ) \r ( 1 2 3 Q F P K G F N .
0013100 P 1 0 3 Q F P K G F N ) \r (
0013120 1 4 Q ( ( C O N S T A N T S
0013140 ) ( I N I T V A R S ) ( R E
0013160 C O R D S ) ( F N S ) ( P )
0013200 ) ) \r E F I L E D 1 \r ( P 1
0013220 F I L E C O M S P 0 U L
0013240 I S T I 1 T O F I L E I
0013260 0 F I L E ) \0 ; 002 \0 \0 002 021
0013300 001 @ \t \0 \0 A 265 027 @ \t \0 \0 X g \0
0013320 \0 g \0 \0 \v \0 \0 277 H \t \0 \0 b 002 \t \0
0013340 \0 Y d @ \t \0 \0 \t \0 \0 \n \0 \0 A \t \0
0013360 \0 \t \0 \0 A \t \0 \0 020 \0 ( 7 0 Q M
0013400 A K E F I L E 6 4 Q S E T P
0013420 R O P L I S T 6 1 Q R O O T
0013440 F I L E N A M E 5 5 Q S E T
0013460 5 2 Q G E T T O P V A L 4
0013500 7 Q F I L E C O M S 4 1 Q
0013520 F I L E C O M S 3 4 Q P A C
0013540 K F I L E N A M E 2 7 Q L I
0013560 S T P U T 1 5 Q U N P A C K
0013600 F I L E N A M E 6 E C O M S
0013620 ) \r ( 2 4 Q F P K G 2 1 Q
0013640 E X T E N S I O N ) \r ( ) \r E L
0013660 O A D A 0 0 0 1 D 1 \r ( N A M
0013700 E E R R O R S E T L ( 0
0013720 N I L ) P 1 F O R M F
0013740 2 F I L E F 3 R E S E T
0013760 V A R S L S T F 4 F O R M
0014000 S F 5 E X P R F 6 E
0014020 X P A N D F 7 R E S E T Y
0014040 ) \0 \ 002 006 002 \0 g \0 \0 R \t \0 \0 h
0014060 032 032 h h 032 032 S 032 c 006 277 \b \0 \0 g \0
0014100 \0 g \0 \0 \v \0 \0 c 004 277 R \t \0 \0 c \n
0014120 \t \0 \0 c \f \t \0 \0 c \b o \0 \0 \0 364 263
0014140 034 T 021 021 001 H 003 265 005 023 260 340 001 Y 003 265
0014160 003 203 \t \0 \0 277 H 002 X 260 355 R \t \0 \0 c
0014200 016 i 020 \0 ( 1 2 6 Q C L O S E F
0014220 1 1 4 Q E V A L 5 7 Q D
0014240 E F F O R M S 5 2 Q D E F E
0014260 X P A N D 4 5 Q R E A D 3
0014300 6 Q O P E N S T R E A M 2 5
0014320 Q I N P U T 6 I N F I L E
0014340 ) \r ( 3 3 Q O L D 3 0 Q I
0014360 N P U T 2 I N P U T ) \r (
0014400 6 5 Q ( S T O P ) ) \r E L O A
0014420 D D 1 \r ( P 5 R E S E T Z
0014440 P 4 R E S E T Y P 3
0014460 L I S P X H I S T P 2 F O
0014500 R M S P 1 E X P A N D P
0014520 0 E X P R I 0 F I L E
0014540 F 6 L I S P X H I S T F
0014560 7 R E S E T V A R S L S T )
0014600 \0 ' 006 002 \0 001 021 0 002 V 021 ! 005 W 016
0014620 o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0
0014640 ] \n \0 \0 277 M 264 006 \b \0 \0 h 020 \0 ( 4
0014660 3 Q E R R O R ! 3 4 Q R E
0014700 S E T R E S T O R E 2 2 Q E
0014720 L O A D A 0 0 0 1 ) \r ( 3 0 Q
0014740 E R R O R 1 7 Q I N T E R N
0014760 A L ) \r ( 1 4 Q ( E L O A D
0015000 A 0 0 0 1 ) ) \r E C O M P L D
0015020 1 \r ( I 0 F I L E ) \0 \n \0
0015040 \0 \0 001 @ \t \0 \0 \t \0 \0 h 020 \0 ( 6
0015060 T C O M P L 3 E F I L E ) \r
0015100 N I L \r ( ) \r E R E A D F I L E
0015120 A 0 0 0 1 D 1 \r ( N A M E E
0015140 R R O R S E T F 0 F I L E
0015160 F 1 F O R M S F 2 R
0015200 E S E T V A R S L S T F 3
0015220 A N S W E R F 4 E X P R
0015240 F 5 E X P A N D F 6 R
0015260 E S E T Y ) \0 C \0 \a 002 \0 g \0 \0
0015300 P \t \0 \0 h 032 032 h h 032 032 R 032 c 004 277
0015320 \b \0 \0 c \0 277 P \t \0 \0 c \b \t \0 \0 c
0015340 \n \t \0 \0 c 002 277 S Q \n \0 \0 c 006 277 Q
0015360 o \0 \0 \0 364 262 341 P \t \0 \0 c \f i 020 \0
0015400 ( 7 5 Q C L O S E F 5 6 Q
0015420 \ N C O N C 2 4 6 Q D E F F
0015440 O R M S 4 1 Q D E F E X P A
0015460 N D 3 4 Q R E A D 2 5 Q
0015500 I N P U T 6 I N F I L E ) \r
0015520 ( 2 I N P U T ) \r ( 6 6 Q
0015540 ( S T O P ) ) \r E R E A D F I L
0015560 E D 1 \r ( P 6 R E S E T Z
0015600 P 5 R E S E T Y P 4
0015620 L I S P X H I S T P 3 A N
0015640 S W E R P 2 F O R M S P
0015660 1 E X P A N D P 0 E X
0015700 P R I 0 F I L E F 7
0015720 L I S P X H I S T F 1 0 Q
0015740 R E S E T V A R S L S T ) \0 '
0015760 \a 002 \0 001 021 @ 003 W 016 021 ! 006 W 020 o \0
0016000 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 ^ \n
0016020 \0 \0 277 N 222 \b \0 \0 K 020 \0 ( 4 3 Q
0016040 E R R O R ! 3 5 Q R E S E T
0016060 R E S T O R E 2 3 Q E R E A
0016100 D F I L E A 0 0 0 1 ) \r ( 3 1 Q
0016120 E R R O R 2 0 Q I N T E R
0016140 N A L ) \r ( 1 5 Q ( E R E A
0016160 D F I L E A 0 0 0 1 ) ) \r E F R
0016200 E E D 1 \r ( P 4 F N P
0016220 3 A N S W E R P 2 F R E
0016240 E P 1 F N S P 0 F I
0016260 L E C O M S I 0 F I L E )
0016300 \0 < 005 \0 \0 001 021 @ 003 @ \t \0 \0 X d
0016320 \t \0 \0 224 H \t \0 \0 244 @ \t \0 \0 277 @ g
0016340 \0 \0 \n \0 \0 260 030 d 001 021 001 004 L \t \0 \0
0016360 002 002 001 Z 225 L J 032 K 032 273 023 002 003 265 351
0016400 K 020 \0 ( 5 0 Q C A L L S 3 5
0016420 Q F I L E C O M S L S T 2 5
0016440 Q E C O M S 2 0 Q G E T T
0016460 O P V A L 1 3 Q B O U N D P
0016500 6 F I L E C O M S ) \r ( 3 2
0016520 Q F N S ) \r ( ) \r E C O M P A
0016540 R E D 1 \r ( P 0 F N I
0016560 1 F P K G F I L E I 0 E
0016600 M A C S F I L E ) \0 * 001 \0 \0 002
0016620 @ \t \0 \0 @ g \0 \0 \n \0 \0 260 031 d 001 021
0016640 001 \0 H \t \0 \0 277 H d g \0 \0 h A \r 005
0016660 \0 \0 023 002 003 265 350 h 020 \0 ( 4 1 Q C
0016700 O M P A R E 2 5 Q D W I M I
0016720 F Y 1 2 Q F I L E C O M S L
0016740 S T 3 E C O M S ) \r ( 3 3 Q
0016760 F N S 7 F N S ) \r ( ) \r F
0017000 P K G F N . P D 1 \r ( P 0
0017020 A L I S T I 1 E X P R I
0017040 0 F I L E C O M S ) \0 1 001
0017060 \0 \0 002 021 020 \0 @ \t \0 \0 X g \0 \0 H \n
0017100 \0 \0 265 \v g \0 \0 h 032 H 032 X 001 g \0 \0
0017120 H \n \0 \0 002 A h 032 \n \0 \0 031 @ H \n \0
0017140 \0 h 020 \0 ( 5 5 Q S E T 4 7 Q
0017160 \ N C O N C 2 4 0 Q A S S
0017200 O C 1 6 Q A S S O C 6 G
0017220 E T T O P V A L ) \r ( 3 4 Q P
0017240 2 3 Q P 1 2 Q P ) \r ( )
0017260 \r F P K G F N . Q U O T E D 1
0017300 \r ( L ( 1 E X P R 0 F I
0017320 L E C O M S ) ) \0 003 \0 \0 \0 002 h
0017340 020 \0 N I L \r N I L \r ( ) \r F P K
0017360 G F N . F N S D 1 \r ( P 1
0017400 A L I S T P 0 F N I 1
0017420 E X P R I 0 F I L E C O
0017440 M S ) \0 T 002 \0 \0 002 021 001 A 001 d
0017460 g \0 \0 360 245 d g \0 \0 360 225 277 A 002 001 X
0017500 215 g \0 \0 360 225 A 002 001 001 X 202 \b \0 \0 277
0017520 @ \t \0 \0 Y g \0 \0 I \n \0 \0 265 \v g \0
0017540 \0 h 032 I 032 Y 001 g \0 \0 I \n \0 \0 002 H
0017560 h 032 \n \0 \0 031 @ I \n \0 \0 h 020 \0 ( 1
0017600 2 0 Q S E T 1 1 2 Q \ N C
0017620 O N C 2 1 0 3 Q A S S O C
0017640 6 1 Q A S S O C 5 1 Q G E
0017660 T T O P V A L 4 4 Q S H O U
0017700 L D N T ) \r ( 7 7 Q F N S 6
0017720 6 Q F N S 5 5 Q F N S 3
0017740 1 Q D E F I N E Q 1 6 Q D
0017760 E F I N E 2 1 0 Q D E F I N
0020000 E 1 ) \r ( ) \r F P K G F N . R E
0020020 C O R D S D 1 \r ( P 1 A L
0020040 I S T P 0 N A M E I 1
0020060 E X P R I 0 F I L E C O
0020100 M S ) \0 5 002 \0 \0 002 021 001 A 002 001
0020120 X @ \t \0 \0 Y g \0 \0 I \n \0 \0 265 \v g
0020140 \0 \0 h 032 I 032 Y 001 g \0 \0 I \n \0 \0 002
0020160 H h 032 \n \0 \0 031 @ I \n \0 \0 h 020 \0 (
0020200 6 1 Q S E T 5 3 Q \ N C O
0020220 N C 2 4 4 Q A S S O C 2 2
0020240 Q A S S O C 1 2 Q G E T T
0020260 O P V A L ) \r ( 4 0 Q R E C O
0020300 R D S 2 7 Q R E C O R D S
0020320 1 6 Q R E C O R D S ) \r ( ) \r
0020340 F P K G F N . I N I T V A R S
0020360 D 1 \r ( P 0 A L I S T I
0020400 1 E X P R I 0 F I L E C
0020420 O M S ) \0 2 001 \0 \0 002 021 020 \0 @ \t
0020440 \0 \0 X g \0 \0 H \n \0 \0 265 \v g \0 \0 h
0020460 032 H 032 X 001 g \0 \0 H \n \0 \0 002 A 002 h
0020500 032 \n \0 \0 031 @ H \n \0 \0 h 020 \0 ( 5 6
0020520 Q S E T 5 0 Q \ N C O N C
0020540 2 4 0 Q A S S O C 1 6 Q
0020560 A S S O C 6 G E T T O P V A
0020600 L ) \r ( 3 4 Q I N I T V A R S
0020620 2 3 Q I N I T V A R S 1 2
0020640 Q I N I T V A R S ) \r ( ) \r F
0020660 P K G F N . C O N S T A N T S
0020700 D 1 \r ( P 0 A L I S T I
0020720 1 E X P R I 0 F I L E C
0020740 O M S ) \0 2 001 \0 \0 002 021 020 \0 @ \t
0020760 \0 \0 X g \0 \0 H \n \0 \0 265 \v g \0 \0 h
0021000 032 H 032 X 001 g \0 \0 H \n \0 \0 002 A 002 h
0021020 032 \n \0 \0 031 @ H \n \0 \0 h 020 \0 ( 5 6
0021040 Q S E T 5 0 Q \ N C O N C
0021060 2 4 0 Q A S S O C 1 6 Q
0021100 A S S O C 6 G E T T O P V A
0021120 L ) \r ( 3 4 Q C O N S T A N T
0021140 S 2 3 Q C O N S T A N T S
0021160 1 2 Q C O N S T A N T S ) \r (
0021200 ) \r F P K G F N . P R O P S D
0021220 1 \r ( P 2 A L I S T P 1
0021240 P R O P N A M E P 0 A T
0021260 O M I 1 E X P R I 0
0021300 F I L E C O M S ) \0 B 003 \0 \0 002
0021320 021 0 002 A 002 001 002 001 X A 002 002 001 002 001 Y
0021340 @ \t \0 \0 Z g \0 \0 J \n \0 \0 265 \v g \0
0021360 \0 h 032 J 032 Z 001 g \0 \0 J \n \0 \0 002 H
0021400 I h 032 032 h 032 \n \0 \0 031 @ J \n \0 \0 h
0021420 020 \0 ( 7 6 Q S E T 7 0 Q \
0021440 N C O N C 2 5 5 Q A S S O C
0021460 3 3 Q A S S O C 2 3 Q G
0021500 E T T O P V A L ) \r ( 5 1 Q P
0021520 R O P S 4 0 Q P R O P S 2
0021540 7 Q P R O P S ) \r ( ) \r D E F
0021560 V A R . T R A N D 1 \r ( L (
0021600 0 $ T R A N $ ) ) \0 " 004 \0 001
0021620 001 021 @ 003 @ 002 X d 001 H 002 001 273 272 g \0
0021640 \0 J K h 032 032 032 Y @ I 001 030 @ I 002 031
0021660 @ 020 \0 N I L \r ( 1 7 Q R P A Q
0021700 ? ) \r ( ) \r D E F P R O P . T R
0021720 A N D 1 \r ( L ( 0 $ T R A
0021740 N $ ) ) \0 < 005 \0 001 001 021 001 @ 002
0021760 X d 001 H 002 X 001 H 002 001 021 003 004 g \0 \0
0022000 g \0 \0 J h 032 032 g \0 \0 K h 032 032 g \0
0022020 \0 L h 032 032 h 032 032 032 032 022 Y @ I 001 030
0022040 @ I 002 031 @ 020 \0 N I L \r ( 4 5 Q
0022060 Q U O T E 3 6 Q Q U O T E
0022100 2 7 Q Q U O T E 2 4 Q P U
0022120 T P R O P ) \r ( ) \r D E F A L I
0022140 A S . T R A N D 1 \r ( L ( 0
0022160 $ T R A N $ ) ) \0 202 004 \0 001 001
0022200 021 @ 003 @ 002 X d 001 H 002 X 001 H 002 270 273
0022220 272 g \0 \0 g \0 \0 g \0 \0 h 032 032 g \0 \0
0022240 g \0 \0 K h 032 032 g \0 \0 J h 032 032 h 032
0022260 032 032 g \0 \0 g \0 \0 K h 032 032 g \0 \0 g
0022300 \0 \0 h 032 032 g \0 \0 J h 032 032 h 032 032 032
0022320 032 g \0 \0 g \0 \0 J h 032 032 g \0 \0 g \0
0022340 \0 h 032 032 g \0 \0 K h 032 032 h 032 032 032 032
0022360 h 032 032 032 032 032 Y @ I 001 030 @ I 002 031 @
0022400 020 \0 N I L \r ( 1 4 6 Q Q U O T
0022420 E 1 4 0 Q A K A 1 3 5 Q
0022440 Q U O T E 1 2 6 Q Q U O T E
0022460 1 2 3 Q P U T P R O P 1 0
0022500 7 Q Q U O T E 1 0 1 Q A L
0022520 I A S 7 6 Q Q U O T E 6 7
0022540 Q Q U O T E 6 4 Q P U T P
0022560 R O P 5 1 Q Q U O T E 4 2
0022600 Q Q U O T E 3 7 Q M O V D
0022620 3 1 Q C O M P I L E 2 6 Q
0022640 Q U O T E 2 3 Q P R O G N
0022660 ) \r ( ) \r < > D 1 \r ( I 1
0022700 A R G 2 I 0 A R G 1 ) \0
0022720 \t \0 \0 \0 002 @ A \n \0 \0 h 360 020 \0 ( 4
0022740 I E Q P ) \r N I L \r ( ) \r < >
0022760 . T R A N D 1 \r ( L ( 0 $
0023000 T R A N $ ) ) \0 ( 004 \0 001 001 021 @
0023020 003 @ 002 X d 001 H 002 001 273 272 g \0 \0 g \0
0023040 \0 J K h 032 032 032 h 032 032 Y @ I 001 030 @
0023060 I 002 031 @ 020 \0 N I L \r ( 2 2 Q I
0023100 E Q P 1 7 Q N O T ) \r ( ) \r
0023120 1 + $ D 1 \r ( L ( 0 A R G
0023140 ) ) \0 \b \0 \0 \0 001 @ o \0 \0 \0 350 020
0023160 \0 N I L \r N I L \r ( 4 1 . 0
0023200 ) \r 1 + $ . T R A N D 1 \r ( L
0023220 ( 0 $ T R A N $ ) ) \0 002
0023240 \0 001 001 021 001 @ 002 d 001 271 g \0 \0 I o
0023260 \0 \0 \0 h 032 032 032 X @ H 001 030 @ H 002 031
0023300 @ 020 \0 N I L \r ( 1 2 Q F P L U
0023320 S ) \r ( 1 7 Q 1 . 0 ) \r 1 -
0023340 $ D 1 \r ( L ( 0 A R G ) )
0023360 \0 \b \0 \0 \0 001 @ o \0 \0 \0 351 020 \0 N
0023400 I L \r N I L \r ( 4 1 . 0 ) \r
0023420 1 - $ . T R A N D 1 \r ( L (
0023440 0 $ T R A N $ ) ) \0 002 \0 001
0023460 001 021 001 @ 002 d 001 271 g \0 \0 I o \0 \0
0023500 \0 h 032 032 032 X @ H 001 030 @ H 002 031 @ 020
0023520 \0 N I L \r ( 1 2 Q F D I F F E
0023540 R E N C E ) \r ( 1 7 Q 1 . 0
0023560 ) \r > = $ D 1 \r ( L ( 1 A
0023600 R G 2 0 A R G 1 ) ) \0 \a \0
0023620 \0 \0 002 A @ 362 h 360 020 \0 N I L \r N I
0023640 L \r ( ) \r > = $ . T R A N D 1
0023660 \r ( L ( 0 $ T R A N $ ) )
0023700 \0 ( 004 \0 001 001 021 @ 003 @ 002 X d 001 H 002
0023720 001 273 272 g \0 \0 g \0 \0 J K h 032 032 032 h
0023740 032 032 Y @ I 001 030 @ I 002 031 @ 020 \0 N I
0023760 L \r ( 2 2 Q F L E S S P 1 7
0024000 Q N O T ) \r ( ) \r < = $ D 1
0024020 \r ( L ( 1 A R G 2 0 A R
0024040 G 1 ) ) \0 \a \0 \0 \0 002 @ A 362 h 360
0024060 020 \0 N I L \r N I L \r ( ) \r < = $
0024100 . T R A N D 1 \r ( L ( 0 $
0024120 T R A N $ ) ) \0 ( 004 \0 001 001 021 @
0024140 003 @ 002 X d 001 H 002 001 273 272 g \0 \0 g \0
0024160 \0 J K h 032 032 032 h 032 032 Y @ I 001 030 @
0024200 I 002 031 @ 020 \0 N I L \r ( 2 2 Q F
0024220 G R E A T E R P 1 7 Q N O T
0024240 ) \r ( ) \r < > $ D 1 \r ( I 1
0024260 A R G 2 I 0 A R G 1 )
0024300 \0 \t \0 \0 \0 002 @ A \n \0 \0 h 360 020 \0 (
0024320 4 F E Q P ) \r N I L \r ( ) \r <
0024340 > $ . T R A N D 1 \r ( L ( 0
0024360 $ T R A N $ ) ) \0 ( 004 \0 001 001
0024400 021 @ 003 @ 002 X d 001 H 002 001 273 272 g \0 \0
0024420 g \0 \0 J K h 032 032 032 h 032 032 Y @ I 001
0024440 030 @ I 002 031 @ 020 \0 N I L \r ( 2 2 Q
0024460 F E Q P 1 7 Q N O T ) \r (
0024500 ) \r E M A C S I F Y F N D 1 \r
0024520 ( I 1 C O M P L E T E L Y
0024540 I 0 F N ) \0 036 \0 \0 \0 002 @ g
0024560 \0 \0 @ g \0 \0 \n \0 \0 A \n \0 \0 \v \0 \0
0024600 @ g \0 \0 g \0 \0 \v \0 \0 020 \0 ( 3 3 Q
0024620 M A R K A S C H A N G E D 2
0024640 1 Q P U T D E F 1 6 Q E M
0024660 A C S I F Y 1 2 Q G E T D E
0024700 F ) \r ( 3 0 Q C H A N G E D
0024720 2 5 Q F N S 7 F N S 3
0024740 F N S ) \r ( ) \r E M A C S I F Y
0024760 D 1 \r ( P 2 T A I L P
0025000 1 E M A C S P 0 A L I A
0025020 S I 1 C O M P L E T E L Y
0025040 I 0 E X P R ) \0 { 003 \0 \0
0025060 002 021 001 @ d 004 l 004 360 262 026 d g \0 \0
0025100 033 235 277 A 231 @ g \0 \0 033 002 \t \0 \0 020 @
0025120 003 241 @ 020 A 237 @ d 001 004 l 004 360 230 001 g
0025140 \0 \0 033 X 265 036 @ 001 004 l 004 360 262 034 @ 001
0025160 g \0 \0 033 Y 262 023 @ A l 002 I 017 016 b \0
0025200 260 023 @ 002 032 b \0 212 @ d d 001 g \0 \0 360
0025220 263 303 277 021 001 002 J 223 J 003 265 004 @ 020 d 001
0025240 A \n \0 \0 030 277 J 002 Z 260 356 \0 ( 1 6 2
0025260 Q E M A C S I F Y 3 4 Q U
0025300 - C A S E ) \r ( 1 3 5 Q * 1
0025320 0 1 Q E M A C S 6 0 Q A L
0025340 I A S 2 7 Q C L I S P W O R
0025360 D 1 6 Q C L I S P W O R D )
0025400 \r ( ) \r E M A C S I F Y . I F
0025420 D 1 \r ( P 2 E P 1 B R
0025440 A N C H P 0 B R A N C H E
0025460 S I 0 E X P R ) \0 t 003 \0
0025500 \0 001 021 001 @ 260 ` d 001 021 001 002 J g \0
0025520 \0 360 247 J d g \0 \0 360 230 277 g \0 \0 H 032
0025540 X 260 B g \0 \0 360 263 = J d g \0 \0 360 263
0025560 4 g \0 \0 360 247 J d g \0 \0 360 234 277 I \t
0025600 \0 \0 H 032 270 i h 032 260 032 g \0 \0 360 247 J
0025620 d g \0 \0 360 231 277 I \t \0 \0 H 032 270 h 201
0025640 I 032 Y 277 023 002 003 265 241 I \t \0 \0 H 032 X
0025660 d \t \0 \0 020 \0 ( 1 6 1 Q D R E V
0025700 E R S E 1 5 2 Q D R E V E R
0025720 S E 1 3 0 Q D R E V E R S E
0025740 7 7 Q D R E V E R S E ) \r (
0025760 1 2 1 Q E L S E I F 1 1 2 Q
0026000 e l s e i f 7 0 Q E L S E
0026020 6 1 Q e l s e 5 3 Q T H
0026040 E N 4 3 Q t h e n 3 3 Q
0026060 C O N D 2 5 Q I F 1 6 Q
0026100 i f ) \r ( ) \r E M A C S I F Y .
0026120 F E T C H D 1 \r ( P 3 A N
0026140 S W E R P 2 D A T U M P
0026160 1 T Y P E . F I E L D P
0026200 0 T Y P E & F I E L D I 1
0026220 C O M P L E T E L Y I 0
0026240 E X P R ) \0 H 004 \0 \0 002 021 @ 003 @
0026260 l 002 \n \0 \0 001 X @ l 004 \n \0 \0 001 Z H
0026300 004 l 004 360 233 H \t \0 \0 001 002 001 H h 032 032
0026320 270 A 262 023 H 001 o \0 \0 \0 H 002 001 \v \0 \0
0026340 J h 032 032 020 g \0 \0 H g \0 \0 J h 032 032
0026360 032 032 020 \0 ( 6 3 Q P A C K * 3
0026400 4 Q F I E L D L O O K 2 0 Q
0026420 N T H 1 0 Q N T H ) \r ( 7
0026440 7 Q o f 7 3 Q f e t c h )
0026460 \r ( 5 5 Q " . " ) \r E M A C
0026500 S I F Y . R E P L A C E D 1 \r
0026520 ( P 4 A N S W E R P 3
0026540 N E W V A L U E P 2 D A T
0026560 U M P 1 T Y P E . F I E L
0026600 D P 0 T Y P E & F I E L D
0026620 I 1 C O M P L E T E L Y
0026640 I 0 E X P R ) \0 ` 005 \0 \0 002
0026660 021 P 004 @ l 002 \n \0 \0 001 X @ l 004 \n \0
0026700 \0 001 Z @ l 006 \n \0 \0 001 [ H 004 l 004 360
0026720 233 H \t \0 \0 001 002 001 H h 032 032 270 A 262 035
0026740 H 001 o \0 \0 \0 H 002 001 \v \0 \0 J h 032 032
0026760 274 g \0 \0 L K h 032 032 032 020 g \0 \0 H g
0027000 \0 \0 J g \0 \0 K h 032 032 032 032 032 032 020 \0
0027020 ( 7 3 Q P A C K * 4 4 Q F
0027040 I E L D L O O K 3 0 Q N T H
0027060 2 0 Q N T H 1 0 Q N T H
0027100 ) \r ( 1 2 5 Q w i t h 1 2 1
0027120 Q o f 1 1 5 Q r e p l a c
0027140 e 1 0 3 Q S E T F ) \r ( 6
0027160 5 Q " . " ) \r E M A C S I F Y
0027200 . F F E T C H D 1 \r ( P 3
0027220 A N S W E R P 2 D A T U M
0027240 P 1 T Y P E . F I E L D
0027260 P 0 T Y P E & F I E L D I
0027300 1 C O M P L E T E L Y I
0027320 0 E X P R ) \0 H 004 \0 \0 002 021 @
0027340 003 @ l 002 \n \0 \0 001 X @ l 004 \n \0 \0 001
0027360 Z H 004 l 004 360 233 H \t \0 \0 001 002 001 H h
0027400 032 032 270 A 262 023 H 001 o \0 \0 \0 H 002 001 \v
0027420 \0 \0 J h 032 032 020 g \0 \0 H g \0 \0 J h
0027440 032 032 032 032 020 \0 ( 6 3 Q P A C K *
0027460 3 4 Q F I E L D L O O K 2
0027500 0 Q N T H 1 0 Q N T H ) \r
0027520 ( 7 7 Q o f 7 3 Q f f e t
0027540 c h ) \r ( 5 5 Q " . " ) \r E
0027560 M A C S I F Y . F R E P L A C E
0027600 D 1 \r ( P 4 A N S W E R
0027620 P 3 N E W V A L U E P 2
0027640 D A T U M P 1 T Y P E .
0027660 F I E L D P 0 T Y P E & F
0027700 I E L D I 1 C O M P L E T
0027720 E L Y I 0 E X P R ) \0 `
0027740 005 \0 \0 002 021 P 004 @ l 002 \n \0 \0 001 X @
0027760 l 004 \n \0 \0 001 Z @ l 006 \n \0 \0 001 [ H
0030000 004 l 004 360 233 H \t \0 \0 001 002 001 H h 032 032
0030020 270 A 262 035 H 001 o \0 \0 \0 H 002 001 \v \0 \0
0030040 J h 032 032 274 g \0 \0 L K h 032 032 032 020 g
0030060 \0 \0 H g \0 \0 J g \0 \0 K h 032 032 032 032
0030100 032 032 020 \0 ( 7 3 Q P A C K * 4
0030120 4 Q F I E L D L O O K 3 0 Q
0030140 N T H 2 0 Q N T H 1 0 Q
0030160 N T H ) \r ( 1 2 5 Q w i t h
0030200 1 2 1 Q o f 1 1 5 Q f r
0030220 e p l a c e 1 0 3 Q S E T F
0030240 ) \r ( 6 5 Q " . " ) \r E M A
0030260 C S I F Y . N E Q D 1 \r ( L
0030300 ( 0 E X P R ) ) \0 035 002 \0 \0 001
0030320 021 001 @ 002 001 X @ 002 002 001 Y g \0 \0 g
0030340 \0 \0 H I h 032 032 032 h 032 032 020 \0 N I L
0030360 \r ( 2 1 Q E Q 1 6 Q N O T
0030400 ) \r ( ) \r E M A C S I F Y . P R
0030420 O G D 1 \r ( P 2 A N S W E
0030440 R P 1 B O D Y P 0 V
0030460 A R S I 0 E X P R ) \0 P
0030500 \b \0 \0 001 021 P 004 @ 002 001 X @ 002 002 Y H
0030520 \t \0 \0 [ 003 265 \b 021 0 \a H 260 ) 001 \ 003
0030540 227 g \0 \0 L 032 I 032 271 K 002 260 350 d 001 d
0030560 004 l 004 360 240 001 275 N 265 \b M h 032 _ 016 201
0030600 M & 276 002 003 265 350 O 016 022 X g \0 \0 H I
0030620 032 032 020 \0 ( 1 6 Q R E V E R S E
0030640 ) \r ( 1 1 1 Q P R O G 3 7 Q
0030660 S E T Q ) \r ( ) \r E M A C S I
0030700 F Y . S E T A D 1 \r ( I 1
0030720 C O M P L E T E L Y I 0 E
0030740 X P R ) \0 * \0 \0 \0 002 A 262 & g \0
0030760 \0 g \0 \0 @ l 002 \n \0 \0 001 @ l 003 \n \0
0031000 \0 001 h 032 032 032 @ l 004 \n \0 \0 001 h 032 032
0031020 032 020 @ 020 \0 ( 4 0 Q N T H 2 5
0031040 Q N T H 1 6 Q N T H ) \r (
0031060 1 0 Q E L T 5 S E T F ) \r
0031100 ( ) \r ( P R E T T Y C O M P R I
0031120 N T E M A C S U S E R C O M S
0031140 ) \r ( R P A Q Q E M A C S U S
0031160 E R C O M S ( ( * E M A C S
0031200 U S E R - - B y K e l l y
0031220 R o a c h . D e f i n e s
0031240 a p r o g r a m m i n g e n
0031260 v i r o n m e n t s u i t a b
0031300 l e f o r \r u s e r s w h
0031320 o w i s h t o d o t h e
0031340 i r c o d i n g i n E M A
0031360 C S . * ) ( C O M S ( *
0031400 E M A C S U T I 1 * ) ( P R
0031420 O P S ( D E F I N E 1 A R G
0031440 N A M E S ) ( \r D E F I N E 2
0031460 A R G N A M E S ) ( D E F E
0031500 X P R A R G N A M E S ) ( D
0031520 E F E X P R T R A N ) ( D E
0031540 F E X P R C L I S P W O R D )
0031560 ( D E F F E X P R A R G N A
0031600 M E S ) ( D E F F E X P R \r
0031620 T R A N ) ( D E F F E X P R
0031640 C L I S P W O R D ) ( D E F F
0031660 E X P R A R G N A M E S ) (
0031700 D E F T R A N A R G N A M E S
0031720 ) ( D E F T R A N T R A N )
0031740 ( D E F T R A N C L I S P W
0031760 O R D ) ( \r D E F C L I S P
0032000 A R G N A M E S ) ( D E F C L
0032020 I S P T R A N ) ( D E F C L
0032040 I S P C L I S P W O R D ) )
0032060 ( F N S D E F H E L P E R D
0032100 E F E X P A N D D E F E X P A
0032120 N D F N D E F F O R M S \r D
0032140 E F I N E 1 D E F I N E 2 D
0032160 E F E X P R . T R A N D E F E
0032200 X P R . T R A N 1 D E F F E X
0032220 P R . T R A N D E F F E X P R
0032240 . T R A N 1 D E F A R G N A M
0032260 E S D E F L A M B D A \r D E
0032300 F T R A N . T R A N D E F T R
0032320 A N . T R A N 1 D E F C L I S
0032340 P . T R A N D E F C L I S P .
0032360 T R A N 1 D E F T R A N S L A
0032400 T E ) ) ( C O M S ( * E M
0032420 A C S U T I 2 * ) ( P R O P
0032440 S ( \r Q U O T E F P K G F N
0032460 ) ( D E F I N E Q F P K G F
0032500 N ) ( D E F I N E 1 F P K G
0032520 F N ) ( D E F I N E 2 F P K
0032540 G F N ) ( D A T A T Y P E F
0032560 P K G F N ) ( R E C O R D F
0032600 P K G F N ) ( \r T Y P E R E C
0032620 O R D F P K G F N ) ( A C C
0032640 E S S F N S F P K G F N ) (
0032660 B L O C K R E C O R D F P K G
0032700 F N ) ( R P A Q ? F P K G F
0032720 N ) ( D E F C O N S T F P K
0032740 G F N ) ( P U T P R O P \r F
0032760 P K G F N ) ( D E F V A R T
0033000 R A N ) ( D E F P R O P A R
0033020 G N A M E S ) ( D E F P R O P
0033040 C L I S P W O R D ) ( D E F
0033060 P R O P T R A N ) ( D E F A
0033100 L I A S A R G N A M E S ) (
0033120 \r D E F A L I A S C L I S P W
0033140 O R D ) ( D E F A L I A S T
0033160 R A N ) ( I P L U S A L I A
0033200 S ) ( + A K A ) ( I D I F
0033220 F E R E N C E A L I A S ) (
0033240 - A K A ) ( I M I N U S A
0033260 L I A S ) ( \r 0 - A K A )
0033300 ( A D D 1 A L I A S ) ( 1 +
0033320 A K A ) ( S U B 1 A L I A
0033340 S ) ( 1 - A K A ) ( I T I
0033360 M E S A L I A S ) ( x A K
0033400 A ) ( I Q U O T I E N T A L
0033420 I A S ) ( / A K A ) ( \r I
0033440 R E M A I N D E R A L I A S )
0033460 ( \ A K A ) ( I G R E A T
0033500 E R P A L I A S ) ( > A K
0033520 A ) ( I L E S S P A L I A S
0033540 ) ( < A K A ) ( I G E Q
0033560 A L I A S ) ( > = A K A )
0033600 ( I L E Q \r A L I A S ) ( <
0033620 = A K A ) ( I E Q P A L I
0033640 A S ) ( = A K A ) ( < >
0033660 T R A N ) ( F P L U S A L I
0033700 A S ) ( + $ A K A ) ( F D
0033720 I F F E R E N C E A L I A S )
0033740 ( - $ A K A ) ( \r F M I N
0033760 U S A L I A S ) ( 0 - $ A
0034000 K A ) ( 1 + $ T R A N ) (
0034020 1 - $ T R A N ) ( F T I M E
0034040 S A L I A S ) ( x $ A K A
0034060 ) ( F Q U O T I E N T A L I
0034100 A S ) ( / $ A K A ) ( \r F
0034120 R E M A I N D E R A L I A S )
0034140 ( \ $ A K A ) ( F G R E A
0034160 T E R P A L I A S ) ( > $
0034200 A K A ) ( F L E S S P A L I
0034220 A S ) ( < $ A K A ) ( > =
0034240 $ T R A N ) ( < = $ T R A
0034260 N ) ( \r F E Q P A L I A S )
0034300 ( = $ A K A ) ( < > $ T
0034320 R A N ) ) ( F N S E C O M S
0034340 E F I L E E L O A D E C O
0034360 M P L E R E A D F I L E E F
0034400 R E E E C O M P A R E F P K
0034420 G F N . P \r F P K G F N . Q U
0034440 O T E F P K G F N . F N S F
0034460 P K G F N . R E C O R D S F P
0034500 K G F N . I N I T V A R S F P
0034520 K G F N . C O N S T A N T S F
0034540 P K G F N . P R O P S D E F V
0034560 A R . T R A N \r D E F P R O P
0034600 . T R A N D E F A L I A S . T
0034620 R A N < > < > . T R A N 1
0034640 + $ 1 + $ . T R A N 1 - $
0034660 1 - $ . T R A N > = $ > = $
0034700 . T R A N < = $ < = $ . T R
0034720 A N < > $ < > $ . T R A N \r
0034740 ) ( P ( M O V D ( Q U O T
0034760 E R P A Q ? ) ( Q U O T E
0035000 D E F V A R ) ) ( M O V D (
0035020 Q U O T E R P A Q ? ) ( Q U
0035040 O T E D E F C O N S T ) ) (
0035060 M O V D ( Q U O T E I P L U
0035100 S ) ( \r Q U O T E + ) ) (
0035120 M O V D ( Q U O T E I D I F
0035140 F E R E N C E ) ( Q U O T E
0035160 - ) ) ( M O V D ( Q U O T E
0035200 I M I N U S ) ( Q U O T E
0035220 0 - ) ) ( M O V D ( Q U O T
0035240 E A D D 1 ) ( \r Q U O T E
0035260 1 + ) ) ( M O V D ( Q U O T
0035300 E S U B 1 ) ( Q U O T E 1
0035320 - ) ) ( M O V D ( Q U O T E
0035340 I T I M E S ) ( Q U O T E
0035360 x ) ) ( M O V D ( Q U O T E
0035400 I Q U O T I E N T ) ( \r Q U
0035420 O T E / ) ) ( M O V D ( Q
0035440 U O T E I R E M A I N D E R )
0035460 ( Q U O T E \ ) ) ( M O V
0035500 D ( Q U O T E I G R E A T E
0035520 R P ) ( Q U O T E > ) ) (
0035540 M O V D ( Q U O T E I L E S
0035560 S P ) \r ( Q U O T E < ) )
0035600 ( M O V D ( Q U O T E I G E
0035620 Q ) ( Q U O T E > = ) ) (
0035640 M O V D ( Q U O T E I L E Q
0035660 ) ( Q U O T E < = ) ) ( M
0035700 O V D ( Q U O T E I E Q P )
0035720 ( Q U O T E = ) ) \r ( M O
0035740 V D ( Q U O T E F P L U S )
0035760 ( Q U O T E + $ ) ) ( M O
0036000 V D ( Q U O T E F D I F F E
0036020 R E N C E ) ( Q U O T E - $
0036040 ) ) ( M O V D ( Q U O T E
0036060 F M I N U S ) ( Q U O T E 0
0036100 - $ \r ) ) ( M O V D ( Q U O
0036120 T E F T I M E S ) ( Q U O T
0036140 E x $ ) ) ( M O V D ( Q U
0036160 O T E F Q U O T I E N T ) (
0036200 Q U O T E / $ ) ) ( M O V D
0036220 ( Q U O T E F R E M A I N D
0036240 E R ) ( \r Q U O T E \ $ ) )
0036260 ( M O V D ( Q U O T E F G
0036300 R E A T E R P ) ( Q U O T E
0036320 > $ ) ) ( M O V D ( Q U O T
0036340 E F L E S S P ) ( Q U O T E
0036360 < $ ) ) ( M O V D ( Q U O
0036400 T E F E Q P ) ( \r Q U O T E
0036420 = $ ) ) ) ) ( C O M S ( *
0036440 E M A C S I F Y * ) ( P R
0036460 O P S ( i f E M A C S ) (
0036500 I F E M A C S ) ( f e t c h
0036520 E M A C S ) ( f f e t c h
0036540 E M A C S ) ( F E T C H \r E
0036560 M A C S ) ( F F E T C H E M
0036600 A C S ) ( r e p l a c e E M
0036620 A C S ) ( f r e p l a c e E
0036640 M A C S ) ( R E P L A C E E
0036660 M A C S ) ( F R E P L A C E
0036700 E M A C S ) ( N E Q E M A C
0036720 S ) ( \r P R O G E M A C S )
0036740 ( S E T A E M A C S ) ) (
0036760 F N S E M A C S I F Y F N E
0037000 M A C S I F Y E M A C S I F Y
0037020 . I F E M A C S I F Y . F E T
0037040 C H E M A C S I F Y . R E P L
0037060 A C E \r E M A C S I F Y . F F
0037100 E T C H E M A C S I F Y . F R
0037120 E P L A C E E M A C S I F Y .
0037140 N E Q E M A C S I F Y . P R O
0037160 G E M A C S I F Y . S E T A )
0037200 ) ( D E C L A R E : D O N T
0037220 E V A L @ L O A D \r D O E V A
0037240 L @ C O M P I L E D O N T C O
0037260 P Y C O M P I L E R V A R S
0037300 ( A D D V A R S ( N L A M A
0037320 D E F I N E 2 D E F I N E 1 )
0037340 ( N L A M L < > $ . T R A N
0037360 < = $ . T R A N \r > = $ . T
0037400 R A N 1 - $ . T R A N 1 + $
0037420 . T R A N < > . T R A N D E
0037440 F A L I A S . T R A N D E F P
0037460 R O P . T R A N D E F V A R .
0037500 T R A N D E F T R A N S L A T
0037520 E D E F C L I S P . T R A N
0037540 \r D E F T R A N . T R A N D E
0037560 F F E X P R . T R A N D E F E
0037600 X P R . T R A N ) ( L A M A )
0037620 ) ) ) ) \r ( P U T P R O P S D
0037640 E F I N E 1 A R G N A M E S
0037660 ( F N V A R S . B O D Y )
0037700 ) \r ( P U T P R O P S D E F I
0037720 N E 2 A R G N A M E S ( F N
0037740 V A R S . B O D Y ) ) \r (
0037760 P U T P R O P S D E F E X P R
0040000 A R G N A M E S ( F N V A
0040020 R S . B O D Y ) ) \r ( P U T
0040040 P R O P S D E F E X P R T R
0040060 A N D E F E X P R . T R A N )
0040100 \r ( P U T P R O P S D E F E X
0040120 P R C L I S P W O R D ( D E
0040140 F T R A N S L A T E . D E F
0040160 E X P R ) ) \r ( P U T P R O P S
0040200 D E F F E X P R A R G N A M
0040220 E S ( F N V A R S . B O
0040240 D Y ) ) \r ( P U T P R O P S D
0040260 E F F E X P R T R A N D E F
0040300 F E X P R . T R A N ) \r ( P U T
0040320 P R O P S D E F F E X P R C
0040340 L I S P W O R D ( D E F T R A
0040360 N S L A T E . D E F F E X P
0040400 R ) ) \r ( P U T P R O P S D E
0040420 F F E X P R A R G N A M E S
0040440 ( F N V A R S . B O D Y )
0040460 ) \r ( P U T P R O P S D E F T
0040500 R A N A R G N A M E S ( F N
0040520 V A R S . B O D Y ) ) \r (
0040540 P U T P R O P S D E F T R A N
0040560 T R A N D E F T R A N . T R
0040600 A N ) \r ( P U T P R O P S D E
0040620 F T R A N C L I S P W O R D
0040640 ( D E F T R A N S L A T E .
0040660 D E F T R A N ) ) \r ( P U T P R
0040700 O P S D E F C L I S P A R G
0040720 N A M E S ( F N V A R S .
0040740 B O D Y ) ) \r ( P U T P R O P
0040760 S D E F C L I S P T R A N
0041000 D E F C L I S P . T R A N ) \r (
0041020 P U T P R O P S D E F C L I S
0041040 P C L I S P W O R D ( D E F
0041060 T R A N S L A T E . D E F C
0041100 L I S P ) ) \r ( P U T P R O P S
0041120 Q U O T E F P K G F N F P
0041140 K G F N . Q U O T E ) \r ( P U T
0041160 P R O P S D E F I N E Q F P
0041200 K G F N F P K G F N . F N S )
0041220 \r ( P U T P R O P S D E F I N
0041240 E 1 F P K G F N F P K G F N
0041260 . F N S ) \r ( P U T P R O P S
0041300 D E F I N E 2 F P K G F N F
0041320 P K G F N . F N S ) \r ( P U T P
0041340 R O P S D A T A T Y P E F P
0041360 K G F N F P K G F N . R E C O
0041400 R D S ) \r ( P U T P R O P S R
0041420 E C O R D F P K G F N F P K
0041440 G F N . R E C O R D S ) \r ( P U
0041460 T P R O P S T Y P E R E C O R
0041500 D F P K G F N F P K G F N .
0041520 R E C O R D S ) \r ( P U T P R O
0041540 P S A C C E S S F N S F P K
0041560 G F N F P K G F N . R E C O R
0041600 D S ) \r ( P U T P R O P S B L
0041620 O C K R E C O R D F P K G F N
0041640 F P K G F N . R E C O R D S )
0041660 \r ( P U T P R O P S R P A Q ?
0041700 F P K G F N F P K G F N . I
0041720 N I T V A R S ) \r ( P U T P R O
0041740 P S D E F C O N S T F P K G
0041760 F N F P K G F N . C O N S T A
0042000 N T S ) \r ( P U T P R O P S P
0042020 U T P R O P F P K G F N F P
0042040 K G F N . P R O P S ) \r ( P U T
0042060 P R O P S D E F V A R T R A
0042100 N D E F V A R . T R A N ) \r (
0042120 P U T P R O P S D E F P R O P
0042140 A R G N A M E S ( A T O M
0042160 P R O P V A L U E ) ) \r ( P U
0042200 T P R O P S D E F P R O P C
0042220 L I S P W O R D ( D E F T R A
0042240 N S L A T E . D E F P R O P
0042260 ) ) \r ( P U T P R O P S D E F
0042300 P R O P T R A N D E F P R O
0042320 P . T R A N ) \r ( P U T P R O P
0042340 S D E F A L I A S A R G N A
0042360 M E S ( A L I A S A K A ) )
0042400 \r ( P U T P R O P S D E F A L
0042420 I A S C L I S P W O R D ( D
0042440 E F T R A N S L A T E . D E
0042460 F A L I A S ) ) \r ( P U T P R O
0042500 P S D E F A L I A S T R A N
0042520 D E F A L I A S . T R A N ) \r
0042540 ( P U T P R O P S I P L U S
0042560 A L I A S + ) \r ( P U T P R O
0042600 P S + A K A I P L U S ) \r
0042620 ( P U T P R O P S I D I F F E
0042640 R E N C E A L I A S - ) \r (
0042660 P U T P R O P S - A K A I
0042700 D I F F E R E N C E ) \r ( P U T
0042720 P R O P S I M I N U S A L I
0042740 A S 0 - ) \r ( P U T P R O P S
0042760 0 - A K A I M I N U S ) \r
0043000 ( P U T P R O P S A D D 1 A
0043020 L I A S 1 + ) \r ( P U T P R O
0043040 P S 1 + A K A A D D 1 ) \r
0043060 ( P U T P R O P S S U B 1 A
0043100 L I A S 1 - ) \r ( P U T P R O
0043120 P S 1 - A K A S U B 1 ) \r
0043140 ( P U T P R O P S I T I M E S
0043160 A L I A S x ) \r ( P U T P R
0043200 O P S x A K A I T I M E S
0043220 ) \r ( P U T P R O P S I Q U O
0043240 T I E N T A L I A S / ) \r (
0043260 P U T P R O P S / A K A I
0043300 Q U O T I E N T ) \r ( P U T P R
0043320 O P S I R E M A I N D E R A
0043340 L I A S \ ) \r ( P U T P R O P
0043360 S \ A K A I R E M A I N D
0043400 E R ) \r ( P U T P R O P S I G
0043420 R E A T E R P A L I A S > )
0043440 \r ( P U T P R O P S > A K A
0043460 I G R E A T E R P ) \r ( P U T
0043500 P R O P S I L E S S P A L I
0043520 A S < ) \r ( P U T P R O P S
0043540 < A K A I L E S S P ) \r ( P
0043560 U T P R O P S I G E Q A L I
0043600 A S > = ) \r ( P U T P R O P S
0043620 > = A K A I G E Q ) \r ( P
0043640 U T P R O P S I L E Q A L I
0043660 A S < = ) \r ( P U T P R O P S
0043700 < = A K A I L E Q ) \r ( P
0043720 U T P R O P S I E Q P A L I
0043740 A S = ) \r ( P U T P R O P S
0043760 = A K A I E Q P ) \r ( P U T
0044000 P R O P S < > T R A N < >
0044020 . T R A N ) \r ( P U T P R O P S
0044040 F P L U S A L I A S + $ )
0044060 \r ( P U T P R O P S + $ A K
0044100 A F P L U S ) \r ( P U T P R O
0044120 P S F D I F F E R E N C E A
0044140 L I A S - $ ) \r ( P U T P R O
0044160 P S - $ A K A F D I F F E
0044200 R E N C E ) \r ( P U T P R O P S
0044220 F M I N U S A L I A S 0 -
0044240 $ ) \r ( P U T P R O P S 0 - $
0044260 A K A F M I N U S ) \r ( P U
0044300 T P R O P S 1 + $ T R A N
0044320 1 + $ . T R A N ) \r ( P U T P R
0044340 O P S 1 - $ T R A N 1 - $
0044360 . T R A N ) \r ( P U T P R O P S
0044400 F T I M E S A L I A S x $
0044420 ) \r ( P U T P R O P S x $ A
0044440 K A F T I M E S ) \r ( P U T P
0044460 R O P S F Q U O T I E N T A
0044500 L I A S / $ ) \r ( P U T P R O
0044520 P S / $ A K A F Q U O T I
0044540 E N T ) \r ( P U T P R O P S F
0044560 R E M A I N D E R A L I A S
0044600 \ $ ) \r ( P U T P R O P S \ $
0044620 A K A F R E M A I N D E R )
0044640 \r ( P U T P R O P S F G R E A
0044660 T E R P A L I A S > $ ) \r (
0044700 P U T P R O P S > $ A K A
0044720 F G R E A T E R P ) \r ( P U T P
0044740 R O P S F L E S S P A L I A
0044760 S < $ ) \r ( P U T P R O P S
0045000 < $ A K A F L E S S P ) \r (
0045020 P U T P R O P S > = $ T R A
0045040 N > = $ . T R A N ) \r ( P U T
0045060 P R O P S < = $ T R A N <
0045100 = $ . T R A N ) \r ( P U T P R O
0045120 P S F E Q P A L I A S = $
0045140 ) \r ( P U T P R O P S = $ A
0045160 K A F E Q P ) \r ( P U T P R O
0045200 P S < > $ T R A N < > $ .
0045220 T R A N ) \r ( M O V D ( Q U O
0045240 T E R P A Q ? ) ( Q U O T E
0045260 D E F V A R ) ) \r ( M O V D
0045300 ( Q U O T E R P A Q ? ) ( Q
0045320 U O T E D E F C O N S T ) ) \r
0045340 ( M O V D ( Q U O T E I P L
0045360 U S ) ( Q U O T E + ) ) \r (
0045400 M O V D ( Q U O T E I D I F
0045420 F E R E N C E ) ( Q U O T E
0045440 - ) ) \r ( M O V D ( Q U O T E
0045460 I M I N U S ) ( Q U O T E
0045500 0 - ) ) \r ( M O V D ( Q U O T
0045520 E A D D 1 ) ( Q U O T E 1
0045540 + ) ) \r ( M O V D ( Q U O T E
0045560 S U B 1 ) ( Q U O T E 1 -
0045600 ) ) \r ( M O V D ( Q U O T E
0045620 I T I M E S ) ( Q U O T E x
0045640 ) ) \r ( M O V D ( Q U O T E
0045660 I Q U O T I E N T ) ( Q U O T
0045700 E / ) ) \r ( M O V D ( Q U O
0045720 T E I R E M A I N D E R ) (
0045740 Q U O T E \ ) ) \r ( M O V D
0045760 ( Q U O T E I G R E A T E R P
0046000 ) ( Q U O T E > ) ) \r ( M O
0046020 V D ( Q U O T E I L E S S P
0046040 ) ( Q U O T E < ) ) \r ( M O
0046060 V D ( Q U O T E I G E Q )
0046100 ( Q U O T E > = ) ) \r ( M O V
0046120 D ( Q U O T E I L E Q ) (
0046140 Q U O T E < = ) ) \r ( M O V D
0046160 ( Q U O T E I E Q P ) ( Q
0046200 U O T E = ) ) \r ( M O V D (
0046220 Q U O T E F P L U S ) ( Q U
0046240 O T E + $ ) ) \r ( M O V D (
0046260 Q U O T E F D I F F E R E N C
0046300 E ) ( Q U O T E - $ ) ) \r (
0046320 M O V D ( Q U O T E F M I N
0046340 U S ) ( Q U O T E 0 - $ ) )
0046360 \r ( M O V D ( Q U O T E F T
0046400 I M E S ) ( Q U O T E x $ )
0046420 ) \r ( M O V D ( Q U O T E F
0046440 Q U O T I E N T ) ( Q U O T E
0046460 / $ ) ) \r ( M O V D ( Q U O
0046500 T E F R E M A I N D E R ) (
0046520 Q U O T E \ $ ) ) \r ( M O V D
0046540 ( Q U O T E F G R E A T E R
0046560 P ) ( Q U O T E > $ ) ) \r (
0046600 M O V D ( Q U O T E F L E S
0046620 S P ) ( Q U O T E < $ ) ) \r
0046640 ( M O V D ( Q U O T E F E Q
0046660 P ) ( Q U O T E = $ ) ) \r (
0046700 P U T P R O P S i f E M A C
0046720 S E M A C S I F Y . I F ) \r (
0046740 P U T P R O P S I F E M A C
0046760 S E M A C S I F Y . I F ) \r (
0047000 P U T P R O P S f e t c h E
0047020 M A C S E M A C S I F Y . F E
0047040 T C H ) \r ( P U T P R O P S f
0047060 f e t c h E M A C S E M A C
0047100 S I F Y . F F E T C H ) \r ( P U
0047120 T P R O P S F E T C H E M A
0047140 C S E M A C S I F Y . F E T C
0047160 H ) \r ( P U T P R O P S F F E
0047200 T C H E M A C S E M A C S I
0047220 F Y . F F E T C H ) \r ( P U T P
0047240 R O P S r e p l a c e E M A
0047260 C S E M A C S I F Y . R E P L
0047300 A C E ) \r ( P U T P R O P S f
0047320 r e p l a c e E M A C S E M
0047340 A C S I F Y . F R E P L A C E )
0047360 \r ( P U T P R O P S R E P L A
0047400 C E E M A C S E M A C S I F
0047420 Y . R E P L A C E ) \r ( P U T P
0047440 R O P S F R E P L A C E E M
0047460 A C S E M A C S I F Y . F R E
0047500 P L A C E ) \r ( P U T P R O P S
0047520 N E Q E M A C S E M A C S
0047540 I F Y . N E Q ) \r ( P U T P R O
0047560 P S P R O G E M A C S E M
0047600 A C S I F Y . P R O G ) \r ( P U
0047620 T P R O P S S E T A E M A C
0047640 S E M A C S I F Y . S E T A )
0047660 \r ( P U T P R O P S E M A C S
0047700 U S E R C O P Y R I G H T (
0047720 " X e r o x C o r p o r a t i
0047740 o n " 1 9 8 5 1 9 8 6 ) ) \r
0047760 N I L \r
0047764