$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>AOFD.DCOM!1
0000000 ( F I L E C R E A T E D " 1 4
0000020 - F e b - 8 5 0 1 : 2 1 : 3 2
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 > A O F D . ;
0000120 1 0 ) \r " 1 3 - F e b - 8 5
0000140 1 0 : 1 4 : 1 4 " r e c o m p
0000160 i l e d c h a n g e s : \ B
0000200 A S E B Y T E S . R E A D P \
0000220 S T R I N G S T R E A M . I N I
0000240 T i n \r " I N T E R L I S P
0000260 - D 1 3 - F e b - 8 5 . . .
0000300 " d a t e d " 1 3 - F e b -
0000320 8 5 1 0 : 2 9 : 2 7 " ) \r ( F
0000340 I L E C R E A T E D " 1 4 - F
0000360 e b - 8 5 0 1 : 2 1 : 0 2 "
0000400 { E R I S } < L I S P C O R E >
0000420 S O U R C E S > A O F D . ; 1 0
0000440 2 6 9 3 9 c h a n g e s t
0000460 o : ( F N S \r \ B A S E B Y
0000500 T E S . R E A D P \ S T R I N
0000520 G S T R E A M . I N I T ) p r
0000540 e v i o u s d a t e : " 1 5
0000560 - J a n - 8 5 1 8 : 0 1 : 2 2
0000600 " \r { E R I S } < L I S P C O
0000620 R E > S O U R C E S > A O F D .
0000640 ; 9 ) \r C L O S E A L L D 1 \r
0000660 ( L ( 0 A L L F L G ) ) \0
0000700 H 005 \0 \0 001 ` \0 \0 \t \0 \0 021 A 004 H 003
0000720 265 004 I 020 001 \ 006 \0 \0 312 004 @ j 360 263 $
0000740 L h i \v \0 \0 262 034 @ 251 L d g \0 \0 \n
0000760 \0 \0 221 214 L \t \0 \0 273 J 265 \r K h 032 Z
0001000 Y 277 H 002 X 260 312 K & Z 260 367 \0 ( 6 2
0001020 Q C L O S E F 5 4 Q S T R
0001040 E A M P R O P 4 0 Q \ I O M
0001060 O D E P 5 \ A P P E N D 2 )
0001100 \r ( 5 1 Q C L O S E A L L 2
0001120 3 Q S T R E A M 2 \ O P E
0001140 N F I L E S ) \r ( ) \r C L O S E
0001160 F D 1 \r ( L ( 0 F I L E )
0001200 F 3 \ T E R M . O F D F
0001220 4 \ P R I M I N . O F D F
0001240 5 \ P R I M O U T . O F D
0001260 F 6 \ L I N E B U F . O F D
0001300 ) \0 i 003 004 \0 001 @ \t \0 \0 021 ! 002 H
0001320 S 360 252 H d 006 \0 \0 312 004 0 j 360 221 h 020
0001340 g \0 \0 \n \0 \0 211 d 001 271 H k I 017 016 277
0001360 002 003 265 365 \b \0 \0 H d T 360 225 277 V c \b
0001400 277 H U 360 223 S c \n 277 H \t \0 \0 H \t \0
0001420 \0 H g \0 \0 \n \0 \0 211 d 001 272 H k J 017
0001440 016 277 002 003 265 365 H 006 \0 \0 311 004 265 003 H 020
0001460 \0 ( 1 1 7 Q S T R E A M P R O
0001500 P 1 1 0 Q \ C L O S E F I L
0001520 E 1 0 4 Q \ D E L E T E O F
0001540 D 5 6 Q \ C L E A R O F D
0001560 3 5 Q S T R E A M P R O P 3
0001600 \ G E T S T R E A M ) \r ( 1 4
0001620 1 Q S T R E A M 1 1 4 Q A
0001640 F T E R C L O S E 3 2 Q B E
0001660 F O R E C L O S E 1 7 Q S T
0001700 R E A M ) \r ( ) \r E O F C L O S
0001720 E F D 1 \r ( L ( 0 F I L E
0001740 ) ) \0 034 002 \0 \0 001 @ \t \0 \0 021 021 001
0001760 H g \0 \0 \n \0 \0 265 005 ` \0 \0 271 H k I
0002000 017 016 h 020 \0 ( 1 5 Q S T R E A M
0002020 P R O P 3 G E T S T R E A M
0002040 ) \r ( 2 2 Q D E F A U L T E O
0002060 F C L O S E 1 2 Q E O F C L
0002100 O S E ) \r ( ) \r I N P U T D 1
0002120 \r ( L ( 0 F I L E ) F 0
0002140 \ P R I M I N . O F D F 1
0002160 \ L I N E B U F . O F D ) \0
0002200 037 \0 002 \0 001 P 006 \0 \0 311 004 265 003 P @ 262
0002220 023 @ d i 360 222 277 Q 205 g \0 \0 \n \0 \0 c
0002240 \0 277 020 \0 ( 3 1 Q \ G E T S T R
0002260 E A M ) \r ( 2 6 Q I N P U T
0002300 3 S T R E A M ) \r ( ) \r O P E
0002320 N P D 1 \r ( L ( 1 A C C E
0002340 S S 0 F I L E ) ) \0 S 005 \0
0002360 \0 002 ` \0 \0 021 A 004 @ 265 \b H 003 265 026 I
0002400 020 A i \v \0 \0 \ d 262 370 006 \0 \0 311 004 265
0002420 361 L 020 001 \ 006 \0 \0 312 004 @ j 360 263 035 L
0002440 d A i \v \0 \0 262 023 006 \0 \0 311 004 265 003 L
0002460 273 J 265 \r K h 032 Z Y 277 H 002 X 260 277 K
0002500 & Z 260 367 \0 ( 6 3 Q \ I O M O D
0002520 E P 2 3 Q \ G E T S T R E A
0002540 M ) \r ( 7 0 Q S T R E A M 4
0002560 5 Q S T R E A M 3 2 Q S T
0002600 R E A M 2 \ O P E N F I L E
0002620 S ) \r ( ) \r O U T P U T D 1 \r
0002640 ( L ( 0 F I L E ) F 0
0002660 \ P R I M O U T . O F D F 1
0002700 \ T E R M . O F D ) \0 037 \0 002
0002720 \0 001 P 006 \0 \0 311 004 265 003 P @ 262 023 @ d
0002740 i 360 222 277 Q 205 g \0 \0 \n \0 \0 c \0 277 020
0002760 \0 ( 3 1 Q \ G E T S T R E A M
0003000 ) \r ( 2 6 Q O U T P U T 3
0003020 S T R E A M ) \r ( ) \r P O S I T
0003040 I O N D 1 \r ( L ( 1 N 0
0003060 F I L E ) F 1 \ P R I M
0003100 O U T . O F D ) \0 % 001 001 \0 002 @
0003120 265 031 Q 021 001 \0 H 006 \0 \0 310 035 A 262 025 H
0003140 006 \0 \0 A j 361 226 A 205 \t \0 \0 260 347 j 315
0003160 035 277 020 \0 ( 3 4 Q \ G E T S T R
0003200 E A M ) \r ( 2 3 Q S T R E A M
0003220 1 2 Q S T R E A M ) \r ( ) \r
0003240 R A N D A C C E S S P D 1 \r (
0003260 L ( 0 F I L E ) F 1 \
0003300 L I N E B U F . O F D ) \0 + 001
0003320 001 \0 001 @ \t \0 \0 021 001 \0 H 006 \0 \0 311 006
0003340 006 \0 \0 312 \0 020 j 360 h 360 264 022 H Q 360 h
0003360 360 264 \v H 006 \0 \0 311 004 265 003 H 020 \0 ( 3
0003400 \ G E T S T R E A M ) \r ( 4 3
0003420 Q S T R E A M 1 7 Q F D E
0003440 V 1 2 Q S T R E A M ) \r ( )
0003460 \r \ I O M O D E P D 1 \r ( L
0003500 ( 2 N O E R R O R 1 A C C
0003520 E S S 0 S T R E A M ) ) \0
0003540 9 \0 \0 \0 003 A 265 \b @ \t \0 \0 260 ( @ \t
0003560 \0 \0 360 263 " @ d \t \0 \0 g \0 \0 360 227 277
0003600 A o \0 \0 \0 034 214 \t \0 \0 g \0 \0 360 227 A
0003620 g \0 \0 360 221 @ 020 @ B \n \0 \0 020 \0 ( 6
0003640 6 Q \ F I L E . N O T . O P E
0003660 N 4 4 Q \ G E T A C C E S S
0003700 2 4 Q \ G E T A C C E S S
0003720 1 4 Q \ G E T A C C E S S 6
0003740 \ G E T A C C E S S ) \r ( 5 5
0003760 Q O U T P U T 4 7 Q A P P
0004000 E N D 2 7 Q B O T H ) \r (
0004020 3 7 Q ( I N P U T O U T P U
0004040 T ) ) \r W H E N C L O S E D 1
0004060 \r ( L ( 0 N A R G S ) ) \0
0004100 263 005 \0 002 \0 e 021 001 \0 H j 361 264 006 @ \t
0004120 \0 \0 021 001 001 H l 002 021 022 004 K J 363 222 261
0004140 \0 226 H K 361 264 006 K k 330 a 274 K a d g
0004160 \0 \0 360 262 & 277 I g \0 \0 L d g \0 \0 360
0004200 222 277 i 217 g \0 \0 360 221 h 210 l 033 L h 032
0004220 032 \t \0 \0 \v \0 \0 260 U d g \0 \0 360 236 277
0004240 L 262 L I g \0 \0 L i \f \0 \0 260 @ d g
0004260 \0 \0 360 236 277 L 262 7 I g \0 \0 L i \f \0
0004300 \0 260 + d g \0 \0 360 232 277 I g \0 \0 L \v
0004320 \0 \0 260 032 g \0 \0 360 230 I g \0 \0 L \v \0
0004340 \0 211 l 033 K a h 032 032 \t \0 \0 277 K l 002
0004360 324 [ 261 377 j I 020 \0 ( 2 4 6 Q E R
0004400 R O R X 2 3 3 Q S T R E A M
0004420 P R O P 2 1 4 Q S T R E A M
0004440 P R O P 1 7 3 Q S T R E A M
0004460 A D D P R O P 1 4 6 Q S T R
0004500 E A M A D D P R O P 1 2 1 Q
0004520 S T R E A M P R O P 1 1 6 Q
0004540 E R R O R X 1 4 Q G E T S T
0004560 R E A M ) \r ( 2 2 7 Q E O F C
0004600 L O S E 2 2 1 Q E O F 2 1
0004620 0 Q S T A T U S F N 2 0 1 Q
0004640 S T A T U S 1 6 6 Q A F T
0004660 E R C L O S E 1 5 4 Q A F T
0004700 E R 1 4 1 Q B E F O R E C L
0004720 O S E 1 2 7 Q B E F O R E
0004740 1 0 1 Q Y E S 7 1 Q N O
0004760 6 4 Q C L O S E A L L 5 4 Q
0005000 C L O S E A L L ) \r ( ) \r S T
0005020 R E A M A D D P R O P D 1 \r (
0005040 L ( 2 V A L 1 P R O P
0005060 0 S T R E A M ) ) \0 016 \0 \0 \0
0005100 003 @ A B @ A \n \0 \0 032 \v \0 \0 020 \0 (
0005120 1 3 Q S T R E A M P R O P 7
0005140 S T R E A M P R O P ) \r N I L
0005160 \r ( ) \r \ B A S E B Y T E S . I
0005200 O . I N I T A 0 0 3 0 D 1 \r (
0005220 L ( 5 S T R E A M 4 F D
0005240 E V 3 O T H E R I N F O 2
0005260 R E C O G 1 A C C E S S
0005300 0 F I L E ) ) \0 003 \0 \0 \0 006 E
0005320 020 \0 N I L \r N I L \r ( ) \r \ B A
0005340 S E B Y T E S . I O . I N I T A
0005360 0 0 3 3 D 1 \r ( L ( 1 I
0005400 0 S T R E A M ) ) \0 003 \0 \0 \0
0005420 002 h 020 \0 N I L \r N I L \r ( ) \r \
0005440 B A S E B Y T E S . I O . I N I
0005460 T A 0 0 4 0 D 1 \r ( L ( 0
0005500 S T R E A M ) ) \0 027 \0 \0 \0 001 @
0005520 006 \0 \0 310 \0 @ 006 \0 \0 310 026 360 h 360 264 006
0005540 @ \t \0 \0 020 \0 ( 2 4 Q \ P A G E
0005560 D B A C K F I L E P T R ) \r ( 1
0005600 1 Q S T R E A M 3 S T R E
0005620 A M ) \r ( ) \r \ B A S E B Y T E
0005640 S . I O . I N I T A 0 0 4 3 D
0005660 1 \r ( L ( 0 S T R E A M ) )
0005700 \0 017 \0 \0 \0 001 @ 006 \0 \0 310 \0 @ 006 \0
0005720 \0 310 026 331 020 \0 N I L \r ( 1 1 Q S
0005740 T R E A M 3 S T R E A M ) \r
0005760 ( ) \r \ B A S E B Y T E S . I O
0006000 . I N I T A 0 0 4 5 D 1 \r ( L
0006020 ( 0 S T R E A M ) ) \0 017 \0
0006040 \0 \0 001 @ 006 \0 \0 310 \v @ 006 \0 \0 310 026 331
0006060 020 \0 N I L \r ( 1 1 Q S T R E A
0006100 M 3 S T R E A M ) \r ( ) \r \
0006120 B A S E B Y T E S . I O . I N I
0006140 T A 0 0 4 7 D 1 \r ( L ( 0
0006160 S T R E A M ) ) \0 022 \0 \0 \0 001 @
0006200 006 \0 \0 310 \0 @ 006 \0 \0 310 \v 375 361 h 360 020
0006220 \0 N I L \r ( 1 1 Q S T R E A M
0006240 3 S T R E A M ) \r ( ) \r \ B
0006260 A S E B Y T E S . I O . I N I T
0006300 A 0 0 4 9 D 1 \r ( L ( 3 N
0006320 2 O F F S T 1 B A S E
0006340 0 S T R E A M ) ) \0 \r \0 \0 \0
0006360 004 @ A B C g \0 \0 \r 005 \0 \0 020 \0 ( 1
0006400 2 Q \ B A S E B Y T E S . B L
0006420 O C K I O ) \r ( 6 I N P U T )
0006440 \r ( ) \r \ B A S E B Y T E S . I
0006460 O . I N I T A 0 0 5 1 D 1 \r (
0006500 L ( 3 N 2 O F F S T 1
0006520 B A S E 0 S T R E A M ) )
0006540 \0 \r \0 \0 \0 004 @ A B C g \0 \0 \r 005
0006560 \0 \0 020 \0 ( 1 2 Q \ B A S E B Y
0006600 T E S . B L O C K I O ) \r ( 6
0006620 O U T P U T ) \r ( ) \r \ B A S E
0006640 B Y T E S . I O . I N I T D 1
0006660 \r N I L \0 370 \0 \0 \0 \0 ` \0 \0 037 d
0006700 g \0 \0 024 \0 277 d k 317 \0 \0 277 d k 317 \0
0006720 020 277 d j 317 \0 0 277 d k 317 \0 @ 277 d k
0006740 317 \0 P 277 d j 317 \0 ` 277 d g \0 \0 024 002
0006760 277 d g \0 \0 024 004 277 d g \0 \0 024 006 277 d
0007000 g \0 \0 024 \b 277 d g \0 \0 024 \n 277 d g \0
0007020 \0 024 \f 277 d g \0 \0 024 016 277 d g \0 \0 024
0007040 020 277 d g \0 \0 024 022 277 d g \0 \0 024 024 277
0007060 d g \0 \0 024 026 277 d g \0 \0 024 030 277 d g
0007100 \0 \0 024 032 277 d g \0 \0 024 034 277 d g \0 \0
0007120 024 036 277 d g \0 \0 024 277 d g \0 \0 024 "
0007140 277 d g \0 \0 024 $ 277 d g \0 \0 024 & 277 d
0007160 g \0 \0 024 . 277 d g \0 \0 024 0 277 d g \0
0007200 \0 024 2 277 d g \0 \0 024 4 277 d g \0 \0 024
0007220 6 277 d g \0 \0 024 8 277 d g \0 \0 024 : 277
0007240 d g \0 \0 024 * 277 027 \0 \0 h ` \0 \0 \n \0
0007260 \0 020 \0 ( 3 6 5 Q \ D E F I N E
0007300 D E V I C E ) \r ( 3 6 2 Q \ B
0007320 A S E B Y T E S D E V I C E 3
0007340 5 6 Q \ B A S E B Y T E S D E
0007360 V I C E 3 5 0 Q N I L L 3
0007400 4 1 Q \ I L L E G A L . D E V
0007420 I C E O P 3 3 2 Q \ B A S E
0007440 B Y T E S . I O . I N I T A 0 0
0007460 5 1 3 2 3 Q \ B A S E B Y T
0007500 E S . I O . I N I T A 0 0 4 9
0007520 3 1 4 Q \ B A S E B Y T E S .
0007540 I O . I N I T A 0 0 4 7 3 0 5
0007560 Q \ B A S E B Y T E S . I O .
0007600 I N I T A 0 0 4 5 2 7 6 Q \
0007620 B A S E B Y T E S . I O . I N I
0007640 T A 0 0 4 3 2 6 7 Q \ B A S
0007660 E B Y T E S . S E T F I L E P T
0007700 R 2 6 0 Q \ B A S E B Y T E
0007720 S . I O . I N I T A 0 0 4 0 2
0007740 5 1 Q \ B A S E B Y T E S . R
0007760 E A D P 2 4 2 Q \ B A S E B
0010000 Y T E S . P E E K B I N 2 3 3
0010020 Q \ B A S E B Y T E S . B O U
0010040 T 2 2 4 Q \ B A S E B Y T E
0010060 S . B I N 2 1 5 Q \ I L L E
0010100 G A L . D E V I C E O P 2 0 6
0010120 Q \ B A S E B Y T E S . I O .
0010140 I N I T A 0 0 3 3 1 7 7 Q N
0010160 I L L 1 7 0 Q \ B A S E B Y
0010200 T E S . I O . I N I T A 0 0 3 0
0010220 1 6 1 Q N I L L 1 5 2 Q
0010240 \ B A S E B Y T E S . O P E N F
0010260 N 1 4 3 Q N I L L 1 3 4 Q
0010300 \ B A S E B Y T E S . N A M E
0010320 . F R O M . S T R E A M 1 2 5
0010340 Q N I L L 1 1 6 Q \ G E N
0010360 E R A T E N O F I L E S 1 0 7
0010400 Q N I L L 1 0 0 Q N I L L
0010420 7 1 Q N I L L 6 2 Q N I
0010440 L L 7 B A S E B Y T E S 2
0010460 004 003 F D E V T Y P E # ) \r ( )
0010500 \r \ M A K E B A S E B Y T E S T
0010520 R E A M D 1 \r ( L ( 5 O S
0010540 T R E A M 4 W R I T E X T E
0010560 N S I O N F N 3 A C C E S S
0010600 2 L E N 1 O F F S T 0
0010620 B A S E ) P 0 \ I N T E
0010640 R R U P T A B L E ) 002 S 001 \0 \0
0010660 006 @ 247 o \0 \0 \0 \t \0 \0 277 A 005 001 233 B
0010700 005 001 227 B A 324 b 004 005 001 247 o \0 \0 \0 \t
0010720 \0 \0 277 C 265 \t g \0 \0 b 006 260 030 g \0 \0
0010740 360 263 023 C g \0 \0 360 252 C d g \0 \0 360 242
0010760 \t \0 \0 277 E 004 ` \0 \0 360 242 261 001 % E d
0011000 311 006 ` \0 \0 360 225 \t \0 \0 261 001 202 \t \0 \0
0011020 277 E d 006 \0 \0 ` \0 \0 024 006 277 d h 024 2
0011040 277 d j 315 1 277 d j 315 0 277 d g \0 \0 024
0011060 . 277 d g \0 \0 024 , 277 d h 024 * 277 d h
0011100 024 ( 277 d ` \0 \0 024 & 277 d h 024 $ 277 d
0011120 g \0 \0 024 " 277 d g \0 \0 024 277 d j 317
0011140 002 4 277 d j 317 030 277 d j 317 030 001 277 d
0011160 ` \0 \0 315 037 277 d j 315 036 277 d j 315 035 277
0011200 d ` \0 \0 315 034 277 d j 315 033 277 d j 315 032
0011220 277 d h 024 030 277 d l \b 317 024 \a 277 d j 315
0011240 027 277 d j 315 026 277 d h 024 024 277 d h 024 022
0011260 277 d h 024 020 277 d h 024 016 277 d h 024 \f 277
0011300 d j 315 \v 277 d j 315 \n 277 d h 024 \b 277 d
0011320 h 024 004 277 d j 317 004 R 277 d k 317 004 @ 277
0011340 d k 317 004 0 277 d j 317 004 277 d j 317 004
0011360 020 277 d j 317 004 \0 277 d h 024 002 277 d j 317
0011400 002 4 277 d j 317 002 277 d j 317 002 020 277 d
0011420 j 317 002 \0 277 d j 315 001 277 d j 315 \0 260 k
0011440 ` \0 \0 037 d ` \0 \0 024 006 277 d g \0 \0 024
0011460 . 277 d g \0 \0 024 , 277 d ` \0 \0 024 & 277
0011500 d g \0 \0 024 " 277 d g \0 \0 024 277 d j
0011520 317 030 001 277 d ` \0 \0 315 037 277 d j 315 035 277
0011540 d ` \0 \0 315 034 277 d h 024 030 277 d l \b 317
0011560 024 \a 277 d j 317 004 R 277 d k 317 004 @ 277 d
0011600 k 317 004 0 277 d h 024 002 277 b \n 277 021 020 \0
0011620 E j 317 004 0 277 E j 317 004 @ 277 E l \b 317
0011640 024 \a 277 E d j 315 \n 277 j 315 032 277 E @ 024
0011660 002 277 E d 006 \0 \0 A 315 026 277 A 315 \0 277 E
0011700 d B 315 \v 277 B 315 001 277 E C \n \0 \0 277 E
0011720 h 024 004 277 E g \0 \0 024 277 E j 315 037 277
0011740 E j 315 035 277 E 006 \0 \0 C g \0 \0 360 246 C
0011760 g \0 \0 360 264 003 D 024 \f 277 E 006 \0 \0 j 315
0012000 027 E 020 \0 ( 1 0 3 4 Q \ S E T A
0012020 C C E S S 1 3 6 Q C L O S E
0012040 F 1 3 0 Q \ S E T A C C E S
0012060 S 1 0 1 Q \ I L L E G A L .
0012100 A R G 4 0 Q S H O U L D N T
0012120 1 0 Q E R R O R ) \r ( 1 1 1
0012140 4 Q S T R E A M 1 1 0 1 Q
0012160 B O T H 1 0 7 3 Q O U T P U
0012200 T 1 0 6 7 Q S T R E A M 1
0012220 0 4 6 Q \ M B S . O U T C H A
0012240 R F N 1 0 0 5 Q S T R E A M
0012260 6 6 2 Q \ S T R E A M . D E
0012300 F A U L T . M A X B U F F E R S
0012320 6 4 6 Q F I L E L I N E L E
0012340 N G T H 6 3 1 Q \ F I L E O
0012360 U T C H A R F N 6 2 2 Q \ E
0012400 O S E R R O R 6 1 3 Q \ N O
0012420 I M A G E O P S 6 0 4 Q \ S
0012440 T R E A M . N O T . O P E N 5
0012460 7 5 Q \ S T R E A M . N O T .
0012500 O P E N 5 6 6 Q \ B A S E B
0012520 Y T E S D E V I C E 5 6 1 Q
0012540 004 003 S T R E A M T Y P E # 3 2
0012560 2 Q \ S T R E A M . D E F A U
0012600 L T . M A X B U F F E R S 3 0
0012620 1 Q F I L E L I N E L E N G T
0012640 H 2 5 0 Q \ F I L E O U T C
0012660 H A R F N 2 4 1 Q \ E O S E
0012700 R R O R 2 2 5 Q \ N O I M A
0012720 G E O P S 2 0 4 Q \ S T R E
0012740 A M . N O T . O P E N 1 7 5 Q
0012760 \ S T R E A M . N O T . O P E
0013000 N 1 4 7 Q \ B A S E B Y T E
0013020 S D E V I C E 1 4 4 Q S T R
0013040 E A M 1 2 3 Q \ B A S E B Y
0013060 T E S D E V I C E 1 0 7 Q 004
0013100 003 S T R E A M T Y P E # 7 4 Q
0013120 B O T H 6 5 Q O U T P U T
0013140 5 6 Q I N P U T 4 7 Q I
0013160 N P U T ) \r ( 3 5 Q " C u r
0013200 r e n t l y c a n ' t s u p
0013220 p o r t f i x p - s i z e d
0013240 o f f s e t s " 5 " C a n '
0013260 t u s e N I L a s a B
0013300 A S E " ) \r \ M B S . O U T C H
0013320 A R F N D 1 \r ( L ( 1 C H
0013340 A R 0 S T R E A M ) ) \0
0013360 002 \0 \0 002 @ 006 \0 \0 b \0 A \n \0 \0 @ 006
0013400 \0 \0 @ 006 \0 \0 310 027 k 324 021 002 001 H I 315
0013420 027 I 020 \0 ( 1 1 Q B O U T ) \r (
0013440 2 1 Q S T R E A M 1 5 Q S
0013460 T R E A M 3 S T R E A M ) \r
0013500 ( ) \r \ B A S E B Y T E S . N A
0013520 M E . F R O M . S T R E A M D
0013540 1 \r ( L ( 0 S T R E A M ) )
0013560 \0 036 \0 \0 \0 001 @ 006 \0 \0 311 004 265 026 @
0013600 006 \0 \0 311 002 @ 006 \0 \0 310 026 @ \t \0 \0 h
0013620 032 032 032 020 \0 ( 2 7 Q G E T E O F
0013640 P T R ) \r ( 2 1 Q S T R E A M
0013660 1 3 Q S T R E A M 3 S T
0013700 R E A M ) \r ( ) \r \ B A S E B Y
0013720 T E S . B O U T D 1 \r ( L (
0013740 1 B Y T E 0 S T R E A M )
0013760 ) \0 > 001 \0 \0 002 021 020 \0 @ 006 \0 \0 310
0014000 \0 X @ 006 \0 \0 310 \v 375 361 263 032 @ 006 \0 \0
0014020 311 \f X 227 @ k H 017 016 277 260 341 o \0 \0 \0
0014040 \t \0 \0 277 @ 006 \0 \0 311 002 H @ H k 330 315
0014060 \0 277 A 307 020 \0 ( 5 2 Q E R R O R
0014100 ) \r ( 5 7 Q S T R E A M 2 7
0014120 Q S T R E A M 1 5 Q S T R
0014140 E A M 6 S T R E A M ) \r (
0014160 4 7 Q " A t t e m p t t o
0014200 w r i t e p a s t e n d o
0014220 f b y t e s b l o c k " ) \r
0014240 \ B A S E B Y T E S . S E T F I
0014260 L E P T R D 1 \r ( L ( 1 I
0014300 0 S T R E A M ) ) \0 ) 001 \0
0014320 \0 002 A 021 001 \0 H @ 006 \0 \0 310 026 324 X d
0014340 @ 006 \0 \0 310 \v 361 230 o \0 \0 \0 A \n \0 \0
0014360 206 @ 006 \0 \0 H 315 \0 h 020 \0 ( 3 5 Q
0014400 E R R O R ) \r ( 4 2 Q S T R E
0014420 A M 2 1 Q S T R E A M 1 0
0014440 Q S T R E A M ) \r ( 3 1 Q
0014460 " B e y o n d e n d o f b
0014500 y t e r a n g e " ) \r \ B A S
0014520 E B Y T E S . R E A D P D 1 \r
0014540 ( L ( 1 F L G 0 S T R E
0014560 A M ) ) \0 : 002 \0 \0 002 @ 006 \0 \0 310
0014600 \0 @ 006 \0 \0 310 \v 021 002 001 I j H 331 324 Y
0014620 l 002 I 361 h 360 265 035 d j 360 221 h 020 A 265
0014640 024 @ 006 \0 \0 311 002 @ 006 \0 \0 310 \0 302 l \r
0014660 360 h 360 020 \0 N I L \r ( 5 7 Q S T
0014700 R E A M 5 1 Q S T R E A M
0014720 1 1 Q S T R E A M 3 S T R
0014740 E A M ) \r ( ) \r \ B A S E B Y T
0014760 E S . B I N D 1 \r ( L ( 0
0015000 S T R E A M ) ) \0 025 \0 \0 \0 001 @
0015020 \t \0 \0 @ 006 \0 \0 @ 006 \0 \0 310 \0 k 324 315
0015040 \0 277 020 \0 ( 3 \ B A S E B Y T E
0015060 S . P E E K B I N ) \r ( 1 3 Q
0015100 S T R E A M 7 S T R E A M )
0015120 \r ( ) \r \ B A S E B Y T E S . P
0015140 E E K B I N D 1 \r ( L ( 1
0015160 N O E R R O R F L G 0 S T R
0015200 E A M ) ) \0 - 002 \0 \0 002 @ 006 \0 \0
0015220 310 \0 021 021 001 H @ 006 \0 \0 310 \v 375 361 257 A
0015240 253 @ 006 \0 \0 311 " 271 @ k I 016 020 h 020 @
0015260 006 \0 \0 311 002 H 302 020 \0 N I L \r ( 4 6
0015300 Q S T R E A M 3 0 Q S T R
0015320 E A M 1 5 Q S T R E A M 3
0015340 S T R E A M ) \r ( ) \r \ B A S
0015360 E B Y T E S . T R U N C A T E F
0015400 N D 1 \r ( L ( 1 I 0 S
0015420 T R E A M ) ) \0 7 003 \0 \0 002 A @
0015440 006 \0 \0 310 026 @ 006 \0 \0 310 \v 021 003 002 H I
0015460 324 X j A 361 223 d J 324 270 I A 361 243 H J
0015500 361 230 o \0 \0 \0 A \n \0 \0 020 @ 006 \0 \0 H
0015520 315 \v H 020 \0 ( 5 3 Q E R R O R )
0015540 \r ( 6 0 Q S T R E A M 1 2 Q
0015560 S T R E A M 4 S T R E A M
0015600 ) \r ( 4 7 Q " B e y o n d
0015620 e n d o f b y t e r a n g
0015640 e " ) \r \ B A S E B Y T E S . O
0015660 P E N F N D 1 \r ( L ( 4 F
0015700 D E V 3 O T H E R I N F O
0015720 2 R E C O G 1 A C C E S S
0015740 0 N A M E ) ) \0 , \0 \0 \0 005
0015760 @ d 006 \0 \0 311 004 226 277 @ A \n \0 \0 020 006
0016000 \0 \0 311 002 @ 006 \0 \0 310 026 @ \t \0 \0 A @
0016020 006 \0 \0 311 \f @ \r 006 \0 \0 020 \0 ( 5 1 Q
0016040 \ M A K E B A S E B Y T E S T
0016060 R E A M 3 5 Q G E T E O F P
0016100 T R 1 5 Q O P E N S T R I N
0016120 G S T R E A M ) \r ( 4 2 Q S T
0016140 R E A M 2 7 Q S T R E A M
0016160 2 1 Q S T R E A M 4 S T R
0016200 E A M ) \r ( ) \r \ B A S E B Y T
0016220 E S . B L O C K I O D 1 \r ( L
0016240 ( 4 D I R E C T I O N 3
0016260 N 2 O F F S T 1 B A S E
0016300 0 S T R E A M ) ) \0 w 004 \0
0016320 \0 005 021 @ 003 C j 361 264 Y @ 006 \0 \0 311 002
0016340 270 @ 006 \0 \0 310 \0 271 @ 006 \0 \0 310 \v 272 C
0016360 J I k 331 331 361 262 025 D g \0 \0 360 262 5 @
0016400 006 \0 \0 311 " 273 @ k K 016 277 @ 006 \0 \0 I
0016420 C 330 315 \0 277 D g \0 \0 360 233 A H b 002 277
0016440 270 B I b 004 277 271 H I A B C \r 005 \0 \0
0016460 h 020 @ A B 302 \n \0 \0 277 B k 324 b 004 277
0016500 C m 377 324 b 006 260 220 \0 ( 1 4 6 Q B
0016520 O U T 1 3 5 Q \ M O V E B Y
0016540 T E S ) \r ( 1 0 6 Q O U T P U
0016560 T 7 4 Q S T R E A M 6 0 Q
0016600 S T R E A M 5 1 Q I N P U
0016620 T 3 1 Q S T R E A M 2 2 Q
0016640 S T R E A M 1 3 Q S T R E
0016660 A M ) \r ( ) \r O P E N S T R I N
0016700 G S T R E A M D 1 \r ( L ( 1
0016720 A C C E S S 0 S T R ) )
0016740 \0 X 001 \0 \0 002 021 020 \0 @ d 005 \a 246 277 @
0016760 \t \0 \0 277 @ 006 \0 \0 311 \0 265 003 i @ 006 \0
0017000 \0 310 003 @ 006 \0 \0 310 002 A d g \0 \0 360 263
0017020 027 d g \0 \0 360 256 d g \0 \0 360 250 265 006 g
0017040 \0 \0 202 \t \0 \0 \f \0 \0 X d k 317 004 0 277
0017060 H k 317 004 @ 277 k j 360 h 360 H 020 \0 ( 1
0017100 0 2 Q \ M A K E B A S E B Y T
0017120 E S T R E A M 7 7 Q \ I L L
0017140 E G A L . A R G 1 4 Q \ I L
0017160 L E G A L . A R G ) \r ( 7 3 Q
0017200 I N P U T 6 4 Q B O T H 5
0017220 6 Q O U T P U T 4 7 Q I N
0017240 P U T 4 0 Q S T R I N G P
0017260 3 2 Q S T R I N G P 2 1 Q
0017300 S T R I N G P ) \r ( ) \r \ S T R
0017320 I N G S T R E A M . I N I T A 0
0017340 0 1 2 D 1 \r ( L ( 5 S T R
0017360 E A M 4 F D E V 3 O T H
0017400 E R I N F O 2 R E C O G 1
0017420 A C C E S S 0 F I L E ) )
0017440 \0 003 \0 \0 \0 006 E 020 \0 N I L \r N I
0017460 L \r ( ) \r \ S T R I N G S T R E
0017500 A M . I N I T A 0 0 1 7 D 1 \r
0017520 ( L ( 0 S T R E A M ) ) \0
0017540 . 002 \0 \0 001 @ d d 006 \0 \0 311 \f 234 277 @
0017560 006 \0 \0 311 \f @ h 024 \f 277 215 006 \0 \0 311 004
0017600 \t \0 \0 265 006 @ \t \0 \0 021 002 001 H I 024 016
0017620 I 020 \0 ( 4 3 Q \ E O F . A C T
0017640 I O N 3 5 Q G N C C O D E )
0017660 \r ( 3 0 Q S T R E A M 1 5 Q
0017700 S T R E A M 5 S T R E A M
0017720 ) \r ( ) \r \ S T R I N G S T R E
0017740 A M . I N I T A 0 0 2 1 D 1 \r
0017760 ( L ( 1 N O E R R O R F L G
0020000 0 S T R E A M ) ) \0 036 \0 \0
0020020 \0 002 @ 006 \0 \0 311 \f 265 026 @ 006 \0 \0 311 004
0020040 \t \0 \0 265 \v A h 360 264 006 @ \t \0 \0 020 \0
0020060 ( 3 3 Q \ E O F . A C T I O N
0020100 2 0 Q C H C O N 1 ) \r ( 1 3
0020120 Q S T R E A M 3 S T R E A
0020140 M ) \r ( ) \r \ S T R I N G S T R
0020160 E A M . I N I T A 0 0 2 3 D 1
0020200 \r ( L ( 0 S T R E A M ) )
0020220 \0 \b \0 \0 \0 001 @ \t \0 \0 h 360 020 \0 ( 3
0020240 E O F P ) \r N I L \r ( ) \r \ S
0020260 T R I N G S T R E A M . I N I T
0020300 A 0 0 2 5 D 1 \r ( L ( 0 S
0020320 T R E A M ) ) \0 021 002 \0 \0 001 @ d
0020340 006 \0 \0 311 016 021 002 001 H I 024 \f I 020 \0 N
0020360 I L \r ( 4 S T R E A M ) \r ( )
0020400 \r \ S T R I N G S T R E A M . I
0020420 N I T A 0 0 2 9 D 1 \r ( L (
0020440 0 S T R E A M ) ) \0 027 \0 \0 \0
0020460 001 @ 006 \0 \0 311 \f h 360 264 \r @ 006 \0 \0 311
0020500 004 \t \0 \0 j 360 020 \0 ( 2 2 Q N C H
0020520 A R S ) \r ( 1 5 Q S T R E A M
0020540 3 S T R E A M ) \r ( ) \r \ S
0020560 T R I N G S T R E A M . I N I T
0020600 D 1 \r ( F 0 \ S T R I N G
0020620 S T R E A M . F D E V ) \0 305 \0
0020640 001 \0 \0 ` \0 \0 037 d g \0 \0 024 \0 277 d g
0020660 \0 \0 024 002 277 d g \0 \0 024 004 277 d g \0 \0
0020700 024 006 277 d g \0 \0 024 \b 277 d g \0 \0 024 \n
0020720 277 d g \0 \0 024 \f 277 d g \0 \0 024 016 277 d
0020740 g \0 \0 024 020 277 d g \0 \0 024 022 277 d g \0
0020760 \0 024 024 277 d g \0 \0 024 026 277 d g \0 \0 024
0021000 030 277 d g \0 \0 024 032 277 d g \0 \0 024 034 277
0021020 d g \0 \0 024 036 277 d g \0 \0 024 " 277 d g
0021040 \0 \0 024 $ 277 d g \0 \0 024 & 277 d g \0 \0
0021060 024 4 277 d g \0 \0 024 : 277 d g \0 \0 024 8
0021100 277 d g \0 \0 024 6 277 d g \0 \0 024 2 277 d
0021120 g \0 \0 024 0 277 d g \0 \0 024 . 277 d g \0
0021140 \0 024 * 277 c \0 020 \0 N I L \r ( 2 7 5
0021160 Q N I L L 2 6 6 Q \ I S .
0021200 N O T . R A N D A C C E S S P
0021220 2 5 7 Q \ I L L E G A L . D E
0021240 V I C E O P 2 5 0 Q \ I S .
0021260 N O T . R A N D A C C E S S P
0021300 2 4 1 Q \ G E N E R I C . B I
0021320 N S 2 3 2 Q \ G E N E R I C
0021340 . B O U T S 2 2 3 Q \ G E N
0021360 E R I C . R E N A M E F I L E
0021400 2 1 4 Q \ S T R I N G S T R E
0021420 A M . I N I T A 0 0 2 9 2 0 5
0021440 Q \ S T R I N G S T R E A M .
0021460 I N I T A 0 0 2 5 1 7 6 Q \
0021500 S T R I N G S T R E A M . I N I
0021520 T A 0 0 2 3 1 6 7 Q \ S T R
0021540 I N G S T R E A M . I N I T A 0
0021560 0 2 1 1 6 0 Q \ S T R I N G
0021600 S T R E A M . I N I T A 0 0 1 7
0021620 1 5 1 Q \ I L L E G A L . D
0021640 E V I C E O P 1 4 2 Q N I L
0021660 L 1 3 3 Q N I L L 1 2 4 Q
0021700 \ S T R I N G S T R E A M . I
0021720 N I T A 0 0 1 2 1 1 5 Q \ I
0021740 L L E G A L . D E V I C E O P
0021760 1 0 6 Q N I L L 7 7 Q N I
0022000 L L 7 0 Q N I L L 6 1 Q
0022020 N I L L 5 2 Q \ N U L L F I
0022040 L E G E N E R A T O R 4 3 Q
0022060 N I L L 3 4 Q N I L L 2 5
0022100 Q N I L L 1 6 Q N I L L
0022120 7 S T R I N G 2 004 003 F D E
0022140 V T Y P E # ) \r ( ) \r G E T S T
0022160 R E A M D 1 \r ( L ( 1 A C
0022200 C E S S 0 F I L E ) ) \0 \a
0022220 \0 \0 \0 002 @ A \n \0 \0 020 \0 ( 4 \ G
0022240 E T S T R E A M ) \r N I L \r ( )
0022260 \r \ A D D O F D D 1 \r ( L (
0022300 0 S T R E A M ) ) \0 027 \0 \0 \0
0022320 001 \b \0 \0 @ d 006 \0 \0 311 004 231 277 @ ` \0
0022340 \0 032 027 \0 \0 @ 020 \0 ( 2 \ C L E A
0022360 R O F D ) \r ( 2 3 Q \ O P E N
0022400 F I L E S 1 7 Q \ O P E N F
0022420 I L E S 7 S T R E A M ) \r (
0022440 ) \r \ C L E A R O F D D 1 \r N
0022460 I L \0 005 \0 \0 \0 \0 g \0 \0 020 \0 N I
0022500 L \r ( 2 I F ) \r ( ) \r \ D E L
0022520 E T E O F D D 1 \r ( L ( 0
0022540 O F D ) ) \0 \f \0 \0 \0 001 @ ` \0 \0
0022560 \n \0 \0 027 \0 \0 020 \0 ( 6 D R E M O
0022600 V E ) \r ( 1 1 Q \ O P E N F I
0022620 L E S 3 \ O P E N F I L E S
0022640 ) \r ( ) \r \ G E T S T R E A M
0022660 D 1 \r ( L ( 2 N O E R R O R
0022700 1 A C C E S S 0 X ) F
0022720 0 \ P R I M I N . O F D F
0022740 1 \ P R I M O U T . O F D
0022760 F 2 \ L I N E B U F . O F D
0023000 F 3 \ T E R M . O F D F
0023020 4 \ S T R I N G S T R E A M
0023040 . F D E V ) 001 = \0 005 \0 003 @ 265 ;
0023060 A d g \0 \0 360 235 277 P d ` \0 \0 360 224 277
0023100 \b \0 \0 P 020 g \0 \0 360 262 023 ` \0 \0 232 Q
0023120 d ` \0 \0 360 224 277 \b \0 \0 Q 020 P R 360 241
0023140 P 200 Q A B \v \0 \0 020 i 360 262 0 A d g
0023160 \0 \0 360 235 277 R d ` \0 \0 360 224 277 \b \0 \0
0023200 R 020 g \0 \0 360 242 A 263 > ` \0 \0 232 S d
0023220 ` \0 \0 360 224 277 \b \0 \0 S 020 @ d 004 ` \0
0023240 \0 360 263 301 d 004 l 004 360 262 # A \n \0 \0 265
0023260 003 202 261 \0 246 @ g \0 \0 \n \0 \0 A \n \0 \0
0023300 265 003 202 261 \0 225 @ B \n \0 \0 020 d 005 \a 242
0023320 261 \0 211 277 A 233 A g \0 \0 360 245 @ B \n \0
0023340 \0 277 ` \0 \0 037 d T 024 006 277 d @ 024 004 277
0023360 d g \0 \0 024 . 277 d g \0 \0 024 , 277 d `
0023400 \0 \0 024 & 277 d g \0 \0 024 " 277 d g \0 \0
0023420 024 277 d j 317 030 001 277 d ` \0 \0 315 037 277
0023440 d j 315 035 277 d ` \0 \0 315 034 277 d h 024 030
0023460 277 d l \b 317 024 \a 277 d j 317 004 R 277 d k
0023500 317 004 @ 277 d k 317 004 0 277 d h 024 002 277 b
0023520 \0 g \0 \0 \n \0 \0 @ 020 004 ` \0 \0 360 242 261
0023540 377 g @ 006 \0 \0 311 \0 020 \0 ( 4 5 1 Q
0023560 \ S E T A C C E S S 2 6 3 Q
0023600 \ F I L E . N O T . O P E N 2
0023620 3 5 Q \ F I L E . N O T . O P
0023640 E N 2 2 2 Q \ S E A R C H O
0023660 P E N F I L E S 2 1 6 Q \ G
0023700 E T F I L E N A M E 2 0 1 Q
0023720 \ S E A R C H O P E N F I L E S
0023740 1 5 3 Q \ C R E A T E . T T
0023760 Y D I S P L A Y S T R E A M 1
0024000 2 2 Q \ C R E A T E . T T Y D
0024020 I S P L A Y S T R E A M 7 2 Q
0024040 \ I O M O D E P 5 4 Q \ C
0024060 R E A T E . T T Y D I S P L A Y
0024100 S T R E A M 2 5 Q \ C R E A
0024120 T E . T T Y D I S P L A Y S T R
0024140 E A M ) \r ( 4 7 0 Q W I N D O
0024160 W 4 5 7 Q 004 003 W I N D O W T
0024200 Y P E # 4 4 6 Q I N P U T
0024220 3 7 3 Q \ S T R E A M . D E F
0024240 A U L T . M A X B U F F E R S
0024260 3 5 7 Q F I L E L I N E L E N
0024300 G T H 3 4 2 Q \ F I L E O U
0024320 T C H A R F N 3 3 3 Q \ E O
0024340 S E R R O R 3 2 4 Q \ N O I
0024360 M A G E O P S 3 1 5 Q \ S T
0024400 R E A M . N O T . O P E N 3 0
0024420 6 Q \ S T R E A M . N O T . O
0024440 P E N 2 6 7 Q 004 003 S T R E A
0024460 M T Y P E # 2 5 4 Q I N P U
0024500 T 2 1 3 Q O L D 1 6 3 Q
0024520 004 003 S T R E A M T Y P E # 1 4
0024540 5 Q \ D E F A U L T T T Y D I
0024560 S P L A Y S T R E A M 1 3 7 Q
0024600 \ D E F A U L T T T Y D I S P
0024620 L A Y S T R E A M 1 2 7 Q O
0024640 U T P U T 1 1 4 Q \ D E F A
0024660 U L T L I N E B U F 1 0 4 Q
0024700 I N P U T 4 6 Q \ D E F A U
0024720 L T T T Y D I S P L A Y S T R E
0024740 A M 4 0 Q \ D E F A U L T T
0024760 T Y D I S P L A Y S T R E A M
0025000 3 2 Q O U T P U T 1 7 Q \
0025020 D E F A U L T L I N E B U F 7
0025040 I N P U T ) \r ( ) \r \ R E S E
0025060 T O F D S A 0 0 0 1 D 1 \r ( F
0025100 0 \ T E R M . O F D F 1
0025120 \ P R I M O U T . O F D F
0025140 2 \ D R I B B L E . O F D F
0025160 3 \ L I N E B U F . O F D
0025200 F 4 \ P R I M I N . O F D )
0025220 \0 016 \0 005 \0 \0 \b \0 \0 P c 002 S c \b
0025240 h c 004 020 \0 ( 2 \ O P E N L I N
0025260 E B U F ) \r N I L \r ( ) \r \ R E
0025300 S E T O F D S D 1 \r N I L \0
0025320 , 001 \0 \0 \0 g \0 \0 \t \0 \0 ` \0 \0 260 032
0025340 d 001 021 001 \0 H 006 \0 \0 h 024 002 277 H \t \0
0025360 \0 277 H \t \0 \0 023 002 003 265 347 h 027 \0 \0 020
0025400 \0 ( 4 0 Q \ S E T A C C E S S
0025420 3 3 Q F O R G E T P A G E S
0025440 5 M A P . P R O C E S S E S
0025460 ) \r ( 5 1 Q \ O P E N F I L E
0025500 S 2 3 Q S T R E A M 1 0 Q
0025520 \ O P E N F I L E S 2 \ R
0025540 E S E T O F D S A 0 0 0 1 ) \r (
0025560 ) \r \ S E A R C H O P E N F I L
0025600 E S D 1 \r ( L ( 1 A C C E
0025620 S S 0 N A M E ) ) \0 + 002 \0
0025640 \0 002 ` \0 \0 021 021 001 H 003 265 004 h 020 001 271
0025660 @ I 006 \0 \0 311 004 265 003 I 360 232 A 226 I A
0025700 i \v \0 \0 020 I 020 H 002 X 260 337 \0 ( 4 1
0025720 Q \ I O M O D E P ) \r ( 2 2 Q
0025740 S T R E A M 2 \ O P E N F
0025760 I L E S ) \r ( ) \r ( P R E T T Y
0026000 C O M P R I N T A O F D C O M
0026020 S ) \r ( R P A Q Q A O F D C O
0026040 M S ( ( * O p e n f i l e
0026060 d e s c r i p t o r s . T h
0026100 i s f i l e i s s h a r e
0026120 d w i t h V A X . ) ( C O
0026140 M S ( F N S C L O S E A L L
0026160 C L O S E F \r E O F C L O S
0026200 E F I N P U T O P E N P O
0026220 U T P U T P O S I T I O N R
0026240 A N D A C C E S S P \ I O M O
0026260 D E P W H E N C L O S E ) (
0026300 F N S S T R E A M A D D P R O
0026320 P ) ( I N I T V A R S ( \r D
0026340 E F A U L T E O F C L O S E (
0026360 Q U O T E N I L L ) ) ( \ O
0026400 P E N F I L E S ) ) ( G L O B
0026420 A L V A R S D E F A U L T E O
0026440 F C L O S E \ O P E N F I L E
0026460 S ) ) ( C O M S ( * S T R
0026500 E A M \r i n t e r f a c e t
0026520 o R e a d a n d W r i t e
0026540 t o r a n d o m m e m o r
0026560 y ) ( D E C L A R E : D O N
0026600 T C O P Y ( E X P O R T ( R
0026620 E C O R D S B A S E B Y T E S
0026640 T R E A M ) ) ) ( \r F N S \
0026660 B A S E B Y T E S . I O . I N I
0026700 T \ M A K E B A S E B Y T E S
0026720 T R E A M \ M B S . O U T C H
0026740 A R F N \ B A S E B Y T E S .
0026760 N A M E . F R O M . S T R E A M
0027000 \ B A S E B Y T E S . B O U T
0027020 \r \ B A S E B Y T E S . S E T
0027040 F I L E P T R \ B A S E B Y T
0027060 E S . R E A D P \ B A S E B Y
0027100 T E S . B I N \ B A S E B Y T
0027120 E S . P E E K B I N \ B A S E
0027140 B Y T E S . T R U N C A T E F N
0027160 \r \ B A S E B Y T E S . O P E
0027200 N F N \ B A S E B Y T E S . B
0027220 L O C K I O ) ( G L O B A L V
0027240 A R S \ B A S E B Y T E S D E
0027260 V I C E ) ( D E C L A R E :
0027300 D O N T E V A L @ L O A D ( P
0027320 ( \r \ B A S E B Y T E S . I O
0027340 . I N I T ) ) ) ( F N S O P
0027360 E N S T R I N G S T R E A M ) )
0027400 ( C O M S ( * S T R E A M
0027420 i n t e r f a c e f o r o
0027440 l d - s t y l e s t r i n g s
0027460 ) ( F N S \r \ S T R I N G S
0027500 T R E A M . I N I T ) ( D E C
0027520 L A R E : D O N T E V A L @ L
0027540 O A D D O C O P Y ( P ( \
0027560 S T R I N G S T R E A M . I N I
0027600 T ) ) ) ) ( C O M S ( F N S
0027620 G E T S T R E A M \r \ A D D
0027640 O F D \ C L E A R O F D \ D
0027660 E L E T E O F D \ G E T S T R
0027700 E A M \ R E S E T O F D S \
0027720 S E A R C H O P E N F I L E S )
0027740 ( D E C L A R E : D O N T C
0027760 O P Y ( E X P O R T ( \r M A
0030000 C R O S \ I N S T R E A M A R
0030020 G \ O U T S T R E A M A R G
0030040 \ S T R E A M A R G ) ) ) ( M
0030060 A C R O S G E T O F D \ G E
0030100 T O F D ) ( D E C L A R E :
0030120 D O N T E V A L @ L O A D ( P
0030140 ( \r M O V D ? ( Q U O T E
0030160 G E T S T R E A M ) ( Q U O T
0030200 E G E T O F D ) ) ( M O V D
0030220 ? ( Q U O T E \ G E T S T R
0030240 E A M ) ( Q U O T E \ G E T
0030260 O F D ) ) ) ) ) ( L O C A L V
0030300 A R S . T ) \r ( D E C L A
0030320 R E : D O N T E V A L @ L O A
0030340 D D O E V A L @ C O M P I L E
0030360 D O N T C O P Y C O M P I L
0030400 E R V A R S ( A D D V A R S
0030420 ( N L A M A ) ( N L A M L )
0030440 ( L A M A W H E N C L O S E )
0030460 \r ) ) ) ) \r ( R P A Q ? D E F
0030500 A U L T E O F C L O S E ( Q U
0030520 O T E N I L L ) ) \r ( R P A Q
0030540 ? \ O P E N F I L E S ) \r ( \
0030560 B A S E B Y T E S . I O . I N I
0030600 T ) \r ( \ S T R I N G S T R E A
0030620 M . I N I T ) \r ( P U T P R O P
0030640 S G E T O F D M A C R O (
0030660 = . G E T S T R E A M ) ) \r
0030700 ( P U T P R O P S \ G E T O F
0030720 D M A C R O ( = . \ G E
0030740 T S T R E A M ) ) \r ( M O V D ?
0030760 ( Q U O T E G E T S T R E A
0031000 M ) ( Q U O T E G E T O F D
0031020 ) ) \r ( M O V D ? ( Q U O T E
0031040 \ G E T S T R E A M ) ( Q U
0031060 O T E \ G E T O F D ) ) \r ( P
0031100 U T P R O P S A O F D C O P
0031120 Y R I G H T ( " X e r o x C
0031140 o r p o r a t i o n " 1 9 8 1
0031160 1 9 8 2 1 9 8 3 1 9 8 4
0031200 1 9 8 5 ) ) \r N I L \r
0031213