$ od -c -N 50000 [eris]<Lisp>Carol>SOURCES>AOFD.DCOM!1
0000000 ( F I L E C R E A T E D " 2 8
0000020 - N O V - 8 3 1 3 : 1 5 : 2 4
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < L I S P C
0000100 O R E > S O U R C E S > A O F D
0000120 . ; 4 3 ) \r " 1 3 - N O V - 8
0000140 3 1 8 : 5 7 : 3 0 " r e c o
0000160 m p i l e d c h a n g e s :
0000200 n o t h i n g i n W O R K
0000220 d a t e d " 1 4 - N O V - 8 3
0000240 0 6 : 3 4 : 5 4 " ) \r ( F I L
0000260 E C R E A T E D " 2 8 - N O V
0000300 - 8 3 1 3 : 1 5 : 0 8 " { P
0000320 H Y L U M } < L I S P C O R E >
0000340 S O U R C E S > A O F D . ; 4 3
0000360 2 3 3 9 0 c h a n g e s t
0000400 o : ( V A R S A O F D C O M
0000420 S ) \r p r e v i o u s d a t
0000440 e : " 8 - N O V - 8 3 0 3
0000460 : 1 4 : 2 4 " { P H Y L U M }
0000500 < L I S P C O R E > S O U R C E
0000520 S > A O F D . ; 4 2 ) \r C L O S
0000540 E A L L D 1 \r ( L ( 0 A L
0000560 L F L G ) ) \0 : 004 \0 \0 001 021 @ 003
0000600 \b \0 \0 260 & d 001 [ \t \0 \0 264 023 @ 250 K
0000620 g \0 \0 033 h 360 264 \b K \t \0 \0 h 032 X 003
0000640 226 I 265 \f H Z Y 277 002 003 265 333 J 020 \t \0
0000660 \0 Y H 031 260 363 \0 ( 6 3 Q L A S T
0000700 3 6 Q C L O S E F 1 5 Q
0000720 O P E N P 5 O P E N P ) \r (
0000740 2 5 Q C L O S E A L L ) \r ( )
0000760 \r C L O S E F D 1 \r ( L ( 0
0001000 F I L E ) F 1 \ T E R M
0001020 . O F D F 2 \ P R I M I N
0001040 . O F D F 3 \ P R I M O U
0001060 T . O F D F 4 \ L I N E B
0001100 U F . O F D ) \0 9 001 004 \0 001 @ \t
0001120 \0 \0 021 001 \0 H Q 360 246 H 312 004 0 j 360 221
0001140 h 020 \b \0 \0 H d R 360 225 277 T c 004 277 H
0001160 S 360 223 Q c 006 277 H \t \0 \0 H \t \0 \0 H
0001200 311 004 265 003 H 020 \0 ( 6 0 Q \ C L O
0001220 S E F I L E 5 4 Q \ D E L E
0001240 T E O F D 2 6 Q \ C L E A R
0001260 O F D 3 \ G E T S T R E A M
0001300 ) \r N I L \r ( ) \r I N P U T D
0001320 1 \r ( L ( 0 F I L E ) F
0001340 0 \ P R I M I N . O F D F
0001360 1 \ L I N E B U F . O F D )
0001400 \0 034 \0 002 \0 001 P 311 004 265 003 P @ 262 023 @
0001420 d i 360 222 277 Q 205 g \0 \0 \n \0 \0 c \0 277
0001440 020 \0 ( 2 6 Q \ G E T S T R E A
0001460 M ) \r ( 2 3 Q I N P U T ) \r (
0001500 ) \r O P E N P D 1 \r ( L ( 1
0001520 A C C E S S 0 F I L E ) )
0001540 \0 I 005 \0 \0 002 ` \0 \0 021 A 004 @ 265 \b
0001560 H 003 265 023 I 020 A i \v \0 \0 \ d 262 370 311
0001600 004 265 364 L 020 001 \ 312 004 @ j 360 263 031 L d
0001620 A i \v \0 \0 235 311 004 265 003 L 273 J 265 \r K
0001640 h 032 Z Y 277 H 002 X 260 311 K & Z 260 367 \0
0001660 ( 5 5 Q \ I O M O D E P 2 3
0001700 Q \ G E T S T R E A M ) \r ( 2
0001720 \ O P E N F I L E S ) \r ( ) \r
0001740 O U T P U T D 1 \r ( L ( 0
0001760 F I L E ) F 0 \ P R I M O
0002000 U T . O F D F 1 \ T E R M
0002020 . O F D ) \0 034 \0 002 \0 001 P 311 004 265
0002040 003 P @ 262 023 @ d i 360 222 277 Q 205 g \0 \0
0002060 \n \0 \0 c \0 277 020 \0 ( 2 6 Q \ G E
0002100 T S T R E A M ) \r ( 2 3 Q O U
0002120 T P U T ) \r ( ) \r P O S I T I O
0002140 N D 1 \r ( L ( 1 N 0 F
0002160 I L E ) F 1 \ P R I M O U
0002200 T . O F D ) \0 " 001 001 \0 002 @ 265 026
0002220 Q 021 001 \0 H 310 035 A 262 025 H 006 \0 \0 A j
0002240 361 226 A 205 \t \0 \0 260 352 j 315 035 277 020 \0 (
0002260 3 1 Q \ G E T S T R E A M ) \r
0002300 ( 2 0 Q S T R E A M ) \r ( ) \r
0002320 R A N D A C C E S S P D 1 \r (
0002340 L ( 0 F I L E ) F 1 \
0002360 L I N E B U F . O F D ) \0 " 001
0002400 001 \0 001 @ \t \0 \0 021 001 \0 H 311 006 312 \0 020
0002420 j 360 h 360 264 017 H Q 360 h 360 264 \b H 311 004
0002440 265 003 H 020 \0 ( 3 \ G E T S T R E
0002460 A M ) \r N I L \r ( ) \r \ I O M O
0002500 D E P D 1 \r ( L ( 2 N O E
0002520 R R O R 1 A C C E S S 0
0002540 S T R E A M ) ) \0 9 \0 \0 \0 003 A
0002560 265 \b @ \t \0 \0 260 ( @ \t \0 \0 360 263 " @
0002600 d \t \0 \0 g \0 \0 360 227 277 A o \0 \0 \0 034
0002620 214 \t \0 \0 g \0 \0 360 227 A g \0 \0 360 221 @
0002640 020 @ B \n \0 \0 020 \0 ( 6 6 Q \ F I
0002660 L E . N O T . O P E N 4 4 Q
0002700 \ G E T A C C E S S 2 4 Q \
0002720 G E T A C C E S S 1 4 Q \ G
0002740 E T A C C E S S 6 \ G E T A
0002760 C C E S S ) \r ( 5 5 Q O U T P
0003000 U T 4 7 Q A P P E N D 2 7
0003020 Q B O T H ) \r ( 3 7 Q ( I
0003040 N P U T O U T P U T ) ) \r \ B
0003060 A S E B Y T E S . I O . I N I T
0003100 A 0 4 3 1 D 1 \r ( L ( 5 S
0003120 T R E A M 4 F D E V 3 O
0003140 T H E R I N F O 2 R E C O G
0003160 1 A C C E S S 0 F I L E
0003200 ) ) \0 003 \0 \0 \0 006 E 020 \0 N I L \r
0003220 N I L \r ( ) \r \ B A S E B Y T E
0003240 S . I O . I N I T A 0 4 3 4 D
0003260 1 \r ( L ( 1 I 0 S T R E
0003300 A M ) ) \0 003 \0 \0 \0 002 h 020 \0 N I
0003320 L \r N I L \r ( ) \r \ B A S E B Y
0003340 T E S . I O . I N I T A 0 4 4 1
0003360 D 1 \r ( L ( 0 S T R E A M
0003400 ) ) \0 027 \0 \0 \0 001 @ 006 \0 \0 310 \0 @
0003420 006 \0 \0 310 026 360 h 360 264 006 @ \t \0 \0 020 \0
0003440 ( 2 4 Q \ P A G E D B A C K F
0003460 I L E P T R ) \r ( 1 1 Q S T R
0003500 E A M 3 S T R E A M ) \r ( )
0003520 \r \ B A S E B Y T E S . I O . I
0003540 N I T A 0 4 4 4 D 1 \r ( L (
0003560 0 S T R E A M ) ) \0 017 \0 \0 \0
0003600 001 @ 006 \0 \0 310 \0 @ 006 \0 \0 310 026 331 020 \0
0003620 N I L \r ( 1 1 Q S T R E A M
0003640 3 S T R E A M ) \r ( ) \r \ B A
0003660 S E B Y T E S . I O . I N I T A
0003700 0 4 4 6 D 1 \r ( L ( 0 S T
0003720 R E A M ) ) \0 017 \0 \0 \0 001 @ 006 \0
0003740 \0 310 \v @ 006 \0 \0 310 026 331 020 \0 N I L \r
0003760 ( 1 1 Q S T R E A M 3 S T
0004000 R E A M ) \r ( ) \r \ B A S E B Y
0004020 T E S . I O . I N I T A 0 4 4 8
0004040 D 1 \r ( L ( 0 S T R E A M
0004060 ) ) \0 022 \0 \0 \0 001 @ 006 \0 \0 310 \0 @
0004100 006 \0 \0 310 \v 375 361 h 360 020 \0 N I L \r (
0004120 1 1 Q S T R E A M 3 S T R
0004140 E A M ) \r ( ) \r \ B A S E B Y T
0004160 E S . I O . I N I T A 0 4 5 0
0004200 D 1 \r ( L ( 3 N 2 O F F
0004220 S T 1 B A S E 0 S T R E
0004240 A M ) ) \0 \r \0 \0 \0 004 @ A B C g
0004260 \0 \0 \r 005 \0 \0 020 \0 ( 1 2 Q \ B A
0004300 S E B Y T E S . B L O C K I O )
0004320 \r ( 6 I N P U T ) \r ( ) \r \ B
0004340 A S E B Y T E S . I O . I N I T
0004360 A 0 4 5 2 D 1 \r ( L ( 3 N
0004400 2 O F F S T 1 B A S E
0004420 0 S T R E A M ) ) \0 \r \0 \0 \0
0004440 004 @ A B C g \0 \0 \r 005 \0 \0 020 \0 ( 1
0004460 2 Q \ B A S E B Y T E S . B L
0004500 O C K I O ) \r ( 6 O U T P U T
0004520 ) \r ( ) \r \ B A S E B Y T E S .
0004540 I O . I N I T D 1 \r N I L \0
0004560 370 \0 \0 \0 \0 ` \0 \0 037 d g \0 \0 024 \0 277
0004600 d k 317 \0 \0 277 d k 317 \0 020 277 d j 317 \0
0004620 0 277 d k 317 \0 @ 277 d k 317 \0 P 277 d j
0004640 317 \0 ` 277 d g \0 \0 024 002 277 d g \0 \0 024
0004660 004 277 d g \0 \0 024 006 277 d g \0 \0 024 \b 277
0004700 d g \0 \0 024 \n 277 d g \0 \0 024 \f 277 d g
0004720 \0 \0 024 016 277 d g \0 \0 024 020 277 d g \0 \0
0004740 024 022 277 d g \0 \0 024 024 277 d g \0 \0 024 026
0004760 277 d g \0 \0 024 030 277 d g \0 \0 024 032 277 d
0005000 g \0 \0 024 034 277 d g \0 \0 024 036 277 d g \0
0005020 \0 024 277 d g \0 \0 024 " 277 d g \0 \0 024
0005040 $ 277 d g \0 \0 024 & 277 d g \0 \0 024 . 277
0005060 d g \0 \0 024 0 277 d g \0 \0 024 2 277 d g
0005100 \0 \0 024 4 277 d g \0 \0 024 6 277 d g \0 \0
0005120 024 8 277 d g \0 \0 024 : 277 d g \0 \0 024 *
0005140 277 027 \0 \0 h ` \0 \0 \n \0 \0 020 \0 ( 3 6
0005160 5 Q \ D E F I N E D E V I C E
0005200 ) \r ( 3 6 2 Q \ B A S E B Y T
0005220 E S D E V I C E 3 5 6 Q \ B
0005240 A S E B Y T E S D E V I C E 3
0005260 5 0 Q N I L L 3 4 1 Q \ I
0005300 L L E G A L . D E V I C E O P
0005320 3 3 2 Q \ B A S E B Y T E S .
0005340 I O . I N I T A 0 4 5 2 3 2 3
0005360 Q \ B A S E B Y T E S . I O .
0005400 I N I T A 0 4 5 0 3 1 4 Q \
0005420 B A S E B Y T E S . I O . I N I
0005440 T A 0 4 4 8 3 0 5 Q \ B A S
0005460 E B Y T E S . I O . I N I T A 0
0005500 4 4 6 2 7 6 Q \ B A S E B Y
0005520 T E S . I O . I N I T A 0 4 4 4
0005540 2 6 7 Q \ B A S E B Y T E S
0005560 . S E T F I L E P T R 2 6 0 Q
0005600 \ B A S E B Y T E S . I O . I
0005620 N I T A 0 4 4 1 2 5 1 Q \ B
0005640 A S E B Y T E S . R E A D P 2
0005660 4 2 Q \ B A S E B Y T E S . P
0005700 E E K B I N 2 3 3 Q \ B A S
0005720 E B Y T E S . B O U T 2 2 4 Q
0005740 \ B A S E B Y T E S . B I N
0005760 2 1 5 Q \ I L L E G A L . D E
0006000 V I C E O P 2 0 6 Q \ B A S
0006020 E B Y T E S . I O . I N I T A 0
0006040 4 3 4 1 7 7 Q N I L L 1 7
0006060 0 Q \ B A S E B Y T E S . I O
0006100 . I N I T A 0 4 3 1 1 6 1 Q
0006120 N I L L 1 5 2 Q \ B A S E B
0006140 Y T E S . O P E N F N 1 4 3 Q
0006160 N I L L 1 3 4 Q \ B A S E
0006200 B Y T E S . N A M E . F R O M .
0006220 S T R E A M 1 2 5 Q N I L L
0006240 1 1 6 Q \ G E N E R A T E N
0006260 O F I L E S 1 0 7 Q N I L L
0006300 1 0 0 Q N I L L 7 1 Q N
0006320 I L L 6 2 Q N I L L 7 B
0006340 A S E B Y T E S 2 004 003 F D E
0006360 V T Y P E # ) \r ( ) \r \ M A K E
0006400 B A S E B Y T E S T R E A M D
0006420 1 \r ( L ( 5 O S T R E A M
0006440 4 W R I T E X T E N S I O N F
0006460 N 3 A C C E S S 2 L E N
0006500 1 O F F S T 0 B A S E )
0006520 P 0 \ I N T E R R U P T A
0006540 B L E ) 002 8 001 \0 \0 006 @ 247 o \0 \0
0006560 \0 \t \0 \0 277 A 005 001 233 B 005 001 227 B A 330
0006600 b 004 005 001 247 o \0 \0 \0 \t \0 \0 277 C 265 \t
0006620 g \0 \0 b 006 260 030 g \0 \0 360 263 023 C g \0
0006640 \0 360 252 C d g \0 \0 360 242 \t \0 \0 277 E 004
0006660 ` \0 \0 360 242 261 001 006 E d 311 006 ` \0 \0 360
0006700 225 \t \0 \0 261 001 g \t \0 \0 277 E d 006 \0 \0
0006720 ` \0 \0 024 006 277 d g \0 \0 024 . 277 d g \0
0006740 \0 024 , 277 d h 024 * 277 d h 024 ( 277 d `
0006760 \0 \0 024 & 277 d h 024 $ 277 d g \0 \0 024 "
0007000 277 d g \0 \0 024 277 d l 006 317 002 4 277 d
0007020 j 317 030 001 277 d ` \0 \0 315 037 277 d k 315 036
0007040 277 d j 315 035 277 d l 003 315 034 277 d j 315 033
0007060 277 d j 315 032 277 d h 024 030 277 d l \b 317 024
0007100 \a 277 d j 315 027 277 d j 315 026 277 d h 024 024
0007120 277 d h 024 022 277 d h 024 020 277 d h 024 016 277
0007140 d h 024 \f 277 d j 315 \v 277 d j 315 \n 277 d
0007160 h 024 \b 277 d h 024 004 277 d j 317 004 R 277 d
0007200 k 317 004 @ 277 d k 317 004 0 277 d l 006 317 002
0007220 4 277 d h 024 002 277 d l 006 317 002 4 277 d j
0007240 317 002 277 d j 317 002 020 277 d j 317 002 \0 277
0007260 d j 315 001 277 d j 315 \0 260 o ` \0 \0 037 d
0007300 ` \0 \0 024 006 277 d g \0 \0 024 . 277 d g \0
0007320 \0 024 , 277 d ` \0 \0 024 & 277 d g \0 \0 024
0007340 " 277 d g \0 \0 024 277 d j 317 030 001 277 d
0007360 ` \0 \0 315 037 277 d k 315 036 277 d j 315 035 277
0007400 d l 003 315 034 277 d h 024 030 277 d l \b 317 024
0007420 \a 277 d j 317 004 R 277 d k 317 004 @ 277 d k
0007440 317 004 0 277 d h 024 002 277 b \n 277 021 020 \0 E
0007460 j 317 004 0 277 E j 317 004 @ 277 E l \b 317 024
0007500 \a 277 E d j 315 \n 277 j 315 032 277 E @ 024 002
0007520 277 E d 006 \0 \0 A 315 026 277 A 315 \0 277 E d
0007540 B 315 \v 277 B 315 001 277 E C \n \0 \0 277 E h
0007560 024 004 277 E g \0 \0 024 277 E j 315 037 277 E
0007600 j 315 035 277 E 006 \0 \0 C g \0 \0 360 246 C g
0007620 \0 \0 360 264 003 D 024 \f 277 E 006 \0 \0 j 315 027
0007640 E 020 \0 ( 1 0 0 1 Q \ S E T A C
0007660 C E S S 1 3 6 Q C L O S E F
0007700 1 3 0 Q \ S E T A C C E S S
0007720 1 0 1 Q \ I L L E G A L . A
0007740 R G 4 0 Q S H O U L D N T
0007760 1 0 Q E R R O R ) \r ( 1 0 6 1
0010000 Q S T R E A M 1 0 4 6 Q B
0010020 O T H 1 0 4 0 Q O U T P U T
0010040 1 0 3 4 Q S T R E A M 1 0
0010060 1 3 Q \ M B S . O U T C H A R
0010100 F N 7 5 2 Q S T R E A M 6
0010120 0 7 Q F I L E L I N E L E N G
0010140 T H 5 7 2 Q \ F I L E O U T
0010160 C H A R F N 5 6 3 Q \ E O S
0010200 E R R O R 5 5 4 Q \ N O I M
0010220 A G E O P S 5 4 5 Q \ S T R
0010240 E A M . N O T . O P E N 5 3 6
0010260 Q \ S T R E A M . N O T . O P
0010300 E N 5 2 7 Q \ B A S E B Y T
0010320 E S D E V I C E 5 2 2 Q 004 003
0010340 S T R E A M T Y P E # 2 5 5 Q
0010360 F I L E L I N E L E N G T H
0010400 2 3 1 Q \ F I L E O U T C H A
0010420 R F N 2 2 2 Q \ E O S E R R
0010440 O R 2 0 6 Q \ N O I M A G E
0010460 O P S 1 6 5 Q \ S T R E A M
0010500 . N O T . O P E N 1 5 6 Q \
0010520 S T R E A M . N O T . O P E N
0010540 1 4 7 Q \ B A S E B Y T E S D
0010560 E V I C E 1 4 4 Q S T R E A
0010600 M 1 2 3 Q \ B A S E B Y T E
0010620 S D E V I C E 1 0 7 Q 004 003 S
0010640 T R E A M T Y P E # 7 4 Q B
0010660 O T H 6 5 Q O U T P U T 5
0010700 6 Q I N P U T 4 7 Q I N P
0010720 U T ) \r ( 3 5 Q " C u r r e
0010740 n t l y c a n ' t s u p p o
0010760 r t f i x p - s i z e d o f
0011000 f s e t s " 5 " C a n ' t
0011020 u s e N I L a s a B A S
0011040 E " ) \r \ M B S . O U T C H A R
0011060 F N D 1 \r ( L ( 1 C H A R
0011100 0 S T R E A M ) ) \0 035 002 \0
0011120 \0 002 @ 006 \0 \0 b \0 A \n \0 \0 @ 006 \0 \0
0011140 @ 310 027 k 330 021 002 001 H I 315 027 I 020 \0 (
0011160 1 1 Q B O U T ) \r ( 1 5 Q S
0011200 T R E A M 3 S T R E A M ) \r
0011220 ( ) \r \ B A S E B Y T E S . N A
0011240 M E . F R O M . S T R E A M D
0011260 1 \r ( L ( 0 S T R E A M ) )
0011300 \0 025 \0 \0 \0 001 @ 311 004 265 020 @ 311 002 @
0011320 310 026 @ \t \0 \0 h 032 032 032 020 \0 ( 1 6 Q
0011340 G E T E O F P T R ) \r N I L \r
0011360 ( ) \r \ B A S E B Y T E S . B O
0011400 U T D 1 \r ( L ( 1 B Y T E
0011420 0 S T R E A M ) ) \0 2 001 \0
0011440 \0 002 021 020 \0 @ 310 \0 X @ 310 \v 375 361 263 027
0011460 @ 311 \f X 227 @ k H 017 016 277 260 352 o \0 \0
0011500 \0 \t \0 \0 277 @ 311 002 H @ H k 330 315 \0 277
0011520 A 307 020 \0 ( 4 1 Q E R R O R ) \r
0011540 N I L \r ( 3 6 Q " A t t e m
0011560 p t t o w r i t e p a s t
0011600 e n d o f b y t e s b l
0011620 o c k " ) \r \ B A S E B Y T E S
0011640 . S E T F I L E P T R D 1 \r (
0011660 L ( 1 I 0 S T R E A M )
0011700 ) \0 # 001 \0 \0 002 A 021 001 \0 H @ 310 026
0011720 330 X d @ 310 \v 361 230 o \0 \0 \0 A \n \0 \0
0011740 206 @ 006 \0 \0 H 315 \0 h 020 \0 ( 2 7 Q
0011760 E R R O R ) \r ( 3 4 Q S T R E
0012000 A M ) \r ( 2 3 Q " B e y o n
0012020 d e n d o f b y t e r a
0012040 n g e " ) \r \ B A S E B Y T E S
0012060 . R E A D P D 1 \r ( L ( 1
0012100 F L G 0 S T R E A M ) ) \0
0012120 . 002 \0 \0 002 @ 310 \0 @ 310 \v 021 002 001 I j
0012140 H 331 330 Y l 002 I 361 h 360 265 027 d j 360 221
0012160 h 020 A 265 016 @ 311 002 @ 310 \0 302 l \r 360 h
0012200 360 020 \0 N I L \r N I L \r ( ) \r \ B
0012220 A S E B Y T E S . B I N D 1 \r
0012240 ( L ( 0 S T R E A M ) ) \0
0012260 022 \0 \0 \0 001 @ \t \0 \0 @ 006 \0 \0 @ 310 \0
0012300 k 330 315 \0 277 020 \0 ( 3 \ B A S E B
0012320 Y T E S . P E E K B I N ) \r ( 7
0012340 S T R E A M ) \r ( ) \r \ B A S
0012360 E B Y T E S . P E E K B I N D
0012400 1 \r ( L ( 1 N O E R R O R F
0012420 L G 0 S T R E A M ) ) \0 !
0012440 002 \0 \0 002 @ 310 \0 021 021 001 H @ 310 \v 375 361
0012460 254 A 250 @ 311 " 271 @ k I 016 020 h 020 @ 311
0012500 002 H 302 020 \0 N I L \r N I L \r ( ) \r
0012520 \ B A S E B Y T E S . T R U N C
0012540 A T E F N D 1 \r ( L ( 1 I
0012560 0 S T R E A M ) ) \0 1 003 \0
0012600 \0 002 A @ 310 026 @ 310 \v 021 003 002 H I 330 X
0012620 j A 361 223 d J 330 270 I A 361 243 H J 361 230
0012640 o \0 \0 \0 A \n \0 \0 020 @ 006 \0 \0 H 315 \v
0012660 H 020 \0 ( 4 5 Q E R R O R ) \r (
0012700 5 2 Q S T R E A M ) \r ( 4 1
0012720 Q " B e y o n d e n d o f
0012740 b y t e r a n g e " ) \r \ B
0012760 A S E B Y T E S . O P E N F N
0013000 D 1 \r ( L ( 4 F D E V 3
0013020 O T H E R I N F O 2 R E C O
0013040 G 1 A C C E S S 0 N A M
0013060 E ) ) \0 / \0 \0 \0 005 @ d \t \0 \0 252
0013100 277 @ o \0 \0 \0 \n \0 \0 277 @ 311 004 225 @ A
0013120 \n \0 \0 020 @ 311 002 @ 310 026 @ \t \0 \0 A @
0013140 311 \f @ \r 006 \0 \0 020 \0 ( 5 4 Q \ M
0013160 A K E B A S E B Y T E S T R E A
0013200 M 4 3 Q G E T E O F P T R
0013220 3 0 Q O P E N S T R I N G S T
0013240 R E A M 1 6 Q H E L P 4
0013260 S T R E A M P ) \r N I L \r ( 1
0013300 3 Q " W h y i s n ' t t h
0013320 i s a S T R E A M P " ) \r \
0013340 B A S E B Y T E S . B L O C K I
0013360 O D 1 \r ( L ( 4 D I R E C
0013400 T I O N 3 N 2 O F F S T
0013420 1 B A S E 0 S T R E A M
0013440 ) ) \0 i 004 \0 \0 005 021 @ 003 C j 361 264
0013460 L @ 311 002 270 @ 310 \0 271 @ 310 \v 272 C J I
0013500 k 331 331 361 237 D g \0 \0 360 262 2 @ 311 " 273
0013520 @ k K 016 277 @ 006 \0 \0 I C 330 315 \0 277 D
0013540 g \0 \0 360 233 A H b 002 277 270 B I b 004 277
0013560 271 H I A B C \r 005 \0 \0 h 020 @ A B 302
0013600 \n \0 \0 277 B k 330 b 004 277 C k 331 b 006 260
0013620 236 \0 ( 1 3 1 Q B O U T 1 2 0
0013640 Q \ M O V E B Y T E S ) \r ( 7
0013660 1 Q O U T P U T 5 7 Q S T
0013700 R E A M 3 7 Q I N P U T ) \r
0013720 ( ) \r O P E N S T R I N G S T R
0013740 E A M D 1 \r ( L ( 0 S T R
0013760 ) ) \0 r 002 \0 \0 001 021 001 @ d 005 \a
0014000 263 = 277 @ d 004 ` \0 \0 360 262 . 311 004 265 003
0014020 @ 005 \a 262 $ @ d g \0 \0 i \v \0 \0 264 004
0014040 @ 020 i \v \0 \0 232 @ X Y 311 004 265 003 I b
0014060 \0 212 @ \t \0 \0 203 @ \t \0 \0 277 @ 311 \0 265
0014100 003 i @ 310 003 @ 310 002 g \0 \0 h H \r 006 \0
0014120 \0 X d @ 024 004 277 H k 317 004 0 277 H k 317
0014140 004 @ 277 k j 360 h 360 H 020 \0 ( 1 2 7 Q
0014160 \ M A K E B A S E B Y T E S T
0014200 R E A M 1 0 1 Q \ I L L E G
0014220 A L . A R G 7 4 Q \ F I L E
0014240 . W O N T . O P E N 5 4 Q \
0014260 I O M O D E P 4 4 Q \ I O M
0014300 O D E P ) \r ( 1 2 1 Q I N P U
0014320 T 4 0 Q I N P U T 1 7 Q
0014340 004 003 S T R E A M T Y P E # ) \r (
0014360 ) \r G E T S T R E A M D 1 \r (
0014400 L ( 1 A C C E S S 0 F I
0014420 L E ) ) \0 \a \0 \0 \0 002 @ A \n \0 \0
0014440 020 \0 ( 4 \ G E T S T R E A M )
0014460 \r N I L \r ( ) \r \ A D D O F D
0014500 D 1 \r ( L ( 0 S T R E A M )
0014520 ) \0 022 \0 \0 \0 001 \b \0 \0 @ d 311 004 227
0014540 ` \0 \0 032 027 \0 \0 @ 020 \0 ( 2 \ C L
0014560 E A R O F D ) \r ( 1 6 Q \ O P
0014600 E N F I L E S 1 2 Q \ O P E
0014620 N F I L E S ) \r ( ) \r \ C L E A
0014640 R O F D D 1 \r N I L \0 005 \0 \0
0014660 \0 \0 g \0 \0 020 \0 N I L \r ( 2 I F
0014700 ) \r ( ) \r \ D E L E T E O F D
0014720 D 1 \r ( L ( 0 O F D ) ) \0
0014740 \f \0 \0 \0 001 @ ` \0 \0 \n \0 \0 027 \0 \0 020
0014760 \0 ( 6 D R E M O V E ) \r ( 1 1
0015000 Q \ O P E N F I L E S 3 \
0015020 O P E N F I L E S ) \r ( ) \r \ G
0015040 E T S T R E A M D 1 \r ( L (
0015060 2 N O E R R O R 1 A C C E
0015100 S S 0 X ) F 0 \ P R I
0015120 M I N . O F D F 1 \ P R I
0015140 M O U T . O F D F 2 \ L I
0015160 N E B U F . O F D F 3 \ T
0015200 E R M . O F D ) \0 271 \0 004 \0 003 @
0015220 265 ; A d g \0 \0 360 235 277 P d ` \0 \0 360
0015240 224 277 \b \0 \0 P 020 g \0 \0 360 262 023 ` \0 \0
0015260 232 Q d ` \0 \0 360 224 277 \b \0 \0 Q 020 P R
0015300 360 241 P 200 Q A B \v \0 \0 020 i 360 262 0 A
0015320 d g \0 \0 360 235 277 R d ` \0 \0 360 224 277 \b
0015340 \0 \0 R 020 g \0 \0 360 242 A 263 6 ` \0 \0 232
0015360 S d ` \0 \0 360 224 277 \b \0 \0 S 020 @ d 004
0015400 ` \0 \0 360 263 301 d 004 l 004 360 262 033 A \n \0
0015420 \0 265 * @ g \0 \0 \n \0 \0 A \n \0 \0 265 035
0015440 @ B \n \0 \0 020 d 005 \a 262 023 277 @ A \n \0
0015460 \0 265 \n @ A \n \0 \0 \t \0 \0 020 004 ` \0 \0
0015500 360 262 337 @ 311 \0 020 \0 ( 2 5 3 Q \ A
0015520 D D O F D 2 5 0 Q O P E N S
0015540 T R I N G S T R E A M 2 4 1 Q
0015560 \ S E A R C H O P E N F I L E
0015600 S 2 2 5 Q \ F I L E . N O T
0015620 . O P E N 2 1 6 Q \ S E A R
0015640 C H O P E N F I L E S 2 1 2 Q
0015660 \ G E T F I L E N A M E 2 0
0015700 1 Q \ S E A R C H O P E N F I
0015720 L E S 1 5 3 Q \ C R E A T E
0015740 . T T Y D I S P L A Y S T R E A
0015760 M 1 2 2 Q \ C R E A T E . T
0016000 T Y D I S P L A Y S T R E A M
0016020 7 2 Q \ I O M O D E P 5 4 Q
0016040 \ C R E A T E . T T Y D I S P
0016060 L A Y S T R E A M 2 5 Q \ C
0016100 R E A T E . T T Y D I S P L A Y
0016120 S T R E A M ) \r ( 2 6 0 Q 004 003
0016140 W I N D O W T Y P E # 2 0 7 Q
0016160 O L D 1 6 3 Q 004 003 S T R E
0016200 A M T Y P E # 1 4 5 Q \ D E
0016220 F A U L T T T Y D I S P L A Y S
0016240 T R E A M 1 3 7 Q \ D E F A
0016260 U L T T T Y D I S P L A Y S T R
0016300 E A M 1 2 7 Q O U T P U T
0016320 1 1 4 Q \ D E F A U L T L I N
0016340 E B U F 1 0 4 Q I N P U T
0016360 4 6 Q \ D E F A U L T T T Y D
0016400 I S P L A Y S T R E A M 4 0 Q
0016420 \ D E F A U L T T T Y D I S P
0016440 L A Y S T R E A M 3 2 Q O U
0016460 T P U T 1 7 Q \ D E F A U L
0016500 T L I N E B U F 7 I N P U T
0016520 ) \r ( ) \r \ R E S E T O F D S A
0016540 1 4 2 6 D 1 \r ( F 0 \ T E
0016560 R M . O F D F 1 \ P R I M
0016600 O U T . O F D F 2 \ D R I
0016620 B B L E . O F D F 3 \ L I
0016640 N E B U F . O F D F 4 \ P
0016660 R I M I N . O F D ) \0 016 \0 005 \0
0016700 \0 \b \0 \0 P c 002 S c \b h c 004 020 \0 (
0016720 2 \ O P E N L I N E B U F ) \r
0016740 N I L \r ( ) \r \ R E S E T O F D
0016760 S D 1 \r N I L \0 , 001 \0 \0 \0 g
0017000 \0 \0 \t \0 \0 ` \0 \0 260 032 d 001 021 001 \0 H
0017020 006 \0 \0 h 024 002 277 H \t \0 \0 277 H \t \0 \0
0017040 023 002 003 265 347 h 027 \0 \0 020 \0 ( 4 0 Q
0017060 \ S E T A C C E S S 3 3 Q F
0017100 O R G E T P A G E S 5 M A P
0017120 . P R O C E S S E S ) \r ( 5 1 Q
0017140 \ O P E N F I L E S 2 3 Q
0017160 S T R E A M 1 0 Q \ O P E N
0017200 F I L E S 2 \ R E S E T O F
0017220 D S A 1 4 2 6 ) \r ( ) \r \ S E A
0017240 R C H O P E N F I L E S D 1 \r
0017260 ( L ( 1 A C C E S S 0 N
0017300 A M E ) ) \0 ( 002 \0 \0 002 ` \0 \0 021
0017320 021 001 H 003 265 004 h 020 001 271 @ I 311 004 265 003
0017340 I 360 232 A 226 I A i \v \0 \0 020 I 020 H 002
0017360 X 260 342 \0 ( 3 6 Q \ I O M O D E
0017400 P ) \r ( 2 \ O P E N F I L E S
0017420 ) \r ( ) \r ( P R E T T Y C O M P
0017440 R I N T A O F D C O M S ) \r (
0017460 R P A Q Q A O F D C O M S (
0017500 ( * O p e n f i l e d e s
0017520 c r i p t o r s . T h i s f
0017540 i l e i s s h a r e d w i
0017560 t h V A X . ) ( F N S C L
0017600 O S E A L L C L O S E F I N
0017620 P U T \r O P E N P O U T P U
0017640 T P O S I T I O N R A N D A
0017660 C C E S S P \ I O M O D E P )
0017700 ( C O M S ( * S T R E A M
0017720 i n t e r f a c e t o R e
0017740 a d a n d W r i t e t o
0017760 r a n d o m \r m e m o r y )
0020000 ( D E C L A R E : D O N T C O
0020020 P Y ( E X P O R T ( R E C O
0020040 R D S B A S E B Y T E S T R E
0020060 A M ) ) ) ( F N S \ B A S E
0020100 B Y T E S . I O . I N I T \r \
0020120 M A K E B A S E B Y T E S T R E
0020140 A M \ M B S . O U T C H A R F
0020160 N \ B A S E B Y T E S . N A M
0020200 E . F R O M . S T R E A M \ B
0020220 A S E B Y T E S . B O U T \ B
0020240 A S E B Y T E S . S E T F I L E
0020260 P T R \r \ B A S E B Y T E S .
0020300 R E A D P \ B A S E B Y T E S
0020320 . B I N \ B A S E B Y T E S .
0020340 P E E K B I N \ B A S E B Y T
0020360 E S . T R U N C A T E F N \ B
0020400 A S E B Y T E S . O P E N F N
0020420 \r \ B A S E B Y T E S . B L O C
0020440 K I O ) ( G L O B A L V A R S
0020460 \ B A S E B Y T E S D E V I C
0020500 E ) ( D E C L A R E : D O N
0020520 T E V A L @ L O A D ( P ( \
0020540 B A S E B Y T E S . I O . I N I
0020560 T ) ) ) ( \r F N S O P E N S
0020600 T R I N G S T R E A M ) ) ( F
0020620 N S G E T S T R E A M \ A D
0020640 D O F D \ C L E A R O F D \
0020660 D E L E T E O F D \ G E T S T
0020700 R E A M \ R E S E T O F D S
0020720 \r \ S E A R C H O P E N F I L E
0020740 S ) ( D E C L A R E : D O N
0020760 T C O P Y ( E X P O R T ( M
0021000 A C R O S \ I N S T R E A M A
0021020 R G \ O U T S T R E A M A R G
0021040 \ S T R E A M A R G ) ) ) (
0021060 M A C R O S \r G E T O F D \
0021100 G E T O F D ) ( D E C L A R E
0021120 : D O N T E V A L @ L O A D
0021140 ( P ( M O V D ? ( Q U O T E
0021160 G E T S T R E A M ) ( Q U O
0021200 T E G E T O F D ) ) ( M O V
0021220 D ? ( Q U O T E \r \ G E T S
0021240 T R E A M ) ( Q U O T E \ G
0021260 E T O F D ) ) ) ) ( I N I T V
0021300 A R S ( \ O P E N F I L E S )
0021320 ) ( G L O B A L V A R S \ O
0021340 P E N F I L E S ) ( L O C A L
0021360 V A R S . T ) ( \r D E C L
0021400 A R E : D O N T E V A L @ L O
0021420 A D D O E V A L @ C O M P I L
0021440 E D O N T C O P Y C O M P I
0021460 L E R V A R S ( A D D V A R S
0021500 ( N L A M A ) ( N L A M L )
0021520 ( L A M A ) ) ) ) ) \r ( \ B A
0021540 S E B Y T E S . I O . I N I T )
0021560 \r ( P U T P R O P S G E T O F
0021600 D M A C R O ( = . G E T
0021620 S T R E A M ) ) \r ( P U T P R O
0021640 P S \ G E T O F D M A C R O
0021660 ( = . \ G E T S T R E A M
0021700 ) ) \r ( M O V D ? ( Q U O T E
0021720 G E T S T R E A M ) ( Q U O
0021740 T E G E T O F D ) ) \r ( M O V
0021760 D ? ( Q U O T E \ G E T S T
0022000 R E A M ) ( Q U O T E \ G E
0022020 T O F D ) ) \r ( R P A Q ? \ O
0022040 P E N F I L E S ) \r ( P U T P R
0022060 O P S A O F D C O P Y R I G
0022100 H T ( " X e r o x C o r p o
0022120 r a t i o n " 1 9 8 1 1 9 8
0022140 2 1 9 8 3 ) ) \r N I L \r
0022155