$ 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