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