$ od -c -N 50000 [eris]<Lisp>INTERMEZZO>SOURCES>HIST.DCOM!1
0000000 ( F I L E C R E A T E D " 6
0000020 - J a n - 8 5 1 5 : 2 1 : 2 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 > H I S T . ;
0000120 9 ) \r " 6 - J a n - 8 5 0
0000140 5 : 1 1 : 1 0 " b c o m p l '
0000160 d i n " I N T E R L I S P -
0000200 D 6 - J a n - 8 5 . . . "
0000220 d a t e d " 6 - J a n - 8
0000240 5 0 5 : 2 8 : 4 6 " ) \r ( F I
0000260 L E C R E A T E D " 2 9 - N o
0000300 v - 8 4 1 7 : 0 6 : 2 7 " {
0000320 E R I S } < L I S P C O R E > S
0000340 O U R C E S > H I S T . ; 9 1
0000360 0 3 3 1 4 c h a n g e s t o
0000400 : ( V A R S H I S T C O M S
0000420 ) \r p r e v i o u s d a t e
0000440 : " 1 3 - S E P - 8 4 0 0 :
0000460 0 5 : 5 2 " { E R I S } < L I
0000500 S P C O R E > S O U R C E S > H
0000520 I S T . ; 8 ) \r L I S P X F I N
0000540 D A 0 0 0 1 D 1 \r ( N A M E
0000560 E R R O R S E T P 0 L S T
0000600 F 1 2 Q T Y P E F 1 3
0000620 Q H I S T O R Y F 1 4 Q
0000640 L I N E F 1 5 Q Q U I E T
0000660 F L G F 1 6 Q B A C K U P
0000700 ) 001 352 \n 005 002 \0 ` \0 \0 265 004 W 032 027
0000720 \0 \0 277 W 026 001 W 026 002 001 W 026 002 002 002 001
0000740 265 004 l d W 030 021 4 006 W 034 226 H 002 270 I
0000760 k 331 271 ` \0 \0 232 H 001 001 246 H 002 270 I k
0001000 331 271 W 030 265 # H 001 \ d 001 001 g \0 \0 360
0001020 250 001 001 g \0 \0 360 262 N L 002 002 001 g \0 \0
0001040 360 263 D H 002 260 > 001 g \0 \0 360 235 ` \0 \0
0001060 W 030 002 W 024 \v \0 \0 261 001 D L K g \0 \0
0001100 K 002 034 265 \b g \0 \0 K 002 034 [ \n \0 \0 H
0001120 I J \f \0 \0 \n \0 \0 274 K 002 [ 263 337 L 002
0001140 263 P L 001 274 ` \0 \0 231 g \0 \0 i h L \f
0001160 \0 \0 277 L 264 003 202 261 001 005 W 024 d g \0 \0
0001200 360 242 261 \0 376 277 L d 001 250 277 g \0 \0 L \n
0001220 \0 \0 002 001 L \n \0 \0 d \t \0 \0 001 ` \0 \0
0001240 360 h 360 264 \a ` \0 \0 h 032 \n \0 \0 261 \0 317
0001260 ` \0 \0 262 025 L 215 d 001 275 g \0 \0 i h M
0001300 \f \0 \0 277 002 003 265 361 L 264 003 202 261 \0 260 W
0001320 024 d g \0 \0 360 262 T 277 021 0 \t L 260 ; d
0001340 001 ^ d 001 250 277 g \0 \0 N \n \0 \0 002 001 N
0001360 \n \0 \0 d \t \0 \0 001 ` \0 \0 360 h 360 264 \a
0001400 ` \0 \0 h 032 \n \0 \0 _ 016 003 232 O 020 265 022
0001420 O 016 _ 022 _ 020 277 002 003 265 306 O 022 022 260 ^
0001440 \t \0 \0 _ 020 O 016 031 260 356 d g \0 \0 360 245
0001460 d g \0 \0 360 223 277 L 260 D d g \0 \0 360 246
0001500 d g \0 \0 360 262 * 277 021 0 \t L 260 034 d 001
0001520 \t \0 \0 _ 016 277 O 020 265 \t O 016 h 032 _ 022
0001540 202 O 016 & _ 020 277 002 003 265 345 O 022 022 214 277
0001560 W 024 o \0 \0 \0 i \v \0 \0 277 h 022 h 032 020
0001600 d g \0 \0 360 223 277 L 260 364 d g \0 \0 360 225
0001620 277 L h 032 260 350 d g \0 \0 360 226 277 L \t \0
0001640 \0 260 333 g \0 \0 360 262 311 L \t \0 \0 h 032 260
0001660 315 \0 ( 7 4 4 Q \ L I S P X F I
0001700 N D B L O C K / L I S P X F I N
0001720 D 1 7 3 0 Q \ L I S P X F I
0001740 N D B L O C K / L I S P X F I N
0001760 D 1 6 6 1 Q E R R O R 6 1
0002000 2 Q \ L I S P X F I N D B L O
0002020 C K / L I S P X F I N D 1 5 3
0002040 2 Q L A S T 4 7 7 Q \ A P
0002060 P E N D 2 4 5 6 Q L A S T
0002100 4 5 2 Q L I S P X G E T I N P
0002120 U T 4 4 4 Q M E M B 3 7 2
0002140 Q L I S P X P U T 3 4 4 Q
0002160 \ A P P E N D 2 3 2 3 Q L A
0002200 S T 3 1 7 Q L I S P X G E T
0002220 I N P U T 3 1 1 Q M E M B
0002240 2 5 1 Q L I S P X P U T 2 1
0002260 7 Q \ N C O N C 2 2 1 4 Q
0002300 \ L I S P X F I N D B L O C K /
0002320 L I S P X F I N D 0 2 0 6 Q
0002340 L D I F F 1 5 7 Q L I S P X
0002360 F I N D ) \r ( 7 3 5 Q C O P I
0002400 E S 7 2 1 Q C O P Y 7 0 5
0002420 Q E N T R I E S 6 7 3 Q E
0002440 N T R Y 5 7 3 Q C O P I E S
0002460 5 6 5 Q C O P Y 5 5 3 Q
0002500 E N T R I E S 5 4 5 Q E N T
0002520 R Y 4 7 2 Q H I S T S T R 0
0002540 4 6 2 Q H I S T S T R 0 4
0002560 4 0 Q * H I S T O R Y * 4 1
0002600 4 Q I N P U T 3 6 4 Q * A
0002620 R C H I V E * 3 5 2 Q A R C
0002640 H I V E F L G 3 3 7 Q H I S
0002660 T S T R 0 3 2 7 Q H I S T S
0002700 T R 0 3 0 5 Q * H I S T O R
0002720 Y * 2 6 7 Q I N P U T 2 4
0002740 3 Q * A R C H I V E * 2 3 7
0002760 Q A R C H I V E F L G 1 7 7
0003000 Q a n d 1 6 7 Q A N D 1
0003020 4 7 Q A R C H I V E L S T 1
0003040 4 2 Q @ @ 1 2 7 Q \a 1 1
0003060 5 Q u n d o 1 0 6 Q U N D
0003100 O 5 5 Q R E R E A D F L G
0003120 1 1 Q E D I T Q U I E T F L G
0003140 2 E D I T Q U I E T F L G )
0003160 \r ( 6 5 5 Q " - L I S P X
0003200 F I N D ? " ) \r L I S P X F I
0003220 N D D 1 \r ( I 4 Q U I E T
0003240 F L G I 3 B A C K U P I
0003260 2 T Y P E I 1 L I N E
0003300 I 0 H I S T O R Y F 2
0003320 R E S E T V A R S L S T ) \0
0003340 Q 002 001 \0 005 @ 253 o \0 \0 \0 g \0 \0 i \v
0003360 \0 \0 277 g \0 \0 ` \0 \0 032 R 032 c 004 021 021
0003400 001 R Y o \0 \0 \0 g \0 \0 \n \0 \0 H 001 002
0003420 027 \0 \0 277 I d R 360 225 277 H 002 c 004 215 R
0003440 \n \0 \0 231 R k I \v \0 \0 H 002 031 277 265 005
0003460 \b \0 \0 001 020 \0 ( 1 1 5 Q E R R O
0003500 R ! 1 0 4 Q N L E F T 7 5
0003520 Q T A I L P 4 7 Q L I S P
0003540 X F I N D A 0 0 0 1 1 4 Q E
0003560 R R O R ) \r ( 5 5 Q E D I T Q
0003600 U I E T F L G 4 4 Q I N T E
0003620 R N A L 2 3 Q E D I T Q U I
0003640 E T F L G 2 0 Q E D I T Q U
0003660 I E T F L G 1 0 Q \a ) \r (
0003700 4 1 Q ( L I S P X F I N D A 0
0003720 0 0 1 ) 5 " n o h i s t o
0003740 r y . " ) \r \ L I S P X F I N D
0003760 B L O C K / L I S P X F I N D 0
0004000 D 1 \r ( L ( 3 M O D 2
0004020 I N D E X 0 L I N E 0 ) P
0004040 0 H I S T O R Y F L G I
0004060 1 L S T F 5 L I N E F
0004100 6 T Y P E ) 001 h 005 002 \0 004 021
0004120 P 004 @ d 002 263 + 277 A B C @ U \r 005 \0
0004140 \0 001 274 H 242 261 001 M V g \0 \0 360 242 261 001
0004160 D g \0 \0 L \n \0 \0 002 001 L 002 032 261 001 6
0004200 001 d g \0 \0 360 262 * 277 @ 002 001 \ g \0 \0
0004220 033 b \0 251 L o \0 \0 \0 i \v \0 \0 277 V g
0004240 \0 \0 360 227 @ 002 001 h 032 h 032 020 @ 002 002 020
0004260 d g \0 \0 360 246 d g \0 \0 360 262 ` 277 @ 002
0004300 Z 277 g \0 \0 @ 034 \ 263 034 g \0 \0 @ 034 \
0004320 263 024 g \0 \0 @ 034 265 \a g \0 \0 @ 034 \ Y
0004340 242 261 \0 204 @ k L \v \0 \0 001 g \0 \0 360 263
0004360 v A B C J 265 003 @ L \n \0 \0 U \r 005 \0
0004400 \0 272 A B C L 002 U \r 005 \0 \0 273 J 263 h
0004420 I 222 K 002 273 A K \n \0 \0 020 d g \0 \0 360
0004440 263 025 d g \0 \0 360 254 d g \0 \0 360 246 d g
0004460 \0 \0 360 262 030 277 @ 001 g \0 \0 360 265 \b @ 001
0004500 g \0 \0 360 271 A B C @ 260 275 d g \0 \0 360
0004520 250 d g \0 \0 360 242 261 377 j 277 A B C @ U
0004540 \r 005 \0 \0 020 J 242 261 376 361 A B C J U \r
0004560 005 \0 \0 Z 260 232 K 265 024 J 002 244 A \t \0 \0
0004600 205 A J 002 \n \0 \0 \t \0 \0 020 J \n \0 \0 232
0004620 I 222 K 002 273 J K \n \0 \0 020 I 242 K 002 273
0004640 J 002 244 K \t \0 \0 205 K J 002 \n \0 \0 \t \0
0004660 \0 020 L h 032 020 \0 ( 5 4 1 Q D R E
0004700 V E R S E 5 3 6 Q L D I F F
0004720 5 2 7 Q \ A P P E N D 2 5
0004740 1 2 Q L D I F F 4 7 7 Q T
0004760 A I L P 4 7 2 Q D R E V E R
0005000 S E 4 6 7 Q L D I F F 4 6
0005020 0 Q \ A P P E N D 2 4 4 3 Q
0005040 H I S T O R Y F I N D 4 2 4
0005060 Q H I S T O R Y F I N D 3 1
0005100 2 Q L D I F F 2 7 4 Q H I
0005120 S T O R Y F I N D 2 6 1 Q H
0005140 I S T O R Y F I N D 2 5 4 Q
0005160 L D I F F 2 3 2 Q N L E F T
0005200 1 1 5 Q E R R O R 5 0 Q
0005220 M E M B 2 1 Q H I S T O R Y
0005240 F I N D ) \r ( 4 0 5 Q a l l
0005260 3 7 7 Q A L L 3 6 3 Q t h
0005300 r u 3 5 3 Q T H R U 3 4 2
0005320 Q t h r u 3 3 4 Q t o 3
0005340 2 6 Q T H R U 3 1 7 Q T O
0005360 2 3 6 Q F 2 1 4 Q t h r
0005400 u 2 0 5 Q T H R U 1 7 5 Q
0005420 t o 1 6 5 Q T O 1 5 2 Q
0005440 f r o m 1 4 4 Q F R O M
0005460 1 2 2 Q I N P U T 1 0 0 Q
0005500 * H I S T O R Y * 6 5 Q @
0005520 4 4 Q * H I S T O R Y * 3 4
0005540 Q I N P U T ) \r ( 1 1 1 Q
0005560 " ? " ) \r \ L I S P X F I N D
0005600 B L O C K / L I S P X F I N D 1
0005620 D 1 \r ( L ( 0 X ) ) \0 026
0005640 \0 \0 \0 001 @ 001 \t \0 \0 @ 002 b \0 001 @ 002
0005660 b \0 001 @ 002 032 032 032 020 \0 ( 4 \ A P
0005700 P E N D 2 ) \r N I L \r ( ) \r H I
0005720 S T O R Y F I N D D 1 \r ( L
0005740 ( 4 L I S P X F I N D F L G
0005760 3 E V E N T A D D R E S S 2
0006000 M O D 1 I N D E X ) P
0006020 7 P R E D F L G P 5 = F
0006040 L G P 4 _ F L G P 2
0006060 Z P 0 L I 0 L S T
0006100 F 1 4 Q L I N E F 1 5 Q
0006120 H I S T O R Y F 1 6 Q T
0006140 Y P E F 1 7 Q H I S T O R
0006160 Y F L G F 2 0 Q B A C K U
0006200 P F 2 1 Q Q U I E T F L G
0006220 ) 001 } \f 006 \0 005 @ C 021 242 \v C 001 Z
0006240 d g \0 \0 360 262 030 277 ` \0 \0 001 001 001 ` \0
0006260 \0 002 364 264 006 ` \0 \0 001 X 261 \0 211 g \0 \0
0006300 360 250 J d g \0 \0 360 262 031 277 D 251 J o \0
0006320 \0 \0 i \v \0 \0 277 i _ 020 277 C 002 b 006 260
0006340 277 g \0 \0 360 227 i 275 C 002 b 006 260 262 J d
0006360 g \0 \0 360 230 277 i 274 C 002 b 006 260 242 g \0
0006400 \0 360 247 J d g \0 \0 360 235 277 C 002 [ 262 0
0006420 C 002 b 006 001 272 260 ( g \0 \0 360 245 J g \0
0006440 \0 360 232 i _ 016 277 C 002 b 006 001 272 217 L 255
0006460 M 253 J d 005 001 245 d 005 002 241 005 003 256 \b \0
0006500 \0 277 H 222 261 \0 234 O 020 262 E N 020 j J 361
0006520 231 H j J 331 \n \0 \0 X 260 352 H @ 360 252 @
0006540 J k 330 H \v \0 \0 X 260 333 J A 361 252 H A
0006560 J 331 \n \0 \0 002 X 260 314 A B j J 331 330 330
0006600 [ j 361 262 277 H K \n \0 \0 002 X 260 267 ` \0
0006620 \0 262 D D 262 A W 030 260 " d _ 026 001 O 026
0006640 _ 024 277 _ 022 ` \0 \0 034 256 O 022 l F ` \0
0006660 \0 i O 024 \r 005 \0 \0 244 002 003 265 337 h 262 027
0006700 g \0 \0 W 032 W 030 W 034 W W " \r 005 \0
0006720 \0 \n \0 \0 277 J o \0 \0 \0 i \v \0 \0 260 '
0006740 C 002 b 006 263 " H d 001 001 [ 001 K 002 032 032
0006760 027 \0 \0 277 O 020 241 H 020 N H 001 h 032 \n \0
0007000 \0 276 I b 006 277 H 002 270 h \ ] _ 016 c 036
0007020 277 261 376 214 \0 ( 5 5 0 Q \ N C O N
0007040 C 2 5 0 5 Q E R R O R 4 7
0007060 3 Q R E T F R O M 4 7 0 Q
0007100 L I S P X F I N D 4 3 7 Q F
0007120 I X S P E L L 3 6 1 Q N T H
0007140 3 3 4 Q N T H 3 1 6 Q N
0007160 L E F T 2 7 7 Q N T H 2 5
0007200 0 Q \ L I S P X F I N D B L O
0007220 C K / H I S T O R Y F I N D 1
0007240 7 5 Q E R R O R ) \r ( 5 3 2 Q
0007260 L A S T H I S T O R Y 4 5 2
0007300 Q L I S P X F I N D 4 3 0 Q
0007320 L I S P X F I N D S P L S T
0007340 4 1 7 Q L I S P X F I N D S P
0007360 L S T 3 7 0 Q D W I M F L G
0007400 2 1 0 Q s u c h t h a t 2
0007420 0 2 Q S U C H T H A T 1 5 7
0007440 Q f 1 5 0 Q F 1 3 2 Q
0007460 _ 1 1 3 Q = 5 6 Q a l l
0007500 4 7 Q A L L 3 7 Q L A S
0007520 T H I S T O R Y 3 0 Q L A S
0007540 T H I S T O R Y 2 2 Q L A S
0007560 T H I S T O R Y 1 3 Q \ ) \r
0007600 ( 5 0 1 Q " ? " 7 1 Q
0007620 " ? " ) \r \ L I S P X F I N D
0007640 B L O C K / H I S T O R Y F I N
0007660 D 1 D 1 \r ( F 5 L F 6
0007700 Z F 7 L S T F 1 0 Q
0007720 _ F L G F 1 1 Q P R E D
0007740 F L G F 1 2 Q = F L G F
0007760 1 3 Q H I S T O R Y F L G )
0010000 001 003 005 \a \0 \0 021 P 004 W 020 262 027 U W
0010020 016 360 224 U \t \0 \0 207 W 016 l 002 U \v \0 \0
0010040 c \n 277 W 022 263 ) V d 004 l 004 361 263 034 \t
0010060 \0 \0 l _ 360 262 023 V ` \0 \0 \n \0 \0 002 \t
0010100 \0 \0 i \n \0 \0 270 205 V i \n \0 \0 271 U 001
0010120 001 001 Z g \0 \0 360 245 J g \0 \0 360 233 U d
0010140 001 002 002 001 245 277 h 261 \0 222 U 001 273 g \0 \0
0010160 K \n \0 \0 002 001 Z 222 I 265 022 W 022 262 037 U
0010200 001 001 U 001 l 002 V 017 016 260 p J 001 360 247 I
0010220 J 001 003 001 360 262 346 i c 026 260 _ H 265 026 W
0010240 024 262 ; g \0 \0 U 001 034 262 023 U 002 c \n d
0010260 263 237 020 U 001 001 001 \n \0 \0 260 ? g \0 \0 U
0010300 001 034 262 024 U 001 001 001 Z g \0 \0 360 263 336 J
0010320 g \0 \0 360 263 327 U 001 002 002 260 030 ` \0 \0 257
0010340 U d 001 001 253 001 274 g \0 \0 L \n \0 \0 002 201
0010360 U 001 001 I U 001 \v \0 \0 221 U 020 W 020 262 255
0010400 W 016 k U \v \0 \0 260 246 \0 ( 3 7 7 Q
0010420 N L E F T 3 6 1 Q H I S T O
0010440 R Y M A T C H 3 4 6 Q M E M
0010460 B 2 6 2 Q E D I T 4 E 1 5
0010500 4 Q M E M B 1 0 5 Q E D I
0010520 T F P A T 7 6 Q E D I T F P
0010540 A T 7 2 Q P A C K 6 6 Q
0010560 D U N P A C K 5 2 Q C H C O
0010600 N 1 3 0 Q N L E F T 1 7 Q
0010620 L A S T ) \r ( 3 4 2 Q * H I
0010640 S T O R Y * 3 2 7 Q R E R E
0010660 A D F L G 3 1 3 Q E V A L
0010700 3 0 4 Q O K 2 6 7 Q * P R
0010720 I N T * 2 3 6 Q * H I S T O
0010740 R Y * 1 5 0 Q * H I S T O R
0010760 Y * 1 2 4 Q u n d o 1 1 6
0011000 Q U N D O 6 3 Q C H C O N
0011020 L S T 1 ) \r ( ) \r E N T R Y #
0011040 D 1 \r ( L ( 1 X 0 H I S
0011060 T ) ) \0 # \0 \0 \0 002 @ 002 001 j @ 001
0011100 \t \0 \0 331 A @ 001 034 \t \0 \0 330 330 d j 361
0011120 251 @ 002 002 002 001 265 004 l d 330 020 \0 ( 2 0
0011140 Q F L E N G T H 1 0 Q F L
0011160 E N G T H ) \r N I L \r ( ) \r E V
0011200 A L Q T A 0 0 0 1 D 1 \r ( N A
0011220 M E E R R O R S E T F 0
0011240 L I S P X I D ) \0 \f \0 001 002 \0 i
0011260 d \n \0 \0 P \n \0 \0 i 020 \0 ( 1 0 Q
0011300 L I S P X 4 L I S P X R E A
0011320 D ) \r N I L \r ( ) \r E V A L Q T
0011340 D 1 \r ( I 0 L I S P X I D
0011360 ) \0 4 \0 \0 \0 001 @ 265 \r g \0 \0 b \0
0011400 277 \b \0 \0 277 @ i ` \0 \0 \v \0 \0 277 o \0
0011420 \0 \0 i \n \0 \0 263 357 i \t \0 \0 265 005 ` \0
0011440 \0 027 \0 \0 277 i \t \0 \0 260 333 \0 ( 6 0 Q
0011460 T E R P R I 4 3 Q C L B U
0011500 F S 3 5 Q E V A L Q T A 0 0
0011520 0 1 2 4 Q P R O M P T C H A
0011540 R 1 3 Q E N T E R E V A L Q
0011560 T ) \r ( 5 3 Q T O P L I S P X
0011600 B U F S 5 0 Q T O P L I S P
0011620 X B U F S 2 1 Q L I S P X H
0011640 I S T O R Y 5 _ ) \r ( 3 1
0011660 Q ( E V A L Q T A 0 0 0 1 ) )
0011700 \r G E T E X P R E S S I O N F R
0011720 O M E V E N T S P E C D 1 \r (
0011740 L ( 0 L I N E ) ) 001 031 016 \0
0011760 \0 001 ` \0 \0 @ g \0 \0 i \f \0 \0 021 A 004
0012000 021 0 \a ` \0 \0 H 034 Y 242 261 \0 371 H I \n
0012020 \0 \0 272 I 002 270 J d 001 g \0 \0 360 221 002 Z
0012040 002 244 J 001 261 \0 311 J 001 \t \0 \0 d k 360 245
0012060 d l 003 360 262 023 277 J 001 J d 002 002 223 002 261
0012100 \0 255 002 001 261 \0 250 277 J d 002 002 231 o \0 \0
0012120 \0 \n \0 \0 261 \0 231 001 g \0 \0 360 262 M g \0
0012140 \0 J 002 001 001 021 0 \n J 002 001 260 4 d 001 [
0012160 d 262 032 d i 360 263 025 d 005 001 245 d 005 002 241
0012200 005 003 265 \t g \0 \0 K h 032 032 _ 020 277 O 022
0012220 265 \t O 020 h 032 _ 024 202 O 020 & _ 022 277 002
0012240 003 265 314 O 024 022 032 260 E J 001 021 0 \r J 002
0012260 001 260 5 d 001 \ d 262 032 d i 360 263 025 d 005
0012300 001 245 d 005 002 241 005 003 265 \t g \0 \0 L h 032
0012320 032 _ 026 277 O 030 265 \t O 026 h 032 _ 032 202 O
0012340 026 & _ 030 277 002 003 265 314 O 032 022 032 _ 016 277
0012360 N 265 \v O 016 h 032 ^ 275 261 377 \n O 016 & 276
0012400 261 377 003 M 022 d \t \0 \0 020 \0 ( 4 2 6 Q
0012420 M K P R O G N 1 4 1 Q E R
0012440 R O R 7 1 Q A R G T Y P E
0012460 3 7 Q L D I F F 1 2 Q L I
0012500 S P X F I N D ) \r ( 3 3 2 Q Q
0012520 U O T E 2 2 4 Q Q U O T E
0012540 1 5 6 Q S E T Q 1 5 0 Q S
0012560 E T 5 1 Q R E T R Y : 2 3
0012600 Q H I S T S T R 0 6 I N P
0012620 U T 2 L I S P X H I S T O R
0012640 Y ) \r ( 1 3 6 Q " C a n ' t
0012660 r e m e m b e r " ) \r G R E E
0012700 T A 0 0 0 1 D 1 \r ( N A M E
0012720 E R R O R S E T F 0 F I L
0012740 E ) \0 ( \0 001 002 \0 h 027 \0 \0 277 i \t
0012760 \0 \0 c \0 227 P g \0 \0 \n \0 \0 277 ` \0 \0
0013000 \t \0 \0 c \0 d 225 i \n \0 \0 277 h h 032 020
0013020 \0 ( 4 1 Q L O A D 3 1 Q G
0013040 R E E T F I L E N A M E 2 2 Q
0013060 L O A D 1 0 Q G R E E T F
0013100 I L E N A M E ) \r ( 2 6 Q U S
0013120 E R N A M E 1 7 Q S Y S L O
0013140 A D 3 P R E T T Y H E A D E
0013160 R ) \r ( ) \r G R E E T D 1 \r (
0013200 L ( 1 F L G ) P 0 F I
0013220 L E I 0 N A M E F 3
0013240 R E S E T V A R S L S T F 4
0013260 L I S P X H I S T ) \0 261 003 002
0013300 \0 002 021 0 002 T 262 025 g \0 \0 T 034 254 g \0
0013320 \0 m 377 h 032 h T \f \0 \0 277 j d i \v \0
0013340 \0 g \0 \0 ` \0 \0 h 032 032 \t \0 \0 g \0 \0
0013360 T \n \0 \0 002 001 027 \0 \0 @ 245 h i \n \0 \0
0013400 217 g \0 \0 \t \0 \0 224 @ \t \0 \0 277 @ \t \0
0013420 \0 027 \0 \0 ` \0 \0 206 d 001 \t \0 \0 277 002 003
0013440 265 370 g \0 \0 ` \0 \0 032 S 032 c 006 Y 272 o
0013460 \0 \0 \0 g \0 \0 \n \0 \0 I 001 002 027 \0 \0 277
0013500 J d S 360 225 277 I 002 c 006 215 S \n \0 \0 231
0013520 S k J \v \0 \0 I 002 031 277 243 \b \0 \0 277 `
0013540 \0 \0 206 d 001 \t \0 \0 277 002 003 265 370 \b \0 \0
0013560 i 020 \0 ( 2 5 5 Q G R E E T 0
0013600 2 4 5 Q E V A L 2 3 3 Q E
0013620 R R O R ! 2 2 3 Q N L E F T
0013640 2 1 4 Q T A I L P 1 6 6 Q
0013660 G R E E T A 0 0 0 1 1 3 2 Q
0013700 E V A L 1 1 6 Q M K A T O
0013720 M 1 1 1 Q S E T U S E R N A
0013740 M E 1 0 4 Q \ D E F I N E D
0013760 P 7 5 Q U S E R N A M E 6
0014000 1 Q M E M B 5 2 Q U N D O
0014020 L I S P X 2 3 6 Q T A B 2
0014040 7 Q L I S P X P U T ) \r ( 2 3
0014060 7 Q P O S T G R E E T F O R M
0014100 S 1 7 4 Q P R E T T Y H E A
0014120 D E R 1 6 3 Q I N T E R N A
0014140 L 1 4 5 Q P R E T T Y H E A
0014160 D E R 1 4 2 Q P R E T T Y H
0014200 E A D E R 1 2 4 Q P R E G R
0014220 E E T F O R M S 1 2 1 Q U S
0014240 E R N A M E 1 0 1 Q S E T U
0014260 S E R N A M E 6 6 Q G R E E
0014300 T H I S T 5 5 Q S I D E 4
0014320 4 Q G R E E T H I S T 4 1 Q
0014340 S I D E 1 6 Q S I D E 1
0014360 0 Q S I D E ) \r ( 1 6 0 Q
0014400 ( G R E E T A 0 0 0 1 ) ) \r G R
0014420 E E T 0 D 1 \r N I L \0 275 003 \0
0014440 \0 \0 ` \0 \0 264 B \b \0 \0 021 ! 002 H m 377
0014460 \n \0 \0 Z d 005 001 241 005 002 265 . o \0 \0 \0
0014500 022 i \n \0 \0 ` \0 \0 262 023 o \0 \0 \0 i \n
0014520 \0 \0 277 ` \0 \0 i \n \0 \0 277 o \0 \0 \0 i
0014540 \n \0 \0 i \t \0 \0 020 d 342 k 345 j 360 262 031
0014560 277 H k l 006 \v \0 \0 \t \0 \0 ` \0 \0 \n \0
0014600 \0 002 005 \a 265 274 J k 345 j 360 262 @ H l \v
0014620 l \f \v \0 \0 Y d 005 001 241 005 002 262 / ` \0
0014640 \0 232 l 006 I 361 225 o \0 \0 \0 260 032 l \f I
0014660 361 224 o \0 \0 \0 215 l 022 I 361 224 o \0 \0 \0
0014700 203 o \0 \0 \0 265 003 202 261 377 x J l 003 \n \0
0014720 \0 j 360 242 261 377 h o \0 \0 \0 261 377 e \0 (
0014740 2 5 6 Q I M O D 1 6 2 Q S
0014760 U B A T O M 1 3 6 Q S A S S
0015000 O C 1 3 0 Q U - C A S E 1
0015020 2 5 Q S U B S T R I N G 1 0
0015040 4 Q L I S P X T E R P R I 1
0015060 0 0 Q L I S P X P R I N 1 6
0015100 7 Q L I S P X P R I N 1 5 7
0015120 Q L I S P X P R I N 1 4 2 Q
0015140 L I S P X P R I N 1 2 0 Q
0015160 N T H C H A R 7 D A T E ) \r
0015200 ( 1 7 6 Q F I R S T N A M E
0015220 1 3 3 Q G R E E T D A T E S
0015240 6 3 Q F I R S T N A M E 4 5
0015260 Q F I R S T N A M E 2 G R
0015300 E E T D A T E S ) \r ( 2 7 0 Q
0015320 " H e l l o " 2 4 2 Q " G
0015340 o o d e v e n i n g " 2 3 5
0015360 Q " G o o d a f t e r n o o
0015400 n " 2 2 3 Q " G o o d m o
0015420 r n i n g " 2 1 0 Q " Y o u
0015440 ' r e w o r k i n g l a t e
0015460 t o n i g h t " 7 4 Q " .
0015500 " 5 3 Q " , " 3 5 Q "
0015520 H i " ) \r H I S T O R Y M A T C
0015540 H D 1 \r ( L ( 1 P A T 0
0015560 I N P U T ) I 2 E V E N
0015600 T ) \0 \b \0 \0 \0 003 @ A i \v \0 \0 020
0015620 \0 ( 5 E D I T F I N D P ) \r N
0015640 I L \r ( ) \r H I S T O R Y S A V
0015660 E A 0 0 0 2 D 1 \r ( N A M E
0015700 E R R O R S E T F 0 X )
0015720 \0 \a \0 001 002 \0 P \t \0 \0 i 020 \0 ( 3
0015740 E V A L ) \r N I L \r ( ) \r H I S
0015760 T O R Y S A V E D 1 \r ( L (
0016000 5 P R O P S 4 I N P U T 3
0016020 3 I N P U T 2 2 I N P U
0016040 T 1 ) P 1 1 Q X P 1 0
0016060 Q E V E N T P 5 X I
0016100 1 I D I 0 H I S T O R Y
0016120 ) 001 277 \n \0 \0 006 @ 001 @ 002 001 @ 002 002
0016140 001 @ 002 002 002 001 265 004 l d j 021 5 \a @ 003
0016160 264 \n @ 001 003 244 @ 001 221 h 020 ` \0 \0 262 j
0016200 g \0 \0 ` \0 \0 ` \0 \0 034 002 001 034 002 ] 262
0016220 Y ` \0 \0 ` \0 \0 034 262 + ` \0 \0 ` \0 \0
0016240 361 263 " g \0 \0 @ 001 001 ] 034 002 265 021 M g
0016260 \0 \0 ` \0 \0 h 032 032 \n \0 \0 M 020 ` \0 \0
0016300 030 260 372 M d 001 B 265 033 C 265 024 D A g \0
0016320 \0 E 032 032 032 ^ h 032 \n \0 \0 030 N 020 D 032
0016340 260 355 C D 032 032 260 347 I k 330 Y K 361 226 I
0016360 K \t \0 \0 330 271 H 002 002 230 L k 330 274 H 002
0016400 X 260 366 J L l 002 330 361 236 @ h d d h 032
0016420 032 032 ] @ 001 032 030 260 \ H 002 275 ` \0 \0 262
0016440 D @ ` \0 \0 360 263 = ` \0 \0 231 M 001 001 M
0016460 001 \n \0 \0 263 023 M 001 _ 016 277 g \0 \0 O 016
0016500 \n \0 \0 002 001 262 036 ` \0 \0 M 001 \t \0 \0 `
0016520 \0 \0 001 032 030 277 ` \0 \0 002 ` \0 \0 002 001 k
0016540 330 030 277 H h 031 277 @ M d @ 001 031 277 030 277
0016560 M 001 ] 277 @ 002 I 030 277 A 003 226 @ 001 A 030
0016600 277 260 w M 001 ^ 003 243 h h 032 276 B 262 032 N
0016620 002 236 N B 030 277 N 002 C 030 277 N 002 D 031 260
0016640 024 B C D 032 032 212 C 227 N C 030 277 N D 031
0016660 201 D ^ 277 M N 030 277 M 002 ^ A 030 277 N d
0016700 002 001 g \0 \0 360 225 g \0 \0 E 032 210 002 ^ g
0016720 \0 \0 030 277 N E 031 277 ` \0 \0 262 035 M 021 001
0016740 \b ` \0 \0 216 d 001 021 001 \t o \0 \0 \0 i \n
0016760 \0 \0 023 002 003 265 360 023 A g \0 \0 360 223 ` \0
0017000 \0 202 ` \0 \0 \t \0 \0 277 ` \0 \0 g \0 \0 360
0017020 222 \b \0 \0 M 020 \0 ( 6 7 3 Q E R R
0017040 O R ! 6 5 7 Q L I S P X W A
0017060 T C H 6 3 1 Q H I S T O R Y
0017100 S A V E A 0 0 0 2 3 6 6 Q L
0017120 I S P X F I N D 1 3 5 2 Q M
0017140 E M B 3 3 3 Q A R C H I V E
0017160 F N 2 3 3 Q M I N U S 2 0
0017200 2 Q \ N C O N C 2 1 4 2 Q
0017220 \ N C O N C 2 ) \r ( 6 6 6 Q A
0017240 B O R T 6 6 3 Q R E R E A D
0017260 F L G 6 5 4 Q L I S P X S T
0017300 A T S 6 5 0 Q E D I T S T A
0017320 T S 6 4 3 Q * 6 1 3 Q H
0017340 I S T O R Y S A V E F O R M S
0017360 6 0 2 Q H I S T O R Y S A V E
0017400 F O R M S 5 7 1 Q \a 5 6 1
0017420 Q \a 5 5 4 Q \a 4 0 4 Q
0017440 A R C H I V E L S T 4 0 0 Q
0017460 A R C H I V E L S T 3 7 1 Q
0017500 A R C H I V E L S T 3 6 1 Q
0017520 A R C H I V E L S T 3 4 5 Q
0017540 * A R C H I V E * 3 2 2 Q A
0017560 R C H I V E F N 3 1 4 Q E D
0017600 I T H I S T O R Y 3 0 6 Q A
0017620 R C H I V E L S T 1 7 0 Q \a
0017640 1 4 7 Q R E D O C N T 1 3
0017660 4 Q R E D O C N T 1 3 1 Q
0017700 * R E D O C N T * 1 1 5 Q *
0017720 R E D O C N T * 1 0 7 Q R E
0017740 D O C N T 1 0 4 Q # R E D O
0017760 C N T 7 6 Q R E R E A D F L
0020000 G 7 3 Q H I S T S T R 2 6
0020020 0 Q R E R E A D F L G 5 5 Q
0020040 H I S T S T R 3 5 2 Q * G
0020060 R O U P * 4 5 Q R E R E A D
0020100 F L G ) \r ( 6 2 5 Q ( H I S
0020120 T O R Y S A V E A 0 0 0 2 ) ) \r
0020140 L I S P X A 0 0 0 2 D 1 \r ( N
0020160 A M E E R R O R S E T L (
0020200 0 N I L ) F 1 L I S P Z
0020220 F 2 L I S P Y F 3 L
0020240 I S P X T E M ) \0 9 001 003 002 \0 i
0020260 027 \0 \0 277 Q 260 + d 001 021 001 \0 R H i \n
0020300 \0 \0 \n \0 \0 263 031 H i \n \0 \0 277 S i o
0020320 \0 \0 \0 g \0 \0 h d i \r \a \0 \0 277 023 002
0020340 003 265 326 h h 032 020 \0 ( 5 5 Q M A P
0020360 R I N T 3 4 Q L I S P X P R
0020400 I N 1 2 5 Q H I S T O R Y M
0020420 A T C H 2 2 Q E D I T F P A
0020440 T ) \r ( 4 6 Q % \r 3 E D I
0020460 T Q U I E T F L G ) \r ( 4 3 Q
0020500 " d o e s n o t a p p e
0020520 a r i n " ) \r L I S P X A 0
0020540 0 0 3 D 1 \r ( N A M E E R R
0020560 O R S E T F 0 R E A D B U
0020600 F F 1 L I S P Y F 2
0020620 L I S P X H I S T F 3 L I
0020640 S P X I D ) \0 ! \0 004 002 \0 h c \0
0020660 277 Q R \n \0 \0 277 P \t \0 \0 c \0 243 h h
0020700 032 020 i d \n \0 \0 S \n \0 \0 260 353 \0 ( 3
0020720 5 Q L I S P X 3 1 Q L I S
0020740 P X R E A D 1 5 Q L I S P X
0020760 R E A D B U F 1 0 Q L I S P
0021000 X U N R E A D ) \r N I L \r ( ) \r
0021020 L I S P X D 1 \r ( L ( 4 L
0021040 I S P X F L G 3 L I S P X X
0021060 U S E R F N 2 L I S P X X M
0021100 A C R O S 0 L I S P X X )
0021120 P 2 2 Q L I S P X L I N E
0021140 P 1 1 Q L I S P X T E M P
0021160 1 0 Q L I S P X V A L U E
0021200 P 7 L I S P Z P 6 L I
0021220 S P Y P 5 L I S P X L I N
0021240 E P 4 L I S P X L I S T F
0021260 L G P 2 H E L P F L A G
0021300 P 1 L I S P X H I S T P
0021320 0 H E L P C L O C K I 1
0021340 L I S P X I D F 2 3 Q R E
0021360 S E T V A R S L S T F 2 4 Q
0021400 R E A D B U F F 2 5 Q L
0021420 I S P X H I S T F 2 6 Q H
0021440 E L P F L A G ) \b 347 023 004 \0 005 B
0021460 245 ` \0 \0 b 004 277 C 263 023 ` \0 \0 234 g \0
0021500 \0 \t \0 \0 225 g \0 \0 b 006 277 l 002 \t \0 \0
0021520 W * W , d g \0 \0 360 226 277 g \0 \0 \t \0
0021540 \0 021 363 021 @ d 244 i \n \0 \0 020 003 263 i
0021560 @ h 032 i \v \0 \0 ] 001 b \0 277 M 002 275 @
0021600 003 262 ? @ 001 273 @ 002 275 i 274 260 > ` \0 \0
0021620 263 357 i \t \0 \0 \t \0 \0 _ 022 g \0 \0 i \v
0021640 \0 \0 263 335 O 022 g \0 \0 i \v \0 \0 263 322 i
0021660 @ h 032 i \v \0 \0 ] 002 262 306 M b \0 260 302
0021700 @ d 004 l 004 360 262 g 273 ` \0 \0 262 035 ` \0
0021720 \0 001 001 _ 026 277 g \0 \0 O 026 \n \0 \0 002 001
0021740 001 _ 022 g \0 \0 360 263 ! K B \n \0 \0 ^ 235
0021760 L 221 h 275 N 002 001 h 360 _ 024 261 002 364 K `
0022000 \0 \0 \n \0 \0 ^ 265 \f K d g \0 \0 360 233 261
0022020 \0 226 002 001 h 360 _ 024 261 \0 215 g \0 \0 360 262
0022040 4 M 265 003 210 001 [ b \0 277 M 002 ] 277 K g
0022060 \0 \0 033 ^ 242 261 001 325 M 222 261 001 247 A g \0
0022100 \0 360 246 A g \0 \0 360 262 ^ K \t \0 \0 262 X
0022120 261 001 240 K g \0 \0 360 263 N K g \0 \0 360 263
0022140 G K g \0 \0 360 263 @ K g \0 \0 360 263 9 K
0022160 g \0 \0 360 263 2 K g \0 \0 360 263 + K g \0
0022200 \0 360 263 $ K g \0 \0 360 263 035 K g \0 \0 360
0022220 263 026 K g \0 \0 360 255 K g \0 \0 360 247 K d
0022240 g \0 \0 360 233 277 L 242 261 003 / @ h 032 261 003
0022260 , g \0 \0 360 247 K d g \0 \0 360 226 277 M 263
0022300 347 261 002 , g \0 \0 360 250 K d g \0 \0 360 262
0022320 037 277 ` \0 \0 A h K M \r 005 \0 \0 Y 265 006
0022340 g \0 \0 020 002 002 M \t \0 \0 030 277 260 364 g \0
0022360 \0 360 250 K d g \0 \0 360 262 027 277 ` \0 \0 g
0022400 \0 \0 360 223 \b \0 \0 277 g \0 \0 272 M 261 376 k
0022420 g \0 \0 360 250 K d g \0 \0 360 262 7 277 ` \0
0022440 \0 g \0 \0 360 223 \b \0 \0 277 M 232 ` \0 \0 M
0022460 g \0 \0 \v \0 \0 214 ` \0 \0 001 207 d 001 i \n
0022500 \0 \0 277 002 003 265 367 g \0 \0 i d \v \0 \0 277
0022520 260 220 g \0 \0 360 262 + ` \0 \0 g \0 \0 360 223
0022540 \b \0 \0 277 M 001 g \0 \0 360 226 M 002 275 ` \0
0022560 \0 202 ` \0 \0 M h d i \r 005 \0 \0 277 261 377
0022600 b K g \0 \0 360 252 K d g \0 \0 360 242 261 376
0022620 241 277 ` \0 \0 g \0 \0 360 223 \b \0 \0 277 ` \0
0022640 \0 265 016 o \0 \0 \0 i \n \0 \0 277 261 377 4 `
0022660 \0 \0 M g \0 \0 \v \0 \0 _ 022 ` \0 \0 001 \n
0022700 \0 \0 030 277 ` \0 \0 002 ` \0 \0 002 001 O 022 \t
0022720 \0 \0 330 030 277 g \0 \0 i d \v \0 \0 277 261 377
0022740 002 N 001 222 261 376 302 K o \0 \0 \0 \n \0 \0 277
0022760 h 276 L 262 { @ d 001 g \0 \0 360 262 037 277 i
0023000 d \n \0 \0 h 032 275 261 \0 346 K ` \0 \0 034 262
0023020 343 L 242 261 \0 332 h 275 261 \0 325 001 004 l 004 360
0023040 262 ) @ 001 \t \0 \0 263 026 @ 001 ` \0 \0 \n \0
0023060 \0 252 @ 001 o \0 \0 \0 \n \0 \0 262 030 ` \0 \0
0023100 227 @ 001 l 002 \n \0 \0 277 L 242 261 \0 242 h 275
0023120 261 \0 235 ` \0 \0 262 363 @ 001 l F ` \0 \0 h
0023140 @ \r 005 \0 \0 [ 262 343 @ 002 275 261 375 ^ M 263
0023160 G @ 004 l 004 360 262 w @ \t \0 \0 235 ` \0 \0
0023200 262 m @ l 003 \n \0 \0 277 260 d ` \0 \0 262 _
0023220 @ l F ` \0 \0 h i \r 005 \0 \0 [ 262 P K
0023240 d 003 234 002 h 032 275 K d 001 003 221 001 002 001 [
0023260 b \0 277 261 375 026 @ 004 l 004 360 262 2 @ \t \0
0023300 \0 235 ` \0 \0 262 ( @ l 002 \n \0 \0 277 260 037
0023320 ` \0 \0 262 032 @ o \0 \0 \0 \n \0 \0 256 @ l
0023340 F ` \0 \0 h i \r 005 \0 \0 [ 265 033 O 024 253
0023360 ` \0 \0 A h @ M \r 005 \0 \0 271 N 262 1 L
0023400 262 026 @ 002 260 026 d 003 226 002 M 032 275 K 001 [
0023420 b \0 277 261 374 266 M \t \0 \0 021 001 022 N 002 001
0023440 265 006 N 002 002 001 A \n \0 \0 022 261 \0 225 C 234
0023460 @ M l 002 C 017 016 224 O 020 261 \0 206 M 265 017
0023500 @ d 003 222 \t \0 \0 A \n \0 \0 260 u 002 263 =
0023520 ` \0 \0 262 _ @ d 004 l 004 360 262 X 277 M 001
0023540 262 R M 001 004 l 004 360 262 J M 001 k \n \0 \0
0023560 _ 022 g \0 \0 360 263 < O 022 ` \0 \0 034 262 4
0023600 @ d \t \0 \0 l 003 360 263 + 277 @ d \t \0 \0
0023620 l 003 360 263 025 277 o \0 \0 \0 i \n \0 \0 277 @
0023640 M 032 i \n \0 \0 277 @ M 032 \t \0 \0 A \n \0
0023660 \0 215 @ \t \0 \0 M 001 @ \n \0 \0 A \v \0 \0
0023700 _ 020 277 I 226 I O 020 \n \0 \0 277 O 020 027 \0
0023720 \0 i d \v \0 \0 020 @ M 032 b \0 277 O 024 263
0023740 033 ` \0 \0 A h d d g \0 \0 @ g \0 \0 h
0023760 h 032 032 032 032 \r 006 \0 \0 271 K d g \0 \0 360
0024000 227 277 M \t \0 \0 261 003 234 g \0 \0 360 231 M `
0024020 \0 \0 \n \0 \0 261 003 215 K g \0 \0 360 250 K d
0024040 g \0 \0 360 262 030 277 g \0 \0 ` \0 \0 M g \0
0024060 \0 i \f \0 \0 \t \0 \0 032 261 003 i g \0 \0 360
0024100 252 K d g \0 \0 360 242 261 \0 376 277 g \0 \0 M
0024120 034 265 016 g \0 \0 M 034 265 \a g \0 \0 M 034 _
0024140 016 265 003 M 002 _ 022 277 O 016 241 h 216 M 002 O
0024160 016 \n \0 \0 d 002 244 d 001 003 220 001 _ 016 277 `
0024200 \0 \0 O 022 g \0 \0 i \f \0 \0 276 g \0 \0 `
0024220 \0 \0 032 W & 032 c & _ 030 _ 032 277 o \0 \0
0024240 \0 g \0 \0 \n \0 \0 O 030 001 002 027 \0 \0 277 O
0024260 032 d W & 360 227 277 O 030 002 c & 260 024 W &
0024300 \n \0 \0 234 W & k O 032 \v \0 \0 O 030 002 031
0024320 277 243 \b \0 \0 277 M 001 g \0 \0 O 016 N \t \0
0024340 \0 ` \0 \0 O 022 g \0 \0 i \f \0 \0 032 032 \v
0024360 \0 \0 277 M 001 g \0 \0 \n \0 \0 277 g \0 \0 M
0024400 001 h 032 ` \0 \0 \n \0 \0 \n \0 \0 277 g \0 \0
0024420 M 001 h 032 ` \0 \0 \n \0 \0 \n \0 \0 277 M 001
0024440 \t \0 \0 262 031 M 001 o \0 \0 \0 032 i o \0 \0
0024460 \0 g \0 \0 h d i \r \a \0 \0 277 M 001 i d
0024500 \v \0 \0 261 002 ` g \0 \0 360 263 032 K g \0 \0
0024520 360 263 023 K g \0 \0 360 252 K d g \0 \0 360 242
0024540 261 001 & 277 M 261 \0 332 d _ 036 001 O 036 _ 034
0024560 277 277 O 034 001 d g \0 \0 360 263 025 d g \0 \0
0024600 360 254 d g \0 \0 360 246 d g \0 \0 360 262 n 277
0024620 O 034 002 242 261 \0 252 M k O 034 \v \0 \0 _ 022
0024640 001 g \0 \0 360 222 261 \0 226 O 022 264 \t M O 022
0024660 002 \n \0 \0 275 O 034 002 _ 022 002 002 263 ! O 022
0024700 d 001 003 263 026 001 \t \0 \0 254 O 022 001 i d d
0024720 O 022 \r 005 \0 \0 245 O 022 001 _ 022 277 O 034 001
0024740 g \0 \0 360 247 O 034 001 g \0 \0 360 232 g \0 \0
0024760 O 022 h 032 032 _ 022 277 i 260 D d g \0 \0 360
0025000 246 d g \0 \0 360 262 5 277 O 034 002 263 0 M k
0025020 O 034 \v \0 \0 _ 022 d 262 % 001 g \0 \0 360 263
0025040 035 M O 022 \n \0 \0 275 O 022 001 d 005 001 245 d
0025060 005 002 241 005 003 265 003 i _ 022 201 277 h 250 002 003
0025100 265 003 202 261 377 % h 256 K g \0 \0 360 265 \a K
0025120 g \0 \0 360 _ 022 277 ` \0 \0 M g \0 \0 i \f
0025140 \0 \0 276 A g \0 \0 360 224 N \t \0 \0 203 N \t
0025160 \0 \0 276 O 022 242 261 001 . ` \0 \0 O 022 N h
0025200 032 032 032 261 001 037 g \0 \0 360 250 K d g \0 \0
0025220 360 262 * 277 ` \0 \0 g \0 \0 M 034 _ 022 226 M
0025240 O 022 \n \0 \0 200 M g \0 \0 i \f \0 \0 \t \0
0025260 \0 ^ O 022 002 \n \0 \0 261 \0 352 g \0 \0 360 247
0025300 K d g \0 \0 360 233 277 M ` \0 \0 I \v \0 \0
0025320 261 \0 322 g \0 \0 360 242 261 \0 236 M 253 o \0 \0
0025340 \0 g \0 \0 i \v \0 \0 277 ` \0 \0 h g \0 \0
0025360 i \f \0 \0 276 g \0 \0 N \n \0 \0 002 001 265 Y
0025400 g \0 \0 N \n \0 \0 002 001 _ 022 265 8 g \0 \0
0025420 N \n \0 \0 002 001 _ 022 265 036 ` \0 \0 h g \0
0025440 \0 i \f \0 \0 ^ d 002 230 d 002 001 ` \0 \0 360
0025460 262 032 001 002 260 002 001 O 022 d N 002 032 \n \0
0025500 \0 260 025 001 001 001 O 022 002 213 002 001 003 242 N 002
0025520 202 N 002 001 001 N 032 _ 022 277 I g \0 \0 O 022
0025540 h 032 032 \n \0 \0 277 M h 032 O 022 001 h 032 h
0025560 032 O 022 002 260 ) N d 001 K 360 235 002 001 265 006
0025600 N 002 002 001 A \n \0 \0 260 032 001 246 N 002 001 \t
0025620 \0 \0 216 M h 032 N 001 h 032 N 002 001 h 032 \v
0025640 \0 \0 ^ 277 ` \0 \0 254 ` \0 \0 N 003 034 225 m
0025660 377 027 \0 \0 277 I 223 I N 030 277 K g \0 \0 360
0025700 263 S D 262 K g \0 \0 W ( 032 W & 032 c &
0025720 _ _ " 277 o \0 \0 \0 g \0 \0 \n \0 \0 O
0025740 001 002 c ( 277 O " d W & 360 227 277 O
0025760 002 c & 260 024 W & \n \0 \0 234 W & k O "
0026000 \v \0 \0 O 002 031 277 251 \b \0 \0 277 204 N I
0026020 \n \0 \0 I 020 \0 ( 4 3 4 3 Q L I S
0026040 P X U N R E A D 4 3 3 4 Q E
0026060 R R O R ! 4 3 2 3 Q N L E F
0026100 T 4 3 1 2 Q T A I L P 4 2
0026120 5 7 Q L I S P X A 0 0 0 3 4
0026140 1 6 2 Q L I S P X U S E 0 4
0026160 1 4 2 Q \ A P P E N D 2 4 1
0026200 3 0 Q E V A L 4 0 6 6 Q \
0026220 N C O N C 2 4 0 2 1 Q L I S
0026240 P X G E T I N P U T 3 7 6 5 Q
0026260 L I S P X F I N D 3 7 4 4 Q
0026300 M E M B 3 7 2 7 Q M E M B
0026320 3 7 1 4 Q M E M B 3 7 0 4
0026340 Q L I S P X F I N D 3 6 7 0
0026360 Q E R R O R 3 6 4 0 Q L I
0026400 S P X U S E 3 6 1 0 Q L I S
0026420 P X F I X 3 6 0 1 Q C O P Y
0026440 3 5 7 6 Q L I S P X F I N D
0026460 3 5 6 5 Q L D I F F 3 5 0
0026500 2 Q \ A P P E N D 2 3 4 7 5
0026520 Q C O P Y 3 4 6 2 Q L I S
0026540 P X F I N D 3 3 6 7 Q L D I
0026560 F F 3 3 4 5 Q N L E F T 3
0026600 2 4 6 Q F N C H E C K 3 2 3
0026620 1 Q B O U N D P 3 2 0 4 Q
0026640 L D I F F 3 1 5 6 Q N L E F
0026660 T 3 0 2 3 Q P R I N T 3 0
0026700 1 3 Q M A P R I N T 2 7 6 3
0026720 Q \ D E F I N E D P 2 7 5 5
0026740 Q / S E T A T O M V A L 2 7
0026760 5 2 Q U N I O N 2 7 3 4 Q
0027000 / S E T A T O M V A L 2 7 3 1
0027020 Q U N I O N 2 7 1 3 Q / R
0027040 E M P R O P 2 7 0 2 Q / P U
0027060 T 2 6 7 5 Q L I S P X F I N
0027100 D 2 6 6 1 Q \ A P P E N D 2
0027120 2 6 4 5 Q E R R O R ! 2 6
0027140 3 4 Q N L E F T 2 6 2 3 Q
0027160 T A I L P 2 5 6 7 Q L I S P
0027200 X A 0 0 0 2 2 5 3 3 Q L I S
0027220 P X F I N D 2 5 0 4 Q L D I
0027240 F F 2 4 1 0 Q \ A P P E N D
0027260 2 2 4 0 5 Q L I S P X F I N
0027300 D 2 3 4 5 Q L I S P X U S E
0027320 C 2 3 2 6 Q \ A P P E N D 2
0027340 2 3 1 1 Q H I S T O R Y S A
0027360 V E 2 2 4 6 Q S H O W P R I
0027400 N T 2 2 3 3 Q L I S P X S T
0027420 O R E V A L U E 2 2 2 0 Q A
0027440 P P L Y 2 2 1 4 Q L I S P X
0027460 / 2 2 0 6 Q L I S P X / 2
0027500 2 0 1 Q E V A L 2 1 7 5 Q
0027520 L I S P X / 2 1 6 6 Q P R I
0027540 N T 2 1 5 6 Q P R I N 1 2
0027560 1 4 0 Q A R G T Y P E 2 1 2
0027600 5 Q A R G T Y P E 2 1 0 0 Q
0027620 N T H C H A R 2 0 3 3 Q E
0027640 V A L 2 0 2 7 Q L I S P X /
0027660 1 7 7 2 Q E V A L 1 7 5 2
0027700 Q N L A M B D A . A R G S 1
0027720 7 1 3 Q H I S T O R Y S A V E
0027740 1 6 7 2 Q F I X S P E L L
0027760 1 6 5 5 Q G E T L I S 1 6 3
0030000 5 Q A D D S P E L L 1 6 2 1
0030020 Q \ D E F I N E D P 1 5 5 4
0030040 Q F I X S P E L L 1 5 3 0 Q
0030060 A D D S P E L L 1 5 1 4 Q
0030100 B O U N D P 1 4 6 5 Q F I X
0030120 S P E L L 1 4 3 0 Q A D D S
0030140 P E L L 1 4 1 3 Q G E T L I
0030160 S 1 4 0 1 Q G E T L I S 1
0030200 3 6 7 Q \ D E F I N E D P 1
0030220 3 2 4 Q L I S P X R E A D 1
0030240 2 7 7 Q E R R O R 1 2 5 5 Q
0030260 P R I N T 1 2 4 2 Q F L E
0030300 N G T H 1 2 2 2 Q \ N C O N
0030320 C 2 1 2 1 1 Q L I S P X F I
0030340 N D 1 1 7 3 Q P R I N T 1
0030360 1 5 5 Q E R R O R ! 1 1 1 5
0030400 Q P R I N T H I S T O R Y 1
0030420 0 6 3 Q E R R O R ! 1 0 3 7
0030440 Q P R I N T 1 0 2 2 Q U N
0030460 D O L I S P X 2 1 0 0 6 Q L
0030500 I S P X F I N D 7 7 1 Q E R
0030520 R O R ! 7 2 7 Q E R R O R !
0030540 6 7 2 Q U N D O L I S P X
0030560 6 5 5 Q H I S T O R Y S A V E
0030600 4 3 6 Q B O U N D P 3 2 5
0030620 Q F A S S O C 2 7 6 Q F A
0030640 S S O C 2 5 6 Q M E M B 2
0030660 0 7 Q R E A D L I N E 1 7 5
0030700 Q S Y N T A X P 1 6 2 Q S
0030720 Y N T A X P 1 5 1 Q C H C O
0030740 N 1 1 4 6 Q L A S T C 1 0
0030760 7 Q R E A D L I N E 7 3 Q
0031000 P R I N T 6 1 Q G E T T O P
0031020 V A L 4 0 Q C L O C K 2 4
0031040 Q \ D E F I N E D P ) \r ( 4 2
0031060 5 4 Q I N T E R N A L 4 2 3
0031100 0 Q R E A D B U F 4 2 1 7 Q
0031120 N A M E 4 2 0 4 Q R E D O
0031140 C N T 4 1 7 3 Q H I S T S T
0031160 R 2 4 1 6 7 Q R E R E A D F
0031200 L G 4 0 5 6 Q . . . A R G S
0031220 3 7 7 7 Q H I S T S T R 0
0031240 3 7 6 1 Q I N P U T 3 7 5 5
0031260 Q L I S P X H I S T O R Y 3
0031300 7 4 0 Q * H I S T O R Y * 3
0031320 7 2 3 Q U S E - A R G S 3 7
0031340 1 0 Q . . . A R G S 3 7 0 0
0031360 Q E N T R Y 3 6 7 4 Q L I
0031400 S P X H I S T O R Y 3 6 6 4 Q
0031420 \a 3 6 4 6 Q . . . 3 6 3
0031440 4 Q L I S P X H I S T O R Y
0031460 3 6 2 5 Q u s e 3 6 1 6 Q
0031500 U S E 3 5 7 2 Q I N P U T
0031520 3 5 5 2 Q - 3 5 4 7 Q L I
0031540 S P X H I S T O R Y 3 5 4 0 Q
0031560 f i x 3 5 3 1 Q F I X 3
0031600 5 1 4 Q H I S T S T R 2 3 4
0031620 6 7 Q * 3 4 5 6 Q I N P U
0031640 T 3 4 5 2 Q L I S P X H I S
0031660 T O R Y 3 4 4 3 Q r e p e a
0031700 t 3 4 3 4 Q R E P E A T 3
0031720 3 5 6 Q F 3 3 2 5 Q t i m
0031740 e s 3 3 1 7 Q T I M E S 3
0031760 3 0 0 Q N O T 3 2 7 3 Q u
0032000 n t i l 3 2 6 3 Q U N T I L
0032020 3 1 6 4 Q F 3 1 3 4 Q u
0032040 n t i l 3 1 2 6 Q w h i l e
0032060 3 1 2 0 Q U N T I L 3 1 1
0032100 1 Q W H I L E 3 0 5 6 Q r
0032120 e p e a t 3 0 4 7 Q R E P E
0032140 A T 3 0 4 0 Q r e d o 3 0
0032160 3 1 Q R E D O 3 0 0 4 Q %
0032200 \r 2 7 4 7 Q H I S T O R Y C
0032220 O M S 2 7 4 0 Q H I S T O R
0032240 Y C O M S 2 7 2 6 Q L I S P
0032260 X C O M S 2 7 1 7 Q L I S P
0032300 X C O M S 2 7 1 0 Q S T A T
0032320 E 2 6 7 1 Q C O P I E S 2
0032340 6 6 4 Q L I S P X H I S T O R
0032360 Y 2 6 5 3 Q * H I S T O R Y
0032400 * 2 5 7 6 Q E D I T Q U I E
0032420 T F L G 2 5 6 4 Q I N T E R
0032440 N A L 2 5 4 2 Q E D I T Q U
0032460 I E T F L G 2 5 3 7 Q E D I
0032500 T Q U I E T F L G 2 5 2 7 Q
0032520 I N P U T 2 5 2 2 Q L I S P
0032540 X H I S T O R Y 2 4 5 5 Q i
0032560 n 2 4 4 6 Q I N 2 4 3 7 Q
0032600 : 2 4 2 6 Q N A M E 2 4
0032620 1 7 Q n a m e 2 4 0 1 Q I
0032640 N P U T 2 3 7 5 Q L I S P X
0032660 H I S T O R Y 2 3 7 2 Q R E
0032700 T R Y : 2 3 6 3 Q R E T R Y
0032720 2 3 5 4 Q r e t r y 2 3 4
0032740 2 Q L I S P X H I S T O R Y
0032760 2 3 3 4 Q 033 2 3 1 7 Q O R
0033000 I G I N A L 2 2 7 7 Q * G R
0033020 O U P * 2 2 7 3 Q * H I S T
0033040 O R Y * 2 2 6 4 Q L I S P X
0033060 H I S T O R Y 2 2 4 1 Q I T
0033100 2 1 1 5 Q C L I S P C H A R
0033120 S 2 1 0 5 Q - 2 0 4 3 Q
0033140 C L I S P F L G 1 7 0 3 Q L
0033160 I S P X H I S T O R Y 1 6 6 4
0033200 Q L I S P X C O M S 1 6 4 3
0033220 Q D W I M F L G 1 6 2 5 Q
0033240 A D D S P E L L F L G 1 5 4 6
0033260 Q L I S P X C O M S 1 5 3 6
0033300 Q D W I M F L G 1 5 2 0 Q
0033320 A D D S P E L L F L G 1 4 5 7
0033340 Q L I S P X C O M S 1 4 4 6
0033360 Q D W I M F L G 1 4 2 0 Q
0033400 A D D S P E L L F L G 1 3 7 6
0033420 Q M A C R O P R O P S 1 3 3
0033440 6 Q L I S P X C O M S 1 3 1
0033460 3 Q L A M B D A 1 2 5 0 Q
0033500 a r c h i v e d 1 2 3 3 Q A
0033520 R C H I V E L S T 1 2 2 7 Q
0033540 A R C H I V E L S T 1 2 1 6 Q
0033560 A R C H I V E L S T 1 2 0 6
0033600 Q C O P I E S 1 2 0 2 Q L
0033620 I S P X H I S T O R Y 1 1 6 1
0033640 Q A R C H I V E L S T 1 1 5
0033660 0 Q A B O R T 1 1 4 5 Q R
0033700 E R E A D F L G 1 1 3 4 Q A
0033720 R C H I V E 1 1 2 5 Q a r c
0033740 h i v e 1 1 0 5 Q L I S P X
0033760 H I S T O R Y 1 1 0 1 Q A R
0034000 C H I V E L S T 1 0 7 1 Q @
0034020 @ 1 0 5 6 Q A B O R T 1 0
0034040 5 3 Q R E R E A D F L G 1 0
0034060 4 5 Q ? ? 1 0 3 2 Q f o r
0034100 g o t t e n 1 0 1 2 Q L I S
0034120 P X H I S T O R Y 1 0 0 3 Q
0034140 E N T R I E S 7 7 7 Q L I S
0034160 P X H I S T O R Y 7 6 4 Q A
0034200 B O R T 7 6 1 Q R E R E A D
0034220 F L G 7 5 2 Q F O R G E T
0034240 7 4 3 Q f o r g e t 7 3 3 Q
0034260 B R E A K ! 7 2 2 Q A B O
0034300 R T 7 1 7 Q R E R E A D F L
0034320 G 7 1 0 Q R E T R Y : 7 0
0034340 1 Q r e t r y : 6 6 3 Q \a
0034360 6 4 5 Q L I S P X H I S T O
0034400 R Y 6 3 6 Q u n d o 6 2 7
0034420 Q U N D O 6 1 3 Q N A M E
0034440 6 0 4 Q n a m e 5 6 3 Q
0034460 r e t r y 5 5 4 Q f i x 5
0034500 4 6 Q u s e 5 3 7 Q r e p
0034520 e a t 5 3 0 Q r e d o 5 2
0034540 1 Q 033 5 1 2 Q . . . 5 0
0034560 3 Q U S E 4 7 4 Q F I X
0034600 4 6 5 Q R E P E A T 4 5 6 Q
0034620 R E D O 4 4 7 Q R E T R Y
0034640 4 2 7 Q : 4 2 1 Q _ 4
0034660 0 2 Q * H I S T O R Y * 3 5
0034700 6 Q E 3 3 5 Q O R I G I N
0034720 A L 3 2 2 Q L I S P X H I S
0034740 T O R Y M A C R O S 2 6 6 Q
0034760 O R I G I N A L 2 5 1 Q * H
0035000 I S T O R Y * 2 4 1 Q L I S
0035020 P X H I S T O R Y 2 3 4 Q R
0035040 E R E A D F L G 1 7 1 Q R I
0035060 G H T B R A C K E T 1 5 6 Q
0035100 R I G H T P A R E N 1 4 0 Q
0035120 R E R E A D F L G 5 6 Q H E
0035140 L P F L A G 5 0 Q B R E A K
0035160 ! 3 0 Q L I S P X U S E R F
0035200 N 2 1 Q L I S P X U S E R F
0035220 N 1 5 Q L I S P X U S E R F
0035240 N 4 L I S P X M A C R O S )
0035260 \r ( 4 2 5 1 Q ( L I S P X A
0035300 0 0 0 3 ) 3 6 6 1 Q " . . .
0035320 w h a t ? ? " 3 0 0 1 Q "
0035340 * * * * N o t e : " 2 7 7 3
0035360 Q ( i s a l s o t h e n
0035400 a m e o f a f u n c t i o
0035420 n . W h e n t y p e d i n
0035440 , i t s i n t e r p r e t a
0035460 t i o n a s a h i s t o r
0035500 y c o m m a n d w i l l t
0035520 a k e p r e c e d e n c e . )
0035540 2 5 6 1 Q ( L I S P X A 0 0
0035560 0 2 ) 2 1 5 2 Q " = "
0035600 1 6 5 2 Q ( E X P R F I L E
0035620 D E F ) 1 4 1 0 Q ( E X P R
0035640 F I L E D E F C L I S P W O
0035660 R D ) 1 2 7 4 Q " d o e s n
0035700 ' t t a k e a n y a r g u
0035720 m e n t s " 1 1 6 7 Q ( n o
0035740 a r c h i v e l i s t ) ) \r
0035760 L I S P X / D 1 \r ( L ( 1
0036000 F N 0 X ) I 2 V A R S
0036020 ) \0 ] 001 \0 \0 003 ` \0 \0 262 W ` \0 \0
0036040 262 R A 262 > @ d 003 262 K 277 A \t \0 \0 d
0036060 k 360 245 d l 003 360 262 277 A g \0 \0 033 021
0036100 001 \0 H g \0 \0 360 265 016 H 003 264 \n g \0 \0
0036120 H 034 264 003 i 022 201 277 h 262 031 @ i \n \0 \0
0036140 020 @ d 003 223 \t \0 \0 020 ` \0 \0 \n \0 \0 002
0036160 265 003 @ 020 \0 ( 1 2 6 Q F A S S O
0036200 C 1 1 7 Q L I S P X / 1 1
0036220 0 7 Q L I S P X / 1 2 6 Q
0036240 A R G T Y P E ) \r ( 1 2 3 Q L
0036260 I S P X F N S 6 7 Q E V A L
0036300 5 5 Q E V A L 4 5 Q I N
0036320 F O 7 L I S P X H I S T O R
0036340 Y 2 L I S P X F N S ) \r ( )
0036360 \r L I S P X / 1 D 1 \r ( L (
0036400 1 T A I L F L G 0 X ) P
0036420 4 V A R S F 1 0 Q V A
0036440 R S ) 001 265 \b 001 \0 002 @ d 242 261 001 *
0036460 001 021 1 003 @ d 003 242 261 001 223 001 003 230 @ 001
0036500 \t \0 \0 270 261 001 p A 222 261 001 k @ 001 ` \0
0036520 \0 \n \0 \0 002 265 004 @ 001 270 @ 001 d g \0 \0
0036540 360 222 261 \0 364 d g \0 \0 360 245 d g \0 \0 360
0036560 230 277 @ 002 \t \0 \0 261 001 C d g \0 \0 360 246
0036600 d g \0 \0 360 262 $ 277 @ 002 001 d 004 l 004 361
0036620 243 W 020 032 204 W 020 \n \0 \0 021 001 004 @ 002 002
0036640 i \n \0 \0 Y 023 261 \0 235 d g \0 \0 360 262 q
0036660 277 021 0 \a @ 002 001 260 036 d 001 [ 004 l 004 361
0036700 241 K 203 i 272 K 001 275 N 265 \b M h 032 _ 016
0036720 201 M & 276 002 003 265 343 O 016 022 W 020 \n \0 \0
0036740 021 001 004 @ 002 002 @ 001 \n \0 \0 Y 023 J 262 U
0036760 g \0 \0 021 0 \a @ 002 001 260 034 d 001 d 004 l
0037000 004 361 223 i \n \0 \0 275 N 265 \b M h 032 _ 016
0037020 201 M & 276 002 003 265 345 O 016 022 I 032 032 020 g
0037040 \0 \0 360 262 5 @ d 002 001 004 l 004 361 222 261 \0
0037060 207 d 002 001 W 020 034 262 ~ 001 270 @ 002 002 i \n
0037100 \0 \0 271 H d @ 001 360 242 261 \0 216 277 I @ 002
0037120 002 360 242 261 \0 203 @ 020 @ d 001 ` \0 \0 360 262
0037140 027 002 001 Z \t \0 \0 X J 360 263 354 ` \0 \0 H
0037160 @ 002 002 032 032 020 001 \t \0 \0 Y k 360 245 I l
0037200 003 360 262 030 @ 001 g \0 \0 033 Y g \0 \0 360 251
0037220 g \0 \0 I 034 243 @ 002 260 " ` \0 \0 236 @ d
0037240 001 \t \0 \0 250 277 @ ` \0 \0 035 265 ! @ 001 \t
0037260 \0 \0 262 244 @ 002 i \n \0 \0 271 H d @ 001 360
0037300 227 277 I @ 002 360 263 220 H I 032 020 h b 002 277
0037320 b \0 023 261 376 W H @ 002 001 I 032 032 020 \0 (
0037340 6 1 7 Q L I S P X / 1 6 0 7
0037360 Q \ D E F I N E D P 5 7 1 Q
0037400 \ D E F I N E D P 5 1 7 Q
0037420 A R G T Y P E 4 7 4 Q L I S
0037440 P X / 1 4 2 7 Q L I S P X /
0037460 1 3 3 4 Q L I S P X / 1 3
0037500 0 0 Q L I S P X / 1 2 6 5 Q
0037520 \ N C O N C 2 1 7 1 Q L I
0037540 S P X / 1 1 5 7 Q \ A P P E
0037560 N D 2 1 1 4 Q L I S P X / 1
0037600 5 1 Q F A S S O C 3 0 Q
0037620 L I S P X / 1 ) \r ( 5 7 7 Q C
0037640 L I S P A R R A Y 5 6 2 Q C
0037660 L I S P A R R A Y 5 5 0 Q E
0037700 V A L 5 4 3 Q E V A L 5 3
0037720 6 Q I N F O 5 0 4 Q C L I
0037740 S P T R A N F L G 4 6 3 Q C
0037760 L I S P T R A N F L G 3 6 7 Q
0040000 S E T Q 3 1 0 Q P R O G
0040020 2 0 2 Q P R O G 1 3 1 Q N
0040040 L A M B D A 1 2 3 Q L A M B
0040060 D A 1 0 4 Q F / L 7 6 Q
0040100 F U N C T I O N 6 5 Q Q U O
0040120 T E 4 6 Q L I S P X F N S )
0040140 \r ( ) \r L I S P X E V A L D 1
0040160 \r ( L ( 0 L I S P X F O R M
0040200 ) P 0 L I S P X H I S T
0040220 I 1 L I S P X I D ) \0 * 001
0040240 \0 \0 002 021 020 \0 A 245 g \0 \0 b 002 277 ` \0
0040260 \0 A h @ \f \0 \0 X d 002 002 @ d 003 222 \t
0040300 \0 \0 A \n \0 \0 030 H 002 002 001 020 \0 ( 4 2
0040320 Q E V A L 3 6 Q L I S P X
0040340 / 2 3 Q H I S T O R Y S A V
0040360 E ) \r ( 1 5 Q L I S P X H I S
0040400 T O R Y 7 _ ) \r ( ) \r L I S
0040420 P X F I N D 1 D 1 \r ( L ( 0
0040440 X ) ) \0 026 \0 \0 \0 001 @ 001 \t \0 \0
0040460 @ 002 b \0 001 @ 002 b \0 001 @ 002 032 032 032 020
0040500 \0 ( 4 \ A P P E N D 2 ) \r N I
0040520 L \r ( ) \r L I S P X G E T I N P
0040540 U T D 1 \r ( L ( 1 E V E N
0040560 T 0 I N P U T ) ) \0 003 \0 \0
0040600 \0 002 @ 020 \0 N I L \r N I L \r ( ) \r
0040620 L I S P X P R I N 1 D 1 \r ( L
0040640 ( 3 N O D O F L G 2 Z
0040660 1 Y 0 X ) F 0 L I S
0040700 P X H I S T ) \0 F \0 001 \0 004 ` \0
0040720 \0 262 6 P 262 3 g \0 \0 A i 360 226 @ 005 \a
0040740 222 @ 260 035 g \0 \0 B 227 @ A B h 032 032 032
0040760 214 A 225 @ A h 032 032 204 @ d 221 h 032 032 h
0041000 032 i P \f \0 \0 277 C h 360 264 \b @ A B \v
0041020 \0 \0 020 \0 ( 1 0 3 Q P R I N 1
0041040 6 7 Q L I S P X P U T ) \r ( 3
0041060 0 Q P R I N 1 1 2 Q * L I
0041100 S P X P R I N T * 2 L I S P
0041120 X P R I N T F L G ) \r ( ) \r L I
0041140 S P X P R I N 2 D 1 \r ( L (
0041160 3 N O D O F L G 2 Z 1
0041200 Y 0 X ) F 0 L I S P X
0041220 H I S T ) \0 I \0 001 \0 004 ` \0 \0 262
0041240 9 P 262 6 g \0 \0 A i 360 231 @ 003 246 @ 005
0041260 \a 242 @ 260 035 g \0 \0 B 227 @ A B h 032 032
0041300 032 214 A 225 @ A h 032 032 204 @ d 221 h 032 032
0041320 h 032 i P \f \0 \0 277 C h 360 264 \b @ A B
0041340 \v \0 \0 020 \0 ( 1 0 6 Q P R I N 2
0041360 7 2 Q L I S P X P U T ) \r (
0041400 3 3 Q P R I N 2 1 2 Q * L
0041420 I S P X P R I N T * 2 L I S
0041440 P X P R I N T F L G ) \r ( ) \r L
0041460 I S P X P R I N T D 1 \r ( L
0041500 ( 3 N O D O F L G 2 Z 1
0041520 Y 0 X ) F 0 L I S P
0041540 X H I S T ) \0 ; \0 001 \0 004 ` \0 \0
0041560 262 + P 262 ( g \0 \0 g \0 \0 B 227 @ A B
0041600 h 032 032 032 214 A 225 @ A h 032 032 204 @ d 221
0041620 h 032 032 h 032 i P \f \0 \0 277 C h 360 264 \b
0041640 @ A B \v \0 \0 020 \0 ( 7 0 Q P R I
0041660 N T 5 4 Q L I S P X P U T )
0041700 \r ( 1 5 Q P R I N T 1 2 Q
0041720 * L I S P X P R I N T * 2 L
0041740 I S P X P R I N T F L G ) \r ( )
0041760 \r L I S P X P R I N T D E F D
0042000 1 \r ( L ( 5 N O D O F L G
0042020 4 T A I L 3 D E F 2 L
0042040 E F T 1 F I L E 0 E X P
0042060 R ) F 0 L I S P X H I S T
0042100 ) \0 2 \0 001 \0 006 ` \0 \0 262 037 P 262 034
0042120 g \0 \0 g \0 \0 @ A B C D h 032 032 032 032
0042140 032 032 h 032 i P \f \0 \0 277 E h 360 264 \v @
0042160 A B C D \r 005 \0 \0 020 \0 ( 5 7 Q L
0042200 I S P X P R I N T D E F 0 4 0
0042220 Q L I S P X P U T ) \r ( 1 5 Q
0042240 L I S P X P R I N T D E F 0
0042260 1 2 Q * L I S P X P R I N T *
0042300 2 L I S P X P R I N T F L G
0042320 ) \r ( ) \r L I S P X P R I N T D
0042340 E F 0 A 0 0 0 1 D 1 \r ( N A M
0042360 E E R R O R S E T F 0 E
0042400 X P R F 1 L E F T F 2
0042420 M A C R O Y F 3 D E F
0042440 F 4 T A I L ) \0 \f \0 005 002 \0
0042460 P Q S T \f \0 \0 c 004 i 020 \0 ( 6 P
0042500 R I N T D E F ) \r N I L \r ( ) \r
0042520 L I S P X P R I N T D E F 0 D
0042540 1 \r ( L ( 1 F I L E ) P
0042560 3 R E S E T S T A T E P 2
0042600 M A C R O Y P 0 O L D V
0042620 A L U E I 4 T A I L I
0042640 3 D E F I 2 L E F T I
0042660 0 E X P R F 4 R E S E
0042700 T V A R S L S T ) \0 ; 004 001 \0 005
0042720 A \t \0 \0 021 1 003 g \0 \0 H h 032 032 h 032
0042740 T 032 c \b Y o \0 \0 \0 g \0 \0 \n \0 \0 243
0042760 g \0 \0 273 I 002 c \b g \0 \0 I 001 001 002 \n
0043000 \0 \0 K 223 \b \0 \0 020 J 020 \0 ( 6 6 Q
0043020 E R R O R ! 6 1 Q A P P L Y
0043040 3 6 Q L I S P X P R I N T D
0043060 E F 0 A 0 0 0 1 3 O U T P U
0043100 T ) \r ( 5 2 Q O U T P U T 4
0043120 2 Q E R R O R 3 3 Q I N T
0043140 E R N A L 1 1 Q O U T P U T
0043160 ) \r ( 3 0 Q ( L I S P X P R
0043200 I N T D E F 0 A 0 0 0 1 ) ) \r L
0043220 I S P X P U T D 1 \r ( L ( 3
0043240 L S T 2 A D D F L G 1
0043260 L 0 P R O P ) ) \0 ) \0 \0 \0
0043300 004 C 247 ` \0 \0 001 001 b 006 277 @ C 034 002 265
0043320 \r C @ A h 032 032 \n \0 \0 A 020 B 226 d 001
0043340 A \n \0 \0 200 A 030 260 363 \0 ( 4 2 Q \
0043360 N C O N C 2 3 0 Q \ N C O N
0043400 C 2 ) \r ( 4 L I S P X H I S T
0043420 O R Y ) \r ( ) \r L I S P X R E A
0043440 D A 0 0 0 1 D 1 \r ( N A M E
0043460 E R R O R S E T F 0 X )
0043500 \0 \a \0 001 002 \0 P \t \0 \0 i 020 \0 ( 3
0043520 E D I T E ) \r N I L \r ( ) \r L I
0043540 S P X R E A D D 1 \r ( L ( 1
0043560 R D T B L 0 F I L E ) P
0043600 0 X F 1 R E A D B U F
0043620 ) \0 W 001 001 \0 002 021 020 \0 Q d 230 i \n
0043640 \0 \0 c 002 d 263 > 027 \0 \0 277 ` \0 \0 g \0
0043660 \0 360 225 @ A \n \0 \0 210 @ A l 002 ` \0 \0
0043700 017 016 X d 003 262 ( 277 ` \0 \0 262 ! h 027 \0
0043720 \0 277 o \0 \0 \0 \t \0 \0 263 023 g \0 \0 027 \0
0043740 \0 277 210 001 270 Q 027 \0 \0 002 c 002 H 020 \0 (
0043760 1 0 0 Q L I S P X R E A D A 0
0044000 0 0 1 3 7 Q R E A D 1 1 Q
0044020 L I S P X R E A D B U F ) \r (
0044040 1 2 0 Q R E R E A D F L G 1
0044060 1 0 Q R E R E A D F L G 1 0
0044100 5 Q A B O R T 7 0 Q C T R
0044120 L U F L G 6 2 Q C T R L U F
0044140 L G 4 7 Q L I S P X R E A D
0044160 F N 3 0 Q R E A D 2 5 Q
0044200 L I S P X R E A D F N 2 1 Q
0044220 R E R E A D F L G ) \r ( 7 5 Q
0044240 ( L I S P X R E A D A 0 0 0 1
0044260 ) ) \r L I S P X R E A D B U F
0044300 D 1 \r ( L ( 1 S T R I P S E
0044320 P R S F L G 0 R D B U F ) )
0044340 \0 275 006 \0 \0 002 021 020 \0 @ 003 265 004 h 020
0044360 001 ` \0 \0 360 225 @ 002 b \0 260 361 @ d 001 `
0044400 \0 \0 360 225 002 002 b \0 260 343 001 ` \0 \0 360 241
0044420 @ 020 ` \0 \0 k 330 027 \0 \0 277 @ 002 b \0 d
0044440 001 d 005 001 245 d 005 002 241 005 003 231 001 j 361 264
0044460 017 @ 001 k 331 207 001 \t \0 \0 264 004 @ 001 X 262
0044500 E @ 002 001 021 A 005 I 003 265 003 211 001 ] d `
0044520 \0 \0 360 262 026 277 J 022 ` \0 \0 ` \0 \0 H @
0044540 002 032 032 032 \n \0 \0 260 7 003 241 M 203 M \t \0
0044560 \0 274 K 265 \f L h 032 [ 272 I 002 Y 260 313 L
0044600 & 273 260 370 @ 002 002 \t \0 \0 265 024 ` \0 \0 i
0044620 \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 h b \0
0044640 261 377 K \0 ( 2 6 4 Q P R I N 1
0044660 2 5 3 Q P R I N 1 2 4 2 Q
0044700 L I S P X R E A D B U F 2 1 1
0044720 Q C O P Y 1 7 7 Q \ N C O
0044740 N C 2 1 2 2 Q E V A L ) \r (
0044760 2 4 7 Q R E D O C N T 1 6 6
0045000 Q H I S T S T R 2 1 6 3 Q
0045020 H I S T S T R 0 1 5 2 Q H I
0045040 S T S T R 2 6 2 Q R E D O C
0045060 N T 5 5 Q R E D O C N T 4
0045100 6 Q H I S T S T R 2 3 2 Q
0045120 H I S T S T R 3 1 4 Q H I S
0045140 T S T R 0 ) \r ( 2 6 0 Q "
0045160 r e p e t i t i o n s . \r " ) \r
0045200 L I S P X R E A D P D 1 \r ( L
0045220 ( 0 F L G ) F 0 R E A
0045240 D B U F ) \0 " \0 001 \0 001 P 265 027 i
0045260 d \n \0 \0 264 030 @ 265 025 i \t \0 \0 g \0 \0
0045300 360 h 360 020 \t \0 \0 c \0 262 346 i 020 \0 ( 3
0045320 2 Q L I S P X R E A D B U F
0045340 2 0 Q P E E K C 7 R E A D
0045360 P ) \r ( 2 3 Q % \r ) \r ( ) \r L
0045400 I S P X R E P R I N T D 1 \r (
0045420 L ( 1 F I L E 0 X ) )
0045440 \0 | 001 \0 \0 002 A 243 i b 002 277 @ d 005 \a
0045460 226 277 @ A \n \0 \0 020 003 245 @ A \n \0 \0 020
0045500 @ 001 d g \0 \0 360 263 025 d g \0 \0 360 254 d
0045520 g \0 \0 360 246 d g \0 \0 360 262 027 277 @ 001 021
0045540 001 \0 @ 002 001 A @ 002 002 002 001 l 003 H 017 016
0045560 020 d g \0 \0 360 234 277 @ 002 001 @ 002 002 001 A
0045600 \v \0 \0 020 d g \0 \0 360 225 277 A \t \0 \0 020
0045620 277 @ 001 @ 002 001 A @ 002 002 002 032 032 \n \0 \0
0045640 020 \0 ( 1 7 1 Q A P P L Y 1 5
0045660 0 Q T E R P R I 1 3 4 Q T
0045700 A B 3 0 Q P R I N 2 2 0 Q
0045720 P R I N 1 ) \r ( 1 4 1 Q T E
0045740 R P R I 1 1 6 Q T A B 6 2
0045760 Q S P A C E S 5 4 Q P R I
0046000 N 2 4 6 Q P R I N 1 3 7 Q
0046020 P R I N T ) \r ( ) \r L I S P X
0046040 S P A C E S D 1 \r ( L ( 3
0046060 N O D O F L G 2 Z 1 Y
0046100 0 X ) F 0 L I S P X H I
0046120 S T ) \0 > \0 001 \0 004 ` \0 \0 262 / P
0046140 262 , g \0 \0 A i 360 231 @ k 360 225 o \0 \0
0046160 \0 260 023 g \0 \0 A 225 @ A h 032 032 204 @ d
0046200 221 h 032 032 h 032 i P \f \0 \0 277 C h 360 264
0046220 \a @ A \n \0 \0 020 \0 ( 7 3 Q S P A
0046240 C E S 6 0 Q L I S P X P U T
0046260 ) \r ( 3 3 Q S P A C E S 1 2
0046300 Q * L I S P X P R I N T * 2
0046320 L I S P X P R I N T F L G ) \r
0046340 ( 2 6 Q " " ) \r L I S P X
0046360 S T O R E V A L U E D 1 \r ( L
0046400 ( 1 V A L U E 0 E V E N
0046420 T ) ) \0 \t \0 \0 \0 002 @ d 223 002 002 A
0046440 030 020 \0 N I L \r N I L \r ( ) \r L I
0046460 S P X S U B S T D 1 \r ( L (
0046500 3 C H A R F L G 2 Z 1
0046520 Y 0 X ) ) \0 022 \0 \0 \0 004 C 246
0046540 @ A B \v \0 \0 020 @ A B i \f \0 \0 020 \0
0046560 ( 1 7 Q E S U B S T 7 S U
0046600 B S T ) \r N I L \r ( ) \r L I S P
0046620 X T A B D 1 \r ( L ( 3 N O
0046640 D O F L G 2 Z 1 Y 0
0046660 X ) F 0 L I S P X H I S T
0046700 ) \0 ; \0 001 \0 004 ` \0 \0 262 + P 262 (
0046720 g \0 \0 g \0 \0 B 227 @ A B h 032 032 032 214
0046740 A 225 @ A h 032 032 204 @ d 221 h 032 032 h 032
0046760 i P \f \0 \0 277 C h 360 264 \b @ A B \v \0
0047000 \0 020 \0 ( 7 0 Q T A B 5 4 Q
0047020 L I S P X P U T ) \r ( 1 5 Q T
0047040 A B 1 2 Q * L I S P X P R I
0047060 N T * 2 L I S P X P R I N T
0047100 F L G ) \r ( ) \r L I S P X T E R
0047120 P R I D 1 \r ( L ( 3 N O D
0047140 O F L G 2 Z 1 Y 0 X
0047160 ) F 0 L I S P X H I S T )
0047200 \0 0 \0 001 \0 004 ` \0 \0 262 " P 262 037 g
0047220 \0 \0 @ i 360 224 o \0 \0 \0 210 g \0 \0 @ d
0047240 221 h 032 032 h 032 i P \f \0 \0 277 C h 360 264
0047260 006 @ \t \0 \0 020 \0 ( 5 5 Q T E R P
0047300 R I 4 3 Q L I S P X P U T )
0047320 \r ( 2 6 Q T E R P R I 1 2 Q
0047340 * L I S P X P R I N T * 2
0047360 L I S P X P R I N T F L G ) \r (
0047400 2 2 Q " \r " ) \r L I S P X T
0047420 Y P E A H E A D A 0 0 0 1 D 1
0047440 \r ( N A M E E R R O R S E T
0047460 F 0 L F 1 X ) \0 242 \0
0047500 002 002 \0 i d \n \0 \0 c 002 d g \0 \0 360 246
0047520 d g \0 \0 360 262 027 277 P 206 d 001 \t \0 \0 277
0047540 002 003 265 370 g \0 \0 \t \0 \0 260 x d g \0 \0
0047560 360 230 277 g \0 \0 \t \0 \0 260 i d g \0 \0 360
0047600 226 277 P \t \0 \0 260 Z d g \0 \0 360 262 035 277
0047620 g \0 \0 i \n \0 \0 277 P 001 c 002 d 003 220 001
0047640 i d \v \0 \0 277 P 002 260 8 g \0 \0 360 262 033
0047660 P \t \0 \0 216 d 001 g \0 \0 h 032 032 i d \v
0047700 \0 \0 277 002 003 265 360 260 033 Q 003 265 \b i \t \0
0047720 \0 243 Q h 032 207 Q i h i \v \0 \0 032 P 032
0047740 c \0 i 020 \0 ( 2 3 1 Q R E A D L
0047760 I N E 2 1 5 Q R E A D P 1
0050000 7 6 Q P R I N T H I S T O R Y
0050020 1 1 6 0 Q R E V E R S E 1
0050040 4 1 Q P R I N T 1 2 3 Q P
0050060 R I N 1 1 0 2 Q E D I T E
0050100 6 5 Q R E T F R O M 4 6 Q
0050120 R E T F R O M 3 3 Q L I S P
0050140 X U N R E A D 4 L I S P X R
0050160 E A D ) \r ( 1 6 6 Q > 1 5 1
0050200 Q ? ? 1 1 7 Q \ \ 1 1 0
0050220 Q 033 Q 7 3 Q F I X 6 2 Q
0050240 L I S P X T Y P E A H E A D
0050260 5 4 Q 033 S T O P 4 3 Q L I
0050300 S P X T Y P E A H E A D 2 0 Q
0050320 033 G O 1 2 Q 033 O K ) \r ( )
0050340 \r L I S P X T Y P E A H E A D
0050360 D 1 \r ( P 1 L P 0 X )
0050400 \0 026 002 \0 \0 \0 021 001 g \0 \0 i \n \0
0050420 \0 277 o \0 \0 \0 \t \0 \0 277 260 360 \0 ( 2 1
0050440 Q L I S P X T Y P E A H E A D
0050460 A 0 0 0 1 1 1 Q P R I N 1 )
0050500 \r ( 5 > ) \r ( 1 6 Q ( L I
0050520 S P X T Y P E A H E A D A 0 0 0
0050540 1 ) ) \r L I S P X U N R E A D
0050560 D 1 \r ( L ( 0 L S T ) I
0050600 1 E V E N T F 0 R E A D
0050620 B U F ) \0 026 \0 001 \0 002 @ A 226 ` \0
0050640 \0 A P 032 203 ` \0 \0 P 032 \n \0 \0 c \0 020
0050660 \0 ( 2 1 Q \ A P P E N D 2 ) \r
0050700 ( 1 4 Q H I S T S T R 0 5
0050720 H I S T S T R 3 ) \r ( ) \r L I S
0050740 P X U S E D 1 \r ( L ( 2 L
0050760 S P X H S T 0 L I N E ) P
0051000 1 0 Q L I S P X H I S T P
0051020 7 G E N L S T P 2 V A
0051040 R S I 1 H I S T O R Y )
0051060 001 340 \f \0 \0 003 021 220 \b @ 253 o \0 \0 \0 g
0051100 \0 \0 i \v \0 \0 277 g \0 \0 273 L 264 003 202 261
0051120 \0 303 @ 002 242 261 \0 274 @ 001 d g \0 \0 360 246
0051140 d g \0 \0 360 262 $ 277 K g \0 \0 360 242 261 \0
0051160 243 J L h 032 \n \0 \0 272 L M \n \0 \0 275 g
0051200 \0 \0 273 h 274 i 261 \0 211 d g \0 \0 360 246 d
0051220 g \0 \0 360 262 1 277 K d g \0 \0 360 263 p d
0051240 g \0 \0 360 231 277 I L h 032 \n \0 \0 271 214 g
0051260 \0 \0 360 227 J L h 032 \n \0 \0 272 g \0 \0 273
0051300 h 274 i 260 L d g \0 \0 360 246 d g \0 \0 360
0051320 262 = 277 K d g \0 \0 360 262 036 277 I 263 031 J
0051340 L h 032 \n \0 \0 272 L M \n \0 \0 275 g \0 \0
0051360 273 h 274 i 260 033 K g \0 \0 360 262 026 I L h
0051400 032 \n \0 \0 271 g \0 \0 273 h 274 i 201 277 h 263
0051420 036 L @ 001 h 032 \n \0 \0 274 @ d 001 M \n \0
0051440 \0 233 001 \b \0 \0 032 O 016 032 _ 016 277 @ 002 b
0051460 \0 222 261 377 031 K d g \0 \0 360 232 277 J L h
0051500 032 \n \0 \0 Z 260 034 g \0 \0 360 230 I L h 032
0051520 \n \0 \0 Y 213 K g \0 \0 360 222 L X 204 \b \0
0051540 \0 277 H 253 I 234 g \0 \0 I 001 001 h 032 032 270
0051560 I 263 024 g \0 \0 A H g \0 \0 i d \r 005 \0
0051600 \0 034 002 001 276 A H g \0 \0 i d \r 005 \0 \0
0051620 270 I 265 5 N 265 032 J 002 247 ` \0 \0 H 034 002
0051640 262 N o \0 \0 \0 g \0 \0 i \v \0 \0 260 Q 001
0051660 271 N 002 h 032 270 I 002 262 G J d 002 263 C 277
0051700 021 0 \v J 001 260 H 032 276 260 0 d 001 h 032
0051720 _ 022 277 O 024 265 \t O 022 h 032 _ 026 202 O 022
0051740 & _ 024 277 002 003 265 346 O 026 022 Z 260 024 H d
0051760 002 002 240 001 001 h 032 h 032 271 H h 032 X 277 J
0052000 I H O 016 \f \0 \0 275 B g \0 \0 N h 032 032
0052020 \n \0 \0 M 020 \0 ( 7 3 4 Q \ N C O
0052040 N C 2 7 2 0 Q L I S P X U S
0052060 E 0 5 6 6 Q E R R O R 5 3
0052100 1 Q L I S P X F I N D 5 1 2
0052120 Q L I S P X F I N D 4 5 2 Q
0052140 H E L P 4 3 4 Q \ N C O N
0052160 C 2 4 1 5 Q \ N C O N C 2
0052200 3 5 7 Q G E N S Y M 3 5 2 Q
0052220 M E M B E R 3 4 2 Q \ N C
0052240 O N C 2 3 1 5 Q \ N C O N C
0052260 2 2 6 5 Q \ A P P E N D 2
0052300 2 5 7 Q \ N C O N C 2 2 0 4
0052320 Q \ N C O N C 2 1 6 6 Q \
0052340 N C O N C 2 1 0 7 Q \ A P P
0052360 E N D 2 1 0 1 Q \ N C O N C
0052400 2 1 7 Q E R R O R ) \r ( 7 2
0052420 5 Q U S E - A R G S 5 6 2 Q
0052440 \a 5 4 6 Q H I S T S T R 0
0052460 5 2 3 Q I N P U T 5 0 4 Q
0052500 E N T R Y 4 7 7 Q U S E -
0052520 A R G S 4 6 2 Q F 4 4 2 Q
0052540 E X P R 4 2 3 Q A R G S
0052560 4 0 3 Q V A R S 3 2 1 Q E
0052600 X P R 3 0 3 Q A R G S 2 7
0052620 1 Q E X P R 2 4 1 Q V A R
0052640 S 2 3 0 Q i n 2 2 2 Q I
0052660 N 2 1 0 Q V A R S 1 7 3 Q
0052700 V A R S 1 5 4 Q A R G S
0052720 1 4 5 Q E X P R 1 3 4 Q a
0052740 n d 1 2 6 Q A N D 1 1 3 Q
0052760 A R G S 6 5 Q V A R S 5
0053000 5 Q f o r 4 7 Q F O R 2
0053020 3 Q V A R S 1 3 Q \a ) \r (
0053040 5 5 7 Q " f o r w h a t
0053060 ? " 1 0 Q " u s e w h a t
0053100 ? ? " ) \r L I S P X U S E 0 D
0053120 1 \r ( L ( 2 E X P R 1 A
0053140 R G S ) I 3 G E N L S T
0053160 I 0 V A R S ) \0 Y 003 \0 \0 004
0053200 @ 001 A 001 B \v \0 \0 b 004 277 @ 002 b \0 277
0053220 A 002 b 002 263 354 @ 233 o \0 \0 \0 g \0 \0 i
0053240 \v \0 \0 277 C 217 d 001 021 001 \0 H 001 H 002 B
0053260 i \f \0 \0 023 002 003 265 357 021 0 002 B 214 d 001
0053300 X 003 226 I 265 \f H Z Y 277 002 003 265 362 J 020
0053320 \t \0 \0 Y H 031 260 363 \0 ( 1 2 2 Q L
0053340 A S T 6 3 Q L I S P X S U B
0053360 S T 4 2 Q E R R O R 7 L
0053400 I S P X U S E 1 ) \r ( 3 6 Q \a
0053420 ) \r ( 3 3 Q " u s e w h a
0053440 t ? ? " ) \r L I S P X U S E 1
0053460 D 1 \r ( L ( 2 E X P R S 1
0053500 A R G S ) I 0 V A R S
0053520 F 1 0 Q G E N L S T ) \0 231
0053540 \b 001 \0 003 @ A B \t \0 \0 021 S \a J 273 W
0053560 020 262 H 001 W 020 \n \0 \0 _ 016 262 025 g \0
0053600 \0 I 001 \n \0 \0 231 o \0 \0 \0 h i \v \0 \0
0053620 277 J H 001 g \0 \0 360 233 H 002 X 001 I 001 J
0053640 001 \v \0 \0 216 O 016 002 265 004 H 001 I 001 J 001
0053660 i \f \0 \0 030 277 H 002 X 241 i 274 I 002 Y 243
0053700 i 275 I 222 H 263 252 J 002 Z 263 024 I 243 H 241
0053720 K 020 i 276 K B \t \0 \0 Z \n \0 \0 273 N 235
0053740 L 233 M 231 o \0 \0 \0 h i \v \0 \0 277 H 241
0053760 @ 270 I 222 261 377 { A 271 261 377 v \0 ( 2 1
0054000 0 Q E R R O R 1 7 0 Q \ N
0054020 C O N C 2 1 6 4 Q C O P Y
0054040 1 1 7 Q L I S P X S U B S T
0054060 7 7 Q L S U B S T 5 3 Q E
0054100 R R O R 4 1 Q S T R P O S
0054120 2 5 Q S A S S O C 5 C O P
0054140 Y ) \r ( 6 2 Q ! 3 4 Q 033 )
0054160 \r ( 2 0 3 Q " h u h ? ? "
0054200 4 6 Q " s o r r y , t h a t
0054220 ' s t o o h a r d . " ) \r L
0054240 I S P X U S E C A 0 0 0 1 D 1
0054260 \r ( N A M E E R R O R S E T
0054300 F 0 L I S P X 1 F 1 L
0054320 I S P X 2 F 2 L I S P Z
0054340 F 3 L I S P X T E M ) \0 025
0054360 \0 004 002 \0 P Q R d 003 264 006 \t \0 \0 h i
0054400 \r 005 \0 \0 c 006 i 020 \0 ( 1 7 Q E S
0054420 U B S T 1 1 Q C O P Y ) \r N
0054440 I L \r ( ) \r L I S P X U S E C
0054460 D 1 \r ( L ( 0 L I N E ) P
0054500 6 L I S P X H I S T P 4
0054520 L I S P X 2 P 3 L I S P
0054540 X 1 P 2 L I S P X T E M
0054560 P 1 L I S P Z I 1 H I
0054600 S T O R Y ) 001 216 \a \0 \0 002 021 p 006
0054620 g \0 \0 @ 034 ] 002 234 @ M \n \0 \0 b \0 277
0054640 A M 002 ] 206 @ d 002 255 277 A h g \0 \0 i
0054660 d \r 005 \0 \0 270 @ 002 263 = g \0 \0 H 034 002
0054700 Y 230 @ 001 273 I 001 274 261 \0 250 @ 001 d 005 001
0054720 245 d 005 002 241 005 003 231 g \0 \0 @ 032 b \0 023
0054740 260 255 o \0 \0 \0 i \n \0 \0 277 H i \n \0 \0
0054760 277 \b \0 \0 277 @ d 002 002 262 032 002 001 d g \0
0055000 \0 360 254 d g \0 \0 360 246 d g \0 \0 360 262 0
0055020 277 @ 002 002 001 273 @ 001 \ 277 H 263 N K 003 263
0055040 9 L 003 265 6 g \0 \0 L \n \0 \0 263 , g \0
0055060 \0 L g \0 \0 h 032 032 032 \t \0 \0 260 035 g \0
0055100 \0 360 227 @ 001 273 @ 002 002 260 316 @ 002 001 o \0
0055120 \0 \0 i \v \0 \0 260 303 L 272 A J h 032 ] g
0055140 \0 \0 i d \r 005 \0 \0 270 g \0 \0 H 034 002 271
0055160 A M g \0 \0 i d \r 005 \0 \0 \t \0 \0 270 I
0055200 265 005 261 \0 216 001 271 L I 360 234 K d 005 001 245
0055220 d 005 002 241 005 003 265 035 @ 263 E I d 004 l 004
0055240 360 244 005 \a 262 / I g \0 \0 h 032 032 \t \0 \0
0055260 272 260 6 272 ` \0 \0 263 0 L i d \v \0 \0 262
0055300 ( g \0 \0 i \n \0 \0 262 037 K i d \v \0 \0
0055320 277 260 026 o \0 \0 \0 h i \v \0 \0 277 210 o \0
0055340 \0 \0 \t \0 \0 262 + H I \n \0 \0 226 J I H
0055360 \v \0 \0 020 I i d \v \0 \0 277 o \0 \0 \0 i
0055400 \n \0 \0 277 H h 032 i \n \0 \0 277 \b \0 \0 277
0055420 K L H i d \r 005 \0 \0 020 \0 ( 6 1 3 Q
0055440 E S U B S T 6 0 1 Q E R R
0055460 O R ! 5 7 5 Q P R I N T H I
0055500 S T O R Y 1 5 6 5 Q P R I N
0055520 1 5 5 4 Q P R I N 2 5 4 5
0055540 Q S U B S T 5 3 6 Q E D I
0055560 T F I N D P 5 2 7 Q L I S P
0055600 X U S E C A 0 0 0 1 5 1 6 Q
0055620 E R R O R 5 0 2 Q P R I N T
0055640 4 7 2 Q P R I N 1 4 6 1 Q
0055660 P R I N 2 4 4 2 Q P A C K
0055700 3 6 0 Q C O P Y 3 5 5 Q
0055720 L I S P X F I N D 3 3 2 Q L
0055740 I S P X F I N D 3 1 0 Q E R
0055760 R O R 2 5 6 Q P A C K 2 3
0056000 6 Q S T R P O S 1 4 6 Q E
0056020 R R O R ! 1 4 2 Q P R I N T
0056040 H I S T O R Y 1 1 3 4 Q P R
0056060 I N 1 4 7 Q L I S P X F I N
0056100 D 1 7 Q L D I F F ) \r ( 4 6
0056120 6 Q - > 4 5 1 Q E D I T Q
0056140 U I E T F L G 4 3 4 Q 033 033
0056160 3 4 7 Q I N P U T 3 3 6 Q
0056200 * E R R O R * 3 2 4 Q E N T
0056220 R Y 2 6 3 Q F O R 2 4 7 Q
0056240 033 2 4 3 Q 033 2 3 2 Q 033
0056260 1 7 7 Q - > 1 7 1 Q =
0056300 1 6 3 Q T O 1 1 5 Q I N
0056320 5 7 Q * E R R O R * 4 1 Q
0056340 E N T R Y 5 I N ) \r ( 5 6
0056360 1 Q " d o e s n o t a p
0056400 p e a r i n " 5 2 4 Q (
0056420 L I S P X U S E C A 0 0 0 1 )
0056440 5 1 1 Q " ? " 3 0 4 Q
0056460 " ? " 1 3 0 Q " U n a b l
0056500 e t o f i g u r e o u t
0056520 w h a t y o u m e a n t i
0056540 n : " ) \r P R I N T H I S T O R
0056560 Y D 1 \r ( L ( 4 F I L E
0056600 3 N O V A L U E S 2 S K I
0056620 P F N 1 L I N E ) P 2
0056640 E V E N T P 1 H E L P C L
0056660 O C K I 0 H I S T O R Y )
0056700 \0 l 003 \0 \0 005 @ ` \0 \0 360 223 i b 006
0056720 277 021 001 A 242 @ 001 207 @ A g \0 \0 \v \0
0056740 \0 X D \t \0 \0 D \t \0 \0 H 260 : d 001 021
0056760 001 002 B 226 J k B 017 016 263 * @ J \n \0 \0
0057000 D i \v \0 \0 277 g \0 \0 D \n \0 \0 277 J C
0057020 d i 360 222 277 i 206 264 \a J k C 017 016 D \v
0057040 \0 \0 277 023 002 003 265 307 D \t \0 \0 D \t \0 \0
0057060 h 020 \0 ( 1 5 0 Q T E R P R I
0057100 1 4 4 Q T E R P R I 1 3 2 Q
0057120 P R I N T H I S T O R Y 1 1
0057140 0 5 Q P R I N 1 7 5 Q P R
0057160 I N 2 7 0 Q E N T R Y # 4
0057200 2 Q T E R P R I 3 6 Q T E
0057220 R P R I 3 1 Q L I S P X F I
0057240 N D ) \r ( 1 0 1 Q % . 2 6 Q
0057260 E N T R I E S 3 E D I T H
0057300 I S T O R Y ) \r ( ) \r P R I N T
0057320 H I S T O R Y 1 A 0 0 0 1 D 1
0057340 \r ( L ( 1 F L 0 X ) )
0057360 \0 \b \0 \0 \0 002 @ A i \v \0 \0 020 \0 ( 5
0057400 P R I N 2 ) \r N I L \r ( ) \r P
0057420 R I N T H I S T O R Y 1 D 1 \r
0057440 ( L ( 2 F I L E 1 N O V
0057460 A L U E S ) P 3 E V E N T
0057500 I 0 E V E N T ) 001 . 004 \0
0057520 \0 003 @ 001 021 ! 002 g \0 \0 @ \n \0 \0 002 001
0057540 Z 003 262 024 l 005 h B \v \0 \0 277 J 001 B J
0057560 002 032 \n \0 \0 277 g \0 \0 @ 034 002 Y 262 p l
0057600 005 h B \v \0 \0 277 g \0 \0 @ \n \0 \0 002 001
0057620 B h d d g \0 \0 \r 006 \0 \0 277 B \t \0 \0
0057640 277 I 001 262 J I 001 214 d 001 021 001 003 K A B
0057660 \v \0 \0 023 002 003 265 362 g \0 \0 @ \n \0 \0 002
0057700 001 Z 264 003 202 261 \0 271 l 005 h B \v \0 \0 277
0057720 o \0 \0 \0 B \n \0 \0 277 J k 330 B \n \0 \0
0057740 277 o \0 \0 \0 B \n \0 \0 277 261 \0 223 H 262 8
0057760 H 001 ` \0 \0 360 263 0 l 005 h B \v \0 \0 277
0060000 @ 002 001 Z 225 J B \n \0 \0 277 ` \0 \0 H 003
0060020 034 Y 226 H I \n \0 \0 X 200 H 226 H B A \v
0060040 \0 \0 277 I 265 \r g \0 \0 @ \n \0 \0 002 001 260
0060060 024 002 270 l 005 B \n \0 \0 260 321 d 001 B \n \0
0060100 \0 277 002 003 265 367 g \0 \0 @ \n \0 \0 002 001 Z
0060120 003 262 025 l 005 h B \v \0 \0 277 J 001 B J 002
0060140 032 \n \0 \0 260 031 A 263 026 l 005 h B \v \0 \0
0060160 277 @ 002 002 001 027 \0 \0 B i \v \0 \0 h 020 \0
0060200 ( 4 5 2 Q S H O W P R I N T
0060220 4 3 5 Q T A B 4 2 1 Q A P
0060240 P L Y 4 0 7 Q T A B 3 7 2
0060260 Q M E M B 3 5 6 Q L I S P
0060300 X R E P R I N T 3 4 6 Q S P
0060320 A C E S 3 3 2 Q M E M B 3
0060340 1 7 Q P R I N T H I S T O R Y
0060360 2 3 0 5 Q L D I F F 2 6 7
0060400 Q P R I N 1 2 5 4 Q T A B
0060420 2 2 6 Q P R I N 1 2 1 5 Q
0060440 P R I N 1 2 0 5 Q P R I N
0060460 1 1 7 4 Q T A B 1 5 4 Q
0060500 M E M B 1 4 0 Q P R I N T H
0060520 I S T O R Y 1 1 1 5 Q T E R
0060540 P R I 1 1 0 Q M A P R I N T
0060560 7 3 Q M E M B 6 3 Q T A
0060600 B 4 2 Q A P P L Y 3 0 Q
0060620 T A B 1 3 Q M E M B ) \r ( 4
0060640 4 5 Q I T 3 6 6 Q * P R I
0060660 N T * 3 2 6 Q * L I S P X P
0060700 R I N T * 2 7 3 Q H I S T S
0060720 T R 0 2 4 2 Q H I S T S T R
0060740 2 1 5 0 Q * R E D O C N T *
0060760 1 0 4 Q P R I N T H I S T O
0061000 R Y 1 A 0 0 0 1 6 7 Q * H I
0061020 S T O R Y * 4 6 Q * G R O U
0061040 P * 7 * F I R S T P R I N T
0061060 * ) \r ( 2 2 2 Q " t i m e
0061100 s \r " 2 0 1 Q " . . . " )
0061120 \r P R I N T H I S T O R Y 2 A 0
0061140 0 0 1 D 1 \r ( L ( 1 F L
0061160 0 X ) ) \0 \b \0 \0 \0 002 @ A i \v
0061200 \0 \0 020 \0 ( 5 S H O W P R I N 2
0061220 ) \r N I L \r ( ) \r P R I N T H I
0061240 S T O R Y 2 D 1 \r ( L ( 2
0061260 N O V A L U E S 1 F I L E
0061300 0 I N P U T ) ) \0 ` 001 \0 \0 003
0061320 021 020 \0 @ d 003 245 A \n \0 \0 260 M 002 002 235
0061340 @ A h d d g \0 \0 \r 006 \0 \0 260 < @ d
0061360 002 262 1 001 A i \v \0 \0 277 @ 002 001 X 265 023
0061400 ` \0 \0 223 g \0 \0 202 g \0 \0 A \n \0 \0 260
0061420 031 004 l 004 361 223 B i 360 225 k A \n \0 \0 277
0061440 H 200 001 A i \v \0 \0 277 A \t \0 \0 h 020 \0
0061460 ( 1 3 4 Q T E R P R I 1 2 7
0061500 Q S H O W P R I N 2 1 1 6 Q
0061520 S P A C E S 7 6 Q P R I N
0061540 1 5 0 Q S H O W P R I N 2
0061560 3 3 Q M A P R I N T 1 2 Q
0061600 P R I N 1 ) \r ( 7 2 Q % ( % )
0061620 6 6 Q % ] 6 2 Q # R P A
0061640 R S 2 7 Q P R I N T H I S T
0061660 O R Y 2 A 0 0 0 1 ) \r ( ) \r U S
0061700 E R E X E C A 0 0 0 1 A 0 0 0 2
0061720 D 1 \r ( N A M E E R R O R S
0061740 E T F 0 L I S P X I D F
0061760 1 L I S P X X M A C R O S
0062000 F 2 L I S P X X U S E R F N
0062020 ) \0 016 \0 003 002 \0 i d \n \0 \0 P Q R
0062040 \f \0 \0 i 020 \0 ( 1 2 Q L I S P X
0062060 4 L I S P X R E A D ) \r N I
0062100 L \r ( ) \r U S E R E X E C A 0 0
0062120 0 1 D 1 \r ( N A M E E R R O
0062140 R S E T F 0 L I S P X I D
0062160 F 1 R E A D B U F ) \0 '
0062200 \0 002 002 \0 h c 002 027 \0 \0 027 \0 \0 277 P 265
0062220 \t g \0 \0 c \0 277 P i ` \0 \0 \v \0 \0 277
0062240 o \0 \0 \0 i \n \0 \0 260 356 \0 ( 4 3 Q
0062260 U S E R E X E C A 0 0 0 1 A 0 0
0062300 0 2 3 2 Q P R O M P T C H A
0062320 R ) \r ( 2 7 Q L I S P X H I S
0062340 T O R Y 1 7 Q _ 1 0 Q R
0062360 E R E A D F L G 5 R E A D B
0062400 U F S O U R C E ) \r ( 3 7 Q
0062420 ( U S E R E X E C A 0 0 0 1 A 0
0062440 0 0 2 ) ) \r U S E R E X E C D
0062460 1 \r ( I 2 L I S P X X U S E
0062500 R F N I 1 L I S P X X M A
0062520 C R O S I 0 L I S P X I D
0062540 F 2 R E S E T V A R S L S
0062560 T F 3 R E A D B U F ) \0
0062600 b 002 002 \0 003 g \0 \0 S 032 g \0 \0 ` \0 \0
0062620 032 g \0 \0 ` \0 \0 032 R 032 032 032 c 004 021 021
0062640 001 R Y o \0 \0 \0 g \0 \0 \n \0 \0 H 001 002
0062660 c 006 277 H 002 X 001 002 027 \0 \0 277 H 002 X 001
0062700 002 027 \0 \0 277 I d R 360 225 277 H 002 c 004 215
0062720 R \n \0 \0 231 R k I \v \0 \0 H 002 031 277 265
0062740 005 \b \0 \0 001 020 \0 ( 1 3 6 Q E R R
0062760 O R ! 1 2 5 Q N L E F T 1
0063000 1 6 Q T A I L P 4 7 Q U S
0063020 E R E X E C A 0 0 0 1 ) \r ( 7 6
0063040 Q R E R E A D F L G 6 5 Q
0063060 R E A D B U F S O U R C E 4 4
0063100 Q I N T E R N A L 2 1 Q R
0063120 E R E A D F L G 1 6 Q R E R
0063140 E A D F L G 1 2 Q R E A D B
0063160 U F S O U R C E 7 R E A D B
0063200 U F S O U R C E 2 R E A D B
0063220 U F ) \r ( 4 1 Q ( U S E R E
0063240 X E C A 0 0 0 1 ) ) \r U S E R L
0063260 I S P X P R I N T D 1 \r ( L
0063300 ( 3 N O D O F L G 2 Z 1
0063320 F I L E 0 X ) F 2 L
0063340 I S P X H I S T ) \0 X 002 001 \0 004
0063360 m 377 \t \0 \0 021 021 001 H \t \0 \0 Y H \t \0
0063400 \0 g \0 \0 I h d i \r 005 \0 \0 244 I \t \0
0063420 \0 212 I l 006 m 377 \v \0 \0 \t \0 \0 Y ` \0
0063440 \0 262 030 R 262 025 g \0 \0 I @ A B \v \0 \0
0063460 032 h 032 i R \f \0 \0 277 C h 360 264 \n @ A
0063500 B l 003 I 017 016 020 \0 ( 1 0 7 Q L I
0063520 S P X P U T 7 7 Q N L I S T
0063540 5 4 Q M K A T O M 5 1 Q
0063560 S U B S T R I N G 4 0 Q H E
0063600 L P 3 3 Q S T R P O S 2 0
0063620 Q R E L S T K 1 3 Q S T K
0063640 N A M E 4 S T K N T H ) \r (
0063660 7 0 Q * L I S P X P R I N T *
0063700 6 0 Q L I S P X P R I N T F
0063720 L G 2 3 Q L I S P X ) \r ( )
0063740 \r V A L U E O F D 1 \r ( L (
0063760 0 L I N E ) ) \0 022 \0 \0 003 001 @
0064000 ` \0 \0 001 001 001 g \0 \0 \n \0 \0 \n \0 \0 020
0064020 \0 ( 1 7 Q V A L U O F 1 4 Q
0064040 E D I T F I N D P ) \r ( 1 1 Q
0064060 V A L U E O F 3 L I S P X
0064100 H I S T O R Y ) \r ( ) \r V A L U
0064120 O F D 1 \r ( P 1 H I S T O
0064140 R Y F L G I 1 B A C K U P
0064160 I 0 L I N E ) \0 w 005 \0 \0
0064200 002 021 001 @ 246 ` \0 \0 001 002 260 3 A 235 `
0064220 \0 \0 002 001 k 331 270 ` \0 \0 001 002 211 ` \0 \0
0064240 002 001 270 ` \0 \0 001 H ` \0 \0 002 002 002 001 265
0064260 004 l d @ d 003 243 d 221 h 032 \f \0 \0 001 X
0064300 g \0 \0 H \n \0 \0 002 001 b \0 265 \a H 002 002
0064320 001 020 002 245 @ 001 002 002 001 020 021 0 004 @ 260 024
0064340 d 001 002 002 001 272 K 265 \a J h 032 \ 201 J &
0064360 273 002 003 265 355 L 020 \0 ( 1 0 5 Q M E
0064400 M B 7 4 Q H I S T O R Y F I
0064420 N D ) \r ( 1 0 1 Q * G R O U P
0064440 * 5 1 Q L I S P X H I S T O
0064460 R Y 4 4 Q L I S P X H I S T
0064500 O R Y 3 6 Q L I S P X H I S
0064520 T O R Y 3 0 Q L I S P X H I
0064540 S T O R Y 2 0 Q L I S P X H
0064560 I S T O R Y 7 L I S P X H I
0064600 S T O R Y ) \r ( ) \r E N T E R E
0064620 V A L Q T A 0 0 0 1 D 1 \r ( N
0064640 A M E E R R O R S E T F 0
0064660 X ) \0 \a \0 001 002 \0 P \t \0 \0 i 020
0064700 \0 ( 3 E V A L ) \r N I L \r ( )
0064720 \r E N T E R E V A L Q T D 1 \r
0064740 ( P 1 X P 0 B R E A K
0064760 R E S E T V A L S ) \0 B 002 \0 \0
0065000 \0 g \0 \0 027 \0 \0 ` \0 \0 d 262 031 h 027 \0
0065020 \0 277 214 d 001 021 001 \0 g \0 \0 \t \0 \0 023 002
0065040 003 265 362 h g \0 \0 \n \0 \0 ` \0 \0 216 d 001
0065060 021 001 001 o \0 \0 \0 i \n \0 \0 023 002 003 265 360
0065100 h 020 \0 ( 7 1 Q E N T E R E V A
0065120 L Q T A 0 0 0 1 5 0 Q R E S
0065140 E T R E S T O R E 3 4 Q B R
0065160 E A K R E S E T F N ) \r ( 5 3 Q
0065200 R E S E T F O R M S 4 5 Q
0065220 R E S E T 3 1 Q L E A V I N
0065240 G 1 7 Q B R E A K R E S E T
0065260 V A L S L S T 1 0 Q B R E A
0065300 K R E S E T V A L S L S T 5
0065320 U S E R H A N D L E 2 E V A
0065340 L Q T ) \r ( 6 5 Q ( E N T E
0065360 R E V A L Q T A 0 0 0 1 ) ) \r R
0065400 E M E M B E R D 1 \r ( I 0
0065420 L I N E ) \0 \f \0 \0 \0 001 @ \t \0 \0
0065440 g \0 \0 \n \0 \0 020 \0 ( 1 1 Q M A R
0065460 K A S C H A N G E D 3 G E T
0065500 E X P R E S S I O N F R O M E V
0065520 E N T S P E C ) \r ( 6 E X P R
0065540 E S S I O N S ) \r ( ) \r L I S P
0065560 X F I X D 1 \r ( P 0 L I S
0065600 P X H I S T I 1 C O M S
0065620 I 0 I N P U T ) \0 " 001 \0 \0
0065640 002 021 020 \0 @ d 002 001 ` \0 \0 360 231 d 002 002
0065660 245 001 @ h 032 032 201 h 032 A \n \0 \0 \t \0 \0
0065700 001 020 \0 ( 3 6 Q L A S T 3 3 Q
0065720 E D I T L ) \r ( 1 1 Q H I S
0065740 T S T R 0 ) \r ( ) \r C H A N G E
0065760 S L I C E D 1 \r ( I 2 L
0066000 I 1 H I S T O R Y I 0
0066020 N F 0 L I S P X H I S T )
0066040 \0 q \0 001 \0 003 l 003 @ 361 232 @ o \0 \0
0066060 \0 \n \0 \0 277 260 [ A 265 035 ` \0 \0 227 @ `
0066100 \0 \0 \n \0 \0 277 ` \0 \0 262 G @ ` \0 \0 \n
0066120 \0 \0 277 260 = 001 B \n \0 \0 277 g \0 \0 A 002
0066140 002 001 A d 001 @ \n \0 \0 b 004 002 h 032 032 032
0066160 032 P \n \0 \0 277 A 002 002 @ 030 277 A 002 002 002
0066200 @ k 331 l d 333 k 330 l d 332 030 277 B 265 004
0066220 @ 020 h 031 277 260 373 \0 ( 1 1 5 Q U N
0066240 D O S A V E 1 0 1 Q N T H
0066260 6 2 Q \ N C O N C 2 5 2 Q
0066300 C H A N G E S L I C E 3 5 Q
0066320 C H A N G E S L I C E 1 4 Q
0066340 E R R O R ) \r ( 6 6 Q C H A N
0066360 G E S L I C E 4 7 Q E D I T
0066400 H I S T O R Y 4 1 Q E D I T
0066420 H I S T O R Y 3 2 Q L I S P
0066440 X H I S T O R Y 2 5 Q L I S
0066460 P X H I S T O R Y ) \r ( 1 1 Q
0066500 " i s t o o s m a l l " )
0066520 \r L I S P X S T A T E D 1 \r (
0066540 P 1 Y P 0 X I 1
0066560 S T A T E I 0 N A M E F
0066600 2 L I S P X H I S T ) \0 U
0066620 002 001 \0 002 021 001 @ g \0 \0 033 X 263 4 @
0066640 g \0 \0 033 002 Y 254 @ o \0 \0 \0 i \v \0 \0
0066660 277 I 260 024 A g \0 \0 360 262 370 g \0 \0 020 d
0066700 001 \t \0 \0 277 002 003 265 370 @ g \0 \0 g \0 \0
0066720 217 A H 001 360 263 346 H \t \0 \0 277 @ g \0 \0
0066740 A R 032 \v \0 \0 A 020 \0 ( 1 2 1 Q /
0066760 P U T 1 0 6 Q U N D O L I S
0067000 P X 2 5 7 Q U N D O L I S P
0067020 X 2 3 3 Q E R R O R ) \r ( 1
0067040 1 3 Q S T A T E 7 3 Q B E
0067060 F O R E 7 0 Q S T A T E 5
0067100 1 Q W A S 4 3 Q A F T E R
0067120 1 6 Q * H I S T O R Y * 6
0067140 S T A T E ) \r ( 2 7 Q "
0067160 ? " ) \r ( P R E T T Y C O M P R
0067200 I N T H I S T C O M S ) \r ( R
0067220 P A Q Q H I S T C O M S ( (
0067240 F N S P R I N T H I S T O R Y
0067260 E N T R Y # P R I N T H I S
0067300 T O R Y 1 P R I N T H I S T O
0067320 R Y 2 ) ( F N S E V A L Q T
0067340 E N T E R E V A L Q T \r U S
0067360 E R E X E C L I S P X R E A D
0067400 L I S P X R E A D B U F L I
0067420 S P X R E A D P L I S P X U N
0067440 R E A D L I S P X L I S P X
0067460 / L I S P X / 1 L I S P X E
0067500 V A L L I S P X S T O R E V A
0067520 L U E \r H I S T O R Y S A V E
0067540 L I S P X F I N D L I S P X
0067560 G E T I N P U T R E M E M B E
0067600 R G E T E X P R E S S I O N F
0067620 R O M E V E N T S P E C L I S
0067640 P X F I N D 0 L I S P X F I N
0067660 D 1 \r H I S T O R Y F I N D
0067700 H I S T O R Y F I N D 1 H I S
0067720 T O R Y M A T C H V A L U E O
0067740 F V A L U O F L I S P X U S
0067760 E L I S P X U S E 0 L I S P
0070000 X U S E 1 L I S P X S U B S T
0070020 L I S P X U S E C \r L I S P
0070040 X F I X C H A N G E S L I C E
0070060 L I S P X S T A T E L I S P
0070100 X T Y P E A H E A D ) ( A L I
0070120 S T S ( S Y S T E M I N I T V
0070140 A R S L I S P X H I S T O R Y
0070160 G R E E T H I S T ) ) ( \r D
0070200 E C L A R E : D O N T E V A L
0070220 @ L O A D D O C O P Y ( V A
0070240 R S ( # R E D O C N T 3 )
0070260 ( A R C H I V E F L G T ) (
0070300 A R C H I V E F N ) ( A R C H
0070320 I V E L S T ( Q U O T E ( N
0070340 I L 0 \r 5 0 1 0 0 ) ) )
0070360 ( D I S P L A Y T E R M F L G )
0070400 ( E D I T H I S T O R Y ( Q
0070420 U O T E ( N I L 0 3 0 1
0070440 0 0 ) ) ) ( H E R A L D S T R
0070460 I N G ) ( L A S T E X E C )
0070500 ( L A S T H I S T O R Y \r ) (
0070520 L I S P X B U F S ) ( L I S P
0070540 X H I S T ) ( L I S P X H I S
0070560 T O R Y ( Q U O T E ( N I L
0070600 0 3 0 1 0 0 ) ) ) ( L I
0070620 S P X P R I N T F L G T ) (
0070640 L I S P X U S E R F N ) ( \r M
0070660 A K E S Y S D A T E ) ( P R O
0070700 M P T # F L G T ) ( R E D O
0070720 C N T ) ( S Y S O U T . E X T
0070740 ) ( S Y S O U T F I L E ( Q
0070760 U O T E W O R K ) ) ( S Y S
0071000 O U T G A G ) ( T O P L I S P
0071020 X B U F S \r ) ) ) ( L I S P X
0071040 M A C R O S S H H R E T R I
0071060 E V E B E F O R E A F T E R
0071100 O K R E M E M B E R : R E
0071120 M E M B E R T Y P E - A H E A
0071140 D ? ? T ) ( A D D V A R S
0071160 ( \r L I S P X F I N D S P L S T
0071200 F R O M T O T H R U S U
0071220 C H T H A T A L L A N D )
0071240 ( B E F O R E S Y S O U T F O R
0071260 M S ( S E T Q S Y S O U T D
0071300 A T E ( D A T E ) ) ( P R O
0071320 G N ( C O N D \r ( ( N U L L
0071340 F I L E ) ( S E T Q F I L
0071360 E S Y S O U T F I L E ) ) (
0071400 T ( S E T Q S Y S O U T F I
0071420 L E ( P A C K F I L E N A M E
0071440 ( Q U O T E V E R S I O N )
0071460 N I L ( Q U O T E \r B O D
0071500 Y ) F I L E ) ) ) ) ( C O N
0071520 D ( ( A N D ( N U L L ( F
0071540 I L E N A M E F I E L D F I L
0071560 E ( Q U O T E E X T E N S I
0071600 O N ) ) ) ( N U L L ( F I L
0071620 E N A M E F I E L D F I L E
0071640 ( \r Q U O T E V E R S I O N )
0071660 ) ) ) ( S E T Q F I L E (
0071700 P A C K F I L E N A M E ( Q U
0071720 O T E B O D Y ) F I L E (
0071740 Q U O T E E X T E N S I O N )
0071760 S Y S O U T . E X T ) ) ) ) )
0072000 ) ( \r R E S E T F O R M S (
0072020 S E T Q R E A D B U F N I L
0072040 ) ( S E T Q R E A D B U F S
0072060 O U R C E N I L ) ( S E T Q
0072100 T O P L I S P X B U F S ( O
0072120 R ( C L B U F S T ) T O P
0072140 L I S P X B U F S ) \r ) ( C O
0072160 N D ( ( E Q C L E A R S T K
0072200 L S T T ) ( C O N D ( ( E
0072220 Q N O C L E A R S T K L S T
0072240 N I L ) ( C L E A R S T K ) )
0072260 ( T ( * c l e a r a l l
0072300 s t a c k p o i n t e r s
0072320 \r E X C E P T t h o s e o n
0072340 N O C L E A R S T K L S T . )
0072360 ( M A P C ( C L E A R S T K
0072400 T ) ( F U N C T I O N ( L
0072420 A M B D A ( X ) ( A N D (
0072440 N O T ( F M E M B X \r N O
0072460 C L E A R S T K L S T ) ) ( R
0072500 E L S T K X ) ) ) ) ) ) ) )
0072520 ( T ( M A P C C L E A R S T
0072540 K L S T ( F U N C T I O N R
0072560 E L S T K ) ) ( S E T Q C L
0072600 E A R S T K L S T N I L ) ) )
0072620 ) ( \r H I S T O R Y S A V E F
0072640 O R M S ) ( L I S P X C O M S
0072660 033 . . . ? ? F I X F O
0072700 R G E T N A M E O R I G I N
0072720 A L R E D O R E P E A T R
0072740 E T R Y U N D O U S E f i
0072760 x f o r g e t \r n a m e r
0073000 e d o r e p e a t r e t r y
0073020 u n d o u s e ) ( S Y S T
0073040 A T S ( L I S P X S T A T S
0073060 L I S P X I N P U T S ) ( U
0073100 N D O S A V E S U N D O S A
0073120 V E S ) ( U N D O S T A T S
0073140 \r C H A N G E S U N D O N E )
0073160 N I L ( E D I T C A L L S
0073200 C A L L S T O E D I T O R )
0073220 ( E D I T S T A T S E D I T
0073240 C O M M A N D S ) ( E D I T
0073260 E V A L S T A T S C O M M A N
0073300 D S \r I N V O L V I N G E V
0073320 A L U A T I N G A L I S P
0073340 E X P R E S S I O N ) ( E D I
0073360 T E S T A T S U S E S O F
0073400 A N E C O M M A N D T Y P
0073420 E D I N D I R E C T L Y )
0073440 ( \r E D I T I S T A T S U S E
0073460 S O F A N I C O M M A N
0073500 D T Y P E D I N D I R E C
0073520 T L Y ) ( E D I T U N D O S A
0073540 V E S E D I T U N D O S A
0073560 V E S ) ( E D I T U N D O S T
0073600 A T S E D I T \r C H A N G E
0073620 S U N D O N E ) N I L ( P
0073640 . A . S T A T S P . A . C O
0073660 M M A N D S ) N I L ( C L I
0073700 S P I F Y S T A T S C A L L S
0073720 T O C L I S P I F Y ) N I
0073740 L ( F I X C A L L S \r C A L
0073760 L S T O D W I M ) ( F I X
0074000 T I M E ) ( E R R O R C A L L
0074020 S W E R E D U E T O E R
0074040 R O R S ) ( D W I M I F Y F I
0074060 X E S W E R E F R O M D W
0074100 I M I F Y I N G ) N I L \r "
0074120 O F T H O S E D U E T O
0074140 E R R O R S : " ( T Y P E I N
0074160 F I X E S W E R E D U E T
0074200 O E R R O R S I N T Y P E
0074220 - I N ) ( P R O G F I X E S
0074240 W E R E D U E T O E R R O
0074260 R S I N \r U S E R P R O G
0074300 R A M S ) ( S U C C F I X E S
0074320 1 O F T H E S E C A L L S
0074340 W E R E S U C C E S S F U L
0074360 ) N I L " O F T H E C A
0074400 L L S D U E T O D W I M I
0074420 F Y I N G : " ( \r S U C C F I
0074440 X E S 2 W E R E S U C C E S
0074460 S F U L ) N I L ( S P E L L
0074500 S T A T S O F A L L D W I
0074520 M C O R R E C T I O N S W E
0074540 R E S P E L L I N G C O R R
0074560 E C T I O N S ) ( \r C L I S P
0074600 S T A T S W E R E C L I S P
0074620 T R A N S F O R M A T I O N S
0074640 ) ( I N F I X S T A T S O F
0074660 T H E S E W E R E I N F I
0074700 X T R A N S F O R M A T I O N
0074720 S ) ( I F S T A T S W E R E
0074740 \r I F / T H E N / E L S E S
0074760 T A T E M E N T S ) ( I . S .
0075000 S T A T S W E R E I T E R A
0075020 T I V E S T A T E M E N T S )
0075040 ( M A T C H S T A T S W E R
0075060 E P A T T E R N M A T C H E
0075100 S ) ( \r R E C O R D S T A T S
0075120 W E R E R E C O R D O P E
0075140 R A T I O N S ) N I L ( S P
0075160 E L L S T A T S 1 O T H E R
0075200 S P E L L I N G C O R R E C T
0075220 I O N S , E . G . E D I T
0075240 C O M M A N D S ) \r N I L (
0075260 R U N O N S T A T S O F A L
0075300 L S P E L L I N G C O R R E
0075320 C T I O N S W E R E R U N -
0075340 O N C O R R E C T I O N S )
0075360 N I L ( V E T O S T A T S C
0075400 O R R E C T I O N S W E R E
0075420 \r V E T O E D ) N I L ) ( N
0075440 O C L E A R S T K L S T ) ) (
0075460 A P P E N D V A R S ( A F T E
0075500 R S Y S O U T F O R M S ( C O
0075520 N D ( ( L I S T P S Y S O U
0075540 T G A G ) ( E V A L S Y S O
0075560 U T G A G ) ) \r ( S Y S O U T
0075600 G A G ) ( ( O R ( N U L L
0075620 U S E R N A M E ) ( E Q U S
0075640 E R N A M E ( U S E R N A M E
0075660 N I L T ) ) ) ( T E R P R
0075700 I T ) ( P R I N 1 H E R A
0075720 L D S T R I N G T ) ( \r T E
0075740 R P R I T ) ( T E R P R I
0075760 T ) ( G R E E T 0 ) ( T E R
0076000 P R I T ) ) ( T ( L I S P
0076020 X P R I N 1 ( Q U O T E " *
0076040 * * * A T T E N T I O N U S E
0076060 R " ) T ) ( L I S P X P R
0076100 I N 1 \r ( U S E R N A M E )
0076120 T ) ( L I S P X P R I N 1 (
0076140 Q U O T E " : \r t h i s s y
0076160 s o u t i s i n i t i a l i
0076200 z e d f o r u s e r " )
0076220 T ) ( L I S P X P R I N 1 U
0076240 S E R N A M E T ) ( L I S P
0076260 X P R I N 1 ( Q U O T E " .
0076300 \r " ) T ) ( L I S P X P R I
0076320 N 1 ( Q U O T E " T o r e
0076340 i n i t i a l i z e , t y p e
0076360 G R E E T ( ) \r " ) T ) ) )
0076400 ( S E T I N I T I A L S ) ) )
0076420 ( P ( M A P C S Y S T A T
0076440 S ( F U N C T I O N ( L A M
0076460 B D A ( X ) ( A N D ( L I
0076500 S T P X ) ( E Q ( G E T T
0076520 O P V A L ( C A R X ) ) \r
0076540 ( Q U O T E N O B I N D ) )
0076560 ( S E T T O P V A L ( C A R
0076600 X ) N I L ) ) ) ) ) ( P U T
0076620 D ( Q U O T E E ) ) ) ( C
0076640 O M S ( F N S G R E E T G
0076660 R E E T 0 ) ( A D D V A R S
0076700 ( \r P R E G R E E T F O R M S
0076720 ( D R E M O V E G R E E T F O
0076740 R M R E S E T F O R M S ) (
0076760 S E T Q C O N S O L E T I M E
0077000 ( S E T Q C P U T I M E (
0077020 S E T Q E D I T I M E 0 ) )
0077040 ) ( S E T Q \r C O N S O L E
0077060 T I M E 0 ( C L O C K 0 ) )
0077100 ( S E T Q C P U T I M E 0
0077120 ( C L O C K 2 ) ) ) ( P O S
0077140 T G R E E T F O R M S ( S E T
0077160 I N I T I A L S ) ( A N D E
0077200 D I T C H A R A C T E R S ( \r
0077220 A P P L Y ( Q U O T E S E T
0077240 T E R M C H A R S ) E D I T C
0077260 H A R A C T E R S ) ) ) ) ( D
0077300 E C L A R E : D O N T E V A L
0077320 @ L O A D D O C O P Y ( V A
0077340 R S ( G R E E T H I S T ) (
0077360 \r S Y S T E M T Y P E ) ( G R
0077400 E E T F O R M ( Q U O T E (
0077420 L I S P X E V A L ( Q U O T E
0077440 ( G R E E T ) ) ( Q U O T E
0077460 _ ) ) ) ) ( C U T E F L G )
0077500 G R E E T D A T E S ( U S E
0077520 R N A M E ) \r ( H O S T N A M
0077540 E ) ( C O N S O L E T I M E
0077560 0 ) ( C O N S O L E T I M E 0
0077600 0 ) ( C P U T I M E 0 )
0077620 ( C P U T I M E 0 0 ) ( E D
0077640 I T I M E 0 ) ( F I R S T N
0077660 A M E ) ) C O P Y W H E N \r
0077700 ( N E Q ( S Y S T E M T Y P E
0077720 ) ( Q U O T E D ) ) ( P
0077740 ( P U T P R O P S S Y S O U T
0077760 A R G N A M E S ( F I L E )
0100000 ) ( P U T P R O P S M A K E
0100020 S Y S A R G N A M E S ( F I
0100040 L E \r N A M E ) ) ( P U T P
0100060 R O P S S Y S O U T R E A D
0100100 V I C E ( N I L ( B E F O R
0100120 E N I L ( M A P C B E F O
0100140 R E S Y S O U T F O R M S ( F
0100160 U N C T I O N E V A L ) ) )
0100200 ( A F T E R N I L \r ( A N D
0100220 ( L I S T P ! V A L U E )
0100240 ( M A P C A F T E R S Y S O U
0100260 T F O R M S ( F U N C T I O N
0100300 E V A L ) ) ) ) ) ) ( P U T
0100320 P R O P S M A K E S Y S R E
0100340 A D V I C E ( N I L ( \r B E
0100360 F O R E N I L ( M A P C B
0100400 E F O R E M A K E S Y S F O R M
0100420 S ( F U N C T I O N E V A L
0100440 ) ) ) ) ) ( R E A D V I S E
0100460 S Y S O U T M A K E S Y S ) )
0100500 ( A D D V A R S ( \r B E F O
0100520 R E M A K E S Y S F O R M S (
0100540 U N D O L I S P X 2 ( L I S T
0100560 ( Q U O T E S I D E ) G R
0100600 E E T H I S T ) ) ( S E T Q
0100620 G R E E T H I S T N I L ) (
0100640 S E T Q R E S E T F O R M S
0100660 ( \r C O N S G R E E T F O R M
0100700 R E S E T F O R M S ) ) ( S
0100720 E T Q M A K E S Y S D A T E
0100740 ( D A T E ) ) ) ) ) ) ( F N S
0100760 L I S P X P R I N T L I S P
0101000 X P R I N 1 L I S P X P R I N
0101020 2 \r L I S P X P R I N T D E F
0101040 L I S P X P R I N T D E F 0
0101060 L I S P X S P A C E S L I S P
0101100 X T E R P R I L I S P X T A B
0101120 U S E R L I S P X P R I N T
0101140 L I S P X P U T L I S P X R E
0101160 P R I N T ) ( \r G L O B A L V
0101200 A R S L I S P X P R I N T F L
0101220 G # R P A R S G R E E T D A
0101240 T E S G R E E T H I S T C O
0101260 N S O L E T I M E 0 E D I T I
0101300 M E C P U T I M E C O N S O
0101320 L E T I M E C P U T I M E 0 \r
0101340 F I R S T N A M E U S E R N
0101360 A M E N E W U S E R F L G R
0101400 A N D S T A T E P R E G R E E
0101420 T F O R M S P O S T G R E E T
0101440 F O R M S S Y S F I L E S F
0101460 I L E R D T B L C U T E F L G
0101500 \r P R E T T Y H E A D E R B
0101520 U I L D M A P F L G F I L E P
0101540 K G F L G D F N F L G M A C
0101560 S C R A T C H S T R I N G L A
0101600 S T H I S T O R Y A R C H I V
0101620 E F L G L I S P X F I N D S P
0101640 L S T \r C H C O N L S T 1 P
0101660 . A . S T A T S E D I T S T A
0101700 T S L I S P X S T A T S C L
0101720 E A R S T K L S T D I S P L A
0101740 Y T E R M F L G R E D O C N T
0101760 # R E D O C N T E V A L Q T
0102000 F O R M S \r R E S E T F O R M
0102020 S C A R / C D R N I L U S E
0102040 R H A N D L E H I S T S T R 3
0102060 H I S T O R Y S A V E F N H
0102100 I S T O R Y S A V E F O R M S
0102120 B R E A K R E S E T V A L S L S
0102140 T L I S P X R E A D F N \r C
0102160 T R L U F L G C L I S P F L G
0102200 L I S P X U S E R F N T O P
0102220 L I S P X B U F S L I S P X B
0102240 U F S C L I S P C H A R S H
0102260 I S T O R Y C O M S H I S T S
0102300 T R 0 L I S P X M A C R O S
0102320 \r L I S P X H I S T O R Y M A C
0102340 R O S L I S P X C O M S D W
0102360 I M F L G A D D S P E L L F L
0102400 G L I S P X H I S T O R Y L
0102420 I S P X F N S C L I S P T R A
0102440 N F L G C L I S P A R R A Y
0102460 \r A R C H I V E L S T E D I T
0102500 H I S T O R Y A R C H I V E F
0102520 N H I S T S T R 2 R E R E A
0102540 D F L G I T B O U N D P D U
0102560 M M Y R E A D B U F S O U R C
0102600 E E D I T Q U I E T F L G )
0102620 ( B L O C K S \r ( L I S P X F
0102640 I N D B L O C K L I S P X F I
0102660 N D L I S P X F I N D 0 L I
0102700 S P X F I N D 1 H I S T O R Y
0102720 F I N D H I S T O R Y F I N D
0102740 1 ( E N T R I E S L I S P X
0102760 F I N D \r H I S T O R Y F I N
0103000 D ) ( L O C A L F R E E V A R
0103020 S _ F L G L L S T Z =
0103040 F L G H I S T O R Y F L G P
0103060 R E D F L G L I N E H I S T
0103100 O R Y T Y P E B A C K U P
0103120 Q U I E T F L G ) ( \r N O L I
0103140 N K F N S H I S T O R Y M A T
0103160 C H L I S P X G E T I N P U T
0103200 ) ) ( N I L E N T R Y # E
0103220 V A L Q T G E T E X P R E S S
0103240 I O N F R O M E V E N T S P E C
0103260 G R E E T G R E E T 0 \r H
0103300 I S T O R Y M A T C H H I S T
0103320 O R Y S A V E L I S P X L I
0103340 S P X / L I S P X / 1 L I S
0103360 P X E V A L L I S P X F I N D
0103400 1 L I S P X G E T I N P U T
0103420 L I S P X P R I N 1 L I S P X
0103440 P R I N 2 \r L I S P X P R I N
0103460 T L I S P X P R I N T D E F
0103500 L I S P X P R I N T D E F 0 L
0103520 I S P X P U T L I S P X R E A
0103540 D L I S P X R E A D B U F L
0103560 I S P X R E A D P L I S P X R
0103600 E P R I N T \r L I S P X S P A
0103620 C E S L I S P X S T O R E V A
0103640 L U E L I S P X S U B S T L
0103660 I S P X T A B L I S P X T E R
0103700 P R I L I S P X T Y P E A H E
0103720 A D L I S P X U N R E A D L
0103740 I S P X U S E \r L I S P X U S
0103760 E 0 L I S P X U S E 1 L I S
0104000 P X U S E C P R I N T H I S T
0104020 O R Y P R I N T H I S T O R Y
0104040 1 P R I N T H I S T O R Y 2
0104060 U S E R E X E C U S E R L I S
0104100 P X P R I N T V A L U E O F \r
0104120 V A L U O F ( L O C A L V A
0104140 R S . T ) ( S P E C V A R
0104160 S L I S P X L I N E L I S P
0104200 X I D L I S P X V A L U E L
0104220 I S P X L I S T F L G H I S T
0104240 O R Y I D E V E N T \r B R
0104260 E A K R E S E T V A L S V A R
0104300 S G E N L S T I N I T L S T
0104320 N A M E M E S S A G E ) (
0104340 L I N K F N S . T ) ( N O
0104360 L I N K F N S L I S P X T Y P
0104400 E A H E A D U N D O L I S P X
0104420 \r A R C H I V E F N L I S P
0104440 X F I X L I S P X U S E L I
0104460 S P X U S E 0 L I S P X S U B
0104500 S T L I S P X F I N D H I S
0104520 T O R Y M A T C H P R I N T H
0104540 I S T O R Y D I S P L A Y T E
0104560 R M P \r L I S P X S T O R E V
0104600 A L U E H I S T O R Y S A V E
0104620 F N E N T E R E V A L Q T P
0104640 R I N T H I S T O R Y 1 P R I
0104660 N T H I S T O R Y 2 L I S P X
0104700 F I N D H I S T O R Y M A T C
0104720 H \r L I S P X G E T I N P U T
0104740 L I S P X S U B S T A R C H
0104760 I V E F N L I S P X F I X L
0105000 I S P X U S E L I S P X U S E
0105020 0 L I S P X S U B S T H I S
0105040 T O R Y M A T C H P R I N T H
0105060 I S T O R Y \r D I S P L A Y T
0105100 E R M P L I S P X S T O R E V
0105120 A L U E H I S T O R Y S A V E
0105140 F N E N T E R E V A L Q T L
0105160 I S P X T Y E A H E A D U N D
0105200 O L I S P X G R E E T F I L E
0105220 N A M E ) ) ) ( \r D E C L A R
0105240 E : D O N T E V A L @ L O A D
0105260 D O E V A L @ C O M P I L E
0105300 D O N T C O P Y C O M P I L E
0105320 R V A R S ( A D D V A R S (
0105340 N L A M A V A L U E O F ) (
0105360 N L A M L ) ( L A M A ) ) ) )
0105400 \r ) \r ( A D D T O V A R S Y S
0105420 T E M I N I T V A R S ( L I S
0105440 P X H I S T O R Y N I L 0
0105460 1 0 0 1 0 0 ) ( G R E E T H
0105500 I S T ) ) \r ( R P A Q Q # R E
0105520 D O C N T 3 ) \r ( R P A Q Q
0105540 A R C H I V E F L G T ) \r ( R
0105560 P A Q Q A R C H I V E F N N
0105600 I L ) \r ( R P A Q Q A R C H I
0105620 V E L S T ( N I L 0 5 0
0105640 1 0 0 ) ) \r ( R P A Q Q D I S
0105660 P L A Y T E R M F L G N I L )
0105700 \r ( R P A Q Q E D I T H I S T
0105720 O R Y ( N I L 0 3 0 1 0
0105740 0 ) ) \r ( R P A Q Q H E R A L
0105760 D S T R I N G N I L ) \r ( R P
0106000 A Q Q L A S T E X E C N I L
0106020 ) \r ( R P A Q Q L A S T H I S
0106040 T O R Y N I L ) \r ( R P A Q Q
0106060 L I S P X B U F S N I L ) \r
0106100 ( R P A Q Q L I S P X H I S T
0106120 N I L ) \r ( R P A Q Q L I S
0106140 P X H I S T O R Y ( N I L 0
0106160 3 0 1 0 0 ) ) \r ( R P A Q Q
0106200 L I S P X P R I N T F L G T
0106220 ) \r ( R P A Q Q L I S P X U S
0106240 E R F N N I L ) \r ( R P A Q Q
0106260 M A K E S Y S D A T E N I L
0106300 ) \r ( R P A Q Q P R O M P T #
0106320 F L G T ) \r ( R P A Q Q R E
0106340 D O C N T N I L ) \r ( R P A Q
0106360 Q S Y S O U T . E X T N I L
0106400 ) \r ( R P A Q Q S Y S O U T F
0106420 I L E W O R K ) \r ( R P A Q Q
0106440 S Y S O U T G A G N I L ) \r
0106460 ( R P A Q Q T O P L I S P X B
0106500 U F S N I L ) \r ( A D D T O V
0106520 A R L I S P X H I S T O R Y M
0106540 A C R O S ( T Y P E - A H E A
0106560 D ( L I S P X T Y P E A H E A
0106600 D ) ) ( ? ? T N I L ( P R
0106620 O G ( T E M ) ( R E S E T V
0106640 A R S ( ( \r P R E T T Y T R A
0106660 N F L G T ) ) ( R E S E T F
0106700 O R M ( O U T P U T T ) (
0106720 P R I N T D E F ( C O N D (
0106740 ( N U L L ( C D A R ( S E T
0106760 Q T E M ( L I S P X F I N D
0107000 L I S P X H I S T O R Y \r L
0107020 I S P X L I N E ( Q U O T E
0107040 E N T R Y ) ) ) ) ) ( C A A R
0107060 T E M ) ) ( T ( C A R T
0107100 E M ) ) ) N I L T ) ) ) (
0107120 T E R P R I T ) ( R E T U R
0107140 N N I L ) ) ) ) \r ( A D D T O
0107160 V A R L I S P X M A C R O S
0107200 ( S H H N I L ( C O N D (
0107220 ( O R ( C D R ( L I S T P
0107240 L I S P X L I N E ) ) ( A N D
0107260 ( F M E M B ( L A S T C T
0107300 ) ( Q U O T E ( % ) % ] )
0107320 \r ) ) ( L I T A T O M ( C A
0107340 R L I S P X L I N E ) ) ) )
0107360 ( A P P L Y ( C A R L I S P
0107400 X L I N E ) ( C O N D ( ( A
0107420 N D ( L I S T P ( C A D R
0107440 L I S P X L I N E ) ) ( N U L
0107460 L ( C D D R \r L I S P X L I
0107500 N E ) ) ) ( C A D R L I S P
0107520 X L I N E ) ) ( T ( C D R
0107540 L I S P X L I N E ) ) ) ) ) (
0107560 T ( E V A L ( C O N D ( L
0107600 I S P X L I N E ( C A R L I
0107620 S P X L I N E ) ) ( T ( \r Q
0107640 U O T E S H H ) ) ) ) ) ) )
0107660 ( R E T R I E V E ( P R O G
0107700 ( ( X ( G E T P ( C A R L
0107720 I S P X L I N E ) ( Q U O T E
0107740 * H I S T O R Y * ) ) ) R E
0107760 R E A D F L G ) ( C O N D (
0110000 ( N U L L \r X ) ( E R R O R
0110020 ( C A R L I S P X L I N E )
0110040 ( Q U O T E " ? " ) T )
0110060 ) ) ( M A P C ( C D D R X
0110100 ) ( F U N C T I O N ( L A M
0110120 B D A ( X ) ( H I S T O R Y
0110140 S A V E \r L I S P X H I S T O
0110160 R Y X ) ) ) ) ( R E T U R N
0110200 ( C A R L I S P X L I N E )
0110220 ) ) ) ( B E F O R E ( L I S
0110240 P X S T A T E ( C A R L I S
0110260 P X L I N E ) ( Q U O T E B
0110300 E F O R E ) ) ) ( \r A F T E R
0110320 ( L I S P X S T A T E ( C A
0110340 R L I S P X L I N E ) ( Q U
0110360 O T E A F T E R ) ) ) ( O K
0110400 ( R E T F R O M ( O R ( S
0110420 T K P O S ( Q U O T E U S E
0110440 R E X E C ) ) ( Q U O T E \r
0110460 L I S P X ) ) T T ) ) ( R
0110500 E M E M B E R : ( P R O G 1
0110520 ( R E S E T V A R S ( F I L E
0110540 P K G F L G ) ( R E T U R N
0110560 ( E V A L ( L I S P X / ( C
0110600 A R L I S P X L I N E ) ) L
0110620 I S P X I D \r ) ) ) ( M A R K
0110640 A S C H A N G E D ( C A R L
0110660 I S P X L I N E ) ( Q U O T E
0110700 E X P R E S S I O N S ) ) ) )
0110720 ( R E M E M B E R ( R E M E
0110740 M B E R L I S P X L I N E ) )
0110760 ) \r ( A D D T O V A R L I S P
0111000 X C O M S S H H R E T R I E
0111020 V E B E F O R E A F T E R
0111040 O K R E M E M B E R : R E M
0111060 E M B E R T Y P E - A H E A D
0111100 ? ? T ) \r ( A D D T O V A R
0111120 H I S T O R Y C O M S R E T R
0111140 I E V E T Y P E - A H E A D )
0111160 \r ( A D D T O V A R L I S P X
0111200 F I N D S P L S T F R O M T
0111220 O T H R U S U C H T H A T
0111240 A L L A N D ) \r ( A D D T O V
0111260 A R B E F O R E S Y S O U T F
0111300 O R M S ( S E T Q S Y S O U
0111320 T D A T E ( D A T E ) ) ( P
0111340 R O G N ( C O N D ( ( N U L
0111360 L F I L E ) ( S E T Q F I
0111400 L E S Y S O U T F I L E ) ) \r
0111420 ( T ( S E T Q S Y S O U T
0111440 F I L E ( P A C K F I L E N A
0111460 M E ( Q U O T E V E R S I O
0111500 N ) N I L ( Q U O T E B O
0111520 D Y ) F I L E ) ) ) ) ( C O
0111540 N D ( ( A N D ( N U L L (
0111560 \r F I L E N A M E F I E L D F
0111600 I L E ( Q U O T E E X T E N
0111620 S I O N ) ) ) ( N U L L ( F
0111640 I L E N A M E F I E L D F I L
0111660 E ( Q U O T E V E R S I O N
0111700 ) ) ) ) ( S E T Q F I L E
0111720 ( \r P A C K F I L E N A M E (
0111740 Q U O T E B O D Y ) F I L E
0111760 ( Q U O T E E X T E N S I O
0112000 N ) S Y S O U T . E X T ) ) )
0112020 ) ) ) \r ( A D D T O V A R R E
0112040 S E T F O R M S ( S E T Q R
0112060 E A D B U F N I L ) ( S E T
0112100 Q R E A D B U F S O U R C E
0112120 N I L ) ( S E T Q T O P L I
0112140 S P X B U F S ( O R ( C L B
0112160 U F S T ) \r T O P L I S P X
0112200 B U F S ) ) ( C O N D ( ( E
0112220 Q C L E A R S T K L S T T )
0112240 ( C O N D ( ( E Q N O C L
0112260 E A R S T K L S T N I L ) (
0112300 C L E A R S T K ) ) ( T ( *
0112320 c l e a r a l l \r s t a c
0112340 k p o i n t e r s E X C E P
0112360 T t h o s e o n N O C L E
0112400 A R S T K L S T . ) ( M A P C
0112420 ( C L E A R S T K T ) ( F
0112440 U N C T I O N ( L A M B D A
0112460 ( X ) ( A N D ( N O T ( \r
0112500 F M E M B X N O C L E A R S
0112520 T K L S T ) ) ( R E L S T K
0112540 X ) ) ) ) ) ) ) ) ( T ( M A
0112560 P C C L E A R S T K L S T (
0112600 F U N C T I O N R E L S T K )
0112620 ) ( S E T Q C L E A R S T K
0112640 L S T \r N I L ) ) ) ) \r ( A D
0112660 D T O V A R H I S T O R Y S A
0112700 V E F O R M S ) \r ( A D D T O V
0112720 A R L I S P X C O M S 033 .
0112740 . . ? ? F I X F O R G E T
0112760 N A M E O R I G I N A L R
0113000 E D O R E P E A T R E T R Y
0113020 U N D O U S E f i x f o
0113040 r g e t n a m e r e d o \r
0113060 r e p e a t r e t r y u n d
0113100 o u s e ) \r ( A D D T O V A R
0113120 S Y S T A T S ( L I S P X S
0113140 T A T S L I S P X I N P U T
0113160 S ) ( U N D O S A V E S U N
0113200 D O S A V E S ) ( U N D O S
0113220 T A T S C H A N G E S U N D
0113240 O N E ) N I L ( \r E D I T C
0113260 A L L S C A L L S T O E D
0113300 I T O R ) ( E D I T S T A T S
0113320 E D I T C O M M A N D S )
0113340 ( E D I T E V A L S T A T S C
0113360 O M M A N D S I N V O L V I N
0113400 G E V A L U A T I N G A \r
0113420 L I S P E X P R E S S I O N )
0113440 ( E D I T E S T A T S U S E
0113460 S O F A N E C O M M A N
0113500 D T Y P E D I N D I R E C
0113520 T L Y ) ( E D I T I S T A T S
0113540 U S E S O F A N I C O
0113560 M M A N D \r T Y P E D I N
0113600 D I R E C T L Y ) ( E D I T U
0113620 N D O S A V E S E D I T U N
0113640 D O S A V E S ) ( E D I T U
0113660 N D O S T A T S E D I T C H
0113700 A N G E S U N D O N E ) N I
0113720 L ( P . A . S T A T S \r P .
0113740 A . C O M M A N D S ) N I L
0113760 ( C L I S P I F Y S T A T S
0114000 C A L L S T O C L I S P I F
0114020 Y ) N I L ( F I X C A L L S
0114040 C A L L S T O D W I M )
0114060 ( F I X T I M E ) ( \r E R R O
0114100 R C A L L S W E R E D U E
0114120 T O E R R O R S ) ( D W I M
0114140 I F Y F I X E S W E R E F R
0114160 O M D W I M I F Y I N G ) N
0114200 I L " O F T H O S E D U E
0114220 T O E R R O R S : " ( \r T
0114240 Y P E I N F I X E S W E R E
0114260 D U E T O E R R O R S I N
0114300 T Y P E - I N ) ( P R O G F
0114320 I X E S W E R E D U E T O
0114340 E R R O R S I N U S E R
0114360 P R O G R A M S ) ( S U C C F
0114400 I X E S 1 \r O F T H E S E
0114420 C A L L S W E R E S U C C E
0114440 S S F U L ) N I L " O F T
0114460 H E C A L L S D U E T O
0114500 D W I M I F Y I N G : " ( S U
0114520 C C F I X E S 2 W E R E S U
0114540 C C E S S F U L ) \r N I L (
0114560 S P E L L S T A T S O F A L
0114600 L D W I M C O R R E C T I O
0114620 N S W E R E S P E L L I N G
0114640 C O R R E C T I O N S ) ( C
0114660 L I S P S T A T S W E R E C
0114700 L I S P \r T R A N S F O R M A
0114720 T I O N S ) ( I N F I X S T A
0114740 T S O F T H E S E W E R E
0114760 I N F I X T R A N S F O R M
0115000 A T I O N S ) ( I F S T A T S
0115020 W E R E I F / T H E N / E L
0115040 S E \r S T A T E M E N T S )
0115060 ( I . S . S T A T S W E R E
0115100 I T E R A T I V E S T A T E M
0115120 E N T S ) ( M A T C H S T A T
0115140 S W E R E P A T T E R N M
0115160 A T C H E S ) ( R E C O R D S
0115200 T A T S W E R E \r R E C O R
0115220 D O P E R A T I O N S ) N I
0115240 L ( S P E L L S T A T S 1 O
0115260 T H E R S P E L L I N G C O
0115300 R R E C T I O N S , E . G .
0115320 E D I T C O M M A N D S ) N
0115340 I L ( R U N O N S T A T S O
0115360 F \r A L L S P E L L I N G
0115400 C O R R E C T I O N S W E R E
0115420 R U N - O N C O R R E C T I
0115440 O N S ) N I L ( V E T O S T
0115460 A T S C O R R E C T I O N S
0115500 W E R E V E T O E D ) N I L
0115520 ) \r ( A D D T O V A R N O C L
0115540 E A R S T K L S T ) \r ( A P P E
0115560 N D T O V A R A F T E R S Y S
0115600 O U T F O R M S ( C O N D (
0115620 ( L I S T P S Y S O U T G A G
0115640 ) ( E V A L S Y S O U T G A
0115660 G ) ) ( S Y S O U T G A G )
0115700 ( ( O R ( N U L L \r U S E R
0115720 N A M E ) ( E Q U S E R N A
0115740 M E ( U S E R N A M E N I L
0115760 T ) ) ) ( T E R P R I T )
0116000 ( P R I N 1 H E R A L D S T
0116020 R I N G T ) ( T E R P R I
0116040 T ) ( T E R P R I T ) ( \r
0116060 G R E E T 0 ) ( T E R P R I
0116100 T ) ) ( T ( L I S P X P R I
0116120 N 1 ( Q U O T E " * * * * A
0116140 T T E N T I O N U S E R " )
0116160 T ) ( L I S P X P R I N 1
0116200 ( U S E R N A M E ) T ) ( \r
0116220 L I S P X P R I N 1 ( Q U O T
0116240 E " : \r t h i s s y s o u t
0116260 i s i n i t i a l i z e d
0116300 f o r u s e r " ) T ) (
0116320 L I S P X P R I N 1 U S E R N
0116340 A M E T ) ( L I S P X P R I
0116360 N 1 ( Q U O T E " . \r " )
0116400 T ) ( L I S P X P R I N 1 (
0116420 Q U O T E " T o r e i n i t
0116440 i a l i z e , t y p e G R E
0116460 E T ( ) \r " ) T ) ) ) ( S E
0116500 T I N I T I A L S ) ) \r ( M A P
0116520 C S Y S T A T S ( F U N C T
0116540 I O N ( L A M B D A ( X )
0116560 ( A N D ( L I S T P X ) (
0116600 E Q ( G E T T O P V A L ( C
0116620 A R X ) ) ( Q U O T E N O
0116640 B I N D ) ) ( S E T T O P V A
0116660 L \r ( C A R X ) N I L ) )
0116700 ) ) ) \r ( P U T D ( Q U O T E
0116720 E ) ) \r ( A D D T O V A R P
0116740 R E G R E E T F O R M S ( D R
0116760 E M O V E G R E E T F O R M
0117000 R E S E T F O R M S ) ( S E T
0117020 Q C O N S O L E T I M E ( S
0117040 E T Q C P U T I M E ( S E T
0117060 Q E D I T I M E 0 \r ) ) )
0117100 ( S E T Q C O N S O L E T I M
0117120 E 0 ( C L O C K 0 ) ) ( S
0117140 E T Q C P U T I M E 0 ( C L
0117160 O C K 2 ) ) ) \r ( A D D T O V
0117200 A R P O S T G R E E T F O R M
0117220 S ( S E T I N I T I A L S )
0117240 ( A N D E D I T C H A R A C T
0117260 E R S ( A P P L Y ( Q U O T
0117300 E S E T T E R M C H A R S )
0117320 E D I T C H A R A C T E R S ) \r
0117340 ) ) \r ( R P A Q Q G R E E T H
0117360 I S T N I L ) \r ( R P A Q Q
0117400 S Y S T E M T Y P E N I L ) \r
0117420 ( R P A Q Q G R E E T F O R M
0117440 ( L I S P X E V A L ( Q U O
0117460 T E ( G R E E T ) ) ( Q U O
0117500 T E _ ) ) ) \r ( R P A Q Q C
0117520 U T E F L G N I L ) \r ( R P A
0117540 Q Q G R E E T D A T E S ( (
0117560 " 1 2 - F E B " . " H a p p
0117600 y L i n c o l n ' s b i r t
0117620 h d a y " ) ( " 1 4 - F E B "
0117640 . " H a p p y V a l e n t
0117660 i n e ' s d a y " ) ( \r " 2
0117700 2 - F E B " . " H a p p y
0117720 W a s h i n g t o n ' s b i r
0117740 t h d a y " ) ( " 1 5 - M A R
0117760 " . " B e w a r e t h e
0120000 I d e s o f M a r c h " )
0120020 ( " 1 7 - M A R " . \r " H a
0120040 p p y S t . P a t r i c k '
0120060 s d a y " ) ( " 3 1 - O C T
0120100 " . " T r i c k o r T r
0120120 e a t " ) ( " 2 5 - D E C "
0120140 . " M e r r y C h r i s t m
0120160 a s " ) ( " 1 - J A N " .
0120200 \r " H a p p y n e w y e a
0120220 r " ) ) ) \r ( R P A Q Q U S E
0120240 R N A M E N I L ) \r ( R P A Q
0120260 Q H O S T N A M E N I L ) \r
0120300 ( R P A Q Q C O N S O L E T I
0120320 M E 0 ) \r ( R P A Q Q C O N
0120340 S O L E T I M E 0 0 ) \r ( R P
0120360 A Q Q C P U T I M E 0 ) \r (
0120400 R P A Q Q C P U T I M E 0 0
0120420 ) \r ( R P A Q Q E D I T I M E
0120440 0 ) \r ( R P A Q Q F I R S T
0120460 N A M E N I L ) \r ( P U T P R
0120500 O P S H I S T C O P Y R I G
0120520 H T ( " X e r o x C o r p o
0120540 r a t i o n " T 1 9 7 8 1
0120560 9 8 4 ) ) \r N I L \r
0120572