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