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