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