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