$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>COMPILE.DCOM!1
0000000 ( F I L E C R E A T E D " 5
0000020 - S e p - 8 4 1 3 : 3 1 : 5 4
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > C O M P I L
0000120 E . ; 1 0 ) \r " 4 - S e p -
0000140 8 4 1 9 : 3 0 : 0 8 " b r e
0000160 c o m p i l e d c h a n g e s
0000200 : B C O M P L B C O M P L .
0000220 B O D Y B R E C O M P I L E
0000240 i n " I N T E R L I S P - D
0000260 4 - S e p - 8 4 . . . " \r
0000300 d a t e d " 4 - S e p - 8 4
0000320 1 9 : 4 5 : 0 0 " ) \r ( F I L
0000340 E C R E A T E D " 5 - S E P
0000360 - 8 4 0 0 : 1 4 : 3 1 " < B
0000400 L I S P > C O M P I L E . ; 5
0000420 5 5 2 3 8 c h a n g e s t o
0000440 : ( F N S B R E C O M P I L
0000460 E B C O M P L \r B C O M P L
0000500 . B O D Y ) ( V A R S C O M
0000520 P I L E C O M S ) p r e v i o
0000540 u s d a t e : " 2 3 - A U G
0000560 - 8 4 0 2 : 0 2 : 3 7 " < B
0000600 L I S P > C O M P I L E . ; 2 )
0000620 \r B C O M P L A 0 0 0 1 A 0 0 0
0000640 2 D 1 \r ( N A M E E R R O R
0000660 S E T F 0 F I L E S F
0000700 1 C F I L E F 2 N O B L
0000720 O C K S F L G F 3 O P T I
0000740 O N S S E T ) \0 036 \0 004 002 \0 ` \0
0000760 \0 027 \0 \0 277 ` \0 \0 027 \0 \0 277 P \t \0 \0
0001000 c \0 Q R S \f \0 \0 h 032 020 \0 ( 3 1 Q
0001020 B C O M P L . B O D Y 2 1 Q
0001040 R E S E T O P E N F I L E S )
0001060 \r ( 1 4 Q N O F I X F N S L S
0001100 T 1 1 Q N O F I X F N S L S
0001120 T 5 N O F I X V A R S L S T
0001140 2 N O F I X V A R S L S T )
0001160 \r ( ) \r B C O M P L A 0 0 0 1
0001200 D 1 \r ( N A M E E R R O R S E
0001220 T P 1 M A C R O Y P 0
0001240 M A C R O X F 2 R E S E
0001260 T V A R S L S T F 3 R E S
0001300 E T Y ) \0 337 002 002 002 \0 g \0 \0 d \t
0001320 \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 R 032 c
0001340 004 277 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0 \0
0001360 \n \0 \0 277 R 032 c 004 277 g \0 \0 d \t \0 \0
0001400 032 g \0 \0 ` \0 \0 \n \0 \0 277 R 032 c 004 277
0001420 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0
0001440 \0 277 R 032 c 004 277 g \0 \0 d \t \0 \0 032 g
0001460 \0 \0 ` \0 \0 \n \0 \0 277 R 032 c 004 277 g \0
0001500 \0 d \t \0 \0 032 g \0 \0 \t \0 \0 277 R 032 c
0001520 004 277 g \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0 032
0001540 R 032 032 c 004 021 021 001 R 271 o \0 \0 \0 g \0
0001560 \0 \n \0 \0 H 001 002 027 \0 \0 277 H 002 X 001 002
0001600 027 \0 \0 277 I d R 360 225 277 H 002 c 004 215 R
0001620 \n \0 \0 231 R k I \v \0 \0 H 002 031 277 265 005
0001640 \b \0 \0 022 001 c 006 i 020 \0 ( 3 2 7 Q
0001660 E R R O R ! 3 1 6 Q N L E F
0001700 T 3 0 7 Q T A I L P 2 5 0
0001720 Q B C O M P L A 0 0 0 1 A 0 0
0001740 0 2 2 0 0 Q S E T T O P V A
0001760 L 1 7 1 Q G E T T O P V A L
0002000 1 5 4 Q S E T T O P V A L
0002020 1 4 2 Q G E T T O P V A L 1
0002040 2 5 Q S E T T O P V A L 1 1
0002060 3 Q G E T T O P V A L 7 6 Q
0002100 S E T T O P V A L 6 4 Q G
0002120 E T T O P V A L 4 7 Q S E T
0002140 T O P V A L 3 5 Q G E T T O
0002160 P V A L 2 0 Q S E T T O P V
0002200 A L 6 G E T T O P V A L ) \r
0002220 ( 2 6 7 Q N O F I X F N S L S
0002240 T 2 5 6 Q N O F I X V A R S
0002260 L S T 2 4 5 Q I N T E R N A
0002300 L 2 2 3 Q N O F I X F N S L
0002320 S T 2 2 0 Q N O F I X F N S
0002340 L S T 2 1 4 Q N O F I X V A
0002360 R S L S T 2 1 1 Q N O F I X
0002400 V A R S L S T 1 7 5 Q E X P
0002420 R S L S T 1 6 5 Q E X P R S
0002440 L S T 1 5 1 Q D W I M I F Y
0002460 C O M P F L G 1 4 6 Q D W I
0002500 M I F Y C O M P F L G 1 3 6 Q
0002520 D W I M I F Y C O M P F L G
0002540 1 2 2 Q L A M A 1 1 7 Q L
0002560 A M A 1 0 7 Q L A M A 7 3
0002600 Q L A M S 7 0 Q L A M S
0002620 6 0 Q L A M S 4 4 Q N L A
0002640 M A 4 1 Q N L A M A 3 1 Q
0002660 N L A M A 1 5 Q N L A M L
0002700 1 2 Q N L A M L 2 N L A
0002720 M L ) \r ( 2 4 2 Q ( B C O M
0002740 P L A 0 0 0 1 A 0 0 0 2 ) ) \r B
0002760 C O M P L D 1 \r ( P 2 R E
0003000 S E T Z P 1 R E S E T Y
0003020 P 0 L I S P X H I S T I
0003040 3 O P T I O N S S E T I 2
0003060 N O B L O C K S F L G I 1
0003100 C F I L E I 0 F I L E S
0003120 F 3 L I S P X H I S T F
0003140 4 R E S E T V A R S L S T )
0003160 \0 " 003 002 \0 004 S 021 ! 002 T o \0 \0 \0
0003200 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n \0 \0
0003220 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q E R
0003240 R O R ! 3 0 Q R E S E T R E
0003260 S T O R E 1 6 Q B C O M P L
0003300 A 0 0 0 1 ) \r ( 2 4 Q E R R O
0003320 R 1 3 Q I N T E R N A L ) \r
0003340 ( 1 0 Q ( B C O M P L A 0 0
0003360 0 1 ) ) \r B C O M P L . B O D Y
0003400 A 0 0 0 1 D 1 \r ( N A M E E
0003420 R R O R S E T P 1 T E M
0003440 P 0 X F 2 F I L E S )
0003460 \0 7 002 001 002 \0 h 027 \0 \0 277 R 260 036 d
0003500 001 021 021 001 H ` \0 \0 \n \0 \0 Y 227 I d g
0003520 \0 \0 360 235 277 H \t \0 \0 023 002 003 265 343 h h
0003540 032 020 g \0 \0 d d \f \0 \0 277 260 331 \0 ( 6
0003560 2 Q B C O M P L 1 A 4 1 Q
0003600 C L O S E F 2 3 Q R E A D )
0003620 \r ( 5 5 Q D E F A U L T 3 2
0003640 Q S T O P 2 0 Q F I L E R
0003660 D T B L 3 D F N F L G ) \r (
0003700 ) \r B C O M P L . B O D Y D 1
0003720 \r ( P 2 2 Q L I S P X H I S
0003740 T P 2 1 Q X P 1 5 Q
0003760 M A C R O Y P 1 4 Q M A C
0004000 R O X P 1 2 Q S C R A T C
0004020 H F I L E P 1 1 Q T E M
0004040 P 1 0 Q F I L E R O O T P
0004060 7 B L K F N S P 6 B L
0004100 O C K S P 5 F I R S T P
0004120 4 O T H E R S P 3 C H
0004140 A N G E S P 2 D E F S P
0004160 1 L O C A L V A R S P 0
0004200 S P E C V A R S I 3 O P
0004220 T I O N S S E T I 2 N O B
0004240 L O C K S F L G I 1 C F I
0004260 L E I 0 F I L E S F 2
0004300 3 Q R E S E T V A R S L S T
0004320 F 2 4 Q L C F I L F 2 5
0004340 Q H E R A L D S T R I N G F
0004360 2 6 Q M A K E S Y S D A T E
0004400 ) 001 270 023 004 \0 004 i ` \0 \0 021 242 \v C
0004420 250 h o \0 \0 \0 \n \0 \0 277 A 265 025 g \0 \0
0004440 @ 001 \t \0 \0 _ 020 g \0 \0 ` \0 \0 \f \0 \0
0004460 \t \0 \0 W ( 236 ` \0 \0 g \0 \0 g \0 \0 \v
0004500 \0 \0 _ 024 277 g \0 \0 h @ O 024 h 032 032 032
0004520 032 h h 032 032 W & 032 c & W ( 262 6 g \0
0004540 \0 \b \0 \0 ` \0 \0 @ 032 ` \0 \0 B 223 g \0
0004560 \0 202 g \0 \0 g \0 \0 W * g \0 \0 W , h
0004600 032 032 032 032 032 032 032 032 032 W ( ` \0 \0 \v \0
0004620 \0 277 g \0 \0 ` \0 \0 032 W & 032 c & 021 021
0004640 \r W & _ 032 277 o \0 \0 \0 g \0 \0 \n \0 \0
0004660 O 030 001 002 027 \0 \0 277 O 032 d W & 360 227 277
0004700 O 030 002 c & 260 024 W & \n \0 \0 234 W & k
0004720 O 032 \v \0 \0 O 030 002 031 277 243 \b \0 \0 277 023
0004740 ` \0 \0 ` \0 \0 ` \0 \0 021 0 020 J 260 ' d
0004760 001 021 001 021 O " 001 O " 002 001 \n \0 \0 022 _
0005000 034 277 O 036 265 \t O 034 h 032 _ 202 O 034 &
0005020 _ 036 277 002 003 265 332 O 022 ` \0 \0 \n \0 \0
0005040 \n \0 \0 \n \0 \0 \n \0 \0 027 \0 \0 O 024 262 %
0005060 L 260 023 d 001 021 001 021 O " O 024 ` \0 \0 \v
0005100 \0 \0 023 002 003 265 356 h O 024 ` \0 \0 \v \0 \0
0005120 277 h 274 ` \0 \0 263 " O 020 g \0 \0 033 _ 026
0005140 g \0 \0 360 265 020 O 026 003 264 \v g \0 \0 O 026
0005160 034 264 003 i 027 \0 \0 277 M 260 023 d 001 021 001 021
0005200 O " W ( ` \0 \0 \v \0 \0 023 002 003 265 356 021
0005220 020 022 B 254 N 232 N 001 \t \0 \0 277 N 002 ^ 260
0005240 366 J 262 032 J d 001 001 ` \0 \0 034 252 001 001 J
0005260 001 002 001 \n \0 \0 277 J 002 Z 260 350 W ( 020 \0
0005300 ( 6 5 5 Q C O M P I L E 1 6
0005320 2 2 Q B C O M P L 2 6 0 1 Q
0005340 P R I N T 5 0 7 Q P R I N
0005360 T 4 7 1 Q P R I N T 4 4 0
0005400 Q \ A P P E N D 2 4 3 5 Q
0005420 \ A P P E N D 2 4 3 2 Q \ A
0005440 P P E N D 2 4 2 7 Q \ N C O
0005460 N C 2 3 6 5 Q R C O M P 3
0005500 3 2 5 Q E R R O R ! 3 1 4 Q
0005520 N L E F T 3 0 3 Q T A I L
0005540 P 2 4 7 Q B C O M P L . B O
0005560 D Y A 0 0 0 1 2 1 0 Q P R I
0005600 N T 1 3 3 Q D A T E 7 1 Q
0005620 O P E N F I L E 5 2 Q C O
0005640 M P S E T 4 7 Q P A C K F I
0005660 L E N A M E 3 4 Q N A M E F
0005700 I E L D 2 0 Q C O M P S E T
0005720 ) \r ( 6 4 2 Q D O N T C O M P
0005740 I L E F N S 5 7 6 Q F I L E
0005760 R D T B L 5 5 6 Q D W I M I
0006000 F Y C O M P F L G 5 4 5 Q C
0006020 L I S P 5 3 2 Q C L I S P
0006040 5 2 4 Q F I L E T Y P E 5 1
0006060 5 Q D W I M I F Y C O M P F L
0006100 G 5 0 4 Q F I L E R D T B L
0006120 4 6 6 Q F I L E R D T B L
0006140 4 4 3 Q N O F I X F N S L S T
0006160 4 2 4 Q N O F I X F N S L S
0006200 T 3 4 0 Q L A M S 3 3 5 Q
0006220 N L A M L 3 3 2 Q N L A M
0006240 A 2 5 6 Q D F N F L G 2 4
0006260 4 Q I N T E R N A L 2 1 7 Q
0006300 D F N F L G 2 1 4 Q D F N
0006320 F L G 2 0 5 Q F I L E R D T
0006340 B L 1 6 4 Q d a t e d 1 5
0006360 7 Q i n 1 5 4 Q b c o m p
0006400 l ' d 1 5 0 Q t c o m p l '
0006420 d 1 4 3 Q C O M P V E R S I
0006440 O N 1 3 6 Q C O M P I L E H
0006460 E A D E R 1 3 0 Q F I L E C
0006500 R E A T E D 7 7 Q B C O M P
0006520 L 3 6 6 Q N E W 6 3 Q B
0006540 O T H 6 0 Q B C O M P L . S
0006560 C R A T C H 4 4 Q C O M P I
0006600 L E . E X T 4 1 Q E X T E N
0006620 S I O N 2 7 Q N A M E 3
0006640 S Y S L O C A L V A R S ) \r (
0006660 2 4 1 Q ( B C O M P L . B O D
0006700 Y A 0 0 0 1 ) 1 5 Q ( F %
0006720 \r ) ) \r R E S E T O P E N F I L
0006740 E S A 0 0 0 1 D 1 \r ( I 0
0006760 F I L E S ) \0 017 \0 \0 \0 001 @ 206 d
0007000 001 \t \0 \0 277 002 003 265 370 h 020 \0 ( 6 C
0007020 L O S E F ? ) \r N I L \r ( ) \r R
0007040 E S E T O P E N F I L E S D 1
0007060 \r ( P 4 F I 0 F I L E
0007100 S F 5 R E S E T V A R S L
0007120 S T ) \0 ? 005 001 \0 001 g \0 \0 @ 021 A
0007140 004 H 265 023 I 022 b \0 h 032 032 h h 032 032 U
0007160 032 c \n @ 020 003 243 H 274 h 204 H 001 274 H 002
0007200 270 L g \0 \0 \n \0 \0 273 J 265 \t K h 032 Z
0007220 271 260 320 K & 272 260 313 \0 ( 5 5 Q O P
0007240 E N F I L E ) \r ( 5 2 Q I N P
0007260 U T 2 R E S E T O P E N F I
0007300 L E S A 0 0 0 1 ) \r ( ) \r B C O
0007320 M P L 1 A 0 0 0 1 D 1 \r ( N A
0007340 M E E R R O R S E T L ( 2
0007360 E R R O R S E T . W 1 E R
0007400 R O R S E T . V 0 E R R O R
0007420 S E T . U ) P 0 T E M F
0007440 1 X ) \0 A 001 001 \0 003 h 027 \0 \0
0007460 277 021 020 \0 Q 265 004 260 0 003 262 026 Q 001 270 Q
0007500 002 c 002 277 H g \0 \0 d d \f \0 \0 277 260 346
0007520 Q ` \0 \0 \n \0 \0 X 230 H d g \0 \0 360 262
0007540 346 277 Q \t \0 \0 277 023 h h 032 020 \0 ( 7 1
0007560 Q C L O S E F 5 2 Q R E A
0007600 D 4 0 Q B C O M P L 1 A ) \r
0007620 ( 6 1 Q S T O P 4 7 Q F I
0007640 L E R D T B L 3 3 Q D E F A
0007660 U L T 3 D F N F L G ) \r ( )
0007700 \r B C O M P L 1 D 1 \r ( P 1
0007720 M A C R O Y P 0 M A C R
0007740 O X I 0 X F 2 R E S
0007760 E T V A R S L S T ) \0 C 002 001 \0
0010000 001 g \0 \0 ` \0 \0 032 R 032 c 004 021 021 001 R
0010020 Y o \0 \0 \0 g \0 \0 \n \0 \0 H 001 002 027 \0
0010040 \0 277 I d R 360 225 277 H 002 c 004 215 R \n \0
0010060 \0 231 R k I \v \0 \0 H 002 031 277 265 005 \b \0
0010100 \0 001 020 \0 ( 7 7 Q E R R O R !
0010120 6 6 Q N L E F T 5 7 Q T A
0010140 I L P 3 1 Q B C O M P L 1 A
0010160 0 0 0 1 ) \r ( 3 7 Q D F N F L
0010200 G 2 6 Q I N T E R N A L 5
0010220 D F N F L G 2 D F N F L G
0010240 ) \r ( 2 3 Q ( D U M M Y . F
0010260 O R . E R R O R S E T ) ) \r B C
0010300 O M P L 1 A A 0 0 0 1 D 1 \r (
0010320 N A M E E R R O R S E T L
0010340 ( 2 E R R O R S E T . W 1
0010360 E R R O R S E T . V 0 E R R
0010400 O R S E T . U ) P 3 X P
0010420 2 F I R S T F L G 0 P 1
0010440 C O M P C O P Y F L G 0 P
0010460 0 C O M P E V A L F L G 0 F
0010500 4 C O M P E V A L F L G F
0010520 5 C O M P C O P Y F L G F
0010540 6 F I R S T F L G F 7
0010560 C O U T F I L E F 1 0 Q X
0010600 ) 001 024 004 005 \0 003 ` \0 \0 027 \0 \0 277 h
0010620 027 \0 \0 277 T U g \0 \0 360 V W 020 002 021 004
0010640 003 K 003 265 \a 023 h h 032 020 003 001 003 233 K 003
0010660 001 I H J \f \0 \0 261 \0 334 K 003 001 d g \0
0010700 \0 360 225 277 h Y 261 \0 315 d g \0 \0 360 245 d
0010720 g \0 \0 360 236 277 U g \0 \0 360 242 261 \0 270 i
0010740 Y 261 \0 262 d g \0 \0 360 262 032 277 U g \0 \0
0010760 360 232 K 003 002 001 \t \0 \0 264 003 i 271 K 003 002
0011000 261 \0 225 d g \0 \0 360 232 277 V 242 261 \0 210 i
0011020 Z 261 \0 202 d g \0 \0 360 224 277 h Z 260 v d
0011040 g \0 \0 360 224 277 h X 260 k d g \0 \0 360 245
0011060 d g \0 \0 360 227 277 T 262 \ i X 260 W d g
0011100 \0 \0 360 262 025 277 T 232 K 003 002 001 \t \0 \0 264
0011120 003 i 270 K 003 002 260 ? d g \0 \0 360 226 277 i
0011140 027 \0 \0 260 0 d g \0 \0 360 225 277 K 003 002 260
0011160 & d g \0 \0 360 263 035 d g \0 \0 360 263 026 d
0011200 g \0 \0 360 255 277 K 003 001 o \0 \0 \0 032 W 016
0011220 \n \0 \0 277 K 003 002 [ 261 377 \n \0 ( 4 1 2
0011240 Q P R I N T 3 0 6 Q E V A
0011260 L 1 6 0 Q E V A L 5 6 Q
0011300 B C O M P L 1 A ) \r ( 3 7 2 Q
0011320 E V A L @ L O A D 3 6 3 Q D
0011340 O E V A L @ L O A D 3 5 4 Q
0011360 D O N T E V A L @ L O A D 3 4
0011400 0 Q E V A L @ L O A D W H E N
0011420 3 3 2 Q D F N F L G 3 2 3
0011440 Q C O M P I L E R V A R S 2
0011460 7 1 Q E V A L @ C O M P I L E
0011500 W H E N 2 5 3 Q E V A L @ C
0011520 O M P I L E 2 4 5 Q D O E V
0011540 A L @ C O M P I L E 2 3 2 Q
0011560 D O N T E V A L @ C O M P I L E
0011600 2 1 7 Q N O T F I R S T 1
0011620 7 6 Q F I R S T 1 4 7 Q D
0011640 E F A U L T 1 3 7 Q C O P Y
0011660 W H E N 1 2 1 Q D E F A U L
0011700 T 1 1 2 Q C O P Y 1 0 4 Q
0011720 D O C O P Y 7 0 Q D O N T
0011740 C O P Y 2 0 Q D E F A U L T
0011760 1 2 Q F I L E P K G F L G
0012000 5 D F N F L G 2 D F N F L
0012020 G ) \r ( 4 0 4 Q ( U N R E C
0012040 O G N I Z E D D E C L A R E
0012060 T A G ) ) \r B C O M P L 1 A D
0012100 1 \r ( P 2 M A C R O Y P
0012120 1 M A C R O X P 0 T E M
0012140 I 3 F I R S T F L G I
0012160 2 C O M P E V A L F L G I
0012200 1 C O M P C O P Y F L G I
0012220 0 X F 3 R E S E T V A R
0012240 S L S T F 4 F I R S T F
0012260 5 C H A N G E S F 6 D
0012300 E F S F 7 O T H E R S F
0012320 1 0 Q C O M M E N T F L G )
0012340 001 030 003 006 \0 004 021 020 \0 @ 003 001 d g \0
0012360 \0 360 262 035 277 @ g \0 \0 \n \0 \0 U \n \0 \0
0012400 c \n 277 T @ h 032 \n \0 \0 c \b 277 260 x d
0012420 g \0 \0 360 262 027 277 A d g \0 \0 360 262 i 277
0012440 V @ 002 \n \0 \0 c \f 277 260 \ d g \0 \0 360
0012460 262 k 277 g \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0
0012500 032 S 032 032 c 006 021 021 002 S 272 o \0 \0 \0 g
0012520 \0 \0 \n \0 \0 I 001 002 027 \0 \0 277 I 002 Y 001
0012540 002 027 \0 \0 277 J d S 360 225 277 I 002 c 006 215
0012560 S \n \0 \0 231 S k J \v \0 \0 I 002 031 277 243
0012600 \b \0 \0 277 023 A i 360 262 j C i 360 262 Z T
0012620 @ h 032 \n \0 \0 c \b 277 260 Y d g \0 \0 360
0012640 263 025 d g \0 \0 360 254 d g \0 \0 360 246 d g
0012660 \0 \0 360 262 034 277 @ 002 001 ` \0 \0 032 027 \0 \0
0012700 277 A d g \0 \0 360 262 277 277 i b 002 260 271 277
0012720 @ 003 001 W 020 360 221 h 020 A d g \0 \0 360 262
0012740 247 277 i b 002 260 241 W 016 @ h 032 \n \0 \0 c
0012760 016 277 B i 360 264 343 @ \t \0 \0 277 260 333 \0 (
0013000 4 2 3 Q E V A L 4 0 7 Q \
0013020 N C O N C 2 2 5 6 Q \ N C O
0013040 N C 2 2 3 3 Q E R R O R !
0013060 2 2 3 Q N L E F T 2 1 4 Q
0013100 T A I L P 1 5 5 Q B C O M P
0013120 L 1 A A 0 0 0 1 7 6 Q \ N C
0013140 O N C 2 4 2 Q \ N C O N C 2
0013160 3 0 Q \ N C O N C 2 2 4 Q
0013200 F I L E C H A N G E S ) \r ( 3
0013220 6 6 Q D E F A U L T 3 3 6 Q
0013240 D E F A U L T 3 3 0 Q N O
0013260 F I X V A R S L S T 3 2 4 Q
0013300 N O F I X V A R S L S T 3 1 2
0013320 Q R P A Q Q 3 0 4 Q R P A
0013340 Q 2 7 6 Q S E T Q Q 2 6 7
0013360 Q S E T Q 1 7 4 Q F I L E
0013400 P K G F L G 1 6 3 Q D F N F
0013420 L G 1 5 2 Q I N T E R N A L
0013440 1 3 0 Q F I L E P K G F L G
0013460 1 2 5 Q F I L E P K G F L G
0013500 1 2 1 Q D F N F L G 1 1 6
0013520 Q D F N F L G 1 0 7 Q D E
0013540 C L A R E : 6 4 Q D E F A U
0013560 L T 5 3 Q D E F I N E Q 2
0013600 1 Q F N S 1 1 Q F I L E C
0013620 R E A T E D ) \r ( 1 4 7 Q (
0013640 D U M M Y . F O R . E R R O R S
0013660 E T ) ) \r B C O M P L 2 A 0 0 0
0013700 1 D 1 \r ( N A M E E R R O R
0013720 S E T L ( 2 E R R O R S E
0013740 T . W 1 E R R O R S E T . V
0013760 0 E R R O R S E T . U ) P
0014000 1 2 Q T E M 2 P 1 1 Q
0014020 L S T P 1 0 Q T E M P
0014040 7 X P 6 L O C A L F R E
0014060 E V A R S P 5 E N T R I E
0014100 S P 4 B L K A P P L Y F N
0014120 S P 3 B N D L E V P 2
0014140 B L K N A M E P 1 L O C
0014160 A L V A R S P 0 S P E C V
0014200 A R S F 1 4 Q R E S E T V
0014220 A R S L S T F 1 5 Q B L O
0014240 C K F 1 6 Q F I L E M A P
0014260 L S T F 1 7 Q D E F S F
0014300 2 0 Q B L K F N S F 2 1
0014320 Q F N S F 2 2 Q S P E C
0014340 V A R S F 2 3 Q L O C A L
0014360 V A R S F 2 4 Q R E S E T
0014400 Y F 2 5 Q B L O C K S )
0014420 002 $ \f \n \0 003 g \0 \0 d \t \0 \0 032 g \0
0014440 \0 ` \0 \0 \n \0 \0 277 W 030 032 c 030 277 g \0
0014460 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277
0014500 W 030 032 c 030 277 g \0 \0 d \t \0 \0 032 g \0
0014520 \0 ` \0 \0 \n \0 \0 277 W 030 032 c 030 277 g \0
0014540 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277
0014560 W 030 032 c 030 277 g \0 \0 d \t \0 \0 032 g \0
0014600 \0 ` \0 \0 \n \0 \0 277 W 030 032 c 030 277 g \0
0014620 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277
0014640 W 030 032 c 030 277 W $ W & W 032 001 j 021 204
0014660 \v J 246 i \t \0 \0 261 \0 337 i \t \0 \0 261 \0
0014700 330 d 002 001 g \0 \0 360 231 277 O 016 002 002 001 \t
0014720 \0 \0 200 002 _ 020 277 O 016 001 d g \0 \0 360 245
0014740 d g \0 \0 360 230 277 O 016 \t \0 \0 261 \0 252 277
0014760 O 016 001 O 016 d 002 003 242 002 260 024 001 \t \0 \0
0015000 _ 024 003 227 O 020 O 024 \n \0 \0 201 O 020 \n \0
0015020 \0 261 \0 205 W 034 262 031 O 016 W 034 \n \0 \0 _
0015040 020 263 b O 016 o \0 \0 \0 032 \t \0 \0 260 i O
0015060 016 W 036 \n \0 \0 _ 020 262 ' W * 214 d 001 _
0015100 026 277 O 020 001 O 026 002 034 245 002 003 265 361 i 201
0015120 277 h 262 1 O 020 W 036 \n \0 \0 c 036 260 % O
0015140 016 i \n \0 \0 _ 020 \t \0 \0 262 h O 016 O 020
0015160 i h 032 032 032 _ 020 277 O 016 o \0 \0 \0 032 \t
0015200 \0 \0 277 O 022 O 020 h 032 \n \0 \0 _ 022 277 O
0015220 016 W 032 c 277 W 032 002 c 032 265 016 O 022
0015240 263 > J 262 > J h 032 c 032 001 _ 016 003 265 003
0015260 202 261 377 020 W 034 242 261 377 x J 222 261 377 X O
0015300 016 W " \n \0 \0 222 261 377 M O 016 h 032 _ 020
0015320 260 262 O 016 o \0 \0 \0 032 \t \0 \0 260 272 J 265
0015340 I O 022 264 Q W 034 262 023 O 022 d 001 002 001 262
0015360 + 001 001 W " \n \0 \0 262 O 022 d 001 001 `
0015400 \0 \0 \n \0 \0 263 036 001 001 O 022 001 002 001 O 022
0015420 001 002 002 001 \v \0 \0 207 O 022 001 001 i \n \0 \0
0015440 277 O 022 002 _ 022 260 275 O 022 h _ 022 277 M \v
0015460 \0 \0 277 h 022 c ( i 020 \0 ( 1 0 3 3 Q
0015500 B L O C K C O M P I L E 1 1
0015520 0 1 1 Q B R E C O M P I L E 1
0015540 1 0 0 0 Q C O M P I L E 1
0015560 7 5 6 Q M E M B 7 4 1 Q R
0015600 E C O M P ? 7 0 5 Q C O M P
0015620 E M 6 5 7 Q R E C O M P ?
0015640 5 6 5 Q \ N C O N C 2 5 5 3
0015660 Q C O M P E M 5 2 3 Q E X
0015700 P R P 5 1 6 Q V I R G I N F
0015720 N 5 0 4 Q D R E M O V E 4
0015740 3 7 Q F A S S O C 4 2 6 Q
0015760 C O M P E M 4 1 0 Q B R E C
0016000 O M P I L E 3 3 7 2 Q S E T
0016020 3 6 4 Q \ A P P E N D 2 3
0016040 5 1 Q E V A L 3 2 5 Q E V
0016060 A L 2 7 3 Q E V A L 2 4 7
0016100 Q L O C A L V A R S 2 4 0 Q
0016120 S P E C V A R S 2 1 0 Q S
0016140 E T T O P V A L 1 7 6 Q G E
0016160 T T O P V A L 1 6 0 Q S E T
0016200 T O P V A L 1 4 6 Q G E T T
0016220 O P V A L 1 3 0 Q S E T T O
0016240 P V A L 1 1 6 Q G E T T O P
0016260 V A L 1 0 0 Q S E T T O P V
0016300 A L 6 6 Q G E T T O P V A L
0016320 5 0 Q S E T T O P V A L 3
0016340 6 Q G E T T O P V A L 2 0 Q
0016360 S E T T O P V A L 6 G E T
0016400 T O P V A L ) \r ( 7 5 3 Q D O
0016420 N T C O M P I L E F N S 3 1 5
0016440 Q L O C A L V A R S 3 0 7 Q
0016460 S P E C V A R S 2 6 0 Q *
0016500 2 0 5 Q D O N T C O M P I L
0016520 E F N S 2 0 2 Q D O N T C O
0016540 M P I L E F N S 1 7 2 Q D O
0016560 N T C O M P I L E F N S 1 5 5
0016600 Q L I N K F N S 1 5 2 Q L
0016620 I N K F N S 1 4 2 Q L I N K
0016640 F N S 1 2 5 Q N O L I N K F
0016660 N S 1 2 2 Q N O L I N K F N
0016700 S 1 1 2 Q N O L I N K F N S
0016720 7 5 Q B L K L I B R A R Y
0016740 7 2 Q B L K L I B R A R Y 6
0016760 2 Q B L K L I B R A R Y 4 5
0017000 Q R E T F N S 4 2 Q R E T
0017020 F N S 3 2 Q R E T F N S 1
0017040 5 Q G L O B A L V A R S 1 2
0017060 Q G L O B A L V A R S 2 G
0017100 L O B A L V A R S ) \r ( 7 0 1
0017120 Q ( n o t c o m p i l e a b
0017140 l e ) 5 4 7 Q ( n o t o n
0017160 f i l e , c o m p i l i n g
0017200 i n c o r e d e f i n i t
0017220 i o n ) 4 2 2 Q ( n o t c
0017240 o m p i l e a b l e ) ) \r B C O
0017260 M P L 2 D 1 \r ( P 2 R E S
0017300 E T Z P 1 R E S E T Y P
0017320 0 L I S P X H I S T I 1
0017340 F I L E M A P L S T I 0
0017360 B L O C K F 3 L I S P X H
0017400 I S T F 4 R E S E T V A R
0017420 S L S T ) \0 " 003 002 \0 002 S 021 ! 002
0017440 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0
0017460 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3
0017500 5 Q E R R O R ! 3 0 Q R E
0017520 S E T R E S T O R E 1 6 Q B
0017540 C O M P L 2 A 0 0 0 1 ) \r ( 2 4
0017560 Q E R R O R 1 3 Q I N T E
0017600 R N A L ) \r ( 1 0 Q ( D U M
0017620 M Y . F O R . E R R O R S E T )
0017640 ) \r B C O M P L 3 D 1 \r ( P
0017660 0 F I L E I 2 S C R A T
0017700 C H F I L E I 1 F I L E S
0017720 I 0 C F I L E F 1 R
0017740 E S E T S T A T E F 2 L C
0017760 F I L F 3 C O U T F I L E
0020000 F 4 L S T F I L F 5
0020020 L S T F I L 1 ) \0 v 001 005 001 003 B
0020040 262 031 Q 252 B R j B \t \0 \0 \f \0 \0 277 B
0020060 \t \0 \0 277 B \t \0 \0 277 R 265 031 T 222 U 265
0020100 016 @ 265 005 A 260 8 \t \0 \0 277 260 371 \t \0 \0
0020120 277 260 360 \t \0 \0 277 Q 262 344 R \t \0 \0 277 260
0020140 335 d 001 021 001 \0 Q 263 024 g \0 \0 H i \n \0
0020160 \0 ` \0 \0 \n \0 \0 \n \0 \0 277 023 002 003 265 343
0020200 Q h 360 264 020 S \t \0 \0 j 360 h 360 264 006 S
0020220 \t \0 \0 020 \0 ( 1 6 3 Q T E R P R
0020240 I 1 5 1 Q P O S I T I O N
0020260 1 3 2 Q / S E T A T O M V A L
0020300 1 2 7 Q R E M O V E 1 2 1
0020320 Q N A M E F I E L D 7 6 Q
0020340 D E L F I L E 6 6 Q C L O S
0020360 E F ? 6 0 Q C L O S E F ?
0020400 5 2 Q C L O S E F ? 3 0 Q
0020420 D E L F I L E 2 3 Q C L O S
0020440 E F ? 1 6 Q C O P Y B Y T E
0020460 S 1 3 Q G E T F I L E P T R
0020500 ) \r ( 1 2 4 Q N O T C O M P I
0020520 L E D F I L E S 1 1 4 Q N O
0020540 T C O M P I L E D F I L E S ) \r
0020560 ( ) \r B L O C K : D 1 \r ( I
0020600 0 X F 0 B L O C K S )
0020620 \0 \v \0 001 003 001 P @ h 032 \n \0 \0 c \0 020
0020640 \0 ( 6 \ N C O N C 2 ) \r N I L
0020660 \r ( ) \r B R E C O M P I L E A 0
0020700 0 0 1 A 0 0 0 2 A 0 0 0 3 D 1
0020720 \r ( N A M E E R R O R S E T
0020740 F 0 C F I L E F 1 F I
0020760 L E . C O M ) \0 030 \0 002 002 \0 P 265
0021000 003 Q g \0 \0 g \0 \0 h o \0 \0 \0 \r 005 \0
0021020 \0 c \0 i 020 \0 ( 2 2 Q O P E N F
0021040 I L E ) \r ( 1 1 Q O L D 6
0021060 I N P U T ) \r ( 1 6 Q ( ( T
0021100 Y P E B I N A R Y ) ) ) \r B R
0021120 E C O M P I L E A 0 0 0 1 A 0 0
0021140 0 2 D 1 \r ( N A M E E R R O
0021160 R S E T P 4 1 Q B L O C K
0021200 P 3 5 Q X P 3 4 Q D
0021220 O N E L S T P 3 3 Q F N L
0021240 S T P 3 2 Q L D F L G P
0021260 3 1 Q V A R L S T P 3 0
0021300 Q F L P 2 4 Q F I L E
0021320 P 1 5 Q S C R A T C H F I L
0021340 E P 1 4 Q A D R L S T P
0021360 1 3 Q T E M P 1 2 Q F
0021400 I L E . C O M P 1 1 Q F I
0021420 L E P 1 0 Q B L O C K S
0021440 P 7 B L K F N S P 6 F
0021460 N L S T P 5 F I L E M A P
0021500 L S T P 4 F I R S T P
0021520 3 O T H E R S P 2 C H A
0021540 N G E S P 1 L O C A L V A
0021560 R S P 0 S P E C V A R S
0021600 F 4 2 Q F N S F 4 3 Q
0021620 F I L E S F 4 4 Q C F I L
0021640 E F 4 5 Q L C F I L F
0021660 4 6 Q R E S E T V A R S L S T
0021700 F 4 7 Q N O B L O C K S F
0021720 L G F 5 0 Q R E A D B U F
0021740 F 5 1 Q H E R A L D S T R
0021760 I N G F 5 2 Q M A K E S Y
0022000 S D A T E ) 004 244 " \t 002 \0 ` \0 \0
0022020 027 \0 \0 277 ` \0 \0 027 \0 \0 277 i 027 \0 \0 `
0022040 \0 \0 021 342 017 W H 250 W D 245 ` \0 \0 c D
0022060 277 g \0 \0 \b \0 \0 h 032 032 h 032 W L 032 c
0022100 L 277 W F \t \0 \0 c F 021 A 024 O 003 265
0022120 ` O " 022 _ 026 265 ? W F 001 \t \0 \0 _ 022
0022140 277 g \0 \0 O 022 g \0 \0 ` \0 \0 \f \0 \0 _
0022160 024 277 W D g \0 \0 360 222 261 \0 310 o \0 \0 \0
0022200 \t \0 \0 262 V W H \t \0 \0 222 261 \0 300 W H
0022220 \t \0 \0 _ 026 i \n \0 \0 277 o \0 \0 \0 i \n
0022240 \0 \0 277 W N 242 261 003 350 g \0 \0 261 003 345 001
0022260 _ ( \t \0 \0 263 024 O ( _ & 277 O $ 265 023
0022300 O & h 032 _ $ _ " 277 O 002 _ 261 377
0022320 200 O & & _ $ 277 260 362 ` \0 \0 g \0 \0 W
0022340 H 265 004 O 024 o \0 \0 \0 o \0 \0 \0 W F d
0022360 003 223 d 002 240 001 o \0 \0 \0 h 032 032 032 032 032
0022400 \v \0 \0 g \0 \0 360 263 : ` \0 \0 g \0 \0 o
0022420 \0 \0 \0 W F h 032 032 \v \0 \0 g \0 \0 360 262
0022440 w W P 001 d g \0 \0 360 253 d g \0 \0 360 245
0022460 d g \0 \0 360 225 277 W P 002 c P 277 \b \0 \0
0022500 277 g \0 \0 c D 277 h c H 277 h o \0 \0 \0
0022520 \n \0 \0 277 O 024 g \0 \0 g \0 \0 h o \0 \0
0022540 \0 \r 005 \0 \0 c J 277 ` \0 \0 g \0 \0 g \0
0022560 \0 \v \0 \0 _ 032 277 g \0 \0 W H W F O 032
0022600 h 032 032 032 032 h h 032 032 W L 032 c L 277 021
0022620 @ 030 W F 260 \ o \0 \0 \0 i \n \0 \0 277 i
0022640 d \n \0 \0 c H 277 261 376 325 d 001 _ 0 277 g
0022660 \0 \0 g \0 \0 021 " 034 O 0 j \n \0 \0 277 O
0022700 0 \t \0 \0 277 O 0 d d i \n \0 \0 \n \0 \0
0022720 \t \0 \0 032 O 8 \t \0 \0 032 022 _ * 277 O ,
0022740 265 \t O * h 032 _ . 202 O * & _ , 277 002
0022760 003 265 271 O . 022 275 021 0 022 M 260 b d 001 021
0023000 001 035 021 0 027 O : 001 002 260 < d 001 _ 034 277
0023020 021 0 O 034 002 260 031 d 001 001 _ < 277 O >
0023040 265 \t O < h 032 _ @ 202 O < & _ > 277 002
0023060 003 265 347 O @ 022 _ * 003 232 O , 265 8 O *
0023100 _ . _ , 277 002 003 265 304 O . 022 022 _ 003
0023120 232 O " 265 027 O _ $ _ " 277 002 003 265 237
0023140 O $ 022 276 021 0 022 M 260 2 \t \0 \0 _ " O
0023160 031 260 351 \t \0 \0 _ , O * 031 260 310 d 001
0023200 021 001 035 O : 002 \t \0 \0 022 _ 003 232 O "
0023220 265 S O _ $ _ " 277 002 003 265 343 O $ 022
0023240 ` \0 \0 \n \0 \0 027 \0 \0 277 ` \0 \0 ` \0 \0
0023260 ` \0 \0 N ` \0 \0 \n \0 \0 \n \0 \0 \n \0 \0
0023300 \n \0 \0 027 \0 \0 277 W J 242 261 \0 263 g \0 \0
0023320 \b \0 \0 ` \0 \0 W F 032 ` \0 \0 W N 235 g
0023340 \0 \0 214 \t \0 \0 _ " O 031 260 255 g \0 \0
0023360 h 032 032 032 032 032 W D d g \0 \0 360 227 277 g
0023400 \0 \0 h 032 260 [ d g \0 \0 360 225 277 g \0 \0
0023420 260 025 d g \0 \0 360 243 d i 360 224 277 g \0 \0
0023440 203 277 g \0 \0 021 0 022 N 260 ( d 001 021 001 035
0023460 O : W D \n \0 \0 022 262 030 d 001 _ 277 O
0023500 " 265 \t O h 032 _ $ 202 O & _ " 277
0023520 002 003 265 331 O $ 022 265 \a g \0 \0 h 032 032 g
0023540 \0 \0 W R g \0 \0 W T h 032 032 032 032 \n \0
0023560 \0 \n \0 \0 W J ` \0 \0 \v \0 \0 277 N 217 d
0023600 001 021 001 035 O : d \t \0 \0 \n \0 \0 023 002 003
0023620 265 357 O 032 262 % K 260 023 d 001 021 001 035 O :
0023640 O 032 ` \0 \0 \v \0 \0 023 002 003 265 356 h O 032
0023660 ` \0 \0 \v \0 \0 277 h 273 L 260 023 d 001 021 001
0023700 035 O : W J ` \0 \0 \v \0 \0 023 002 003 265 356
0023720 ` \0 \0 263 " O 022 g \0 \0 033 _ 036 g \0 \0
0023740 360 265 020 O 036 003 264 \v g \0 \0 O 036 034 264 003
0023760 i 027 \0 \0 277 W D g \0 \0 360 245 W H \t \0
0024000 \0 277 W N 263 F O 020 260 ? d 001 021 001 ! O
0024020 B d 001 263 ! M \n \0 \0 260 , d 001 021 001 035
0024040 O : 004 l 004 361 h 360 264 \t O : W D \n \0
0024060 \0 022 244 002 003 265 346 h 226 O B M \n \0 \0 204
0024100 O B \t \0 \0 023 002 003 265 302 N 260 < d 001 021
0024120 001 035 O : O 016 034 263 . O : ` \0 \0 034 263
0024140 & O : W D \n \0 \0 262 026 O : d M \n \0
0024160 \0 _ 026 002 001 O 026 002 002 001 \v \0 \0 205 O :
0024200 i \n \0 \0 277 023 002 003 265 305 W J 260 g \0
0024220 \0 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 i
0024240 \t \0 \0 277 W F h W N \v \0 \0 022 h 032 020
0024260 \0 ( 2 2 3 6 Q B C O M P L . B
0024300 O D Y 2 2 2 5 Q T E R P R I
0024320 2 2 2 0 Q P R I N 1 2 2 0
0024340 7 Q P R I N 1 2 1 6 6 Q B
0024360 R E C O M P I L E 1 2 1 5 7 Q
0024400 C O M P I L E 1 2 1 4 3 Q
0024420 B R E C O M P I L E 3 2 1 3 2
0024440 Q R E C O M P ? 2 0 6 7 Q
0024460 B R E C O M P I L E 1 2 0 6 1
0024500 Q B C O M P L 2 2 0 4 3 Q
0024520 R E C O M P ? 2 0 1 3 Q B C
0024540 O M P L 2 1 7 6 3 Q I N P U
0024560 T 1 6 7 5 Q P R I N T 1 6
0024600 5 0 Q P R I N T 1 6 3 2 Q
0024620 P R I N T 1 5 7 7 Q R C O M
0024640 P 3 1 5 7 4 Q V I R G I N F
0024660 N 1 5 5 6 Q P R I N T 1 5
0024700 4 6 Q \ N C O N C 2 1 5 4 3
0024720 Q \ N C O N C 2 1 4 5 1 Q
0024740 R E C O M P ? 1 3 3 0 Q L A
0024760 S T 1 3 0 5 Q D A T E 1 2
0025000 6 5 Q \ A P P E N D 2 1 2 6
0025020 2 Q \ A P P E N D 2 1 2 5 7
0025040 Q \ A P P E N D 2 1 2 5 4 Q
0025060 \ A P P E N D 2 1 2 3 0 Q
0025100 \ N C O N C 2 1 1 7 3 Q B C
0025120 O M P L 1 1 1 5 1 Q L A S T
0025140 1 1 3 7 Q L A S T 7 1 3 Q
0025160 D R E V E R S E 7 0 5 Q L
0025200 O A D F N S C A N 7 0 2 Q G
0025220 E T F I L E M A P 6 7 7 Q N
0025240 A M E F I E L D 6 6 6 Q I N
0025260 P U T 6 6 0 Q S E T F I L E
0025300 P T R 6 2 6 Q R E A D 6 2
0025320 0 Q P R I N 1 5 4 6 Q O P
0025340 E N F I L E 5 2 7 Q O P E N
0025360 F I L E 5 0 5 Q C O M P S E
0025400 T 4 6 2 Q E R R O R ! 4 1
0025420 5 Q A S K U S E R 3 6 5 Q
0025440 A S K U S E R 2 4 7 Q R A N
0025460 D A C C E S S P 2 2 4 Q P R
0025500 I N 1 2 1 3 Q P R I N 1 2
0025520 0 5 Q C L O S E F 1 7 4 Q
0025540 R A N D A C C E S S P 1 6 5 Q
0025560 B R E C O M P I L E A 0 0 0 1
0025600 A 0 0 0 2 A 0 0 0 3 1 4 1 Q
0025620 P A C K F I L E N A M E 1 2 0
0025640 Q N A M E F I E L D 7 1 Q
0025660 R E S E T O P E N F I L E S 5
0025700 1 Q I N P U T ) \r ( 2 2 0 3 Q
0025720 B C O M P L 2 1 2 0 Q D O
0025740 N T C O M P I L E F N S 1 7 5
0025760 4 Q A L L 1 7 4 6 Q D W I
0026000 M I F Y C O M P F L G 1 7 3 5
0026020 Q C L I S P 1 7 2 2 Q C L
0026040 I S P 1 7 1 4 Q F I L E T Y
0026060 P E 1 7 0 5 Q D W I M I F Y
0026100 C O M P F L G 1 6 7 2 Q F I
0026120 L E R D T B L 1 6 4 5 Q F I
0026140 L E R D T B L 1 6 2 7 Q F I
0026160 L E R D T B L 1 5 5 3 Q F I
0026200 L E R D T B L 1 5 3 1 Q d a
0026220 t e d 1 5 2 4 Q i n 1 5 1
0026240 6 Q n o t h i n g 1 4 2 7 Q
0026260 e x p l i c i t l y : 1 4 2
0026300 2 Q e x p r s : 1 4 1 0 Q
0026320 E X P R S 1 4 0 2 Q c h a n
0026340 g e s : 1 3 7 4 Q C H A N G
0026360 E S 1 3 6 4 Q A L L 1 3 5
0026400 6 Q A L L 1 3 4 2 Q b r e
0026420 c o m p i l e d 1 3 2 4 Q r
0026440 e c o m p i l e d 1 3 1 6 Q
0026460 C O M P V E R S I O N 1 3 1 0
0026500 Q C O M P I L E H E A D E R
0026520 1 3 0 2 Q F I L E C R E A T E
0026540 D 1 2 7 0 Q N O F I X F N S
0026560 L S T 1 2 5 1 Q N O F I X F
0026600 N S L S T 1 2 4 5 Q L A M S
0026620 1 2 4 2 Q N L A M L 1 2 3
0026640 7 Q N L A M A 1 2 3 3 Q N
0026660 O F I X V A R S L S T 1 2 2 5
0026700 Q N O F I X V A R S L S T 6
0026720 4 7 Q E X P R E S S I O N S
0026740 6 4 4 Q C O M P I L I N G 5
0026760 5 4 Q B C O M P L 3 5 4 3 Q
0027000 N E W 5 4 0 Q B O T H 5
0027020 3 5 Q B C O M P L . S C R A T
0027040 C H 5 1 6 Q N E W 5 1 3 Q
0027060 O U T P U T 4 6 6 Q A L L
0027100 4 4 6 Q S T F 4 4 0 Q F
0027120 4 3 2 Q S T 4 2 0 Q Y
0027140 4 0 1 Q Y 3 7 6 Q D W I M
0027160 W A I T 3 7 0 Q Y 3 2 1 Q
0027200 Y 3 1 6 Q D W I M W A I T
0027220 2 3 6 Q T C O M P L 1 5 1
0027240 Q A L L 1 3 6 Q C O M P I
0027260 L E . E X T 1 3 3 Q E X T E
0027300 N S I O N 1 2 6 Q N A M E
0027320 4 6 Q I N P U T 4 0 Q R E
0027340 C O M P I L E D E F A U L T 2
0027360 4 Q S Y S L O C A L V A R S
0027400 2 1 Q B U I L D M A P F L G
0027420 1 4 Q N O F I X V A R S L S T
0027440 1 1 Q N O F I X V A R S L S
0027460 T 5 N O F I X F N S L S T
0027500 2 N O F I X F N S L S T ) \r (
0027520 2 2 1 4 Q " i n s t e a d
0027540 . " 6 1 4 Q " F i l e t o
0027560 u s e f o r C F I L E (
0027600 s o u r c e o f c o m p i l
0027620 e d d e f i n i t i o n s n
0027640 o t b e i n g r e c o m p i
0027660 l e d ) : " 5 2 3 Q ( ( T
0027700 Y P E B I N A R Y ) ) 5 0 2
0027720 Q ( S T % \r ) 4 0 5 Q
0027740 " J u s t f o r g e t a b o
0027760 u t c o m p i l i n g " 3 5
0030000 4 Q " i n s t e a d " 3 3 7
0030020 Q " c o m p i l e a l l
0030040 f u n c t i o n s o n " 3
0030060 3 3 Q " n o t f o u n d ; "
0030100 2 2 0 Q " n o t R A N D
0030120 A C C E S S P , u s i n g "
0030140 1 6 2 Q ( B R E C O M P I L
0030160 E A 0 0 0 1 A 0 0 0 2 A 0 0 0 3
0030200 ) ) \r B R E C O M P I L E A 0 0
0030220 0 1 D 1 \r ( N A M E E R R O
0030240 R S E T P 1 M A C R O Y
0030260 P 0 M A C R O X F 2 R
0030300 E S E T V A R S L S T F 3
0030320 R E S E T Y ) \0 360 002 002 002 \0 g \0
0030340 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277
0030360 R 032 c 004 277 g \0 \0 d \t \0 \0 032 g \0 \0
0030400 ` \0 \0 \n \0 \0 277 R 032 c 004 277 g \0 \0 d
0030420 \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 R 032
0030440 c 004 277 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0
0030460 \0 \n \0 \0 277 R 032 c 004 277 g \0 \0 d \t \0
0030500 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 R 032 c 004
0030520 277 g \0 \0 d \t \0 \0 032 g \0 \0 \t \0 \0 277
0030540 R 032 c 004 277 g \0 \0 ` \0 \0 032 g \0 \0 `
0030560 \0 \0 032 g \0 \0 ` \0 \0 032 R 032 032 032 c 004
0030600 021 021 001 R 271 o \0 \0 \0 g \0 \0 \n \0 \0 H
0030620 001 002 027 \0 \0 277 H 002 X 001 002 027 \0 \0 277 H
0030640 002 X 001 002 027 \0 \0 277 I d R 360 225 277 H 002
0030660 c 004 215 R \n \0 \0 231 R k I \v \0 \0 H 002
0030700 031 277 265 005 \b \0 \0 022 001 c 006 i 020 \0 ( 3
0030720 5 0 Q E R R O R ! 3 3 7 Q
0030740 N L E F T 3 3 0 Q T A I L P
0030760 2 6 0 Q B R E C O M P I L E
0031000 A 0 0 0 1 A 0 0 0 2 2 0 0 Q
0031020 S E T T O P V A L 1 7 1 Q G
0031040 E T T O P V A L 1 5 4 Q S E
0031060 T T O P V A L 1 4 2 Q G E T
0031100 T O P V A L 1 2 5 Q S E T T
0031120 O P V A L 1 1 3 Q G E T T O
0031140 P V A L 7 6 Q S E T T O P V
0031160 A L 6 4 Q G E T T O P V A L
0031200 4 7 Q S E T T O P V A L 3
0031220 5 Q G E T T O P V A L 2 0 Q
0031240 S E T T O P V A L 6 G E T
0031260 T O P V A L ) \r ( 3 1 0 Q B U
0031300 I L D M A P F L G 2 7 7 Q N
0031320 O F I X V A R S L S T 2 6 6 Q
0031340 N O F I X F N S L S T 2 5 5
0031360 Q I N T E R N A L 2 3 2 Q
0031400 B U I L D M A P F L G 2 2 7 Q
0031420 B U I L D M A P F L G 2 2 3
0031440 Q N O F I X V A R S L S T 2
0031460 2 0 Q N O F I X V A R S L S T
0031500 2 1 4 Q N O F I X F N S L S
0031520 T 2 1 1 Q N O F I X F N S L
0031540 S T 1 7 5 Q E X P R S L S T
0031560 1 6 5 Q E X P R S L S T 1
0031600 5 1 Q D W I M I F Y C O M P F
0031620 L G 1 4 6 Q D W I M I F Y C
0031640 O M P F L G 1 3 6 Q D W I M
0031660 I F Y C O M P F L G 1 2 2 Q
0031700 L A M A 1 1 7 Q L A M A 1
0031720 0 7 Q L A M A 7 3 Q L A M
0031740 S 7 0 Q L A M S 6 0 Q L
0031760 A M S 4 4 Q N L A M L 4 1
0032000 Q N L A M L 3 1 Q N L A M
0032020 L 1 5 Q N L A M A 1 2 Q
0032040 N L A M A 2 N L A M A ) \r (
0032060 2 5 2 Q ( B R E C O M P I L
0032100 E A 0 0 0 1 A 0 0 0 2 ) ) \r B R
0032120 E C O M P I L E D 1 \r ( P 2
0032140 R E S E T Z P 1 R E S E
0032160 T Y P 0 L I S P X H I S T
0032200 I 3 N O B L O C K S F L G
0032220 I 2 F N S I 1 C F I
0032240 L E I 0 F I L E S F 3
0032260 L I S P X H I S T F 4 R
0032300 E S E T V A R S L S T ) \0 " 003
0032320 002 \0 004 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n
0032340 \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0
0032360 \0 020 I 020 \0 ( 3 5 Q E R R O R !
0032400 3 0 Q R E S E T R E S T O R
0032420 E 1 6 Q B R E C O M P I L E
0032440 A 0 0 0 1 ) \r ( 2 4 Q E R R O
0032460 R 1 3 Q I N T E R N A L ) \r
0032500 ( 1 0 Q ( B R E C O M P I L
0032520 E A 0 0 0 1 ) ) \r B R E C O M P
0032540 I L E 1 D 1 \r ( P 7 Y P
0032560 6 X P 5 A D R P 4
0032600 X P 3 A D R L S T 0 P
0032620 2 N A M E P 1 X P
0032640 0 L S T I 1 N O B L O C
0032660 K S F L G I 0 F N / B L O
0032700 C K F 1 0 Q C F I L E F
0032720 1 1 Q B L K F N S F 1 2
0032740 Q A D R L S T F 1 3 Q C
0032760 O U T F I L E F 1 4 Q F I
0033000 L E M A P L S T F 1 5 Q L
0033020 C F I L ) 001 312 \b 006 \0 002 A 247 ` \0
0033040 \0 265 \b A 262 v @ 260 u g \0 \0 360 263 366 g
0033060 \0 \0 @ \n \0 \0 002 g \0 \0 @ \n \0 \0 002 g
0033100 \0 \0 @ \n \0 \0 002 g \0 \0 @ \n \0 \0 002 003
0033120 @ 001 h 032 \n \0 \0 \n \0 \0 \n \0 \0 \n \0 \0
0033140 021 001 \0 @ 260 0 d 001 021 001 001 I 004 l 004 360
0033160 262 # I W 022 032 c 022 277 I d H \n \0 \0 255
0033200 277 g \0 \0 @ 001 g \0 \0 I \f \0 \0 Y i \n
0033220 \0 \0 277 023 002 003 265 320 h 020 @ 001 W 024 021 "
0033240 005 W 020 \t \0 \0 275 W 020 ` \0 \0 \n \0 \0 \
0033260 004 l 004 361 263 355 L d J 360 250 J \n \0 \0 242
0033300 261 \0 243 L W 026 i \v \0 \0 277 o \0 \0 \0 W
0033320 026 \n \0 \0 277 W 032 \t \0 \0 277 L i \n \0 \0
0033340 277 L J 360 262 275 A 263 z L W 022 032 c 022 277
0033360 @ 260 l d 001 021 001 001 I d 004 l 004 361 247 W
0033400 022 032 c 022 277 260 W 001 g \0 \0 360 262 P I 260
0033420 I d 001 021 001 006 N J 360 263 > W 020 \t \0 \0
0033440 275 W 020 ` \0 \0 \n \0 \0 N 360 263 024 N o \0
0033460 \0 \0 032 \t \0 \0 277 W 020 M \n \0 \0 260 031 N
0033500 W 026 i \v \0 \0 277 o \0 \0 \0 W 026 \n \0 \0
0033520 277 N i \n \0 \0 277 023 002 003 265 267 023 002 003 265
0033540 224 h 020 K W 024 360 262 : W 024 260 0 d 001 021
0033560 001 \a O 016 001 J 360 250 O 016 001 J \n \0 \0 264
0033600 031 W 020 O 016 002 \n \0 \0 277 @ A \n \0 \0 277
0033620 W 020 M \n \0 \0 277 i 022 244 002 003 265 321 h 263
0033640 302 L 226 L g \0 \0 360 262 ( J W 030 \n \0 \0
0033660 \ 233 J L 002 001 L 002 002 001 \v \0 \0 210 J o
0033700 \0 \0 \0 032 \t \0 \0 277 W 020 M \n \0 \0 h 020
0033720 W 024 L M 032 h 032 \n \0 \0 c 024 277 L \t \0
0033740 \0 277 261 376 277 \0 ( 7 0 4 Q L C S K
0033760 I P 6 7 5 Q \ N C O N C 2
0034000 6 6 1 Q S E T F I L E P T R
0034020 6 5 2 Q C O M P E M 6 4 0 Q
0034040 C O M P I L E 1 6 2 3 Q B
0034060 R E C O M P I L E 3 5 7 1 Q
0034100 S E T F I L E P T R 5 6 2 Q
0034120 B R E C O M P I L E 1 5 5 4 Q
0034140 S E T F I L E P T R 5 4 2 Q
0034160 B R E C O M P I L E 2 4 7 1
0034200 Q L C S K I P 4 6 3 Q P R
0034220 I N 1 4 5 1 Q P R I N 2 4
0034240 4 0 Q S E T F I L E P T R 4
0034260 3 1 Q C O M P E M 4 1 4 Q
0034300 R E A D 4 0 3 Q G E T F I L
0034320 E P T R 3 0 3 Q L C S K I P
0034340 2 7 5 Q O U T P U T 2 6 7
0034360 Q P R I N 1 2 5 5 Q P R I
0034400 N 2 2 4 2 Q B R E C O M P I
0034420 L E 2 2 2 2 Q R E A D 2 1
0034440 1 Q G E T F I L E P T R 1 6
0034460 5 Q B R E C O M P I L E 1 1
0034500 6 0 Q P A C K * 1 4 2 Q M
0034520 E M B 1 0 3 Q \ A P P E N D
0034540 2 1 0 0 Q \ A P P E N D 2
0034560 7 5 Q \ A P P E N D 2 7 2 Q
0034600 \ A P P E N D 2 6 1 Q A S
0034620 S O C 5 1 Q A S S O C 4 1
0034640 Q A S S O C 3 1 Q A S S O
0034660 C ) \r ( 6 1 2 Q S T O P 4 1
0034700 1 Q F I L E R D T B L 3 5 6
0034720 Q E N T R I E S 2 1 7 Q F
0034740 I L E R D T B L 1 5 4 Q /
0034760 1 4 7 Q \ 5 5 Q N O L I N
0035000 K F N S 4 5 Q B L K A P P L
0035020 Y F N S 3 5 Q R E T F N S
0035040 2 5 Q E N T R I E S 1 7 Q
0035060 N O B L O C K 4 B Y T E C O
0035100 M P F L G ) \r ( 6 4 6 Q ( n
0035120 o t f o u n d ) 4 5 6 Q "
0035140 , " 4 2 5 Q ( n o t f o
0035160 u n d ) 2 6 2 Q " , " ) \r
0035200 B R E C O M P I L E 2 D 1 \r (
0035220 P 1 N P 0 N X I 1
0035240 F N I 0 X ) \0 a 005 \0 \0
0035260 002 A @ k h i \r 005 \0 \0 264 T @ \t \0 \0
0035300 k 330 A \t \0 \0 k 330 021 2 004 I l 005 330 H
0035320 361 263 > @ I ) l A 360 264 7 l 004 k 274 273
0035340 L K 361 263 036 @ I k 330 Y ) 272 l 0 J 361
0035360 h 360 264 036 J l 9 361 221 h 206 L k 330 \ 260
0035400 342 i 264 016 I k 330 Y d H 360 262 301 i 020 h
0035420 020 \0 ( 2 4 Q N C H A R S 1 6
0035440 Q N C H A R S 1 0 Q S T R
0035460 P O S ) \r N I L \r ( ) \r B R E C
0035500 O M P I L E 3 D 1 \r ( P 3
0035520 Y P 2 X P 1 F I L E
0035540 P 0 T E M I 1 F I L
0035560 E M A P L S T I 0 F N )
0035600 \0 _ 004 \0 \0 002 021 001 @ i \n \0 \0 X \t
0035620 \0 \0 227 @ H i h 032 032 032 020 A 260 # d 001
0035640 021 021 003 J 001 001 271 J 001 002 213 d 001 273 @ K
0035660 002 002 \n \0 \0 X 244 002 003 265 362 h 022 244 002 003
0035700 265 336 h 264 I H 002 001 \n \0 \0 I ` \0 \0
0035720 \n \0 \0 X @ H 001 360 250 o \0 \0 \0 I i \v
0035740 \0 \0 H 020 \0 ( 1 3 3 Q E R R O R
0035760 1 1 4 Q R E A D 1 0 5 Q
0036000 S E T F I L E P T R 5 6 Q F
0036020 A S S O C 1 3 Q E X P R P
0036040 7 V I R G I N F N ) \r ( 1 1 1
0036060 Q F I L E R D T B L ) \r ( 1
0036100 2 6 Q " f i l e m a p d o e
0036120 s n o t a g r e e w i t h
0036140 c o n t e n t s o f " ) \r B
0036160 L O C K C O M P I L E A 0 0 0 1
0036200 A 0 0 0 2 D 1 \r ( N A M E E
0036220 R R O R S E T L ( 2 E R R
0036240 O R S E T . W 1 E R R O R S
0036260 E T . V 0 E R R O R S E T .
0036300 U ) P 1 S P E C V A R S
0036320 P 0 L O C A L V A R S F
0036340 2 B L K N A M E F 3 B L
0036360 K F N S F 4 L C F I L F
0036400 5 E N T R I E S F 6 F
0036420 L G F 7 L S T F I L ) \0
0036440 j 002 006 \0 003 ` \0 \0 027 \0 \0 277 ` \0 \0 027
0036460 \0 \0 277 h 027 \0 \0 277 i ` \0 \0 021 002 001 R
0036500 003 262 030 S 251 U 247 R c 006 001 c 004 260 023 o
0036520 \0 \0 \0 R i \v \0 \0 206 S 245 R h 032 c 006
0036540 277 \b \0 \0 277 R S U \v \0 \0 V 263 030 T 235
0036560 h T ` \0 \0 \v \0 \0 277 T \t \0 \0 277 V 243
0036600 W 016 265 006 022 h 032 020 \t \0 \0 277 260 370 \0 (
0036620 1 4 5 Q C L O S E F 1 2 7 Q
0036640 C L O S E F 1 2 2 Q P R I
0036660 N T 1 0 5 Q B L O C K C O M
0036700 P I L E 1 7 6 Q C O M P S E
0036720 T 6 2 Q E R R O R ) \r ( 1 1
0036740 7 Q F I L E R D T B L 2 6 Q
0036760 S Y S S P E C V A R S 2 1 Q
0037000 E X P R S L S T 1 4 Q N O
0037020 F I X V A R S L S T 1 1 Q N
0037040 O F I X V A R S L S T 5 N O
0037060 F I X F N S L S T 2 N O F I
0037100 X F N S L S T ) \r ( 5 5 Q "
0037120 b l o c k n a m e n o t a
0037140 t o m i c " ) \r B L O C K C O M
0037160 P I L E A 0 0 0 1 D 1 \r ( N A
0037200 M E E R R O R S E T L ( 2
0037220 E R R O R S E T . W 1 E R
0037240 R O R S E T . V 0 E R R O R
0037260 S E T . U ) P 1 M A C R O
0037300 Y P 0 M A C R O X F 2
0037320 R E S E T V A R S L S T F
0037340 3 R E S E T Y ) \0 305 002 002 \0 003
0037360 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0
0037400 \0 277 R 032 c 004 277 g \0 \0 d \t \0 \0 032 g
0037420 \0 \0 ` \0 \0 \n \0 \0 277 R 032 c 004 277 g \0
0037440 \0 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277
0037460 R 032 c 004 277 g \0 \0 d \t \0 \0 032 g \0 \0
0037500 ` \0 \0 \n \0 \0 277 R 032 c 004 277 g \0 \0 `
0037520 \0 \0 032 g \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0
0037540 032 R 032 032 032 c 004 021 021 001 R 271 o \0 \0 \0
0037560 g \0 \0 \n \0 \0 H 001 002 027 \0 \0 277 H 002 X
0037600 001 002 027 \0 \0 277 H 002 X 001 002 027 \0 \0 277 I
0037620 d R 360 225 277 H 002 c 004 215 R \n \0 \0 231 R
0037640 k I \v \0 \0 H 002 031 277 265 005 \b \0 \0 022 001
0037660 c 006 i 020 \0 ( 2 7 5 Q E R R O R
0037700 ! 2 6 4 Q N L E F T 2 5 5
0037720 Q T A I L P 2 0 5 Q B L O
0037740 C K C O M P I L E A 0 0 0 1 A 0
0037760 0 0 2 1 2 5 Q S E T T O P V
0040000 A L 1 1 3 Q G E T T O P V A
0040020 L 7 6 Q S E T T O P V A L
0040040 6 4 Q G E T T O P V A L 4 7
0040060 Q S E T T O P V A L 3 5 Q
0040100 G E T T O P V A L 2 0 Q S E
0040120 T T O P V A L 6 G E T T O P
0040140 V A L ) \r ( 2 3 5 Q E X P R S
0040160 L S T 2 2 4 Q N O F I X V A
0040200 R S L S T 2 1 3 Q N O F I X
0040220 F N S L S T 2 0 2 Q I N T E
0040240 R N A L 1 5 7 Q E X P R S L
0040260 S T 1 5 4 Q E X P R S L S T
0040300 1 5 0 Q N O F I X V A R S L
0040320 S T 1 4 5 Q N O F I X V A R
0040340 S L S T 1 4 1 Q N O F I X F
0040360 N S L S T 1 3 6 Q N O F I X
0040400 F N S L S T 1 2 2 Q L A M A
0040420 1 1 7 Q L A M A 1 0 7 Q
0040440 L A M A 7 3 Q L A M S 7 0
0040460 Q L A M S 6 0 Q L A M S
0040500 4 4 Q N L A M L 4 1 Q N L
0040520 A M L 3 1 Q N L A M L 1 5
0040540 Q N L A M A 1 2 Q N L A M
0040560 A 2 N L A M A ) \r ( 1 7 7
0040600 Q ( D U M M Y . F O R . E R R
0040620 O R S E T ) ) \r B L O C K C O M
0040640 P I L E D 1 \r ( P 2 R E S
0040660 E T Z P 1 R E S E T Y P
0040700 0 L I S P X H I S T I 3
0040720 F L G I 2 E N T R I E S
0040740 I 1 B L K F N S I 0
0040760 B L K N A M E F 3 L I S P
0041000 X H I S T F 4 R E S E T V
0041020 A R S L S T ) \0 " 003 002 \0 004 S 021
0041040 ! 002 T o \0 \0 \0 g \0 \0 \n \0 \0 221 h 202
0041060 g \0 \0 Z \n \0 \0 J 223 \b \0 \0 020 I 020 \0
0041100 ( 3 5 Q E R R O R ! 3 0 Q
0041120 R E S E T R E S T O R E 1 6 Q
0041140 B L O C K C O M P I L E A 0 0
0041160 0 1 ) \r ( 2 4 Q E R R O R 1
0041200 3 Q I N T E R N A L ) \r ( 1
0041220 0 Q ( D U M M Y . F O R . E R
0041240 R O R S E T ) ) \r B L O C K C O
0041260 M P I L E 1 D 1 \r ( P 1 2 Q
0041300 X P 1 0 Q T E M P 7
0041320 C A L L T A G S P 6 C O
0041340 R E F L G P 5 D E F P
0041360 4 F N P 3 N E W D E F
0041400 P 2 B L O C K L I S T P
0041420 1 F R E E V A R S P 0 T
0041440 A G N U M I 2 E N T R I E
0041460 S I 1 B L K F N S I 0
0041500 B L K N A M E F 1 6 Q B
0041520 L K A P P L Y F N S F 1 7 Q
0041540 C O U T F I L E F 2 0 Q
0041560 F R E E V A R S F 2 1 Q S
0041600 T R F ) 001 u 016 004 \0 003 m 377 W 021
0041620 202 \t @ B 001 360 233 B d 002 250 277 W 034 243 h
0041640 b 004 200 B 251 W 034 264 \n @ h 032 b 004 277 W
0041660 034 B 265 005 @ h 032 \n \0 \0 260 034 d 001 021 001
0041700 \n O 024 A \n \0 \0 h 360 264 \n O 024 A \n \0
0041720 \0 h 360 022 244 002 003 265 345 h _ 020 265 026 @ B
0041740 \n \0 \0 262 ' @ o \0 \0 \0 B 002 237 o \0 \0
0041760 \0 216 001 o \0 \0 \0 032 \t \0 \0 h 020 o \0 \0
0042000 \0 \n \0 \0 032 \t \0 \0 h 020 W 036 \t \0 \0 j
0042020 360 245 W 036 \t \0 \0 277 A 003 264 V A 001 _ 020
0042040 d 003 234 001 274 O 020 002 001 275 O 020 002 002 001 215
0042060 i \n \0 \0 ] \t \0 \0 262 , O 020 274 i 276 L
0042100 J 032 272 O 016 L H k 331 X L M N \v \0 \0
0042120 N h 032 032 032 032 h 032 \n \0 \0 _ 016 277 A 002
0042140 b 002 260 267 O 020 o \0 \0 \0 032 \t \0 \0 h 020
0042160 b 002 277 021 0 \r O 016 260 # d 001 _ 022 001 O
0042200 022 002 002 002 001 032 _ 026 277 O 030 265 \t O 026 h
0042220 032 _ 032 202 O 026 & _ 030 277 002 003 265 336 O 032
0042240 022 276 ` \0 \0 227 @ O 016 B \v \0 \0 206 @ O
0042260 016 B \v \0 \0 _ 020 277 W " 262 ? @ ` \0 \0
0042300 034 250 @ ` \0 \0 032 027 \0 \0 277 N 260 * d 001
0042320 021 001 \n O 024 001 \t \0 \0 262 033 O 024 001 \t \0
0042340 \0 277 O 024 001 \t \0 \0 277 O 024 001 ` \0 \0 032
0042360 027 \0 \0 277 023 002 003 265 327 O 020 265 003 @ 020 \0
0042400 ( 5 3 4 Q / P U T D 5 2 5 Q
0042420 S A V E D E F 5 1 5 Q E X
0042440 P R P 4 5 1 Q B L O C K C O
0042460 M P I L E 2 4 4 1 Q B Y T E
0042500 B L O C K C O M P I L E 2 3 4
0042520 2 Q C O M P E M 3 1 7 Q \
0042540 N C O N C 2 3 0 4 Q C O M P
0042560 I L E 1 A 2 5 4 Q E X P R P
0042600 2 5 0 Q V I R G I N F N 2
0042620 1 3 Q T E R P R I 2 0 3 Q
0042640 P O S I T I O N 1 7 4 Q C O
0042660 M P E M 1 7 0 Q \ A P P E N
0042700 D 2 1 5 7 Q C O M P E M 1
0042720 2 7 Q M E M B 1 0 5 Q A S
0042740 S O C 7 3 Q M E M B 5 6 Q
0042760 \ A P P E N D 2 ) \r ( 5 4 7 Q
0043000 E X P R S L S T 5 4 3 Q E
0043020 X P R S L S T 4 7 6 Q L I N
0043040 K E D F N S 4 7 2 Q L I N K
0043060 E D F N S 4 6 4 Q L I N K E
0043100 D F N S 4 3 1 Q B Y T E C O
0043120 M P F L G ) \r ( 3 3 6 Q ( n
0043140 o t c o m p i l e a b l e )
0043160 1 6 5 Q ( w h e n t h e r e
0043200 a r e a l s o B L K A P P
0043220 L Y F N S ) 1 5 3 Q ( n o t
0043240 o n B L K F N S ) 1 4 5 Q
0043260 ( s i n c e t h e r e i s
0043300 m o r e t h a n o n e e
0043320 n t r y ) 1 3 6 Q ( c a n '
0043340 t b e b o t h a n e n t
0043360 r y a n d t h e b l o c k
0043400 n a m e ) ) \r C O M P S E T
0043420 D 1 \r ( P 0 O L D O I 1
0043440 F L G I 0 F I L E F
0043460 1 L S T F I L F 2 L A P
0043500 F L G F 3 L C F I L F
0043520 4 S T R F F 5 S V F L G
0043540 F 6 L S T F I L 1 ) 001 2
0043560 001 006 \0 002 021 020 \0 @ 265 003 202 261 \0 375 o \0
0043600 \0 \0 ` \0 \0 A 265 006 o \0 \0 \0 \v \0 \0 b
0043620 \0 d g \0 \0 360 262 036 277 R 264 003 202 261 \0 264
0043640 o \0 \0 \0 i \n \0 \0 277 \b \0 \0 \t \0 \0 c
0043660 002 277 260 z g \0 \0 360 247 @ d g \0 \0 360 237
0043700 277 h c 004 277 i c \b 277 @ g \0 \0 360 260 [
0043720 g \0 \0 360 230 h c 004 c \b c \n 260 Q @ \t
0043740 \0 \0 c 004 262 . @ g \0 \0 360 263 023 @ g \0
0043760 \0 360 252 @ k 360 246 @ d l 002 360 236 277 o \0
0044000 \0 \0 i \n \0 \0 277 \b \0 \0 b \0 \t \0 \0 c
0044020 002 277 o \0 \0 \0 \t \0 \0 \t \0 \0 c \b 234 o
0044040 \0 \0 \0 \t \0 \0 \t \0 \0 c \n 277 R 264 $ Q
0044060 i 360 263 036 Q g \0 \0 \n \0 \0 263 025 Q g \0
0044100 \0 g \0 \0 h o \0 \0 \0 \r 005 \0 \0 c 002 200
0044120 h c \f 277 A 263 o \0 \0 \0 h o \0 \0 \0
0044140 \v \0 \0 \t \0 \0 264 020 o \0 \0 \0 i \n \0 \0
0044160 277 \b \0 \0 200 h b \0 \t \0 \0 c 006 265 006 g
0044200 \0 \0 020 i 360 263 372 S g \0 \0 \n \0 \0 263 361
0044220 S g \0 \0 g \0 \0 h o \0 \0 \0 \r 005 \0 \0
0044240 c 006 277 260 334 \0 ( 4 5 3 Q O P E N
0044260 F I L E 4 3 1 Q O P E N P
0044300 4 0 6 Q C O M P S E T F 3 7
0044320 7 Q C O M P S E T R E A D 3
0044340 7 3 Q P R I N 1 3 6 1 Q C
0044360 O M P S E T Y 3 5 6 Q C O M
0044400 P S E T R E A D 3 3 0 Q O P
0044420 E N F I L E 3 0 6 Q O P E N
0044440 P 2 6 4 Q C O M P S E T Y
0044460 2 6 1 Q C O M P S E T R E A D
0044500 2 4 7 Q C O M P S E T Y 2
0044520 4 4 Q C O M P S E T R E A D
0044540 2 3 2 Q C O M P S E T F 2 2
0044560 5 Q C O M P S E T R E A D 2
0044600 2 1 Q P R I N 1 1 5 5 Q C
0044620 O M P S E T Y 7 2 Q C O M P
0044640 S E T F 6 7 Q C O M P S E T
0044660 R E A D 6 3 Q P R I N 1 3
0044700 2 Q C O M P S E T R E A D ) \r
0044720 ( 4 4 2 Q N E W 4 3 7 Q O
0044740 U T P U T 4 2 6 Q O U T P U
0044760 T 4 1 5 Q D O N E 3 1 7 Q
0045000 N E W 3 1 4 Q O U T P U T
0045020 3 0 3 Q O U T P U T 1 7 4
0045040 Q Y E S 1 6 5 Q Y 1 3 6
0045060 Q F 1 3 0 Q S T 1 1 1 Q
0045100 S T F 1 0 2 Q S T 4 0 Q
0045120 S 2 0 Q C O M P S E T K E
0045140 Y L S T ) \r ( 4 4 7 Q ( ( T
0045160 Y P E B I N A R Y ) ) 3 6 7
0045200 Q " f i l e n a m e : "
0045220 3 5 3 Q ( N % \r ) 3 4 6 Q
0045240 " o u t p u t f i l e ? "
0045260 3 2 4 Q ( ( T Y P E T E X
0045300 T ) ) 2 5 6 Q " s a v e e
0045320 x p r s ? " 2 4 1 Q " r e
0045340 d e f i n e ? " 2 1 5 Q "
0045360 f i l e : " 5 7 Q " f i l
0045400 e : " 2 7 Q ( S T % \r
0045420 ) 1 5 Q " l i s t i n g ?
0045440 " ) \r C O M P S E T R E A D D
0045460 1 \r ( P 0 X I 2 D E F
0045500 A U L T I 1 K E Y L S T
0045520 I 0 M E S S F 1 R E A
0045540 D B U F ) \0 q 001 001 \0 003 021 020 \0 `
0045560 \0 \0 233 Q 226 Q \t \0 \0 c 002 242 @ 263 $ @
0045600 225 @ i \n \0 \0 277 i \t \0 \0 270 ` \0 \0 263
0045620 * i \t \0 \0 g \0 \0 360 262 i \t \0 \0 260
0045640 031 h 027 \0 \0 277 ` \0 \0 B @ A 265 005 ` \0
0045660 \0 i d \r 006 \0 \0 X 277 ` \0 \0 241 H 020 `
0045700 \0 \0 226 H i d \v \0 \0 020 ` \0 \0 001 001 001
0045720 ` \0 \0 H h 032 032 \n \0 \0 H 020 \0 ( 1 5
0045740 5 Q \ N C O N C 2 1 3 4 Q
0045760 P R I N T 1 1 2 Q A S K U S
0046000 E R 6 2 Q R E A D C 5 0 Q
0046020 P E E K C 3 6 Q L I S P X
0046040 R E A D 3 1 Q P R I N 1 1
0046060 4 Q L I S P X R E A D B U F )
0046100 \r ( 1 4 6 Q H I S T S T R 0
0046120 1 4 0 Q L I S P X H I S T O R
0046140 Y 1 2 5 Q R E R E A D F L G
0046160 1 1 7 Q L I S P X H I S T O
0046200 R Y 1 0 4 Q C O M P S E T D
0046220 E F A U L T K E Y L S T 7 4 Q
0046240 D W I M W A I T 7 0 Q R E
0046260 R E A D F L G 5 3 Q % \r 4
0046300 2 Q R E R E A D F L G 5 D
0046320 W I M F L G ) \r ( ) \r C O M P S
0046340 E T Y D 1 \r ( L ( 0 A ) )
0046360 \0 036 \0 \0 \0 001 @ g \0 \0 360 246 @ d g
0046400 \0 \0 360 221 i 020 g \0 \0 360 246 @ d g \0 \0
0046420 360 220 h 020 \0 N I L \r ( 3 0 Q N O
0046440 2 1 Q N 1 2 Q Y E S 3
0046460 Y ) \r ( ) \r C O M P S E T F
0046500 D 1 \r ( L ( 0 A ) ) \0 021 \0
0046520 \0 \0 001 @ d i 360 221 i 020 g \0 \0 360 221 h
0046540 020 @ 020 \0 N I L \r ( 1 1 Q N ) \r
0046560 ( ) \r R C O M P 3 D 1 \r ( P
0046600 2 T E M 2 P 1 T E M 1
0046620 P 0 T Y P E I 1 D E F
0046640 I 0 F N F 3 C O U T
0046660 F I L E ) \0 323 003 001 \0 002 021 0 002 A
0046700 \t \0 \0 X d 242 261 \0 306 d k 360 262 % 277 @
0046720 d ` \0 \0 \n \0 \0 263 025 277 g \0 \0 @ ` \0
0046740 \0 032 \n \0 \0 277 g \0 \0 271 260 I g \0 \0 260
0046760 ) d l 003 360 262 a 277 @ d ` \0 \0 \n \0 \0
0047000 263 025 277 g \0 \0 @ ` \0 \0 032 \n \0 \0 277 g
0047020 \0 \0 271 260 g \0 \0 Y \t \0 \0 \n \0 \0 262
0047040 m I @ I \t \0 \0 \n \0 \0 \n \0 \0 277 o \0
0047060 \0 \0 272 o \0 \0 \0 S \n \0 \0 277 @ S i \v
0047100 \0 \0 277 J 265 006 o \0 \0 \0 S \n \0 \0 277 I
0047120 S \n \0 \0 @ 020 j 360 245 H l 002 360 262 , @
0047140 g \0 \0 Y \t \0 \0 \n \0 \0 263 267 @ g \0 \0
0047160 Y \t \0 \0 \n \0 \0 263 252 @ \t \0 \0 H 360 253
0047200 @ ` \0 \0 032 027 \0 \0 202 \b \0 \0 @ 020 \0 (
0047220 3 1 7 Q H E L P 3 0 0 Q A
0047240 R G T Y P E 2 7 2 Q M E M B
0047260 2 6 7 Q G E T T O P V A L
0047300 2 5 5 Q M E M B 2 5 2 Q G
0047320 E T T O P V A L 2 2 7 Q P R
0047340 I N T 2 2 1 Q P R I N 1 2
0047360 0 5 Q P R I N 2 1 7 6 Q P
0047400 R I N 1 1 6 0 Q / S E T 1
0047420 5 5 Q R E M O V E 1 5 2 Q
0047440 G E T T O P V A L 1 4 2 Q M
0047460 E M B 1 3 7 Q G E T T O P V
0047500 A L 1 2 1 Q / S E T 1 0 3
0047520 Q M E M B 5 0 Q / S E T
0047540 3 2 Q M E M B 6 A R G T Y
0047560 P E ) \r ( 3 1 3 Q L A M S 3
0047600 0 7 Q L A M S 2 6 3 Q N L
0047620 A M L 2 4 6 Q N L A M A 1
0047640 3 3 Q N L A M L 1 2 5 Q N
0047660 L A M A 1 1 5 Q N L A M A
0047700 1 1 1 Q N L A M A 1 0 0 Q
0047720 N L A M A 6 2 Q N L A M A
0047740 5 4 Q N L A M L 4 4 Q N L
0047760 A M L 4 0 Q N L A M L 2 7
0050000 Q N L A M L ) \r ( 2 1 5 Q
0050020 " w a s n o t o n " 1
0050040 7 2 Q " * * * n o t e : "
0050060 1 6 5 Q " w a s i n c o r
0050100 r e c t l y o n " ) \r T C O
0050120 M P L A 0 0 0 1 D 1 \r ( N A M
0050140 E E R R O R S E T L ( 2
0050160 E R R O R S E T . W 1 E R R
0050200 O R S E T . V 0 E R R O R S
0050220 E T . U ) F 0 F I L E )
0050240 \0 \v \0 001 \0 003 P h i d \f \0 \0 h 032 020
0050260 \0 ( 6 B C O M P L ) \r N I L \r
0050300 ( ) \r T C O M P L D 1 \r ( P
0050320 4 F I L E I 0 F I L E S
0050340 ) \0 ? 005 \0 \0 001 h o \0 \0 \0 \n \0 \0
0050360 @ 021 A 004 H 265 004 I 020 003 243 H 274 h 204 H
0050400 001 274 H 002 270 o \0 \0 \0 i \n \0 \0 001 265 \b
0050420 L o \0 \0 \0 032 273 J 265 \t K h 032 Z 271 260
0050440 325 K & 272 260 320 \0 ( 4 4 Q T C O M
0050460 P L A 0 0 0 1 7 C O M P S E
0050500 T ) \r N I L \r ( 5 4 Q ( n o
0050520 t c o m p i l e d ) 4 0 Q
0050540 ( D U M M Y . F O R . E R R O R
0050560 S E T ) 4 ( F % \r ) ) \r R
0050600 E C O M P I L E D 1 \r ( I 2
0050620 F N S I 1 C F I L E I
0050640 0 P F I L E ) \0 \t \0 \0 \0 003
0050660 @ A B i \f \0 \0 020 \0 ( 6 B R E C
0050700 O M P I L E ) \r N I L \r ( ) \r R
0050720 E C O M P ? D 1 \r ( I 1 F
0050740 N S I 0 X F 0 C H A
0050760 N G E S ) \0 F \0 001 \0 002 A d g \0
0051000 \0 360 221 i 020 g \0 \0 360 223 @ P 034 020 A i
0051020 360 250 A d g \0 \0 360 262 037 277 @ ` \0 \0 \n
0051040 \0 \0 265 024 @ g \0 \0 033 265 \n @ g \0 \0 033
0051060 265 003 @ \t \0 \0 020 003 243 @ A 360 020 @ A 034
0051100 020 \0 ( 7 1 Q E X P R P 4 5 Q
0051120 M E M B ) \r ( 6 2 Q B R O K
0051140 E N 5 3 Q A D V I S E D 4
0051160 2 Q E X P R S L S T 3 2 Q
0051200 E X P R S 1 3 Q C H A N G E
0051220 S 4 A L L ) \r ( ) \r C O M P
0051240 I L E A 0 0 0 1 A 0 0 0 2 D 1
0051260 \r ( N A M E E R R O R S E T
0051300 L ( 2 E R R O R S E T . W
0051320 1 E R R O R S E T . V 0 E
0051340 R R O R S E T . U ) P 5 F
0051360 N P 1 L O C A L V A R S
0051400 P 0 S P E C V A R S F 6
0051420 X F 7 L C F I L F 1
0051440 0 Q F L G F 1 1 Q S P E
0051460 C V A R S F 1 2 Q L O C A
0051500 L V A R S F 1 3 Q L S T F
0051520 I L F 1 4 Q L A P F L G )
0051540 \0 v 006 \a \0 003 ` \0 \0 027 \0 \0 277 ` \0
0051560 \0 027 \0 \0 277 W 022 W 024 021 002 001 \b \0 \0 277
0051600 021 @ 005 V d 004 l 004 361 263 037 h 032 260 033 d
0051620 001 ] d i \n \0 \0 i \v \0 \0 272 K 265 \a J
0051640 h 032 \ 201 J & 273 002 003 265 346 L 022 c \f 277
0051660 W 020 263 037 W 016 237 h W 016 ` \0 \0 \v \0 \0
0051700 277 W 016 \t \0 \0 277 W 020 246 W 030 223 W 026 265
0051720 \a V 022 h 032 020 \t \0 \0 277 260 367 \0 ( 1 6
0051740 1 Q C L O S E F 1 3 6 Q C
0051760 L O S E F 1 3 0 Q P R I N T
0052000 6 3 Q C O M P I L E 1 5 7
0052020 Q V I R G I N F N 2 7 Q C
0052040 O M P S E T ) \r ( 1 2 5 Q F I
0052060 L E R D T B L 1 4 Q N O F I
0052100 X V A R S L S T 1 1 Q N O F
0052120 I X V A R S L S T 5 N O F I
0052140 X F N S L S T 2 N O F I X F
0052160 N S L S T ) \r ( ) \r C O M P I L
0052200 E A 0 0 0 1 D 1 \r ( N A M E
0052220 E R R O R S E T L ( 2 E R
0052240 R O R S E T . W 1 E R R O R
0052260 S E T . V 0 E R R O R S E T
0052300 . U ) P 1 M A C R O Y P
0052320 0 M A C R O X F 2 R E
0052340 S E T V A R S L S T F 3 R
0052360 E S E T Y ) \0 264 002 002 \0 003 g \0 \0
0052400 d \t \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 R
0052420 032 c 004 277 g \0 \0 d \t \0 \0 032 g \0 \0 `
0052440 \0 \0 \n \0 \0 277 R 032 c 004 277 g \0 \0 d \t
0052460 \0 \0 032 g \0 \0 ` \0 \0 \n \0 \0 277 R 032 c
0052500 004 277 g \0 \0 d \t \0 \0 032 g \0 \0 ` \0 \0
0052520 \n \0 \0 277 R 032 c 004 277 g \0 \0 ` \0 \0 032
0052540 g \0 \0 ` \0 \0 032 R 032 032 c 004 021 021 001 R
0052560 271 o \0 \0 \0 g \0 \0 \n \0 \0 H 001 002 027 \0
0052600 \0 277 H 002 X 001 002 027 \0 \0 277 I d R 360 225
0052620 277 H 002 c 004 215 R \n \0 \0 231 R k I \v \0
0052640 \0 H 002 031 277 265 005 \b \0 \0 022 001 c 006 i 020
0052660 \0 ( 2 5 4 Q E R R O R ! 2 4
0052700 3 Q N L E F T 2 3 4 Q T A
0052720 I L P 1 7 5 Q C O M P I L E
0052740 A 0 0 0 1 A 0 0 0 2 1 2 5 Q
0052760 S E T T O P V A L 1 1 3 Q G
0053000 E T T O P V A L 7 6 Q S E T
0053020 T O P V A L 6 4 Q G E T T O
0053040 P V A L 4 7 Q S E T T O P V
0053060 A L 3 5 Q G E T T O P V A L
0053100 2 0 Q S E T T O P V A L 6
0053120 G E T T O P V A L ) \r ( 2 1 4
0053140 Q N O F I X V A R S L S T 2
0053160 0 3 Q N O F I X F N S L S T
0053200 1 7 2 Q I N T E R N A L 1 5
0053220 0 Q N O F I X V A R S L S T
0053240 1 4 5 Q N O F I X V A R S L S
0053260 T 1 4 1 Q N O F I X F N S L
0053300 S T 1 3 6 Q N O F I X F N S
0053320 L S T 1 2 2 Q L A M A 1 1
0053340 7 Q L A M A 1 0 7 Q L A M
0053360 A 7 3 Q L A M S 7 0 Q L
0053400 A M S 6 0 Q L A M S 4 4 Q
0053420 N L A M L 4 1 Q N L A M L
0053440 3 1 Q N L A M L 1 5 Q N
0053460 L A M A 1 2 Q N L A M A 2
0053500 N L A M A ) \r ( 1 6 7 Q (
0053520 D U M M Y . F O R . E R R O R S
0053540 E T ) ) \r C O M P I L E D 1 \r
0053560 ( P 2 R E S E T Z P 1
0053600 R E S E T Y P 0 L I S P X
0053620 H I S T I 1 F L G I 0
0053640 X F 3 L I S P X H I S T
0053660 F 4 R E S E T V A R S L S
0053700 T ) \0 " 003 002 \0 002 S 021 ! 002 T o \0
0053720 \0 \0 g \0 \0 \n \0 \0 221 h 202 g \0 \0 Z \n
0053740 \0 \0 J 223 \b \0 \0 020 I 020 \0 ( 3 5 Q
0053760 E R R O R ! 3 0 Q R E S E T
0054000 R E S T O R E 1 6 Q C O M P
0054020 I L E A 0 0 0 1 ) \r ( 2 4 Q E
0054040 R R O R 1 3 Q I N T E R N A
0054060 L ) \r ( 1 0 Q ( D U M M Y .
0054100 F O R . E R R O R S E T ) ) \r C
0054120 O M P I L E 1 D 1 \r ( P 0
0054140 F R E E V A R S I 2 C O R
0054160 E F L G I 1 D E F I 0
0054200 F N F 1 F R E E V A R S
0054220 ) \0 035 001 001 \0 003 @ A B \v \0 \0 b 002
0054240 Q 021 001 \0 ` \0 \0 225 @ A \n \0 \0 020 @ A
0054260 \n \0 \0 020 \0 ( 3 2 Q C O M P I L
0054300 E 2 2 4 Q B Y T E C O M P I
0054320 L E 2 5 C O M P I L E 1 A )
0054340 \r ( 1 6 Q B Y T E C O M P F L
0054360 G ) \r ( ) \r C O M P I L E 1 A A
0054400 0 0 0 1 D 1 \r ( N A M E E R
0054420 R O R S E T L ( 2 E R R O
0054440 R S E T . W 1 E R R O R S E
0054460 T . V 0 E R R O R S E T . U
0054500 ) F 0 C O R E F L G F
0054520 1 D E F F 2 F N ) \0 R
0054540 \0 003 \0 003 ` \0 \0 265 005 P h 360 027 \0 \0 277
0054560 ` \0 \0 264 003 P 027 \0 \0 277 ` \0 \0 027 \0 \0
0054600 277 ` \0 \0 027 \0 \0 277 Q R \n \0 \0 277 ` \0
0054620 \0 ` \0 \0 \n \0 \0 226 ` \0 \0 027 \0 \0 277 `
0054640 \0 \0 ` \0 \0 \n \0 \0 264 \n ` \0 \0 027 \0 \0
0054660 277 h h 032 020 \0 ( 1 0 3 Q T A I L
0054700 P 6 2 Q T A I L P 5 0 Q
0054720 D W I M I F Y 0 ) \r ( 1 1 3 Q
0054740 N O F I X V A R S L S T 1 1 0
0054760 Q N O F I X V A R S L S T 0
0055000 1 0 0 Q N O F I X V A R S L S
0055020 T 0 7 5 Q N O F I X V A R S
0055040 L S T 7 1 Q N O F I X F N S
0055060 L S T 6 6 Q N O F I X F N S
0055100 L S T 0 5 7 Q N O F I X F N
0055120 S L S T 0 5 4 Q N O F I X F
0055140 N S L S T 4 2 Q N O F I X V
0055160 A R S L S T 0 3 7 Q N O F I
0055200 X V A R S L S T 3 3 Q N O F
0055220 I X F N S L S T 0 3 0 Q N O
0055240 F I X F N S L S T 2 4 Q F I
0055260 L E P K G F L G 1 6 Q F I L
0055300 E P K G F L G 1 2 Q N O S P
0055320 E L L F L G 2 N O S P E L L
0055340 F L G ) \r ( ) \r C O M P I L E 1
0055360 A D 1 \r ( P 2 M A C R O Y
0055400 P 1 M A C R O X P 0
0055420 T E M I 2 C O R E F L G
0055440 I 1 D E F I 0 F N F
0055460 3 R E S E T V A R S L S T
0055500 F 4 C O U T F I L E ) \0 274
0055520 003 002 \0 003 A \t \0 \0 242 261 \0 264 021 020 \0 `
0055540 \0 \0 263 $ A 002 003 002 003 001 003 X 001 d g \0
0055560 \0 360 222 277 i 215 g \0 \0 360 262 k H 002 003 001
0055600 g \0 \0 360 262 a g \0 \0 @ h 032 032 T i \v
0055620 \0 \0 277 g \0 \0 ` \0 \0 032 g \0 \0 ` \0 \0
0055640 032 S 032 032 c 006 021 021 002 S 272 o \0 \0 \0 g
0055660 \0 \0 \n \0 \0 I 001 002 027 \0 \0 277 I 002 Y 001
0055700 002 027 \0 \0 277 J d S 360 225 277 I 002 c 006 215
0055720 S \n \0 \0 231 S k J \v \0 \0 I 002 031 277 243
0055740 \b \0 \0 277 023 T \t \0 \0 j 360 244 T \t \0 \0
0055760 277 ` \0 \0 232 A 001 ` \0 \0 360 223 A 002 001 020
0056000 ` \0 \0 226 A ` \0 \0 035 265 003 A 020 A 020 \0
0056020 ( 2 3 3 Q T E R P R I 2 2 4
0056040 Q P O S I T I O N 2 1 6 Q
0056060 E R R O R ! 2 0 6 Q N L E F
0056100 T 1 7 7 Q T A I L P 1 4 0
0056120 Q C O M P I L E 1 A A 0 0 0 1
0056140 7 5 Q P R I N T 3 E X P
0056160 R P ) \r ( 2 6 3 Q C L I S P A
0056200 R R A Y 2 5 6 Q C L I S P A
0056220 R R A Y 2 4 5 Q C L I S P T
0056240 R A N F L G 2 3 7 Q C L I S
0056260 P T R A N F L G 1 5 7 Q F I
0056300 L E P K G F L G 1 4 6 Q N O
0056320 S P E L L F L G 1 3 5 Q I N
0056340 T E R N A L 1 1 3 Q F I L E
0056360 P K G F L G 1 1 0 Q F I L E
0056400 P K G F L G 1 0 4 Q N O S P
0056420 E L L F L G 1 0 1 Q N O S P
0056440 E L L F L G 6 4 Q d w i m i
0056460 f y i n g 5 6 Q D E C L A R
0056500 A T I O N S : 4 4 Q * 3 4
0056520 Q C L I S P : 1 5 Q D W I
0056540 M I F Y C O M P F L G ) \r ( 1
0056560 3 2 Q ( D U M M Y . F O R . E
0056600 R R O R S E T ) ) \r C O M P I L
0056620 E . F I L E C H E C K D 1 \r (
0056640 I 0 F I L E ) \0 \t \0 \0 \0 001
0056660 @ g \0 \0 \n \0 \0 020 \0 ( 6 O P E N
0056700 F I L E ) \r ( 3 I N P U T ) \r
0056720 ( ) \r C O M P E M D 1 \r ( I
0056740 3 F L I 2 E R R O R F L
0056760 G I 1 Y I 0 X F
0057000 0 C O U T F I L E ) \0 L \0 001
0057020 \0 004 C 243 P b 006 277 B 263 5 o \0 \0 \0 C
0057040 \n \0 \0 @ C i \v \0 \0 A 233 k C \n \0 \0
0057060 277 A C \n \0 \0 277 C \t \0 \0 C i 360 254 h
0057100 i b 006 277 b 004 277 277 277 277 260 310 h 020 o \0
0057120 \0 \0 i \n \0 \0 @ A i \v \0 \0 020 \0 ( 1
0057140 1 1 Q E R R O R 1 0 3 Q P
0057160 R I N 1 5 0 Q T E R P R I
0057200 4 3 Q P R I N 1 3 5 Q S P
0057220 A C E S 2 6 Q P R I N 1 2
0057240 0 Q P R I N 1 ) \r N I L \r (
0057260 7 7 Q " * * * * * " 1 4 Q
0057300 " \r \r * * * * * " ) \r G E T C F
0057320 I L E A 0 0 0 1 D 1 \r ( N A M
0057340 E E R R O R S E T L ( 2
0057360 E R R O R S E T . W 1 E R R
0057400 O R S E T . V 0 E R R O R S
0057420 E T . U ) F 0 C F I L E
0057440 F 1 X ) \0 017 \0 002 \0 003 P g \0
0057460 \0 g \0 \0 \v \0 \0 c 002 i 020 \0 ( 1 1 Q
0057500 O P E N F I L E ) \r ( 6 O L
0057520 D 3 I N P U T ) \r ( ) \r G E
0057540 T C F I L E D 1 \r ( P 1 S
0057560 T R P 0 X I 1 C F I
0057600 L E I 0 F I L E S F 2
0057620 R E A D B U F ) \0 225 002 001 \0 002
0057640 021 001 o \0 \0 \0 \t \0 \0 262 023 H \t \0 \0
0057660 221 H 020 H \t \0 \0 277 o \0 \0 \0 203 o \0 \0
0057700 \0 271 i \t \0 \0 277 ` \0 \0 g \0 \0 H 265 003
0057720 A I o \0 \0 \0 @ d 003 223 d 002 240 001 o \0
0057740 \0 \0 h 032 032 032 032 032 \v \0 \0 g \0 \0 360 221
0057760 h 020 ` \0 \0 g \0 \0 o \0 \0 \0 @ h 032 032
0060000 \v \0 \0 g \0 \0 360 262 031 R d 001 g \0 \0 360
0060020 246 001 g \0 \0 360 224 R 002 c 004 277 \b \0 \0 277
0060040 o \0 \0 \0 i \n \0 \0 277 i d \n \0 \0 b 002
0060060 277 261 377 r \0 ( 2 1 5 Q R E A D
0060100 2 0 7 Q P R I N 1 1 7 6 Q
0060120 E R R O R ! 1 4 2 Q A S K U
0060140 S E R 1 1 2 Q A S K U S E R
0060160 4 5 Q T E R P R I 2 6 Q
0060200 C L O S E F 1 7 Q R A N D A
0060220 C C E S S P 1 1 Q G E T C F
0060240 I L E A 0 0 0 1 ) \r ( 1 6 4 Q
0060260 F 1 5 6 Q S T 1 4 5 Q Y
0060300 1 2 7 Q Y 1 2 4 Q D W I
0060320 M W A I T 1 1 5 Q Y 5 4 Q
0060340 Y 5 1 Q D W I M W A I T )
0060360 \r ( 2 0 3 Q " T h e n w h
0060400 a t s h a l l I u s e f
0060420 o r C F I L E ? " 1 3
0060440 3 Q " S h a l l I j u s t
0060460 f o r g e t a b o u t c o
0060500 m p i l i n g " 1 0 1 Q " i
0060520 n s t e a d " 6 5 Q " c o
0060540 m p i l e a l l f u n c t i
0060560 o n s o n " 4 0 Q " n o
0060600 t f o u n d , " 3 3 Q " i
0060620 s n o t a r a n d o m a
0060640 c c e s s f i l e , " 6 (
0060660 D U M M Y . F O R . E R R O R S
0060700 E T ) ) \r S P E C V A R S D 1
0060720 \r ( I 0 A F 0 S P E C
0060740 V A R S F 1 L O C A L V A
0060760 R S ) \0 % \0 002 003 001 @ 003 262 023 P d
0061000 003 227 277 @ P \n \0 \0 260 023 i 360 254 @ 213 Q
0061020 003 ` \0 \0 \n \0 \0 c 002 277 i c \0 020 \0 (
0061040 3 4 Q U N I O N 1 5 Q \ A
0061060 P P E N D 2 ) \r ( 3 1 Q S Y S
0061100 L O C A L V A R S ) \r ( ) \r L O
0061120 C A L V A R S D 1 \r ( I 0
0061140 A F 0 L O C A L V A R S
0061160 F 1 S P E C V A R S ) \0 &
0061200 \0 002 003 001 @ 003 262 023 P d 003 227 277 @ P \n
0061220 \0 \0 260 023 i 360 254 @ 213 Q 003 ` \0 \0 \n \0
0061240 \0 c 002 277 i c \0 h 020 \0 ( 3 4 Q U
0061260 N I O N 1 5 Q \ A P P E N D
0061300 2 ) \r ( 3 1 Q S Y S S P E C V
0061320 A R S ) \r ( ) \r G L O B A L V A
0061340 R S D 1 \r ( I 0 A ) \0 020
0061360 \0 \0 003 001 @ 003 264 \f @ ` \0 \0 \n \0 \0 027
0061400 \0 \0 020 \0 ( 1 2 Q U N I O N ) \r
0061420 ( 1 5 Q G L O B A L V A R S
0061440 7 G L O B A L V A R S ) \r ( )
0061460 \r C O M P I L E M O D E D 1 \r
0061500 ( L ( 0 M O D E ) F 1
0061520 C O M P I L E M O D E F 2
0061540 C O M P I L E M O D E L S T )
0061560 \0 4 001 002 \0 001 Q @ 262 0 @ R \n \0 \0 265
0061600 ! @ g \0 \0 \n \0 \0 260 030 d 001 021 001 \0 H
0061620 d 001 003 224 001 \t \0 \0 205 001 H 002 \n \0 \0 023
0061640 002 003 265 350 @ c 002 277 020 \0 ( 5 0 Q S
0061660 E T 4 1 Q E V A L 2 1 Q
0061700 E R R O R 1 0 Q A S S O C )
0061720 \r ( 1 6 Q ? ) \r ( ) \r ( P R E
0061740 T T Y C O M P R I N T C O M P
0061760 I L E C O M S ) \r ( R P A Q Q
0062000 C O M P I L E C O M S ( ( F N
0062020 S B C O M P L B C O M P L .
0062040 B O D Y R E S E T O P E N F I
0062060 L E S B C O M P L 1 B C O M
0062100 P L 1 A B C O M P L 2 B C O
0062120 M P L 3 B L O C K : \r B R E
0062140 C O M P I L E B R E C O M P I
0062160 L E 1 B R E C O M P I L E 2
0062200 B R E C O M P I L E 3 B L O C
0062220 K C O M P I L E B L O C K C O
0062240 M P I L E 1 C O M P S E T C
0062260 O M P S E T R E A D C O M P S
0062300 E T Y \r C O M P S E T F R C
0062320 O M P 3 T C O M P L R E C O
0062340 M P I L E R E C O M P ? C O
0062360 M P I L E C O M P I L E 1 C
0062400 O M P I L E 1 A C O M P I L E
0062420 . F I L E C H E C K C O M P E
0062440 M G E T C F I L E \r S P E C
0062460 V A R S L O C A L V A R S G
0062500 L O B A L V A R S ) ( A D D V
0062520 A R S ( N O L I N K F N S H
0062540 E L P E R R O R X E R R O R
0062560 S E T E V A L V F A U L T E
0062600 V A L I N T E R R U P T \r S
0062620 E A R C H P D L M A P D L B
0062640 R E A K 1 E D I T E E D I T
0062660 L ) ( L I N K F N S ) ( F R
0062700 E E V A R S ) ( S Y S S P E C
0062720 V A R S H E L P C L O C K L
0062740 I S P X H I S T R E S E T S T
0062760 A T E \r O L D V A L U E U N
0063000 D O S I D E 0 ) ( S Y S L O C
0063020 A L V A R S ) ( L O C A L F R
0063040 E E V A R S ) ( B L K L I B R
0063060 A R Y ) ( R E T F N S ) ( B
0063100 L K A P P L Y F N S ) ( D O N
0063120 T C O M P I L E F N S \r ) ( N
0063140 L A M L ) ( N L A M A ) ( L
0063160 A M S ) ( L A M A ) ) ( I N
0063200 I T V A R S ( S P E C V A R S
0063220 T ) ( L O C A L V A R S S
0063240 Y S L O C A L V A R S ) ) ( I
0063260 N I T V A R S ( \r D W I M I F
0063300 Y C O M P F L G ) ( C O M P I
0063320 L E H E A D E R " c o m p i l
0063340 e d o n " ) ( C O M P S E
0063360 T L S T ( Q U O T E ( S T
0063400 F S T F S Y N 1 2
0063420 N I L T ) ) ) ( \r C O M P S
0063440 E T K E Y L S T ( Q U O T E
0063460 ( ( S T " o r e a n d r e
0063500 d e f i n e " K E Y L S T
0063520 ( " " ( F . " o r g e t
0063540 e x p r s " ) ) ) ( S . "
0063560 a m e a s l a s t t i m e
0063600 " \r ) ( F . " i l e o n
0063620 l y " ) ( T . " o t e r
0063640 m i n a l " ) ( 1 ) ( 2 )
0063660 ( Y . " e s " ) ( N .
0063700 " o " ) ) ) ) ( C O M P S E T
0063720 D E F A U L T K E Y L S T ( Q
0063740 U O T E ( ( Y \r . " e s "
0063760 ) ( N . " o " ) ) ) ) (
0064000 B C O M P L . S C R A T C H (
0064020 S E L E C T Q ( S Y S T E M T
0064040 Y P E ) ( D ( Q U O T E {
0064060 C O R E } B C O M P L . S C R A
0064100 T C H ) ) ( Q U O T E \r B C
0064120 O M P L . S C R A T C H ; T ) )
0064140 ) ( R E C O M P I L E D E F A
0064160 U L T ( Q U O T E C H A N G
0064200 E S ) ) ( C O U T F I L E T
0064220 ) ( S V F L G T ) ( S T R
0064240 F T ) ( L S T F I L T )
0064260 ( \r L C F I L ) ( L A P F L G
0064300 T ) ) ( D E C L A R E : D
0064320 O N T C O P Y ( M A C R O S
0064340 D I G I T C H A R P ) ) ( P
0064360 ( M O V D ? ( Q U O T E N I
0064400 L L ) ( Q U O T E F I L E C
0064420 H A N G E S ) ) \r ) ( * C O
0064440 M P I L E M O D E ) ( P R O P
0064460 V A R T Y P E C O M P I L E
0064500 M O D E L S T ) ( F N S C O
0064520 M P I L E M O D E ) ( G L O B
0064540 A L V A R S N L A M A N L A
0064560 M L L A M A L A M S \r S Y
0064600 S S P E C V A R S S Y S L O C
0064620 A L V A R S G L O B A L V A R
0064640 S N O F I X F N S L S T N O
0064660 F I X V A R S L S T R E C O M
0064700 P I L E D E F A U L T C O M P
0064720 I L E . E X T \r N O T C O M P
0064740 I L E D F I L E S B Y T E C O
0064760 M P F L G C O M P I L E H E A
0065000 D E R C O M P V E R S I O N
0065020 D W I M I F Y C O M P F L G B
0065040 C O M P L . S C R A T C H D O
0065060 N T C O M P I L E F N S \r R E
0065100 T F N S B L K L I B R A R Y
0065120 N O L I N K F N S L I N K F N
0065140 S N O R M A L C O M M E N T S
0065160 F L G B U I L D M A P F L G
0065200 L I N K E D F N S N O F I X V
0065220 A R S L S T 0 N O F I X F N S
0065240 L S T 0 \r C L I S P T R A N F
0065260 L G C L I S P A R R A Y F I
0065300 L E P K G F L G N O S P E L L
0065320 F L G C O M P S E T K E Y L S
0065340 T R E R E A D F L G H I S T
0065360 S T R 0 L I S P X H I S T O R
0065400 Y \r C O M P S E T D E F A U L
0065420 T K E Y L S T F I L E R D T B
0065440 L D F N F L G F I L E L S T
0065460 D W I M F L G D W I M W A I
0065500 T E X P R S L S T ) ( D E C
0065520 L A R E : D O N T E V A L @ L
0065540 O A D \r D O E V A L @ C O M P
0065560 I L E D O N T C O P Y C O M
0065600 P I L E R V A R S ( A D D V A
0065620 R S ( N L A M A G L O B A L
0065640 V A R S L O C A L V A R S S
0065660 P E C V A R S B L O C K : )
0065700 ( N L A M L \r B C O M P L 3 )
0065720 ( L A M A ) ) ) ) ) \r ( A D D
0065740 T O V A R N O L I N K F N S
0065760 H E L P E R R O R X E R R O
0066000 R S E T E V A L V F A U L T
0066020 E V A L I N T E R R U P T S
0066040 E A R C H P D L M A P D L B
0066060 R E A K 1 E D I T E E D I T
0066100 L ) \r ( A D D T O V A R L I N
0066120 K F N S ) \r ( A D D T O V A R
0066140 F R E E V A R S ) \r ( A D D T O
0066160 V A R S Y S S P E C V A R S
0066200 H E L P C L O C K L I S P X H
0066220 I S T R E S E T S T A T E O
0066240 L D V A L U E U N D O S I D E
0066260 0 ) \r ( A D D T O V A R S Y S
0066300 L O C A L V A R S ) \r ( A D D T
0066320 O V A R L O C A L F R E E V A
0066340 R S ) \r ( A D D T O V A R B L
0066360 K L I B R A R Y ) \r ( A D D T O
0066400 V A R R E T F N S ) \r ( A D D
0066420 T O V A R B L K A P P L Y F N
0066440 S ) \r ( A D D T O V A R D O N
0066460 T C O M P I L E F N S ) \r ( A D
0066500 D T O V A R N L A M L ) \r ( A
0066520 D D T O V A R N L A M A ) \r (
0066540 A D D T O V A R L A M S ) \r (
0066560 A D D T O V A R L A M A ) \r (
0066600 R P A Q ? S P E C V A R S T
0066620 ) \r ( R P A Q ? L O C A L V A
0066640 R S S Y S L O C A L V A R S )
0066660 \r ( R P A Q ? D W I M I F Y C
0066700 O M P F L G ) \r ( R P A Q ? C
0066720 O M P I L E H E A D E R " c o
0066740 m p i l e d o n " ) \r ( R P
0066760 A Q ? C O M P S E T L S T (
0067000 Q U O T E ( S T F S T F
0067020 S Y N 1 2 N I L T )
0067040 ) ) \r ( R P A Q ? C O M P S E
0067060 T K E Y L S T ( Q U O T E (
0067100 ( S T " o r e a n d r e d
0067120 e f i n e " K E Y L S T (
0067140 " " ( F . " o r g e t e
0067160 x p r s " ) ) ) ( S . \r "
0067200 a m e a s l a s t t i m e
0067220 " ) ( F . " i l e o n l
0067240 y " ) ( T . " o t e r m
0067260 i n a l " ) ( 1 ) ( 2 ) (
0067300 Y . " e s " ) ( N . "
0067320 o " ) ) ) ) \r ( R P A Q ? C O
0067340 M P S E T D E F A U L T K E Y L
0067360 S T ( Q U O T E ( ( Y .
0067400 " e s " ) ( N . " o " ) )
0067420 ) ) \r ( R P A Q ? B C O M P L
0067440 . S C R A T C H ( S E L E C T
0067460 Q ( S Y S T E M T Y P E ) (
0067500 D ( Q U O T E { C O R E } B
0067520 C O M P L . S C R A T C H ) )
0067540 ( Q U O T E B C O M P L . S C
0067560 R A T C H ; T ) ) \r ) \r ( R P A
0067600 Q ? R E C O M P I L E D E F A
0067620 U L T ( Q U O T E C H A N G
0067640 E S ) ) \r ( R P A Q ? C O U T
0067660 F I L E T ) \r ( R P A Q ? S
0067700 V F L G T ) \r ( R P A Q ? S
0067720 T R F T ) \r ( R P A Q ? L S
0067740 T F I L T ) \r ( R P A Q ? L
0067760 C F I L ) \r ( R P A Q ? L A P
0070000 F L G T ) \r ( M O V D ? ( Q
0070020 U O T E N I L L ) ( Q U O T
0070040 E F I L E C H A N G E S ) ) \r
0070060 ( P U T P R O P S C O M P I L
0070100 E M O D E L S T V A R T Y P E
0070120 A L I S T ) \r ( P U T P R O P
0070140 S C O M P I L E C O P Y R I
0070160 G H T ( " X e r o x C o r p
0070200 o r a t i o n " T 1 9 8 4 )
0070220 ) \r N I L \r
0070226