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