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