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