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