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