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