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