$ od -c -N 50000 [eris]<LispCore>SOURCES>ASSIST.DCOM!34
0000000 ( F I L E C R E A T E D " 2 6
0000020 - A p r - 8 6 1 7 : 3 4 : 5 6
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 . ; 3 2 ) \r " 2 5 - A p r - 8
0000140 6 1 2 : 3 3 : 5 2 " r e c o
0000160 m p i l e d e x p r s : R E
0000200 A D Q U O T E i n " X e r o
0000220 x L i s p 2 5 - A p r - 8 6
0000240 . . . " d a t e d \r " 2 5
0000260 - A p r - 8 6 1 2 : 5 3 : 2 1
0000300 " ) \r ( F I L E C R E A T E D
0000320 " 2 6 - A p r - 8 6 1 7 : 3 4
0000340 : 1 3 " { E R I S } < L I S P
0000360 C O R E > S O U R C E S > A S S
0000400 I S T . ; 3 2 3 9 4 4 7 c h
0000420 a n g e s t o : ( V A R S
0000440 \r A S S I S T C O M S ) ( F N
0000460 S R E A D Q U O T E ) p r e
0000500 v i o u s d a t e : " 1 7 -
0000520 J a n - 8 6 2 2 : 4 8 : 4 8 "
0000540 { E R I S } < L I S P C O R E
0000560 > S O U R C E S > A S S I S T .
0000600 ; 3 1 ) \r R E A D Q U O T E D
0000620 1 \r ( I 1 R D T B L I 0
0000640 F I L E ) \0 \r \0 \0 \0 002 g \0 \0
0000660 @ A \n \0 \0 h 032 032 020 \0 ( 7 R E A
0000700 D ) \r ( 2 Q U O T E ) \r ( ) \r
0000720 P R I N T P R O P S A 0 0 0 1
0000740 D 1 \r ( N A M E E R R O R S E
0000760 T P 0 T L F 1 A T
0001000 F 2 M A C R O Y ) \0 A 001 002
0001020 002 \0 Q 301 002 311 \0 265 3 Q h ` \0 \0 \v \0
0001040 \0 265 003 Q 301 002 311 \0 260 " d 021 001 \0 H 001
0001060 i d \v \0 \0 277 o \0 \0 \0 i \n \0 \0 277 H
0001100 002 001 i d \v \0 \0 023 002 002 003 265 337 h c 004
0001120 i 020 \0 ( 6 4 Q S H O W P R I N
0001140 T 5 3 Q P R I N 1 4 2 Q
0001160 P R I N 2 1 6 Q M I S S P E
0001200 L L E D ? ) \r ( 1 3 Q U S E R
0001220 W O R D S ) \r ( 4 7 Q " :
0001240 " ) \r P R I N T P R O P S D
0001260 1 \r ( P 3 R E S E T S T A T
0001300 E P 2 M A C R O Y P 0
0001320 O L D V A L U E I 0 A T
0001340 F 4 R E S E T V A R S L S
0001360 T ) \0 > 004 001 \0 001 o \0 \0 \0 \t \0 \0
0001400 021 1 003 g \0 \0 H h 032 032 h 032 T 032 c \b
0001420 Y o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273
0001440 I 002 c \b g \0 \0 I 001 001 002 \n \0 \0 K 223
0001460 \b \0 \0 020 J 020 \0 ( 7 1 Q E R R O
0001500 R ! 6 4 Q A P P L Y 4 1 Q
0001520 P R I N T P R O P S A 0 0 0 1
0001540 6 P R I N T L E V E L ) \r (
0001560 5 5 Q P R I N T L E V E L 4
0001600 5 Q E R R O R 3 6 Q I N T
0001620 E R N A L 1 4 Q P R I N T L
0001640 E V E L ) \r ( 3 3 Q ( P R I
0001660 N T P R O P S A 0 0 0 1 ) 3
0001700 ( 2 . 3 ) ) \r P R I N T B I
0001720 N D I N G S A 0 0 0 1 D 1 \r (
0001740 N A M E E R R O R S E T P
0001760 2 E P O S P 1 V A L P
0002000 0 N A M E F 3 F L F
0002020 4 P O S F 5 A T F
0002040 6 M A C R O Y ) \0 316 003 004 002 \0
0002060 021 0 002 S 243 i c 006 277 o \0 \0 \0 S \n \0
0002100 \0 277 U S \n \0 \0 277 o \0 \0 \0 S \n \0 \0
0002120 277 S \t \0 \0 277 j T 265 005 g \0 \0 \n \0 \0
0002140 c \b 277 U T d \v \0 \0 c \b 262 l U T \n
0002160 \0 \0 271 o \0 \0 \0 S \n \0 \0 277 T \t \0 \0
0002200 S i \v \0 \0 277 T \t \0 \0 263 3 o \0 \0 \0
0002220 S \n \0 \0 277 k T J \v \0 \0 Z \t \0 \0 232
0002240 J \t \0 \0 S i \v \0 \0 260 023 k J d \v \0
0002260 \0 Z 265 352 o \0 \0 \0 S \n \0 \0 277 o \0 \0
0002300 \0 S \n \0 \0 277 I S i \v \0 \0 277 k T d
0002320 \v \0 \0 c \b 263 216 J \t \0 \0 277 o \0 \0 \0
0002340 S \n \0 \0 277 o \0 \0 \0 S \n \0 \0 277 U \t
0002360 \0 \0 S i \v \0 \0 023 h c \f i 020 \0 ( 3
0002400 0 6 Q S H O W P R I N T 3 0
0002420 1 Q G E T T O P V A L 2 7 4
0002440 Q P R I N 1 2 6 3 Q P R I
0002460 N 1 2 5 2 Q R E L S T K 2
0002500 4 2 Q S T K N T H 2 3 3 Q
0002520 S H O W P R I N T 2 2 4 Q P
0002540 R I N 1 2 1 3 Q P R I N 1
0002560 2 0 0 Q S T K N T H 1 7 0 Q
0002600 P R I N 2 1 6 3 Q S T K N
0002620 A M E 1 5 6 Q R E A L F R A
0002640 M E P 1 5 2 Q S T K N T H
0002660 1 4 3 Q P R I N 1 1 3 1 Q
0002700 R E A L F R A M E P 1 2 4 Q
0002720 P R I N 2 1 1 7 Q S T K N A
0002740 M E 1 1 2 Q P R I N 1 1 0
0002760 1 Q S T K A R G 7 0 Q S T
0003000 K S C A N 5 7 Q S T K N T H
0003020 4 4 Q T E R P R I 3 7 Q
0003040 P R I N 1 2 6 Q P R I N 1
0003060 2 0 Q P R I N 1 ) \r ( 5 4 Q
0003100 P R I N T B I N D I N G S ) \r (
0003120 2 7 0 Q " T O P : " 2
0003140 5 7 Q " @ " 2 2 0 Q "
0003160 : " 2 0 7 Q " ? " 1
0003200 3 7 Q " / " 1 0 6 Q " @
0003220 " 3 3 Q " : " 1 4 Q
0003240 " b i n d i n g s f o r " )
0003260 \r P R I N T B I N D I N G S D
0003300 1 \r ( P 3 R E S E T S T A T
0003320 E P 2 M A C R O Y P 0
0003340 O L D V A L U E I 2 F L
0003360 I 1 P O S I 0 A T
0003400 F 4 R E S E T V A R S L S T
0003420 ) \0 > 004 001 \0 003 l 002 l 003 \n \0 \0 021
0003440 1 003 g \0 \0 H h 032 032 h 032 T 032 c \b Y
0003460 o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0 273 I
0003500 002 c \b g \0 \0 I 001 001 002 \n \0 \0 K 223 \b
0003520 \0 \0 020 J 020 \0 ( 7 1 Q E R R O R
0003540 ! 6 4 Q A P P L Y 4 1 Q
0003560 P R I N T B I N D I N G S A 0 0
0003600 0 1 6 P R I N T L E V E L )
0003620 \r ( 5 5 Q P R I N T L E V E L
0003640 4 5 Q E R R O R 3 6 Q I
0003660 N T E R N A L 1 4 Q P R I N
0003700 T L E V E L ) \r ( 3 3 Q ( P
0003720 R I N T B I N D I N G S A 0 0 0
0003740 1 ) ) \r S H O W P R I N T D 1
0003760 \r ( I 2 R D T B L I 1
0004000 F I L E I 0 X ) \0 035 \0 \0
0004020 \0 003 ` \0 \0 237 @ i h d d A \r 006 \0 \0
0004040 277 A \t \0 \0 205 @ A B \v \0 \0 @ 020 \0 (
0004060 3 1 Q P R I N T 2 2 Q T E
0004100 R P R I 1 5 Q P R I N T D E
0004120 F ) \r ( 2 S Y S P R E T T Y F
0004140 L G ) \r ( ) \r S H O W P R I N 2
0004160 D 1 \r ( I 2 R D T B L I
0004200 1 F I L E I 0 X ) \0
0004220 030 \0 \0 \0 003 ` \0 \0 232 @ i h d d A \r
0004240 006 \0 \0 205 @ A B \v \0 \0 @ 020 \0 ( 2 4
0004260 Q P R I N 2 1 5 Q P R I N
0004300 T D E F ) \r ( 2 S Y S P R E T
0004320 T Y F L G ) \r ( ) \r D O ? A 0 0
0004340 0 1 D 1 \r ( N A M E E R R O
0004360 R S E T F 0 T A I L F
0004400 1 F O R M F 2 L S T F
0004420 3 T E M ) \0 A \0 004 002 \0 ` \0
0004440 \0 P 001 027 \0 \0 360 263 $ R 262 ! Q 002 262 035
0004460 Q 001 i h i P \r 005 \0 \0 237 Q \t \0 \0 g
0004500 \0 \0 Q 001 g \0 \0 \f \0 \0 216 P 001 P 001 \t
0004520 \0 \0 264 005 g \0 \0 \n \0 \0 c 006 i 020 \0 (
0004540 7 3 Q H E L P S Y S 6 3 Q
0004560 F N T Y P 5 3 Q H E L P S Y
0004600 S 4 0 Q L E N G T H 3 3 Q
0004620 F N C H E C K ) \r ( 7 0 Q F
0004640 D 5 0 Q F D 4 3 Q A R G
0004660 S 7 L A S T ? 2 L A S T
0004700 ? ) \r ( ) \r D O ? A 0 0 0 2 D
0004720 1 \r ( N A M E E R R O R S E T
0004740 F 0 T A I L F 1 F O
0004760 R M F 2 F I L E ) \0 \r \0
0005000 003 002 \0 P Q \n \0 \0 277 R \t \0 \0 i 020 \0
0005020 ( 1 1 Q T E R P R I 4 D O
0005040 ? = ) \r N I L \r ( ) \r D O ? A 0
0005060 0 0 3 D 1 \r ( N A M E E R R
0005100 O R S E T F 0 T E M F
0005120 1 F O R M ) \0 034 \0 002 002 \0 Q 001
0005140 P \t \0 \0 k 361 264 \n P l 002 m 377 \v \0 \0
0005160 l 002 g \0 \0 017 016 i 020 \0 ( 2 1 Q S
0005200 U B A T O M 5 N C H A R S )
0005220 \r ( 2 6 Q P F ) \r ( ) \r D O ?
0005240 A 0 0 0 4 D 1 \r ( I 0 X )
0005260 \0 \b \0 \0 \0 001 @ i d \v \0 \0 020 \0 (
0005300 5 P R I N 2 ) \r N I L \r ( ) \r
0005320 D O ? A 0 0 0 5 D 1 \r ( I 0
0005340 X ) \0 \b \0 \0 \0 001 @ i d \v \0 \0
0005360 020 \0 ( 5 P R I N 2 ) \r N I L \r
0005400 ( ) \r D O ? D 1 \r ( P 5 L
0005420 N P 4 T E M P 3 F N
0005440 P 2 F O R M P 1 T A
0005460 I L P 0 C I 2 L S T
0005500 I 1 R D T B L I 0 F
0005520 I L E F 6 L I N E F 7
0005540 L I S P X F L G ) 001 ! 006 002 \0
0005560 003 021 ` 005 @ \t \0 \0 X d g \0 \0 360 254 d
0005600 g \0 \0 360 246 d g \0 \0 360 262 * \b \0 \0 262
0005620 036 V ] 262 032 W 016 262 026 \b \0 \0 k 360 244 B
0005640 d 001 252 277 V 001 [ B 001 032 272 V 202 B 001 Z
0005660 Y h 360 200 i 262 , B H \t \0 \0 X g \0 \0
0005700 A \v \0 \0 250 H g \0 \0 A \v \0 \0 223 g \0
0005720 \0 212 g \0 \0 @ A \n \0 \0 \n \0 \0 \n \0 \0
0005740 020 H g \0 \0 360 262 033 o \0 \0 \0 g \0 \0 \n
0005760 \0 \0 262 L L 263 I o \0 \0 \0 i \n \0 \0 260
0006000 > @ A \n \0 \0 \ d g \0 \0 360 262 027 277 @
0006020 \t \0 \0 g \0 \0 360 231 o \0 \0 \0 i \n \0 \0
0006040 260 035 L \t \0 \0 l ^ 360 262 \ @ \t \0 \0 g
0006060 \0 \0 360 262 R o \0 \0 \0 i \n \0 \0 277 B 002
0006100 002 226 B d \t \0 \0 031 277 i \t \0 \0 K 226 K
0006120 i d \v \0 \0 277 M 262 026 M 002 i o \0 \0 \0
0006140 o \0 \0 \0 h g \0 \0 \r 006 \0 \0 277 B d 262
0006160 025 001 i o \0 \0 \0 o \0 \0 \0 h g \0 \0 \r
0006200 006 \0 \0 B 020 B g \0 \0 L \n \0 \0 \n \0 \0
0006220 020 \0 ( 4 3 6 Q T C O N C 4 3
0006240 3 Q P A C K * 4 2 1 Q M A
0006260 P R I N T 3 7 2 Q M A P R I
0006300 N T 3 4 3 Q P R I N 2 3 3
0006320 3 Q T E R P R I 3 2 5 Q F
0006340 L A S T 3 1 3 Q D O ? A 0 0
0006360 0 3 2 7 5 Q P E E K C 2 6
0006400 4 Q C H C O N 1 2 5 6 Q D
0006420 O ? A 0 0 0 2 2 4 1 Q P E E
0006440 K C 2 2 4 Q R E A D 2 1 5
0006460 Q P R I N 1 2 0 0 Q D O ?
0006500 A 0 0 0 1 1 5 6 Q T C O N C
0006520 1 5 3 Q P A C K * 1 5 0 Q
0006540 R E A D 1 3 3 Q S Y N T A
0006560 X P 1 2 2 Q S Y N T A X P
0006600 1 1 2 Q C H C O N 1 5 2 Q
0006620 I N R E A D M A C R O P 3 5 Q
0006640 R E A D L I N E P 6 P E E
0006660 K C ) \r ( 4 2 7 Q ? 4 1 5 Q
0006700 D O ? A 0 0 0 5 3 6 6 Q D
0006720 O ? A 0 0 0 4 3 0 0 Q % \r
0006740 2 4 4 Q % \r 2 3 1 Q = 1
0006760 7 5 Q N O B R E A K 1 6 3 Q
0007000 % \r 1 4 3 Q ? 1 3 7 Q
0007020 ? 1 2 7 Q B R E A K 1 1 6
0007040 Q S E P R 2 7 Q ^ 2 1 Q
0007060 = 1 3 Q % \r ) \r ( 4 1 1
0007100 Q " " 4 0 5 Q " ( " 3
0007120 6 2 Q " " 3 5 6 Q " "
0007140 3 0 7 Q ( D O ? A 0 0 0 3 )
0007160 2 5 2 Q ( D O ? A 0 0 0 2 )
0007200 2 1 1 Q " u n a v a i l a b
0007220 l e s u b j e c t . \r " 1 7
0007240 2 Q ( D O ? A 0 0 0 1 ) ) \r D
0007260 O ? = A 0 0 0 1 A 0 0 0 2 A 0 0
0007300 0 3 D 1 \r ( I 0 X F 0
0007320 F I L E ) \0 020 \0 001 \0 001 @ h l
0007340 \n l 003 \f \0 \0 P i \v \0 \0 020 \0 ( 1 5
0007360 Q P R I N 2 1 0 Q R E T D
0007400 W I M 3 ) \r N I L \r ( ) \r D O ?
0007420 = A 0 0 0 1 A 0 0 0 2 A 0 0 0 4
0007440 D 1 \r ( I 0 X F 0 F
0007460 I L E ) \0 020 \0 001 \0 001 @ h l \n l
0007500 003 \f \0 \0 P i \v \0 \0 020 \0 ( 1 5 Q
0007520 P R I N 2 1 0 Q R E T D W I
0007540 M 3 ) \r N I L \r ( ) \r D O ? = A
0007560 0 0 0 1 A 0 0 0 2 D 1 \r ( N A
0007600 M E E R R O R S E T P 1
0007620 T E M P 0 A R G N A M E S
0007640 F 2 F I L E F 3 F O
0007660 R M F 4 T A I L F 5
0007700 L E F T F 6 C O M F 7
0007720 M A C R O Y ) 001 4 002 006 002 \0 021
0007740 001 R 243 i c 004 277 U 243 j c \n 277 S 263
0007760 024 g \0 \0 c \f 277 T 003 265 \a \b \0 \0 277 T
0010000 c 006 277 T 001 i T \v \0 \0 X d 003 262 033 d
0010020 002 263 027 277 T 001 \t \0 \0 Y l 002 360 244 I l
0010040 003 360 223 H 001 X 200 H 227 H d 003 242 261 \0 277
0010060 277 S d 002 263 ? 001 H 032 R i \v \0 \0 261 \0
0010100 315 l 002 R \n \0 \0 277 o \0 \0 \0 R \n \0 \0
0010120 277 R i 360 252 S 001 h l \n l 003 \f \0 \0 201
0010140 S 001 R i \v \0 \0 277 S 002 241 H 224 R \t \0
0010160 \0 277 S 002 c 006 262 $ H 262 ! U j 360 245 U
0010200 R \n \0 \0 277 H 001 g \0 \0 360 263 266 H 001 R
0010220 i \v \0 \0 277 H 002 X 260 257 R i 360 262 & H
0010240 001 g \0 \0 360 262 036 o \0 \0 \0 R \n \0 \0 277
0010260 H 002 001 R i \v \0 \0 277 o \0 \0 \0 R \n \0
0010300 \0 260 J S 265 025 H d 262 E R h o \0 \0 \0
0010320 g \0 \0 \r 005 \0 \0 260 4 R o \0 \0 \0 g \0
0010340 \0 h R i 360 263 037 g \0 \0 260 035 R \n \0 \0
0010360 277 S 002 R o \0 \0 \0 g \0 \0 h R i 360 243
0010400 g \0 \0 202 g \0 \0 \r 006 \0 \0 277 h 022 c 016
0010420 i 020 \0 ( 4 5 3 Q M A P R I N T
0010440 4 2 0 Q P R I N 1 3 6 7 Q
0010460 M A P R I N T 3 4 1 Q P R
0010500 I N 1 3 3 0 Q P R I N 2 3
0010520 1 7 Q P R I N 1 2 6 4 Q P
0010540 R I N 2 2 4 4 Q S P A C E S
0010560 2 2 1 Q T E R P R I 2 0 7
0010600 Q P R I N 2 1 7 7 Q R E T
0010620 D W I M 3 1 6 0 Q P R I N 1
0010640 1 4 7 Q S P A C E S 1 3 6
0010660 Q P R I N 2 7 1 Q A R G T
0010700 Y P E 5 2 Q S M A R T A R G
0010720 L I S T 3 6 Q E R R O R ! )
0010740 \r ( 4 4 7 Q P R I N 2 4 4 3
0010760 Q D O ? = A 0 0 0 1 A 0 0 0 2
0011000 A 0 0 0 4 4 3 3 Q % ) 4 1
0011020 2 Q D O ? = A 0 0 0 1 A 0 0 0
0011040 2 A 0 0 0 3 4 0 1 Q % ) 3
0011060 6 3 Q , 3 0 4 Q . . . 2
0011100 5 2 Q . . . 2 4 Q ? = ) \r
0011120 ( 4 3 0 Q " = . . . "
0011140 3 7 6 Q " p l u s . . .
0011160 " 3 6 0 Q " = " 3 3
0011200 5 Q " = " 3 1 3 Q " .
0011220 \r . \r " 1 5 4 Q " = " )
0011240 \r D O ? = A 0 0 0 1 D 1 \r ( N
0011260 A M E E R R O R S E T P 3
0011300 R E S E T S T A T E P 2
0011320 M A C R O Y P 0 O L D V A
0011340 L U E F 4 R E S E T V A R
0011360 S L S T ) \0 A 004 001 002 \0 l 003 \t \0
0011400 \0 021 1 003 g \0 \0 H h 032 032 h 032 T 032 c
0011420 \b 271 o \0 \0 \0 g \0 \0 \n \0 \0 243 g \0 \0
0011440 273 I 002 c \b 277 g \0 \0 I 001 001 002 \n \0 \0
0011460 277 K 223 \b \0 \0 200 J 022 h 032 020 \0 ( 7 1
0011500 Q E R R O R ! 6 3 Q A P P
0011520 L Y 3 7 Q D O ? = A 0 0 0 1
0011540 A 0 0 0 2 4 P R I N T L E V
0011560 E L ) \r ( 5 4 Q P R I N T L E
0011600 V E L 4 3 Q E R R O R 3 4
0011620 Q I N T E R N A L 1 2 Q P
0011640 R I N T L E V E L ) \r ( 3 1 Q
0011660 ( D O ? = A 0 0 0 1 A 0 0 0 2
0011700 ) ) \r D O ? = D 1 \r ( I 3
0011720 L E F T I 2 F I L E I
0011740 1 F O R M I 0 T A I L )
0011760 \0 \n \0 \0 \0 004 o \0 \0 \0 i \n \0 \0 020
0012000 \0 ( 7 D O ? = A 0 0 0 1 ) \r N
0012020 I L \r ( 3 ( D O ? = A 0 0 0
0012040 1 ) ) \r R E A D L I N E P D 1
0012060 \r ( P 0 S C R A T C H P O S
0012100 I 0 P O S ) \0 % 001 \0 \0 001
0012120 021 020 \0 ` \0 \0 m 377 @ \v \0 \0 X 264 026 m
0012140 377 H h H \f \0 \0 \t \0 \0 g \0 \0 360 H \t
0012160 \0 \0 277 020 \0 ( 4 1 Q R E L S T K
0012200 3 1 Q S T K N A M E 2 6 Q
0012220 R E A L S T K N T H 1 3 Q
0012240 S T K P O S ) \r ( 3 4 Q R E A
0012260 D L I N E 5 L I S P X R E A
0012300 D F N ) \r ( ) \r C O R O U T I N
0012320 E D 1 \r ( I 3 E N D F O R
0012340 M # # I 2 C O R O U T F O
0012360 R M # # I 1 C O R O U T P
0012400 T R # # I 0 C A L L P T R
0012420 # # ) \0 H \0 \0 001 004 @ d - 005 \b 265
0012440 \a j i \n \0 \0 \n \0 \0 b \0 A d - 005 \b
0012460 265 \a j i \n \0 \0 \n \0 \0 b 002 d m 377 g
0012500 \0 \0 \n \0 \0 A \v \0 \0 B \t \0 \0 @ C m
0012520 377 g \0 \0 \n \0 \0 h i \f \0 \0 i \v \0 \0
0012540 020 \0 ( 1 0 5 Q R E T T O 1 0
0012560 1 Q E N V E V A L 7 4 Q S
0012600 T K N T H 6 2 Q E V A L 5
0012620 6 Q R E S U M E 5 2 Q S T
0012640 K N T H 3 7 Q S E T 3 4 Q
0012660 S T K N T H 1 6 Q S E T
0012700 1 3 Q S T K N T H ) \r ( 7 1 Q
0012720 C O R O U T I N E 4 7 Q C
0012740 O R O U T I N E ) \r ( ) \r G E N
0012760 E R A T O R D 1 \r ( I 1 C
0013000 O M V A R # # I 0 F O R M
0013020 # # ) \0 P \0 \0 001 002 A d 224 \t \0 \0
0013040 b 002 003 256 j i \n \0 \0 j i \n \0 \0 032 b
0013060 002 260 035 A d 001 005 \b 247 j i \n \0 \0 030 277
0013100 A 002 005 \b 247 A j i \n \0 \0 031 277 A 002 m
0013120 377 g \0 \0 A 001 \v \0 \0 A \v \0 \0 @ \t \0
0013140 \0 A 001 A i \v \0 \0 020 \0 ( 1 1 5 Q
0013160 R E T T O 1 0 6 Q E V A L
0013200 1 0 2 Q R E S U M E 7 6 Q
0013220 S T K N T H 6 0 Q S T K N T
0013240 H 4 3 Q S T K N T H 2 3 Q
0013260 S T K N T H 1 6 Q S T K N
0013300 T H 5 E V A L ) \r ( 7 1 Q
0013320 G E N E R A T O R ) \r ( ) \r G E
0013340 N E R A T E D 1 \r ( I 1 V
0013360 A L I 0 H A N D L E ) \0
0013400 \n \0 \0 \0 002 @ 001 @ 002 A \v \0 \0 020 \0 (
0013420 7 R E S U M E ) \r N I L \r ( )
0013440 \r P R O D U C E D 1 \r ( I 0
0013460 V A L F 0 C O M V A R #
0013500 # ) \0 \n \0 001 \0 001 P 002 P 001 @ \v \0
0013520 \0 020 \0 ( 7 R E S U M E ) \r N I
0013540 L \r ( ) \r G E N E R A T E F N
0013560 D 1 \r ( I 1 C O M V A R # #
0013600 I 0 F N ) \0 I \0 \0 \0 002 A
0013620 003 265 021 j i \n \0 \0 j i \n \0 \0 032 b 002
0013640 260 034 001 005 \b 247 A j i \n \0 \0 030 277 A d
0013660 002 005 \b 247 j i \n \0 \0 031 277 A 002 m 377 g
0013700 \0 \0 A 001 \v \0 \0 A \v \0 \0 j @ 017 016 A
0013720 001 A i \v \0 \0 020 \0 ( 1 0 6 Q R E
0013740 T T O 7 3 Q R E S U M E 6
0013760 7 Q S T K N T H 5 1 Q S T
0014000 K N T H 3 4 Q S T K N T H
0014020 1 5 Q S T K N T H 1 0 Q S
0014040 T K N T H ) \r ( 6 2 Q G E N E
0014060 R A T E F N ) \r ( ) \r A D I E U
0014100 D 1 \r ( P 0 V A L # # F
0014120 1 P O S S L I S T # # F
0014140 2 C O M V A R # # ) \0 # 001 002
0014160 002 \0 e 021 001 \0 H j 360 255 H 005 003 224 H \t
0014200 \0 \0 244 @ \t \0 \0 277 R 001 Q h c 002 277 i
0014220 \v \0 \0 020 \0 ( 4 0 Q R E T T O
0014240 2 4 Q N O T E 1 7 Q \ F Z
0014260 E R O P ) \r N I L \r ( ) \r A U -
0014300 R E V O I R D 1 \r ( P 0 V
0014320 A L # # F 1 C O M V A R #
0014340 # F 2 P O S S L I S T # #
0014360 ) \0 ( 001 002 002 \0 e 021 001 \0 H j 360 255
0014400 H 005 003 224 H \t \0 \0 244 @ \t \0 \0 277 Q \t
0014420 \0 \0 Q 002 Q 001 R h c 004 277 \v \0 \0 020 \0
0014440 ( 4 5 Q R E S U M E 3 1 Q
0014460 N O T E 2 4 Q N O T E 1 7
0014500 Q \ F Z E R O P ) \r N I L \r (
0014520 ) \r C L E A N P O S L S T D 1
0014540 \r ( P 0 X I 0 P L S T
0014560 ) \0 & 001 \0 \0 001 @ 212 d 001 021 001 \0 H
0014600 003 265 \t 023 002 003 265 364 h 020 001 005 \b 262 366 H
0014620 001 \t \0 \0 277 H 002 \t \0 \0 277 260 350 \0 ( 4
0014640 1 Q R E L S T K 3 3 Q R E
0014660 L S T K ) \r N I L \r ( ) \r N O T
0014700 E D 1 \r ( I 1 L S T F L G
0014720 I 0 V A L F 0 P O S
0014740 S L I S T # # ) \0 017 \0 001 \0 002 P
0014760 A 221 @ 202 @ h 032 \n \0 \0 c \0 020 \0 ( 1
0015000 2 Q \ N C O N C 2 ) \r N I L \r
0015020 ( ) \r P O S S I B I L I T I E S
0015040 D 1 \r ( P 1 P O S S L I S
0015060 T # # P 0 C O M V A R # #
0015100 I 0 F O R M # # ) \0 ! 002
0015120 \0 001 001 021 001 m 377 g \0 \0 \n \0 \0 j i
0015140 \n \0 \0 032 X h 032 \t \0 \0 @ \t \0 \0 \b \0
0015160 \0 h 020 \0 ( 3 5 Q A D I E U 3
0015200 2 Q E V A L 2 6 Q P R O D
0015220 U C E 1 7 Q S T K N T H 1
0015240 2 Q S T K N T H ) \r ( 7 P O
0015260 S S I B I L I T I E S ) \r ( ) \r
0015300 T R Y N E X T D 1 \r ( P 0
0015320 P L 1 # # I 2 V A L # #
0015340 I 1 E N D F O R M # # I
0015360 0 P L S T # # ) \0 # 001 \0 001 003
0015400 021 020 \0 @ d \t \0 \0 B \t \0 \0 \n \0 \0 X
0015420 002 \n \0 \0 H 265 \v g \0 \0 A \n \0 \0 h 020
0015440 001 020 \0 ( 3 5 Q R E T E V A L
0015460 2 3 Q S E T 1 6 Q T R Y N
0015500 E X T 1 1 3 Q E V A L 7
0015520 E V A L ) \r ( 3 1 Q T R Y N E
0015540 X T ) \r ( ) \r T R Y N E X T 1
0015560 D 1 \r ( P 0 P L 1 # # I
0015600 1 M S G # # I 0 P L S T
0015620 # # ) \0 $ 001 \0 \0 002 021 020 \0 @ d 240
0015640 020 001 X 003 225 H d 001 005 \b 241 @ 020 001 H 002
0015660 A \v \0 \0 @ 002 \n \0 \0 b \0 260 343 \0 ( 3
0015700 6 Q \ N C O N C 2 3 1 Q R
0015720 E S U M E ) \r N I L \r ( ) \r P O
0015740 S S I B I L I T Y F N D 1 \r (
0015760 L ( 0 F N ) I 2 P O S
0016000 S L I S T # # I 1 C O M V
0016020 A R # # ) \0 036 \0 \0 \0 003 m 377 g \0
0016040 \0 \n \0 \0 j i \n \0 \0 032 b 002 h 032 \t \0
0016060 \0 j @ 017 016 \b \0 \0 020 \0 ( 3 3 Q A
0016100 D I E U 2 4 Q P R O D U C E
0016120 1 4 Q S T K N T H 7 S T
0016140 K N T H ) \r ( 4 P O S S I B I
0016160 L I T Y F N ) \r ( ) \r G A I N S
0016200 P A C E A 0 0 0 1 D 1 \r ( N A
0016220 M E E R R O R S E T F 0
0016240 X F 1 R E S P O N S E )
0016260 \0 - \0 002 002 \0 P 001 \t \0 \0 262 % ` \0 \0
0016300 g \0 \0 P 002 001 h 032 P 002 002 002 001 i \r 005
0016320 \0 \0 c 002 g \0 \0 360 246 P 002 002 001 \t \0 \0
0016340 i 020 \0 ( 5 1 Q E V A L 3 3 Q
0016360 A S K U S E R 4 E V A L )
0016400 \r ( 4 0 Q N 1 4 Q N 1 1
0016420 Q D W I M W A I T ) \r ( ) \r G
0016440 A I N S P A C E A 0 0 0 2 D 1
0016460 \r ( I 0 A T M ) \0 \t \0 \0 \0
0016500 001 @ ` \0 \0 \n \0 \0 020 \0 ( 6 R E M
0016520 P R O P L I S T ) \r ( 3 S M A
0016540 S H P R O P S L S T 1 ) \r ( ) \r
0016560 G A I N S P A C E D 1 \r ( P
0016600 1 R E S P O N S E P 0 X
0016620 ) \0 \ 002 \0 \0 \0 h 027 \0 \0 ` \0 \0 260
0016640 035 d 001 021 021 001 i \t \0 \0 j 360 244 i \t \0
0016660 \0 277 o \0 \0 \0 i \n \0 \0 023 002 003 265 344 `
0016700 \0 \0 262 - i \t \0 \0 277 o \0 \0 \0 i \n \0
0016720 \0 277 g \0 \0 \t \0 \0 277 ` \0 \0 216 d 001 021
0016740 001 \0 H 003 224 H \t \0 \0 277 023 002 003 265 360 g
0016760 \0 \0 020 \0 ( 1 2 0 Q E V A L 7
0017000 7 Q M A P A T O M S 7 0 Q
0017020 P R I N 1 5 7 Q T E R P R I
0017040 4 1 Q G A I N S P A C E A 0
0017060 0 0 1 3 0 Q T E R P R I 2
0017100 1 Q P O S I T I O N ) \r ( 1 3
0017120 1 Q d o n e 1 0 3 Q S M A
0017140 S H P R O P S L S T 1 7 4 Q
0017160 G A I N S P A C E A 0 0 0 2 5
0017200 1 Q S M A S H P R O P S L S T
0017220 1 6 G A I N S P A C E F O R
0017240 M S 3 S M A S H P R O P S L
0017260 S T 1 ) \r ( 6 4 Q " m a p a
0017300 t o m s c a l l e d t o e
0017320 r a s e t h e i n d i c a t
0017340 e d p r o p e r t i e s . . .
0017360 " 3 5 Q ( G A I N S P A C E
0017400 A 0 0 0 1 ) ) \r E R A S E P R O
0017420 P S D 1 \r ( P 0 X I 0
0017440 R E S P O N S E ) \0 266 004 \0 \0
0017460 001 ` \0 \0 ` \0 \0 \n \0 \0 027 \0 \0 @ d g
0017500 \0 \0 360 262 V 277 i \t \0 \0 o \0 \0 \0 i \n
0017520 \0 \0 ` \0 \0 260 ? d 001 021 021 001 H 217 d 001
0017540 Y 004 l 004 360 227 I ` \0 \0 \n \0 \0 224 002 003
0017560 265 356 h 262 037 h d H 001 h 032 h i \r 005 \0
0017600 \0 g \0 \0 360 233 H 002 ` \0 \0 \n \0 \0 027 \0
0017620 \0 277 023 002 003 265 302 h 020 g \0 \0 360 246 @ g
0017640 \0 \0 360 262 ? 021 0 003 ` \0 \0 260 030 d 001 021
0017660 001 \0 H 002 \t \0 \0 022 Y 003 226 J 265 036 I [
0017700 Z 277 002 003 265 351 K 022 027 \0 \0 @ g \0 \0 360
0017720 264 \t d \t \0 \0 \t \0 \0 020 \t \0 \0 Z I 031
0017740 260 341 \b \0 \0 020 \0 ( 2 6 3 Q H E L
0017760 P 2 5 3 Q L A S T 2 4 7 Q
0020000 E D I T E 2 4 4 Q S O R T
0020020 2 0 5 Q \ A P P E N D 2 1
0020040 3 4 Q U N I O N 1 1 7 Q A
0020060 S K U S E R 7 3 Q M E M B
0020100 4 0 Q P R I N 1 3 0 Q T E
0020120 R P R I 1 0 Q U N I O N ) \r
0020140 ( 2 3 5 Q E 2 3 1 Q S M A
0020160 S H P R O P S L S T 1 1 7 1 Q
0020200 S M A S H P R O P S M E N U
0020220 1 6 0 Q E 1 5 2 Q A 1 3
0020240 7 Q S M A S H P R O P S L S T
0020260 1 1 3 1 Q S M A S H P R O P
0020300 S L S T 1 1 2 2 Q Y 7 0 Q
0020320 S M A S H P R O P S L S T 1
0020340 4 3 Q S M A S H P R O P S M E
0020360 N U 2 0 Q Y 1 3 Q S M A
0020400 S H P R O P S L S T 1 5 S M
0020420 A S H P R O P S L S T 2 S M
0020440 A S H P R O P S L S T 1 ) \r (
0020460 3 4 Q " i n d i c a t e w h
0020500 i c h o n e s : \r " ) \r P U R
0020520 G E H I S T O R Y A 0 0 0 1 D
0020540 1 \r ( N A M E E R R O R S E T
0020560 P 0 C O M F 1 T Y P
0020600 E ) \0 236 001 001 002 \0 h 027 \0 \0 277 Q d
0020620 g \0 \0 360 226 277 i 027 \0 \0 260 6 g \0 \0 360
0020640 262 - h d o \0 \0 \0 o \0 \0 \0 i \r 005 \0
0020660 \0 c 002 277 i \t \0 \0 277 h d o \0 \0 \0 h
0020700 i \r 005 \0 \0 g \0 \0 360 027 \0 \0 202 \b \0 \0
0020720 277 ` \0 \0 Q \n \0 \0 277 ` \0 \0 Q \n \0 \0
0020740 277 ` \0 \0 Q \n \0 \0 277 ` \0 \0 264 7 ` \0
0020760 \0 Q \n \0 \0 277 ` \0 \0 260 & d 001 021 001 \0
0021000 H 004 l 004 360 262 030 Q 227 H g \0 \0 \n \0 \0
0021020 212 H g \0 \0 033 002 002 001 \t \0 \0 277 023 002 003
0021040 265 333 h h 032 020 \0 ( 2 2 2 Q P U R
0021060 G E H I S T O R Y 2 2 0 6 Q
0021100 R E M P R O P 1 5 3 Q P U R
0021120 G E H I S T O R Y 1 1 3 6 Q
0021140 P U R G E H I S T O R Y 1 1 2
0021160 6 Q P U R G E H I S T O R Y 1
0021200 1 1 6 Q P U R G E H I S T O
0021220 R Y 1 1 0 6 Q H E L P 7 3
0021240 Q A S K U S E R 5 6 Q T E
0021260 R P R I 4 7 Q A S K U S E R
0021300 ) \r ( 2 1 3 Q * H I S T O R Y
0021320 * 2 0 3 Q * H I S T O R Y *
0021340 1 5 7 Q L I S P X C O M S
0021360 1 4 7 Q A R C H I V E L S T
0021400 1 4 2 Q A R C H I V E F L G
0021420 1 3 2 Q L A S T H I S T O R Y
0021440 1 2 2 Q E D I T H I S T O R
0021460 Y 1 1 2 Q L I S P X H I S T
0021500 O R Y 1 0 2 Q A R C H I V E
0021520 F L G 7 6 Q Y 2 5 Q Y
0021540 2 0 Q A R C H I V E F L G 1
0021560 1 Q E 3 A R C H I V E F L
0021600 G ) \r ( 6 5 Q " A R C H I V
0021620 E L S T a n d n a m e d c
0021640 o m m a n d s t o o ? "
0021660 4 2 Q ( ( Y " e s - e v
0021700 e r y t h i n g " R E T U R N
0021720 T ) ( N " o - j u s t
0021740 t h e p r o p e r t i e s "
0021760 R E T U R N ( Q U O T E N
0022000 I L ) ) ( E " v e r y t h i
0022020 n g " R E T U R N T ) ( J
0022040 " u s t t h e p r o p e r
0022060 t i e s " R E T U R N ( Q U
0022100 O T E N I L ) ) ) \r 3 6 Q
0022120 " p u r g e e v e r y t h i n
0022140 g , o r j u s t t h e p
0022160 r o p e r t i e s , e . g .
0022200 S I D E , L I S P X P R I N T
0022220 , e t c . ? " ) \r P U R G
0022240 E H I S T O R Y D 1 \r ( P 1
0022260 M A C R O Y P 0 M A C R
0022300 O X I 0 T Y P E F 2
0022320 R E S E T V A R S L S T ) \0 C
0022340 002 001 \0 001 g \0 \0 ` \0 \0 032 R 032 c 004 021
0022360 021 001 R Y o \0 \0 \0 g \0 \0 \n \0 \0 H 001
0022400 002 027 \0 \0 277 I d R 360 225 277 H 002 c 004 215
0022420 R \n \0 \0 231 R k I \v \0 \0 H 002 031 277 265
0022440 005 \b \0 \0 001 020 \0 ( 7 7 Q E R R O
0022460 R ! 6 6 Q N L E F T 5 7 Q
0022500 T A I L P 3 1 Q P U R G E
0022520 H I S T O R Y A 0 0 0 1 ) \r ( 3
0022540 7 Q A R C H I V E F L G 2 6
0022560 Q I N T E R N A L 5 A R C
0022600 H I V E F L G 2 A R C H I V
0022620 E F L G ) \r ( 2 3 Q ( P U R
0022640 G E H I S T O R Y A 0 0 0 1 ) )
0022660 \r P U R G E H I S T O R Y 1 D
0022700 1 \r ( I 1 F L G I 0 L
0022720 S T ) \0 6 \0 \0 \0 002 @ 003 h 360 265 0
0022740 A 223 @ h 030 020 @ d ` \0 \0 360 262 025 001 213
0022760 d 001 002 002 g \0 \0 030 h 031 277 002 003 265 363 h
0023000 020 001 206 d 001 \t \0 \0 277 002 003 265 370 h 020 \0
0023020 ( 5 5 Q P U R G E H I S T O R
0023040 Y 2 ) \r ( 3 4 Q \a 2 0 Q E
0023060 D I T H I S T O R Y ) \r ( ) \r P
0023100 U R G E H I S T O R Y 2 D 1 \r
0023120 ( P 0 T E M I 0 E N T
0023140 R Y ) \0 < 001 \0 \0 001 021 020 \0 g \0 \0
0023160 @ \n \0 \0 002 001 X 262 ' @ 002 002 g \0 \0 H
0023200 g \0 \0 d @ \n \0 \0 002 001 h 032 032 032 032 031
0023220 277 H 206 d 001 \t \0 \0 277 002 003 265 370 204 @ 002
0023240 002 h 031 h 020 \0 ( 5 5 Q P U R G E
0023260 H I S T O R Y 2 3 5 Q M E M
0023300 B 1 1 Q M E M B ) \r ( 3 0 Q
0023320 * H I S T O R Y * 2 4 Q *
0023340 G R O U P * 5 * G R O U P *
0023360 ) \r ( ) \r ( P R E T T Y C O M P
0023400 R I N T A S S I S T C O M S )
0023420 \r ( R P A Q Q A S S I S T C O
0023440 M S ( ( C O M S ( F I L E P
0023460 K G C O M S C O N S T A N T S
0023500 ) ) ( C O M S ( * R e a d
0023520 m a c r o f o r ' ) ( F
0023540 N S R E A D Q U O T E ) ( D
0023560 E C L A R E : \r D O N T E V A
0023600 L @ L O A D D O C O P Y ( P
0023620 ( S E T S Y N T A X ( Q U O
0023640 T E ' ) ( Q U O T E ( M A
0023660 C R O F I R S T E S C Q U O
0023700 T E R E A D Q U O T E ) ) T
0023720 ) ( A N D ( \r R E A D T A B
0023740 L E P ( E V A L V ( Q U O T
0023760 E E D I T R D T B L ) ) ) (
0024000 S E T S Y N T A X ( Q U O T E
0024020 ' ) T E D I T R D T B L )
0024040 ) ) ) ) ( C O M S ( G L O B
0024060 A L V A R S \r S P E L L I N G
0024100 S 1 S P E L L I N G S 2 U S
0024120 E R W O R D S ) ( F N S P R
0024140 I N T P R O P S P R I N T B I
0024160 N D I N G S ) ( L I S P X M A
0024200 C R O S P L P B ; ) ) (
0024220 C O M S ( \r G L O B A L V A R
0024240 S S Y S P R E T T Y F L G )
0024260 ( F N S S H O W P R I N T S
0024300 H O W P R I N 2 ) ( I N I T V
0024320 A R S ( S Y S P R E T T Y F L
0024340 G ) ) ) ( C O M S ( G L O B
0024360 A L V A R S L A S T ? \r L I
0024400 S P X R E A D F N ) ( F N S
0024420 D O ? D O ? = R E A D L I N
0024440 E P ) ( V A R S ( L A S T ?
0024460 ) ) ( D E C L A R E : D O N
0024500 T E V A L @ L O A D D O C O P
0024520 Y ( P ( S E T S Y N T A X
0024540 ( \r Q U O T E ? ) ( Q U O T
0024560 E ( I N F I X F I R S T N
0024600 O E S C D O ? ) ) T ) ( A
0024620 N D ( R E A D T A B L E P (
0024640 E V A L V ( Q U O T E E D I
0024660 T R D T B L ) ) ) ( S E T S Y
0024700 N T A X ( \r Q U O T E ? )
0024720 T E D I T R D T B L ) ) ) )
0024740 ( P R O P A R G N A M E S D
0024760 E F I N E Q ) ( U S E R M A C
0025000 R O S ? = ) ) ( C O M S (
0025020 * C o r o u t i n e p a c k
0025040 a g e . ) ( \r I . S . O P R S
0025060 O U T O F ) ( P R O P ( M
0025100 A C R O I N F O ) C O R O U
0025120 T I N E G E N E R A T O R T
0025140 R Y N E X T P O S S I B I L I
0025160 T I E S ) ( D E C L A R E :
0025200 D O N T E V A L @ L O A D \r D
0025220 O E V A L @ C O M P I L E D O
0025240 N T C O P Y C O M P I L E R V
0025260 A R S ( A D D V A R S ( N L
0025300 A M A ) ( N L A M L T R Y N
0025320 E X T P O S S I B I L I T I E
0025340 S G E N E R A T O R C O R O
0025360 U T I N E \r B Q U O T E A S
0025400 K U S E R L O O K U P ) ( L A
0025420 M A A U - R E V O I R A D I
0025440 E U ) ) ) ( F N S C O R O U
0025460 T I N E G E N E R A T O R G
0025500 E N E R A T E P R O D U C E
0025520 G E N E R A T E F N ) \r ( F N
0025540 S A D I E U A U - R E V O I
0025560 R C L E A N P O S L S T N O
0025600 T E P O S S I B I L I T I E S
0025620 T R Y N E X T T R Y N E X T
0025640 1 P O S S I B I L I T Y F N )
0025660 ( A D D V A R S ( \r S Y S S
0025700 P E C V A R S C O M V A R # #
0025720 P O S S L I S T # # ) ) ) (
0025740 C O M S ( * g a i n s p a c
0025760 e p a c k a g e ) ( D E C L
0026000 A R E : D O E V A L @ C O M P
0026020 I L E D O N T C O P Y ( \r R
0026040 E C O R D S G A I N S P A C E
0026060 ) ( G L O B A L V A R S G A
0026100 I N S P A C E F O R M S S M A
0026120 S H P R O P S M E N U S M A S
0026140 H P R O P S L S T S M A S H P
0026160 R O P S L S T 1 D W I M W A I
0026200 T \r A R C H I V E L S T L A
0026220 S T H I S T O R Y A R C H I V
0026240 E F L G L I S P X C O M S L
0026260 I S P X H I S T O R Y E D I T
0026300 H I S T O R Y ) ) ( F N S G
0026320 A I N S P A C E E R A S E P R
0026340 O P S \r P U R G E H I S T O R
0026360 Y P U R G E H I S T O R Y 1
0026400 P U R G E H I S T O R Y 2 ) (
0026420 V A R S S M A S H P R O P S M
0026440 E N U ( S M A S H P R O P S L
0026460 S T ) ) ( A D D V A R S ( \r
0026500 G A I N S P A C E F O R M S (
0026520 ( C A R L I S P X H I S T O R
0026540 Y ) " p u r g e h i s t o r
0026560 y l i s t s " ( P U R G E H
0026600 I S T O R Y R E S P O N S E )
0026620 ( ( Y " e s " ) ( N " o
0026640 " ) ( E \r . " v e r y t h
0026660 i n g " ) ) ) ( T " d i s c
0026700 a r d d e f i n i t i o n s
0026720 o n p r o p e r t y l i s t
0026740 s " ( S E T Q S M A S H P R
0026760 O P S L S T 1 ( C O N S ( Q
0027000 U O T E E X P R ) ( \r C O N
0027020 S ( Q U O T E C O D E ) (
0027040 C O N S ( Q U O T E S U B R
0027060 ) S M A S H P R O P S L S T 1
0027100 ) ) ) ) ) ( T " d i s c a r
0027120 d o l d v a l u e s o f
0027140 v a r i a b l e s " ( S E T Q
0027160 \r S M A S H P R O P S L S T 1
0027200 ( C O N S ( Q U O T E V A
0027220 L U E ) S M A S H P R O P S L
0027240 S T 1 ) ) ) ( T " e r a s e
0027260 p r o p e r t i e s " ( E R
0027300 A S E P R O P S R E S P O N S
0027320 E ) ( ( Y \r " e s " E X P
0027340 L A I N S T R I N G " Y e s
0027360 - y o u w i l l b e a s
0027400 k e d w h i c h p r o p e r
0027420 t i e s a r e t o b e e
0027440 r a s e d " ) ( N " o " )
0027460 ( A " l l " \r C O N F I R M
0027500 F L G T E X P L A I N S T R
0027520 I N G " A l l - a l l p
0027540 r o p e r t i e s o n m e n
0027560 t i o n e d o n S M A S H P
0027600 R O P S M E N U " ) ( E " d
0027620 i t \r " E X P L A I N S T R I
0027640 N G " E d i t - y o u w
0027660 i l l b e a l l o w e d t
0027700 o e d i t a l i s t o f
0027720 p r o p e r t y n a m e s "
0027740 ) ) ) ( C L I S P A R R A Y
0027760 \r " e r a s e C L I S P t r
0030000 a n s l a t i o n s " ( C L R
0030020 H A S H C L I S P A R R A Y )
0030040 ) ( C H A N G E S A R R A Y
0030060 " e r a s e c h a n g e s a
0030100 r r a y " ( C L R H A S H \r
0030120 C H A N G E S A R R A Y ) ) (
0030140 S Y S H A S H A R R A Y " e r
0030160 a s e s y s t e m h a s h
0030200 a r r a y " ( C L R H A S H )
0030220 ) ( ( G E T P R O P ( Q U O
0030240 T E E D I T ) ( Q U O T E
0030260 \r L A S T V A L U E ) ) " d i
0030300 s c a r d c o n t e x t o f
0030320 l a s t e d i t " ( R E M
0030340 P R O P ( Q U O T E E D I T
0030360 ) ( Q U O T E L A S T V A L
0030400 U E ) ) ) ( G R E E T H I S T
0030420 \r " d i s c a r d i n f o r
0030440 m a t i o n s a v e d f o r
0030460 u n d o i n g y o u r g r
0030500 e e t i n g " ( S E T Q G R
0030520 E E T H I S T ) ) ) ) ) ( D E
0030540 C L A R E : D O N T E V A L @
0030560 L O A D \r D O E V A L @ C O M
0030600 P I L E D O N T C O P Y C O
0030620 M P I L E R V A R S ( A D D V
0030640 A R S ( N L A M A ) ( N L A
0030660 M L T R Y N E X T P O S S I
0030700 B I L I T I E S G E N E R A T
0030720 O R C O R O U T I N E \r ) (
0030740 L A M A A U - R E V O I R A
0030760 D I E U ) ) ) ) ) \r ( P U T D E
0031000 F ( Q U O T E C O N S T A N
0031020 T S ) ( Q U O T E F I L E P
0031040 K G C O M S ) ( Q U O T E (
0031060 ( C O M M A C R O ( X ( D
0031100 E C L A R E : E V A L @ C O M
0031120 P I L E ( V A R S . X )
0031140 \r ( P ( C O N S T A N T S .
0031160 X ) ) ) ) ) ) ) ) \r ( S E T S
0031200 Y N T A X ( Q U O T E ' )
0031220 ( Q U O T E ( M A C R O F I
0031240 R S T E S C Q U O T E R E A
0031260 D Q U O T E ) ) T ) \r ( A N D
0031300 ( R E A D T A B L E P ( E V
0031320 A L V ( Q U O T E E D I T R
0031340 D T B L ) ) ) ( S E T S Y N T
0031360 A X ( Q U O T E ' ) T E
0031400 D I T R D T B L ) ) \r ( A D D T
0031420 O V A R L I S P X H I S T O R
0031440 Y M A C R O S ( P L ( C O N
0031460 D ( L I S P X L I N E ( M A
0031500 P C ( N L A M B D A . A R G S
0031520 L I S P X L I N E ) ( F U N
0031540 C T I O N P R I N T P R O P S
0031560 ) \r ) ) ( T ( Q U O T E (
0031600 E P L ) ) ) ) ) ( P B ( C
0031620 O N D ( L I S P X L I N E (
0031640 M A P C ( N L A M B D A . A R
0031660 G S L I S P X L I N E ) ( F
0031700 U N C T I O N ( L A M B D A
0031720 ( X ) ( \r P R I N T B I N D I
0031740 N G S X ( A N D ( E Q L
0031760 I S P X I D ( Q U O T E : )
0032000 ) L A S T P O S ) ) ) ) ) )
0032020 ( T ( Q U O T E ( E P B )
0032040 ) ) ) ) ( ; N I L N I L )
0032060 ) \r ( A D D T O V A R H I S T
0032100 O R Y C O M S ; ) \r ( R P A Q
0032120 ? S Y S P R E T T Y F L G ) \r
0032140 ( R P A Q Q L A S T ? N I L
0032160 ) \r ( S E T S Y N T A X ( Q U
0032200 O T E ? ) ( Q U O T E ( I
0032220 N F I X F I R S T N O E S C
0032240 D O ? ) ) T ) \r ( A N D (
0032260 R E A D T A B L E P ( E V A L
0032300 V ( Q U O T E E D I T R D T
0032320 B L ) ) ) ( S E T S Y N T A X
0032340 ( Q U O T E ? ) T E D I
0032360 T R D T B L ) ) \r ( P U T P R O
0032400 P S D E F I N E Q A R G N A
0032420 M E S ( N I L ( X 1 X I
0032440 . . . X N ) . X ) ) \r ( A
0032460 D D T O V A R E D I T M A C R
0032500 O S ( ? = N I L ( E ( P
0032520 R O G N ( D O ? = ( # # ) )
0032540 ( T E R P R I T ) ) T ) )
0032560 ) \r ( A D D T O V A R E D I T
0032600 C O M S A ? = ) \r ( I . S . O
0032620 P R ( Q U O T E O U T O F )
0032640 N I L ( Q U O T E ( S U B
0032660 S T ( G E N S Y M ) ( Q U O
0032700 T E G E N V A R ) ( Q U O T
0032720 E ( B I N D G E N V A R _
0032740 ( G E N E R A T O R B O D Y
0032760 \r ) E A C H T I M E ( C O N
0033000 D ( ( E Q ( S E T Q I . V
0033020 . ( G E N E R A T E G E N V
0033040 A R ) ) G E N V A R ) ( G O
0033060 $ $ O U T ) ) ) F I N A L L
0033100 Y ( R E L S T K ( C D R G
0033120 E N V A R ) ) \r ) ) ) ) T ) \r
0033140 ( P U T P R O P S C O R O U T
0033160 I N E M A C R O ( ( P 1 P
0033200 2 F 1 F 2 ) ( P R O G N
0033220 ( O R ( S T A C K P P 1 )
0033240 ( S E T Q P 1 ( S T K N T H
0033260 0 T ) ) ) ( O R ( S T A
0033300 C K P P 2 \r ) ( S E T Q P
0033320 2 ( S T K N T H 0 T ) ) )
0033340 ( ( L A M B D A ( . . M A C
0033360 R O X . ) ( C O N D ( ( E Q
0033400 . . M A C R O X . P 2 ) P
0033420 2 ) ( T ( R E S U M E P 2
0033440 . . M A C R O X . P 2 \r )
0033460 F 1 ( R E T T O P 1 F 2
0033500 T ) ) ) ) ( S T K N T H - 1
0033520 ) ) ) ) ) \r ( P U T P R O P S
0033540 G E N E R A T O R M A C R O
0033560 ( ( F O R M C O M V A R ) (
0033600 G E N E R A T E F N ( F U N C
0033620 T I O N ( L A M B D A N I L
0033640 F O R M ) ) C O M V A R ) )
0033660 ) \r ( P U T P R O P S T R Y N
0033700 E X T M A C R O ( ( P L S T
0033720 N O M O R E M S G ) ( C O
0033740 N D ( ( S E T Q P L S T (
0033760 T R Y N E X T 1 P L S T M S
0034000 G ) ) ( P R O G 1 ( C A R
0034020 P L S T ) ( \r S E T Q P L S
0034040 T ( C D R P L S T ) ) ) )
0034060 ( T ( S E T Q P L S T ( C
0034100 D R P L S T ) ) N O M O R E
0034120 ) ) ) ) \r ( P U T P R O P S P
0034140 O S S I B I L I T I E S M A C
0034160 R O ( ( F O R M ) ( P O S S
0034200 I B I L I T Y F N ( F U N C T
0034220 I O N ( L A M B D A N I L
0034240 F O R M ) ) ) ) ) \r ( P U T P R
0034260 O P S C O R O U T I N E I N
0034300 F O E V A L ) \r ( P U T P R O
0034320 P S G E N E R A T O R I N F
0034340 O E V A L ) \r ( P U T P R O P
0034360 S T R Y N E X T I N F O E
0034400 V A L ) \r ( P U T P R O P S P
0034420 O S S I B I L I T I E S I N F
0034440 O E V A L ) \r ( A D D T O V A
0034460 R S Y S S P E C V A R S C O
0034500 M V A R # # P O S S L I S T #
0034520 # ) \r ( R P A Q Q S M A S H P
0034540 R O P S M E N U ( ( " o l d
0034560 v a l u e s o f v a r i a b
0034600 l e s " V A L U E ) ( " f u
0034620 n c t i o n d e f i n i t i o
0034640 n s o n p r o p e r t y l
0034660 i s t s " \r E X P R C O D E
0034700 ) ( " a d v i c e i n f o r
0034720 m a t i o n " A D V I S E D
0034740 A D V I C E R E A D V I C E
0034760 ( S E T Q A D V I S E D F N S
0035000 N I L ) ) ( " f i l e m a p
0035020 s " F I L E M A P ) ( \r " c
0035040 l i s p i n f o r m a t i o n
0035060 ( w a r n i n g : t h i s
0035100 w i l l d i s a b l e c l i
0035120 s p ! ) " A C C E S S F N B
0035140 R O A D S C O P E C L I S P C
0035160 L A S S C L I S P C L A S S D
0035200 E F \r C L I S P F O R M C L
0035220 I S P I F Y I S P R O P C L I
0035240 S P I N F I X C L I S P I S F
0035260 O R M C L I S P I S P R O P
0035300 C L I S P N E G C L I S P T Y
0035320 P E C L I S P W O R D C L M
0035340 A P S \r I . S . O P R I . S
0035360 . T Y P E L I S P F N S E T
0035400 F N U N A R Y O P ) ( \r " c
0035420 o m p i l e r i n f o r m a t
0035440 i o n ( w a r n i n g : t h
0035460 i s w i l l d i s a b l e
0035500 t h e c o m p i l e r ! ) "
0035520 A M A C B L K L I B R A R Y D
0035540 E F C R O P S C T Y P E \r
0035560 G L O B A L V A R M A C R O
0035600 M A K E O P D U B O X ) (
0035620 " d e f i n i t i o n s o f
0035640 n a m e d h i s t o r y c o
0035660 m m a n d s " * H I S T O R Y
0035700 * ) ( \r " c o n t e x t o f
0035720 e d i t s e x i t e d v i
0035740 a s a v e c o m m a n d "
0035760 E D I T - S A V E ) ) ) \r ( R P
0036000 A Q Q S M A S H P R O P S L S
0036020 T N I L ) \r ( A D D T O V A R
0036040 G A I N S P A C E F O R M S
0036060 ( ( C A R L I S P X H I S T O
0036100 R Y ) " p u r g e h i s t o
0036120 r y l i s t s " ( P U R G E
0036140 H I S T O R Y R E S P O N S E
0036160 ) ( ( Y " e s " ) ( \r N
0036200 " o " ) ( E . " v e r y t
0036220 h i n g " ) ) ) ( T " d i s
0036240 c a r d d e f i n i t i o n s
0036260 o n p r o p e r t y l i s
0036300 t s " ( S E T Q S M A S H P
0036320 R O P S L S T 1 ( C O N S (
0036340 \r Q U O T E E X P R ) ( C O
0036360 N S ( Q U O T E C O D E )
0036400 ( C O N S ( Q U O T E S U B
0036420 R ) S M A S H P R O P S L S T
0036440 1 ) ) ) ) ) ( T \r " d i s c
0036460 a r d o l d v a l u e s o
0036500 f v a r i a b l e s " ( S E
0036520 T Q S M A S H P R O P S L S T
0036540 1 ( C O N S ( Q U O T E V
0036560 A L U E ) S M A S H P R O P S
0036600 L S T 1 ) ) ) ( T \r " e r a
0036620 s e p r o p e r t i e s " (
0036640 E R A S E P R O P S R E S P O
0036660 N S E ) ( ( Y " e s " E X
0036700 P L A I N S T R I N G \r " Y e
0036720 s - y o u w i l l b e
0036740 a s k e d w h i c h p r o p
0036760 e r t i e s a r e t o b e
0037000 e r a s e d " ) ( N " o "
0037020 ) ( A " l l " C O N F I R
0037040 M F L G T \r E X P L A I N S
0037060 T R I N G " A l l - a l l
0037100 p r o p e r t i e s o n m
0037120 e n t i o n e d o n S M A S
0037140 H P R O P S M E N U " ) ( E
0037160 " d i t \r " E X P L A I N S T
0037200 R I N G " E d i t - y o u
0037220 w i l l b e a l l o w e d
0037240 t o e d i t a l i s t
0037260 o f p r o p e r t y n a m e
0037300 s " ) ) ) ( C L I S P A R R A
0037320 Y \r " e r a s e C L I S P
0037340 t r a n s l a t i o n s " ( C
0037360 L R H A S H C L I S P A R R A
0037400 Y ) ) ( C H A N G E S A R R A
0037420 Y " e r a s e c h a n g e s
0037440 a r r a y " ( C L R H A S H
0037460 \r C H A N G E S A R R A Y ) )
0037500 ( S Y S H A S H A R R A Y "
0037520 e r a s e s y s t e m h a s
0037540 h a r r a y " ( C L R H A S
0037560 H ) ) ( ( G E T P R O P ( Q
0037600 U O T E E D I T ) ( Q U O T
0037620 E \r L A S T V A L U E ) ) "
0037640 d i s c a r d c o n t e x t
0037660 o f l a s t e d i t " ( R
0037700 E M P R O P ( Q U O T E E D
0037720 I T ) ( Q U O T E L A S T V
0037740 A L U E ) ) ) ( G R E E T H I
0037760 S T \r " d i s c a r d i n f
0040000 o r m a t i o n s a v e d f
0040020 o r u n d o i n g y o u r
0040040 g r e e t i n g " ( S E T Q
0040060 G R E E T H I S T ) ) ) \r ( P U
0040100 T P R O P S A S S I S T C O
0040120 P Y R I G H T ( " X e r o x
0040140 C o r p o r a t i o n " T 1
0040160 9 7 8 1 9 8 2 1 9 8 3 1 9
0040200 8 4 1 9 8 5 1 9 8 6 ) ) \r N
0040220 I L \r
0040223