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