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