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