$ od -c -N 50000 [eris]<Lisp>Harmony>SOURCES>DWIM.DCOM!1
0000000 ( F I L E C R E A T E D " 2 6
0000020 - A u g - 8 4 1 6 : 2 9 : 1 1
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P C O R
0000100 E > S O U R C E S > D W I M . ;
0000120 2 ) \r " 2 6 - A u g - 8 4 1
0000140 5 : 5 5 : 4 8 " b r e c o m p
0000160 i l e d c h a n g e s : C L
0000200 I S P L O O K U P 0 C L I S P
0000220 L O O K U P 1 i n " I N T E
0000240 R L I S P - D 2 3 - A u g - 8
0000260 4 . . . " \r d a t e d " 2
0000300 3 - A u g - 8 4 1 8 : 5 2 : 4
0000320 9 " ) \r ( F I L E C R E A T E D
0000340 " 2 3 - A u g - 8 4 1 8 : 1
0000360 2 : 5 6 " { E R I S } < L I S
0000400 P C O R E > L I B R A R Y > D W
0000420 I M . ; 1 4 5 7 4 2 c h a n
0000440 g e s t o : ( V A R S D W
0000460 I M C O M S ) ( \r F N S C L
0000500 I S P L O O K U P 0 C L I S P
0000520 L O O K U P 1 ) p r e v i o u
0000540 s d a t e : " 3 - J a n -
0000560 8 4 1 3 : 2 9 : 5 1 " { E R
0000600 I S } < L I S P C O R E > S O U
0000620 R C E S > D W I M . ; 1 ) \r V A
0000640 R S B O U N D I N E D I T C H A
0000660 I N D 1 \r ( L ( 0 E D I T
0000700 C H A I N ) ) \0 # 003 \0 \0 001 021 0
0000720 002 @ 217 d 001 \t \0 \0 X 003 226 I 265 \f H Z
0000740 Y 277 002 003 265 357 J 020 \t \0 \0 Y H 031 260 363
0000760 \0 ( 3 4 Q L A S T 1 1 Q \
0001000 V A R S B O U N D I N E D I T C
0001020 H A I N / V A R S B O U N D I N
0001040 F O R M ) \r N I L \r N I L \r \ V
0001060 A R S B O U N D I N E D I T C H
0001100 A I N / V A R S B O U N D I N F
0001120 O R M D 1 \r ( L ( 0 F O R
0001140 M ) ) \0 361 \a \0 \0 001 @ 001 021 ! 002 H
0001160 004 l 004 360 264 y H d ` \0 \0 034 230 277 @ \t
0001200 \0 \0 \t \0 \0 020 g \0 \0 033 Z g \0 \0 360 252
0001220 J 003 262 ) g \0 \0 J 034 262 " 021 0 005 @ 002
0001240 001 260 025 d 001 d 003 220 001 273 L 265 \a K h 032
0001260 ] 201 K & 274 002 003 265 354 M 020 H g \0 \0 033
0001300 Y 003 001 g \0 \0 360 262 g @ 021 1 006 I 002 d
0001320 g \0 \0 360 253 d g \0 \0 360 245 d g \0 \0 360
0001340 222 277 i 201 277 h 275 K 002 [ 265 004 L 020 001 ^
0001360 d 004 l 004 360 263 027 277 M 262 356 N 003 002 001 g
0001400 \0 \0 360 262 344 N 001 L 032 274 260 335 g \0 \0 033
0001420 Y d 003 001 g \0 \0 360 263 266 277 N g \0 \0 360
0001440 223 K 002 260 305 M 262 301 N L 032 274 260 273 @ \t
0001460 \0 \0 265 H ` \0 \0 \n \0 \0 Y 264 035 @ I
0001500 002 001 \n \0 \0 Y @ \n \0 \0 254 I b \0 023 261
0001520 377 033 b \0 023 261 377 025 h 020 \0 ( 3 3 7 Q
0001540 E Q U A L 3 3 2 Q M A C R
0001560 O E X P A N S I O N 3 2 0 Q
0001600 G E T L I S 3 0 7 Q \ V A R
0001620 S B O U N D I N E D I T C H A I
0001640 N / C H E C K T R A N 3 2 Q
0001660 \ A P P E N D 2 2 7 Q A R G
0001700 L I S T ) \r ( 3 1 5 Q C O M P
0001720 I L E R M A C R O P R O P S 2
0001740 6 4 Q _ 2 5 4 Q F O R W O
0001760 R D 2 4 4 Q C L I S P W O R
0002000 D 2 2 7 Q _ 1 6 4 Q a s
0002020 1 5 6 Q b i n d 1 5 0 Q
0002040 f o r 1 3 3 Q F O R W O R D
0002060 1 2 4 Q C L I S P W O R D
0002100 5 4 Q B I N D S 4 3 Q B I
0002120 N D S 3 6 Q I N F O 2 0 Q
0002140 L A M B D A S P L S T ) \r N I
0002160 L \r \ V A R S B O U N D I N E D
0002200 I T C H A I N / C H E C K T R A
0002220 N D 1 \r ( L ( 0 X ) ) \0
0002240 ; \0 \0 \0 001 ` \0 \0 226 @ ` \0 \0 035 265 0
0002260 ` \0 \0 264 + @ 001 ` \0 \0 360 264 # @ 002 001
0002300 ` \0 \0 244 ` \0 \0 262 027 @ d 002 001 \n \0 \0
0002320 277 @ d 002 002 001 @ 002 002 002 \v \0 \0 277 020 \0
0002340 ( 6 7 Q / R P L N O D E 5 2
0002360 Q C L I S P T R A N ) \r ( 4 1
0002400 Q # C L I S P A R R A Y 3 5
0002420 Q C L I S P A R R A Y 2 4 Q
0002440 C L I S P T R A N F L G 1 5
0002460 Q C L I S P T R A N F L G 7
0002500 C L I S P A R R A Y 2 C L
0002520 I S P A R R A Y ) \r N I L \r P R
0002540 I N T C O M S T R A N D 1 \r (
0002560 L ( 4 F R O M D W I M 3
0002600 F I L E F O R M 2 M A C R O
0002620 S 1 T A I L 0 F O R M )
0002640 P 3 V A R S F 2 4 Q
0002660 C L I S P C H A N G E F 2 5
0002700 Q P R I N T O U T T O K E N S
0002720 F 2 6 Q V A R S F 2 7
0002740 Q F A U L T F N ) 004 300 024 004 \0
0002760 005 D 223 i c ( 277 021 0 002 B 217 d 001 001 270
0003000 I 265 \a H h 032 Z 201 H & 271 002 003 265 357 J
0003020 022 W * W , \n \0 \0 \n \0 \0 021 Q \b @ 002
0003040 021 A \r O 022 003 265 R 023 D 234 @ 002 @ h d
0003060 d W . \r 006 \0 \0 277 C 265 5 @ k A 017 016
0003100 b 002 021 ` 023 A 265 003 202 261 001 006 C d 001 242
0003120 261 004 9 277 O & 242 261 004 1 g \0 \0 g \0 \0
0003140 C 001 C h 030 277 h 032 032 O 034 032 032 020 i 360
0003160 242 261 \0 321 i 261 \0 322 001 _ 024 004 l 004 360 242
0003200 261 \0 272 O 024 L \n \0 \0 222 261 \0 260 O 024 \t
0003220 \0 \0 l . 360 242 261 \0 244 O 024 l 002 ) _ 026
0003240 l I 360 250 O 026 l F 360 242 261 \0 220 O 024 l
0003260 003 g \0 \0 O 024 l 003 \v \0 \0 _ 030 d 221 k
0003300 331 \v \0 \0 _ 032 d 005 001 241 005 002 262 n O 024
0003320 K 032 273 O 024 O 026 l I 360 223 g \0 \0 202 g
0003340 \0 \0 O 032 021 0 002 O 030 262 - O 024 O 030 k
0003360 330 g \0 \0 O 024 O 030 k 330 \v \0 \0 _ 030 d
0003400 221 k 331 \v \0 \0 272 I 265 \t J h 032 Y 270 260
0003420 330 J & 271 260 323 H 022 032 032 ] d 262 032 d i
0003440 360 263 025 d 005 001 245 d 005 002 241 005 003 265 \t g
0003460 \0 \0 M h 032 032 032 L 032 274 O 022 002 _ 022 261
0003500 376 346 @ k C 017 016 h 032 b 006 277 261 376 357 001
0003520 B \n \0 \0 _ $ 262 033 i _ & 277 O $ 002 001
0003540 276 A k N 017 016 b 002 001 A 002 b 002 277 261 002
0003560 376 A 001 A 002 b 002 277 _ " d g \0 \0 360 236
0003600 277 g \0 \0 A 001 A 002 b 002 277 j 261 002 334 g
0003620 \0 \0 360 234 g \0 \0 A 001 A 002 b 002 277 261 002
0003640 311 O " j 360 246 O " d i 360 227 277 g \0 \0
0003660 C 261 002 272 g \0 \0 360 232 g \0 \0 o \0 \0 \0
0003700 C 261 002 251 O " d g \0 \0 360 236 277 i _ &
0003720 277 A 001 A 002 b 002 277 261 002 224 g \0 \0 360 235
0003740 g \0 \0 A 001 A 002 b 002 277 C 261 002 177 O "
0003760 g \0 \0 360 263 033 O " g \0 \0 360 263 023 O "
0004000 g \0 \0 360 251 O " d g \0 \0 360 262 6 277 g
0004020 \0 \0 A 001 A 002 b 002 277 g \0 \0 C 032 O "
0004040 g \0 \0 360 265 \b O " g \0 \0 360 O " g \0
0004060 \0 360 265 \b O " g \0 \0 360 h C 032 032 032 261
0004100 002 * g \0 \0 360 262 & A 001 A 002 b 002 277 _
0004120 " 277 g \0 \0 O " d d 005 001 241 005 002 230 277
0004140 g \0 \0 O " \n \0 \0 C 261 002 001 O " g \0
0004160 \0 360 263 023 O " g \0 \0 360 251 O " d g \0
0004200 \0 360 262 d 277 g \0 \0 g \0 \0 g \0 \0 g \0
0004220 \0 g \0 \0 C 032 032 g \0 \0 O " d g \0 \0
0004240 360 225 277 g \0 \0 260 026 g \0 \0 360 223 g \0 \0
0004260 212 O " g \0 \0 360 264 005 g \0 \0 _ 016 d 262
0004300 033 d i 360 263 026 d 005 001 245 d 005 002 241 005 003
0004320 265 \n g \0 \0 O 016 h 032 032 C 032 032 h 032 032
0004340 032 h 032 261 001 207 g \0 \0 360 227 g \0 \0 k C
0004360 261 001 z O " d g \0 \0 360 231 277 g \0 \0 l
0004400 002 C 261 001 h g \0 \0 360 230 g \0 \0 l 003 C
0004420 261 001 Z O " d g \0 \0 360 236 277 g \0 \0 A
0004440 001 A 002 b 002 277 C 261 001 C g \0 \0 360 262 026
0004460 g \0 \0 A 001 A 002 b 002 277 g \0 \0 C 032 h
0004500 032 261 001 ) O " d g \0 \0 360 262 025 277 g \0
0004520 \0 A 001 A 002 b 002 001 A 002 b 002 277 261 001 \v
0004540 g \0 \0 360 263 033 O " g \0 \0 360 263 023 O "
0004560 g \0 \0 360 251 O " d g \0 \0 360 262 : 277 g
0004600 \0 \0 A 001 A 002 b 002 001 A 002 b 002 277 j O
0004620 " g \0 \0 360 247 O " g \0 \0 360 264 003 i O
0004640 " g \0 \0 360 247 O " g \0 \0 360 264 003 i C
0004660 032 032 032 261 \0 266 g \0 \0 360 251 O " d g \0
0004700 \0 360 262 % 277 g \0 \0 A 001 A 002 b 002 001 A
0004720 002 b 002 001 A 002 b 002 277 O " g \0 \0 360 h
0004740 C 032 032 032 261 \0 205 g \0 \0 360 262 @ g \0 \0
0004760 g \0 \0 l \f \t \0 \0 _ 020 d 262 033 d i 360
0005000 263 026 d 005 001 245 d 005 002 241 005 003 265 \n g \0
0005020 \0 O 020 h 032 032 C 032 032 g \0 \0 g \0 \0 C
0005040 032 o \0 \0 \0 032 032 h 032 260 A O " L \n \0
0005060 \0 002 _ $ 235 g \0 \0 O $ A 001 A 002 b 002
0005100 277 260 ' O " d 005 001 241 005 002 247 g \0 \0 O
0005120 " C 260 030 j O " 363 230 g \0 \0 j O " 331
0005140 C 207 g \0 \0 O " h C 032 032 032 _ 277 O
0005160 036 265 016 O h 032 _ 036 _ 034 277 261 373 311 O
0005200 & _ 036 277 261 373 300 C 001 003 262 036 g \0 \0
0005220 o \0 \0 \0 o \0 \0 \0 O 034 032 032 032 C 001 C
0005240 g \0 \0 030 277 h 032 032 020 g \0 \0 O 034 032 020
0005260 \0 ( 2 0 7 7 Q F A S S O C 2
0005300 0 0 6 Q C H A R A C T E R 1
0005320 1 6 6 Q P A C K * 5 4 2 Q
0005340 A S S O C 4 2 4 Q S U B A T
0005360 O M 4 1 3 Q S T R P O S 3
0005400 2 2 Q S U B A T O M 3 1 1 Q
0005420 S T R P O S 2 4 0 Q C H C
0005440 O N 1 2 2 7 Q F A S S O C
0005460 1 0 5 Q D W I M I F Y 0 ? 5
0005500 1 Q \ A P P E N D 2 4 6 Q
0005520 \ A P P E N D 2 ) \r ( 2 2 7 2 Q
0005540 P R O G N 2 2 6 1 Q $ $ O
0005560 U T P U T 2 2 3 6 Q L A M B
0005600 D A 2 1 6 3 Q T A B 2 1 5
0005620 2 Q S P A C E S 2 1 3 5 Q
0005640 P R I N 1 2 1 0 6 Q P R I N
0005660 T N U M 2 0 5 5 Q P R O G N
0005700 2 0 5 2 Q P O S I T I O N
0005720 2 0 3 7 Q Q U O T E 2 0 0 1
0005740 Q P R I N 3 1 7 7 6 Q P R
0005760 O G N 1 7 7 0 Q . P A G E
0006000 1 7 5 4 Q . P A R A 2 1 7 2
0006020 6 Q P R I N T P A R A 1 7 1
0006040 7 Q . P A R A 2 1 7 0 7 Q
0006060 . P A R A 1 6 7 1 Q . C E N
0006100 T E R 2 1 6 6 2 Q . C E N T
0006120 E R 1 6 5 1 Q . C E N T E R
0006140 2 1 6 4 2 Q . F R 2 1 6 2
0006160 0 Q F L U S H R I G H T 1 6
0006200 1 1 Q . C E N T E R 2 1 6 0
0006220 1 Q . C E N T E R 1 5 7 1 Q
0006240 . F R 2 1 5 6 1 Q . F R
0006260 1 5 3 7 Q P R I N T N U M 1
0006300 5 3 0 Q . N 1 5 1 3 Q T E
0006320 R P R I 1 5 0 1 Q F R P T Q
0006340 1 4 7 3 Q . S K I P 1 4 5
0006360 5 Q S P A C E S 1 4 4 7 Q
0006400 . S P 1 4 3 3 Q S P A C E S
0006420 1 4 2 6 Q , , , 1 4 1 5 Q
0006440 S P A C E S 1 4 0 7 Q , ,
0006460 1 3 7 4 Q S P A C E S 1 3
0006500 6 7 Q , 1 3 4 3 Q Q U O T
0006520 E 1 3 1 2 Q 016 1 3 0 4 Q
0006540 . B A S E 1 2 7 6 Q \b 1 2
0006560 7 1 Q . S U P 1 2 6 4 Q 024
0006600 1 2 5 6 Q . S U B 1 2 5 0
0006620 Q P R I N 3 1 2 4 2 Q S U
0006640 P E R S C R I P T F O N T 1 2
0006660 3 7 Q C H A N G E F O N T 1
0006700 2 3 4 Q P R O G N 1 2 3 1 Q
0006720 F O N T C H A N G E F L G 1
0006740 2 2 6 Q A N D 1 2 1 7 Q .
0006760 B A S E 1 2 0 7 Q . S U P
0007000 1 1 7 7 Q . S U B 1 1 6 1 Q
0007020 F O N T 1 1 4 3 Q C H A N
0007040 G E F O N T 1 1 2 3 Q . F O
0007060 N T 1 1 0 7 Q . P P F T L
0007100 1 0 7 7 Q . P P V T L 1 0 7
0007120 1 Q . P P F T L 1 0 6 1 Q
0007140 . P P F 1 0 5 2 Q P O S I T
0007160 I O N 1 0 4 0 Q P R I N T D
0007200 E F 1 0 3 1 Q . P P V T L
0007220 1 0 2 1 Q . P P F T L 1 0 1
0007240 1 Q . P P V 1 0 0 1 Q . P
0007260 P F 7 6 1 Q P R I N 2 7 5
0007300 4 Q . P 2 7 3 0 Q # 7 1
0007320 2 Q P R I N 1 7 0 5 Q . R
0007340 E S E T 6 7 6 Q T E R P R I
0007360 6 4 5 Q T A B 6 4 0 Q .
0007400 T A B 6 2 2 Q T A B 6 1 4
0007420 Q . T A B 0 5 0 0 Q Q U O
0007440 T E 4 0 2 Q % . 3 6 0 Q
0007460 F L O A T 3 5 4 Q F I X 3
0007500 0 2 Q % . 1 5 6 Q O U T P
0007520 U T 1 5 3 Q R E S E T F O R
0007540 M ) \r ( 2 2 4 6 Q ( D E C L
0007560 A R E ( L O C A L V A R S $
0007600 $ O U T P U T ) ) 2 2 4 2 Q
0007620 ( $ $ O U T P U T ) 2 0 6 3 Q
0007640 ( 0 ) 7 1 6 Q ( C O N S T
0007660 A N T ( C H A R A C T E R (
0007700 C H A R C O D E C R ) ) ) ) \r
0007720 P R I N T O U T T R A N D 1 \r
0007740 ( L ( 0 F O R M ) ) \0 * \0
0007760 \0 \0 001 @ d g \0 \0 ` \0 \0 g \0 \0 i \r
0010000 005 \0 \0 \n \0 \0 ` \0 \0 237 @ d 001 g \0 \0
0010020 360 250 g \0 \0 @ 002 \v \0 \0 @ 020 \0 ( 4 6
0010040 Q / R P L N O D E 2 2 Q C
0010060 L I S P T R A N 1 7 Q P R I
0010100 N T C O M S T R A N ) \r ( 4 1 Q
0010120 p r i n t o u t 3 4 Q p r
0010140 i n t o u t 2 5 Q L C A S E
0010160 F L G 1 2 Q C A D R 7 P
0010200 R I N T O U T M A C R O S 4
0010220 C D D R ) \r N I L \r N E W F A U
0010240 L T 1 D 1 \r ( L ( 2 F A U
0010260 L T A P P L Y F L G 1 F A U
0010300 L T A R G S 0 F A U L T X )
0010320 ) \0 z 001 \0 \0 003 B 221 @ 205 @ 003 264 004
0010340 @ 001 021 001 \0 H 265 & @ d 003 262 R \t \0 \0
0010360 X 262 ; B 235 g \0 \0 H A i g \0 \0 \r 005
0010400 \0 \0 277 g \0 \0 H \n \0 \0 h 020 004 l 004 360
0010420 262 330 H \t \0 \0 262 322 H \t \0 \0 \t \0 \0 X
0010440 262 310 B 263 322 H @ 002 032 X 260 330 B 255 @ d
0010460 003 232 001 X 003 225 H \t \0 \0 265 021 @ A B \v
0010500 \0 \0 270 @ A B H \f \0 \0 020 @ 002 032 X 260
0010520 263 \0 ( 1 6 1 Q O L D F A U L T
0010540 1 1 5 1 Q W T F I X 1 4 1
0010560 Q \ N E W F A U L T 1 B L O C
0010600 K / C H E C K T R A N 1 0 6 Q
0010620 \ N E W F A U L T 1 B L O C K
0010640 / C H E C K T R A N 1 0 3 Q
0010660 G E T D 7 5 Q D E F I N E D
0010700 P 6 1 Q R E T E V A L 5 1
0010720 Q R E T A P P L Y 2 7 Q \
0010740 N E W F A U L T 1 B L O C K / C
0010760 H E C K T R A N ) \r ( 5 5 Q F
0011000 A U L T E V A L 4 5 Q I N T
0011020 E R N A L 3 7 Q F A U L T A
0011040 P P L Y ) \r N I L \r \ N E W F A
0011060 U L T 1 B L O C K / C H E C K T
0011100 R A N D 1 \r ( L ( 0 X ) )
0011120 \0 ; \0 \0 \0 001 ` \0 \0 226 @ ` \0 \0 035
0011140 265 0 ` \0 \0 264 + @ 001 ` \0 \0 360 264 # @
0011160 002 001 ` \0 \0 244 ` \0 \0 262 027 @ d 002 001 \n
0011200 \0 \0 277 @ d 002 002 001 @ 002 002 002 \v \0 \0 277
0011220 020 \0 ( 6 7 Q / R P L N O D E
0011240 5 2 Q C L I S P T R A N ) \r (
0011260 4 1 Q # C L I S P A R R A Y
0011300 3 5 Q C L I S P A R R A Y 2
0011320 4 Q C L I S P T R A N F L G
0011340 1 5 Q C L I S P T R A N F L G
0011360 7 C L I S P A R R A Y 2
0011400 C L I S P A R R A Y ) \r N I L \r
0011420 C L I S P L O O K U P 0 D 1 \r
0011440 ( L ( 4 L I S P F N 3 D
0011460 E C L S T ) I 6 C L A S S
0011500 D E F I 5 C L A S S I
0011520 2 V A R 2 I 1 V A R 1
0011540 I 0 W O R D ) \0 U \0 \0 \0 \a
0011560 C 221 E 246 g \0 \0 \t \0 \0 277 F 247 E g \0
0011600 \0 033 b \f 277 A \t \0 \0 b 002 B \t \0 \0 b
0011620 004 C \t \0 \0 265 . E d g \0 \0 360 225 277 @
0011640 \t \0 \0 020 g \0 \0 360 245 E g \0 \0 360 221 h
0011660 020 D 265 021 @ g \0 \0 033 265 \n E g \0 \0 033
0011700 265 003 @ 020 \0 ( 6 2 Q G E T T O P
0011720 V A L 4 4 Q \ C L I S P L O
0011740 O K U P 0 / C L I S P L O O K U
0011760 P 1 3 6 Q \ C L I S P L O O
0012000 K U P 0 / C L I S P L O O K U P
0012020 2 3 0 Q \ C L I S P L O O K
0012040 U P 0 / C L I S P L O O K U P 2
0012060 1 1 Q S H O U L D N T ) \r (
0012100 1 1 6 Q L I S P F N 1 0 7 Q
0012120 L I S P F N 7 4 Q R E C O
0012140 R D F I E L D 6 6 Q R E C O
0012160 R D 5 3 Q V A L U E 2 0 Q
0012200 C L I S P C L A S S D E F 6
0012220 C L I S P L O O K U P 0 ) \r (
0012240 ) \r \ C L I S P L O O K U P 0 /
0012260 C L I S P L O O K U P 1 D 1 \r
0012300 ( L ( 0 L S T ) F 2 C
0012320 L A S S F 3 W O R D F
0012340 4 C L A S S D E F F 5 V
0012360 A R 1 F 6 V A R 2 ) \0 267
0012400 002 005 \0 001 021 001 @ 265 004 I 020 001 X 003 262
0012420 } ` \0 \0 232 H d 001 ` \0 \0 360 223 002 002 270
0012440 H 002 001 g \0 \0 360 262 030 R g \0 \0 360 242 261
0012460 \0 201 H 001 S 360 262 z H 002 002 001 271 260 s R
0012500 g \0 \0 360 246 R g \0 \0 360 262 ! H 001 ` \0
0012520 \0 034 262 ^ R g \0 \0 360 226 S H \t \0 \0 034
0012540 202 S H 360 262 L @ 001 271 260 G H 001 R 360 224
0012560 @ 001 271 260 = @ 001 001 X U 360 244 H V 360 262
0012600 1 @ 001 002 \t \0 \0 X 262 ( H 020 @ 001 g \0
0012620 \0 033 X d 004 l 004 361 247 R 360 262 025 @ 001 271
0012640 216 001 T 001 360 231 T 002 H 002 \n \0 \0 001 265 \t
0012660 @ 002 b \0 261 377 T 271 260 370 \0 ( 2 5 0 Q
0012700 N T H 2 0 2 Q \ C L I S P
0012720 L O O K U P 0 / C L I S P L O O
0012740 K U P 1 1 3 2 Q R E C O R D
0012760 F I E L D N A M E S ) \r ( 2 1 4
0013000 Q C L I S P C L A S S 1 2 3
0013020 Q R E C O R D F I E L D 1 1
0013040 4 Q C L I S P R E C O R D T Y
0013060 P E S 1 0 4 Q R E C O R D F
0013100 I E L D 7 6 Q R E C O R D
0013120 5 0 Q V A L U E 4 1 Q =
0013140 2 6 Q C L I S P T R A N F L G
0013160 1 7 Q C L I S P T R A N F L
0013200 G ) \r ( ) \r \ C L I S P L O O K
0013220 U P 0 / C L I S P L O O K U P 2
0013240 D 1 \r ( L ( 0 X ) ) \0 "
0013260 \0 \0 \0 001 @ d 003 262 035 d 001 g \0 \0 360 246
0013300 d 001 g \0 \0 360 222 002 001 020 002 001 g \0 \0 360
0013320 264 004 @ 001 020 \0 N I L \r ( 3 2 Q _
0013340 2 0 Q S E T Q Q 1 1 Q S
0013360 E T Q ) \r ( ) \r W A R N U S E R
0013400 D 1 \r ( L ( 0 X ) F 1
0013420 P R O G V A R S F 2 E X
0013440 P ) \0 201 001 002 \0 001 Q 260 Y d 001 021 001
0013460 \0 @ 002 001 H d 003 220 001 \n \0 \0 264 D o \0
0013500 \0 \0 i \n \0 \0 277 R h l \b l 002 \f \0 \0
0013520 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 @ i
0013540 \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277 H 003 265
0013560 035 o \0 \0 \0 i \n \0 \0 277 i \t \0 \0 277 i
0013600 022 244 002 003 265 250 h 277 @ 002 001 020 001 i \n \0
0013620 \0 277 o \0 \0 \0 i \n \0 \0 277 H 002 001 l 003
0013640 \n \0 \0 i \n \0 \0 260 322 \0 ( 1 7 5 Q
0013660 L I S P X P R I N 2 1 7 1 Q
0013700 R E T D W I M 2 1 6 0 Q L I
0013720 S P X P R I N 1 1 4 7 Q L I
0013740 S P X P R I N 2 1 2 4 Q L I
0013760 S P X T E R P R I 1 1 7 Q L
0014000 I S P X P R I N 1 1 0 2 Q L
0014020 I S P X P R I N 1 7 1 Q \ C
0014040 L I S P F O R E R R B L O C K /
0014060 C L I S P F O R E R R 1 6 3 Q
0014100 L I S P X P R I N 1 5 2 Q
0014120 L I S P X P R I N 2 4 6 Q R
0014140 E T D W I M 2 3 4 Q L I S P
0014160 X P R I N 1 2 2 Q E D I T F
0014200 I N D P ) \r N I L \r ( 1 5 4 Q
0014220 " i s b o u n d a n d i
0014240 n i t i a l i z e d t o : \r "
0014260 1 1 3 Q " i t i s b o
0014300 u n d " 7 6 Q " . . . i
0014320 s e v a l u a t e d B E F O
0014340 R E " 5 7 Q " \r n o w t
0014360 r a n s l a t e s s o t h a
0014400 t " 3 0 Q " * * * * W a r
0014420 n i n g : t h e i t e r a t
0014440 i v e s t a t e m e n t : \r "
0014460 ) \r C L I S P F O R E R R D 1
0014500 \r ( L ( 2 T Y P E 1 Y
0014520 0 X ) F 1 F A U L T F N
0014540 ) \0 276 001 001 \0 003 ` \0 \0 222 261 \0 240 021
0014560 020 \0 Q \t \0 \0 225 k i \n \0 \0 277 o \0 \0
0014600 \0 i \n \0 \0 277 B 262 I g \0 \0 i \n \0 \0
0014620 262 @ B d g \0 \0 360 226 277 o \0 \0 \0 260 -
0014640 g \0 \0 360 225 o \0 \0 \0 260 " B d g \0 \0
0014660 360 226 277 o \0 \0 \0 260 024 g \0 \0 360 264 016 @
0014700 002 001 i \n \0 \0 277 o \0 \0 \0 i \n \0 \0 277
0014720 g \0 \0 i \n \0 \0 277 @ 225 @ d 003 262 7 277
0014740 A 265 / @ d A \n \0 \0 231 270 A b \0 277 H
0014760 b 002 277 @ A \n \0 \0 277 A 232 k i \n \0 \0
0015000 277 A \t \0 \0 277 i \t \0 \0 277 023 \b \0 \0 020
0015020 003 263 322 @ i d \v \0 \0 277 A 262 360 A i d
0015040 \v \0 \0 260 347 \0 ( 2 7 2 Q L I S P
0015060 X P R I N 2 2 6 0 Q L I S P
0015100 X P R I N 2 2 4 6 Q D W I M
0015120 E R R O R R E T U R N 2 4 1 Q
0015140 T E R P R I 2 3 4 Q \ C L
0015160 I S P F O R E R R B L O C K / C
0015200 L I S P F O R E R R 1 2 2 7 Q
0015220 L I S P X S P A C E S 2 1 7
0015240 Q \ C L I S P F O R E R R B L
0015260 O C K / C L I S P F O R E R R 1
0015300 2 0 0 Q T A I L P 1 5 6 Q
0015320 L I S P X P R I N T 1 4 6 Q
0015340 L I S P X P R I N 1 1 3 5 Q
0015360 L I S P X P R I N 1 4 7 Q
0015400 L I S P X P R I N T 3 4 Q L
0015420 I S P X P R I N 1 2 3 Q S P
0015440 A C E S 1 5 Q F I X P R I N
0015460 T I N ) \r ( 1 5 2 Q : 1 2 3
0015500 Q W H A T 1 0 7 Q M I S S
0015520 I N G 7 2 Q T W I C E 5 6
0015540 Q B O T H 4 3 Q , 2 D
0015560 W I M E S S G A G ) \r ( 1 4 2 Q
0015600 " w h a t ? ( n o i
0015620 . v . s p e c i f i e d ) "
0015640 1 1 6 Q " m i s s i n g o p
0015660 e r a n d " 1 0 0 Q " o p e
0015700 r a t o r a p p e a r s t w
0015720 i c e " 6 5 Q " c a n ' t
0015740 u s e b o t h o f t h e s
0015760 e o p e r a t o r s t o g e
0016000 t h e r " 3 0 Q " e r r o r
0016020 i n i t e r a t i v e s t
0016040 a t e m e n t " ) \r \ C L I S P
0016060 F O R E R R B L O C K / C L I S
0016100 P F O R E R R 1 D 1 \r ( L (
0016120 1 Y 0 X ) F 1 I . S
0016140 . F 2 I . S . P T R S )
0016160 \0 J 001 002 \0 002 021 020 \0 @ Q 360 250 o \0 \0
0016200 \0 i \n \0 \0 277 R 211 d 001 002 001 @ \n \0 \0
0016220 244 002 003 265 365 h 002 001 002 001 265 003 A X 277 @
0016240 001 h l 003 \v \0 \0 i d \v \0 \0 277 @ 002 b
0016260 \0 d 232 H 360 246 k i \n \0 \0 260 343 h 020 \0
0016300 ( 1 0 4 Q L I S P X S P A C E
0016320 S 6 5 Q L I S P X P R I N 2
0016340 6 0 Q R E T D W I M 2 3 1
0016360 Q T A I L P 1 6 Q L I S P
0016400 X P R I N 1 ) \r N I L \r ( 1 2 Q
0016420 " . . . " ) \r C L I S P D
0016440 E C D 1 \r ( L ( 0 D E C L
0016460 S T ) P 5 F A U L T F N )
0016500 001 \f 006 \0 \0 001 @ d 231 d 004 l 004 361 243
0016520 h 032 b \0 021 A 004 H 265 004 @ 020 001 003 262 025
0016540 H 001 001 ` \0 \0 034 242 261 \0 321 H 001 \t \0 \0
0016560 261 \0 201 H d 001 ` \0 \0 034 262 Q 277 ` \0 \0
0016600 212 d 001 [ g \0 \0 033 Y 265 \b 002 003 265 364 260
0016620 c g \0 \0 \n \0 \0 277 K g \0 \0 033 265 \v K
0016640 g \0 \0 033 g \0 \0 033 002 H 001 g \0 \0 033 002
0016660 \n \0 \0 001 Y 262 326 K g \0 \0 I \v \0 \0 277
0016700 I g \0 \0 K \v \0 \0 277 260 302 001 g \0 \0 033
0016720 Z 265 ' H 001 ` \0 \0 034 262 Q H 001 g \0 \0
0016740 033 Y 004 l 004 361 263 S I g \0 \0 H 001 \v \0
0016760 \0 277 H 002 X 261 377 c d 003 262 357 277 ` \0 \0
0017000 260 % d 001 274 J 001 L g \0 \0 033 Y 001 360 262
0017020 025 I 002 J 002 \n \0 \0 001 Y 230 L g \0 \0 I
0017040 \v \0 \0 277 002 003 265 334 260 312 021 020 005 H 001 h
0017060 ` \0 \0 \v \0 \0 022 265 \r o \0 \0 \0 H 001 \n
0017100 \0 \0 h 020 Y 262 255 H I H 002 \v \0 \0 277 261
0017120 377 \b \0 ( 4 0 6 Q / R P L N O D
0017140 E 3 7 2 Q E R R O R 3 5 6
0017160 Q F I X S P E L L 3 3 3 Q
0017200 / P U T 3 2 0 Q N T H 2 5
0017220 1 Q / P U T 2 0 0 Q / P U
0017240 T 1 6 7 Q / P U T 1 5 3 Q
0017260 N T H 1 1 7 Q / R E M P R
0017300 O P 5 0 Q E V A L ) \r ( 3 5
0017320 3 Q D E C L W O R D S 3 2 7
0017340 Q L I S P F N 3 0 3 Q C L
0017360 I S P C L A S S D E F 2 7 0 Q
0017400 D E C L W O R D S 2 4 4 Q
0017420 L I S P F N 2 3 0 Q C L I S
0017440 P C L A S S 2 2 0 Q D E C L
0017460 W O R D S 2 0 7 Q C L I S P
0017500 C L A S S 1 7 4 Q C L I S P
0017520 I N F I X 1 6 3 Q L I S P F
0017540 N 1 4 6 Q C L I S P C L A S
0017560 S 1 3 7 Q C L I S P C L A S
0017600 S D E F 1 3 3 Q C L I S P C
0017620 L A S S 1 2 4 Q C L I S P C
0017640 L A S S D E F 1 1 4 Q C L I
0017660 S P I N F I X 7 7 Q L I S P
0017700 F N 7 0 Q C L I S P A R I T
0017720 H O P L S T 6 1 Q C L I S P
0017740 A R I T H C L A S S L S T 3 6
0017760 Q C L I S P R E C O R D T Y P
0020000 E S ) \r ( 3 6 5 Q " i l l e g
0020020 a l d e c l a r a t i o n " )
0020040 \r C L I S P D E C 0 D 1 \r ( L
0020060 ( 1 F N 0 X ) ) \0 026 \0
0020100 \0 \0 002 @ ` \0 \0 g \0 \0 @ 002 A \n \0 \0
0020120 032 \v \0 \0 @ 002 002 020 \0 ( 2 0 Q / R
0020140 P L N O D E 1 4 Q \ C L I S
0020160 P D E C B L O C K / C L I S P D
0020200 E C 1 ) \r ( 6 D E C L A R A T
0020220 I O N S : 3 C O M M E N T F
0020240 L G ) \r N I L \r \ C L I S P D E
0020260 C B L O C K / C L I S P D E C 1
0020300 D 1 \r ( L ( 0 X ) I 1
0020320 F A U L T F N ) \0 | 004 \0 \0 002
0020340 021 @ 003 @ 260 j [ K d 001 003 262 * d 001 002
0020360 001 g \0 \0 360 257 d 001 001 ` \0 \0 034 247 d 001
0020400 001 g \0 \0 360 221 001 210 001 001 K 001 002 \t \0 \0
0020420 032 h 032 260 0 001 ` \0 \0 034 225 K 001 h 032 260
0020440 $ K 001 h ` \0 \0 h K h d d K 001 ` \0
0020460 \0 \n \0 \0 \r \t \0 \0 263 257 o \0 \0 \0 K 001
0020500 \n \0 \0 X 003 226 I 265 \f H Z Y 277 002 003 265
0020520 227 J 020 \t \0 \0 Y H 031 260 363 \0 ( 1 6 5
0020540 Q L A S T 1 4 2 Q E R R O
0020560 R 1 2 7 Q F I X S P E L L
0020600 1 2 3 Q D U N P A C K 5 7 Q
0020620 \ C L I S P D E C B L O C K /
0020640 C L I S P D E C 1 ) \r ( 1 2 0 Q
0020660 S K O R L S T 1 1 0 6 Q D
0020700 E C L W O R D S 7 0 Q D E C
0020720 L W O R D S 4 3 Q R E C O R
0020740 D S 3 3 Q C L I S P R E C O
0020760 R D T Y P E S 2 3 Q = ) \r (
0021000 1 3 5 Q " i l l e g a l d e
0021020 c l a r a t i o n " ) \r G E T L
0021040 O C A L D E C D 1 \r ( L ( 1
0021060 F N 0 E X P R ) F 4
0021100 L A M B D A S P L S T F 5
0021120 F A U L T F N ) \0 241 004 002 \0 002 @
0021140 003 264 ~ @ 001 T 034 264 x @ 002 002 021 1 003 H
0021160 d 262 n 001 Y 003 265 \a H 002 X 260 365 001 d g
0021200 \0 \0 360 225 277 I 002 001 260 361 g \0 \0 360 262 023
0021220 I 002 002 001 002 002 001 \t \0 \0 001 002 001 002 001 260
0021240 332 I d 001 ` \0 \0 360 232 d 002 001 g \0 \0 360
0021260 222 002 002 020 001 g \0 \0 360 230 I A 265 003 U \n
0021300 \0 \0 020 I 001 d g \0 \0 360 245 d g \0 \0 360
0021320 222 277 i 201 277 h 262 242 I 002 Z 003 265 004 h 020
0021340 001 [ d 001 g \0 \0 360 263 312 001 ` \0 \0 360 233
0021360 K 002 001 g \0 \0 360 223 K 002 002 020 J 260 334 \0
0021400 ( 1 4 2 Q C L I S P D E C 0
0021420 7 2 Q L A S T ) \r ( 2 2 6 Q
0021440 D E C L A R A T I O N S : 2 1
0021460 6 Q C O M M E N T F L G 2 0
0021500 7 Q C L I S P : 1 5 7 Q D
0021520 E C L A R E : 1 5 1 Q D E C
0021540 L A R E 1 3 0 Q C L I S P :
0021560 1 1 7 Q D E C L A R A T I O
0021600 N S : 1 0 7 Q C O M M E N T
0021620 F L G 5 5 Q A D V - P R O G
0021640 4 2 Q B R E A K 1 ) \r N I L
0021660 \r C O M P I L E U S E R F N A 0
0021700 0 1 5 D 1 \r ( N A M E E R R
0021720 O R S E T L ( 2 E R R O R
0021740 S E T . W 1 E R R O R S E T
0021760 . V 0 E R R O R S E T . U )
0022000 P 0 E X P F 1 Y )
0022020 \0 023 001 001 \0 003 Q 021 001 \0 g \0 \0 i g \0
0022040 \0 \v \0 \0 022 h 032 020 \0 ( 1 5 Q B R
0022060 E A K 1 ) \r ( 1 2 Q c o m p i
0022100 l a t i o n 6 E X P ) \r N I
0022120 L \r C O M P I L E U S E R F N
0022140 D 1 \r ( L ( 0 X ) I 1
0022160 Y F 0 L A M B D A S P L S
0022200 T ) \0 231 \0 001 \0 002 A \t \0 \0 265 o A
0022220 d 001 003 262 # 001 \t \0 \0 265 031 ` \0 \0 264 ^
0022240 A \t \0 \0 A \t \0 \0 265 T A 001 \t \0 \0 d
0022260 262 L A 002 032 020 001 g \0 \0 033 003 263 036 A 001
0022300 P 034 264 027 A 001 d g \0 \0 360 245 d g \0 \0
0022320 360 222 277 i 201 277 h 221 h 020 ` \0 \0 264 037 A
0022340 \t \0 \0 ` \0 \0 226 A ` \0 \0 035 265 355 ` \0
0022360 \0 232 A d 001 ` \0 \0 360 223 002 001 020 A 001 g
0022400 \0 \0 033 241 A 020 ` \0 \0 263 317 o \0 \0 \0 i
0022420 \n \0 \0 A i \n \0 \0 o \0 \0 \0 \t \0 \0 001
0022440 020 \0 ( 2 2 5 Q C O M P I L E U
0022460 S E R F N A 0 0 1 5 2 1 6 Q
0022500 P R I N T 2 1 1 Q P R I N 1
0022520 1 3 1 Q \ C O M P I L E U S
0022540 E R F N B L O C K / C O M P I L
0022560 E U S E R F N 1 4 5 Q \ C O
0022600 M P I L E U S E R F N B L O C K
0022620 / C H E C K T R A N 3 6 Q \
0022640 C O M P I L E U S E R F N B L O
0022660 C K / C H E C K T R A N 3 2 Q
0022700 \ C O M P I L E U S E R F N B
0022720 L O C K / C O M P I L E U S E R
0022740 F N 1 1 7 Q \ C O M P I L E
0022760 U S E R F N B L O C K / C H E C
0023000 K T R A N 3 \ C O M P I L E
0023020 U S E R F N B L O C K / C H E C
0023040 K T R A N ) \r ( 1 7 7 Q D W I
0023060 M E S S G A G 1 7 0 Q C L I
0023100 S P W O R D 1 5 6 Q C L I S
0023120 P T R A N F L G 1 4 7 Q C L
0023140 I S P T R A N F L G 1 4 1 Q
0023160 C L I S P A R R A Y 1 3 4 Q
0023200 C L I S P A R R A Y 1 2 3 Q
0023220 D W I M F L G 1 0 6 Q N L A
0023240 M B D A 1 0 0 Q L A M B D A
0023260 6 0 Q C L I S P W O R D 2
0023300 4 Q D W I M F L G ) \r ( 2 2 2
0023320 Q ( D U M M Y . F O R . E R R
0023340 O R S E T ) 2 0 5 Q " u n a
0023360 b l e t o d w i m i f y "
0023400 ) \r \ C O M P I L E U S E R F N
0023420 B L O C K / C O M P I L E U S E
0023440 R F N 1 A 0 0 1 6 D 1 \r ( N A
0023460 M E E R R O R S E T L ( 2
0023500 E R R O R S E T . W 1 E R
0023520 R O R S E T . V 0 E R R O R
0023540 S E T . U ) F 0 F L G F
0023560 1 Y F 2 F N F 3
0023600 D E F F 4 A R G S F 5
0023620 O T H E R V A R S ) \0 X \0 006
0023640 \0 003 ` \0 \0 265 005 P h 360 027 \0 \0 277 ` \0
0023660 \0 264 003 P 027 \0 \0 277 ` \0 \0 027 \0 \0 277 `
0023700 \0 \0 027 \0 \0 277 Q R T U \n \0 \0 S \f \0
0023720 \0 277 ` \0 \0 ` \0 \0 \n \0 \0 226 ` \0 \0 027
0023740 \0 \0 277 ` \0 \0 ` \0 \0 \n \0 \0 264 \n ` \0
0023760 \0 027 \0 \0 277 h h 032 020 \0 ( 1 1 1 Q
0024000 T A I L P 7 0 Q T A I L P
0024020 5 6 Q D W I M I F Y 0 5 2 Q
0024040 U N I O N ) \r ( 1 2 1 Q N O
0024060 F I X V A R S L S T 1 1 6 Q
0024100 N O F I X V A R S L S T 0 1 0
0024120 6 Q N O F I X V A R S L S T 0
0024140 1 0 3 Q N O F I X V A R S L
0024160 S T 7 7 Q N O F I X F N S L
0024200 S T 7 4 Q N O F I X F N S L
0024220 S T 0 6 5 Q N O F I X F N S
0024240 L S T 0 6 2 Q N O F I X F N
0024260 S L S T 4 2 Q N O F I X V A
0024300 R S L S T 0 3 7 Q N O F I X
0024320 V A R S L S T 3 3 Q N O F I
0024340 X F N S L S T 0 3 0 Q N O F
0024360 I X F N S L S T 2 4 Q F I L
0024400 E P K G F L G 1 6 Q F I L E
0024420 P K G F L G 1 2 Q N O S P E
0024440 L L F L G 2 N O S P E L L F
0024460 L G ) \r N I L \r \ C O M P I L E
0024500 U S E R F N B L O C K / C O M P
0024520 I L E U S E R F N 1 D 1 \r ( P
0024540 0 F L G I 0 Y F 3
0024560 R E S E T V A R S L S T F
0024600 4 C O R E F L G F 5 F N
0024620 ) \0 ] 003 003 \0 001 T 003 264 \b U T \n \0
0024640 \0 002 021 ! 002 g \0 \0 ` \0 \0 032 g \0 \0 `
0024660 \0 \0 032 S 032 032 c 006 Y 272 o \0 \0 \0 g \0
0024700 \0 \n \0 \0 I 001 002 027 \0 \0 277 I 002 Y 001 002
0024720 027 \0 \0 277 J d S 360 225 277 I 002 c 006 215 S
0024740 \n \0 \0 231 S k J \v \0 \0 I 002 031 277 242 \b
0024760 \0 \0 h 020 \0 ( 1 3 1 Q E R R O R
0025000 ! 1 2 1 Q N L E F T 1 1 2
0025020 Q T A I L P 5 3 Q \ C O M
0025040 P I L E U S E R F N B L O C K /
0025060 C O M P I L E U S E R F N 1 A 0
0025100 0 1 6 1 0 Q F A S S O C ) \r
0025120 ( 7 2 Q F I L E P K G F L G
0025140 6 1 Q N O S P E L L F L G 5
0025160 0 Q I N T E R N A L 3 1 Q
0025200 F I L E P K G F L G 2 6 Q F
0025220 I L E P K G F L G 2 2 Q N O
0025240 S P E L L F L G 1 7 Q N O S
0025260 P E L L F L G ) \r ( 4 5 Q ( D
0025300 U M M Y . F O R . E R R O R S E
0025320 T ) ) \r \ C O M P I L E U S E R
0025340 F N B L O C K / C H E C K T R A
0025360 N D 1 \r ( L ( 0 X ) ) \0
0025400 ; \0 \0 \0 001 ` \0 \0 226 @ ` \0 \0 035 265 0
0025420 ` \0 \0 264 + @ 001 ` \0 \0 360 264 # @ 002 001
0025440 ` \0 \0 244 ` \0 \0 262 027 @ d 002 001 \n \0 \0
0025460 277 @ d 002 002 001 @ 002 002 002 \v \0 \0 277 020 \0
0025500 ( 6 7 Q / R P L N O D E 5 2
0025520 Q C L I S P T R A N ) \r ( 4 1
0025540 Q # C L I S P A R R A Y 3 5
0025560 Q C L I S P A R R A Y 2 4 Q
0025600 C L I S P T R A N F L G 1 5
0025620 Q C L I S P T R A N F L G 7
0025640 C L I S P A R R A Y 2 C L
0025660 I S P A R R A Y ) \r N I L \r D W
0025700 I M D 1 \r ( P 0 X I 0
0025720 X ) \0 k 001 \0 \0 001 @ 265 033 g \0 \0
0025740 g \0 \0 \t \0 \0 \n \0 \0 g \0 \0 \t \0 \0 g
0025760 \0 \0 \t \0 \0 020 ` \0 \0 \n \0 \0 b \0 262 9
0026000 g \0 \0 g \0 \0 \t \0 \0 \n \0 \0 g \0 \0 i
0026020 \n \0 \0 g \0 \0 i \n \0 \0 @ 002 260 023 d 001
0026040 021 001 \0 H 003 227 H 001 H 002 \n \0 \0 277 023 002
0026060 003 265 355 @ 002 001 020 o \0 \0 \0 o \0 \0 \0 i
0026100 \v \0 \0 020 \0 ( 1 5 0 Q E R R O R
0026120 1 2 2 Q S E T 7 7 Q / S
0026140 E T A T O M V A L 7 0 Q / S
0026160 E T A T O M V A L 6 1 Q / P
0026200 U T D 5 6 Q G E T D 4 1 Q
0026220 A S S O C 3 2 Q / S E T A
0026240 T O M V A L 2 4 Q / S E T A
0026260 T O M V A L 1 6 Q / P U T D
0026300 1 3 Q G E T D ) \r ( 7 3 Q
0026320 A D D S P E L L F L G 6 4 Q
0026340 D W I M F L G 5 3 Q N E W F
0026360 A U L T 1 5 0 Q F A U L T 1
0026400 3 6 Q D W I M O D E L S T
0026420 2 7 Q A D D S P E L L F L G
0026440 2 1 Q D W I M F L G 1 0 Q
0026460 O L D F A U L T 1 5 F A U L
0026500 T 1 ) \r ( 1 4 4 Q " " 1 4 0
0026520 Q " n o t o n D W I M O D
0026540 E L S T . " ) \r R E T D W I M 2
0026560 D 1 \r ( I 3 M I 2 N
0026600 I 1 $ T A I L I 0 X
0026620 ) \0 026 \0 \0 \0 004 B 244 l 003 b 004 277 C
0026640 243 k b 006 277 @ A B C \f \0 \0 020 \0 ( 2
0026660 3 Q R E T D W I M 3 ) \r N I L
0026700 \r N I L \r R E T D W I M 3 D 1
0026720 \r ( I 3 M 1 I 2 N 1
0026740 I 1 $ T A I L I 0 X )
0026760 \0 M \0 \0 \0 004 @ 003 241 @ 020 j C 361 223
0027000 g \0 \0 020 @ 001 h B C k 331 \f \0 \0 A 262
0027020 033 @ d A 360 232 002 h B k 331 C \f \0 \0 260
0027040 " 002 A B C \f \0 \0 260 031 B j 361 232 @ 002
0027060 A B k 331 C \f \0 \0 207 @ 002 264 006 o \0 \0
0027100 \0 032 020 \0 ( 1 0 0 Q R E T D W I
0027120 M 3 6 0 Q R E T D W I M 3
0027140 4 7 Q R E T D W I M 3 2 6 Q
0027160 R E T D W I M 3 ) \r ( 1 3 Q
0027200 & ) \r ( 1 1 1 Q ( - - ) ) \r W
0027220 T F I X L O A D E F D 1 \r ( P
0027240 2 N O L I N K M E S S P
0027260 1 F A U L T E M 3 P 0 F
0027300 A U L T E M 2 I 0 F A U L
0027320 T E M 1 F 3 F A U L T F N
0027340 F 4 D W I M I F Y F L G
0027360 F 5 D W I M I F Y I N G F
0027400 6 C O M P I L E . E X T )
0027420 \0 227 003 004 \0 001 021 001 h c 006 T 226 U 265
0027440 003 202 261 \0 211 g \0 \0 @ d 004 l 004 361 225 001
0027460 @ 002 b \0 277 X g \0 \0 V \f \0 \0 i \n \0
0027500 \0 X 241 h 020 @ 004 l 004 361 226 @ d 001 003 263
0027520 035 277 ` \0 \0 g \0 \0 o \0 \0 \0 @ h 032 032
0027540 ` \0 \0 \f \0 \0 g \0 \0 360 260 # 001 @ 002 b
0027560 \0 277 \t \0 \0 Y 005 \a 262 024 o \0 \0 \0 I o
0027600 \0 \0 \0 h g \0 \0 \r 005 \0 \0 200 I 264 036 i
0027620 021 001 002 @ d 004 l 004 361 250 277 H g \0 \0 \n
0027640 \0 \0 206 H g \0 \0 \v \0 \0 i 020 \0 ( 2 2
0027660 3 Q L O A D F N S 2 1 3 Q
0027700 L O A D 1 6 4 Q F I X S P E
0027720 L L 1 1 3 6 Q E V A L 1 1
0027740 7 Q A S K U S E R 5 2 Q F
0027760 I N D F I L E 4 6 Q P A C K
0030000 F I L E N A M E ) \r ( 2 2 0 Q
0030020 S Y S L O A D 2 1 0 Q S Y S
0030040 L O A D 1 6 0 Q M U S T A P
0030060 P R O V E 1 2 2 Q Y 1 1 4
0030100 Q D W I M K E Y L S T 1 0 1
0030120 Q Y 7 6 Q D W I M W A I T
0030140 4 2 Q E X T E N S I O N 2
0030160 1 Q B O D Y ) \r ( 1 5 4 Q "
0030200 " 1 4 7 Q " " 1 0 5 Q "
0030220 S h a l l I l o a d " ) \r
0030240 C L I S P T R A N D 1 \r ( I
0030260 1 T R A N I 0 X ) \0 2
0030300 \0 \0 \0 002 ` \0 \0 263 % ` \0 \0 265 024 A 264
0030320 % @ ` \0 \0 A @ 001 @ 002 032 032 \v \0 \0 020
0030340 \t \0 \0 027 \0 \0 277 h 027 \0 \0 277 @ A ` \0
0030360 \0 \v \0 \0 020 \0 ( 5 7 Q / P U T H
0030400 A S H 3 6 Q H A S H A R R A
0030420 Y 3 2 Q / R P L N O D E ) \r
0030440 ( 5 4 Q C L I S P A R R A Y
0030460 4 6 Q # C L I S P A R R A Y
0030500 4 1 Q C L I S P A R R A Y 2
0030520 0 Q C L I S P T R A N F L G
0030540 7 # C L I S P A R R A Y 2
0030560 C L I S P A R R A Y ) \r ( ) \r I
0030600 . S . O P R A 0 0 1 7 D 1 \r (
0030620 I 1 E X P I 0 T R A N
0030640 F 0 U C F 1 L C )
0030660 \0 027 \0 002 \0 002 P A \n \0 \0 246 Q A \n \0
0030700 \0 264 \n A h ` \0 \0 \v \0 \0 020 \0 ( 2 4
0030720 Q / P U T H A S H 1 2 Q M
0030740 E M B 4 M E M B ) \r ( 2 1 Q
0030760 C L I S P A R R A Y ) \r N I L
0031000 \r I . S . O P R D 1 \r ( P 4
0031020 N E W F L G P 3 O L D P
0031040 R O P P 2 N E W P R O P
0031060 P 1 L C P 0 U C I
0031100 3 E V A L F L G I 2 O T
0031120 H E R S I 1 F O R M I
0031140 0 N A M E ) 001 9 005 \0 \0 004 @ \t
0031160 \0 \0 021 A 004 @ d H 360 222 \t \0 \0 Y g \0
0031200 \0 033 001 g \0 \0 360 h 360 \ A 265 8 B 265 %
0031220 H g \0 \0 g \0 \0 I 032 Z \v \0 \0 277 I g
0031240 \0 \0 J \v \0 \0 277 A g \0 \0 360 262 k g \0
0031260 \0 260 } 003 263 I C 263 C o \0 \0 \0 B \n \0
0031300 \0 260 | 004 l 004 361 263 306 A g \0 \0 360 263 277
0031320 H g \0 \0 g \0 \0 I A h 032 032 032 Z \v \0
0031340 \0 277 I g \0 \0 033 273 I g \0 \0 J \v \0 \0
0031360 277 I g \0 \0 \n \0 \0 260 E B 262 225 B 001 g
0031400 \0 \0 033 001 g \0 \0 360 263 210 C 263 205 o \0 \0
0031420 \0 B \n \0 \0 260 ( C 262 023 A 264 \a g \0 \0
0031440 A 032 B 264 \n g \0 \0 B 032 201 A B 032 272 I
0031460 g \0 \0 033 273 I g \0 \0 J \v \0 \0 277 J K
0031500 \n \0 \0 221 @ 020 L 263 7 H g \0 \0 360 231 g
0031520 \0 \0 g \0 \0 \n \0 \0 277 ` \0 \0 i 360 256 g
0031540 \0 \0 @ o \0 \0 \0 032 032 i \n \0 \0 277 ` \0
0031560 \0 262 ! ` \0 \0 g \0 \0 \n \0 \0 260 025 ` \0
0031600 \0 H \n \0 \0 277 ` \0 \0 H I h 032 032 \n \0
0031620 \0 277 ` \0 \0 235 @ H 360 221 H 200 I g \0 \0
0031640 L \v \0 \0 @ 020 \0 ( 4 6 5 Q M A R
0031660 K A S C H A N G E D 4 4 2 Q
0031700 / N C O N C 4 2 6 Q / N C O
0031720 N C 1 4 1 5 Q M A P H A S H
0031740 3 7 6 Q L I S P X P R I N T
0031760 3 5 1 Q / R E M P R O P 3
0032000 2 4 Q E Q U A L 3 1 6 Q /
0032020 P U T 2 4 6 Q E R R O R 2
0032040 1 1 Q / R E M P R O P 2 0 1
0032060 Q / P U T 1 6 2 Q / P U T
0032100 1 2 2 Q E R R O R 6 7 Q
0032120 / P U T 5 6 Q / P U T 1 6
0032140 Q L - C A S E 3 U - C A S
0032160 E ) \r ( 4 6 1 Q I . S . O P R
0032200 S 4 4 6 Q F I L E P K G F L
0032220 G 4 3 2 Q I . S . O P R L S
0032240 T 4 2 2 Q C L I S P F O R W
0032260 O R D S P L S T 4 1 2 Q I .
0032300 S . O P R A 0 0 1 7 4 0 7 Q
0032320 C L I S P A R R A Y 4 0 2 Q
0032340 C L I S P A R R A Y 3 6 3 Q
0032360 i . s . o p r 3 5 5 Q D F N
0032400 F L G 3 4 6 Q I . S . O P R
0032420 3 4 3 Q f c o l l e c t 3
0032440 3 6 Q C O L L E C T 3 1 2 Q
0032460 I . S . O P R 3 0 4 Q I .
0032500 S . O P R 2 7 1 Q = 2 6 1
0032520 Q = 2 3 0 Q F O R W O R D
0032540 2 2 3 Q C L I S P W O R D
0032560 2 0 6 Q I . S . O P R 1 7 5
0032600 Q C L I S P W O R D 1 6 7 Q
0032620 C L I S P W O R D 1 5 0 Q
0032640 F O R W O R D 1 4 5 Q C L I
0032660 S P W O R D 1 3 6 Q M O D I
0032700 F I E R 1 0 2 Q M O D I F I
0032720 E R 7 4 Q M O D I F I E R
0032740 6 3 Q C L I S P W O R D 5 0
0032760 Q F O R W O R D 4 5 Q C L
0033000 I S P W O R D 2 7 Q F O R W
0033020 O R D 2 2 Q C L I S P W O R
0033040 D ) \r ( 3 7 0 Q ( r e d e f i
0033060 n e d ) 2 4 2 Q " O T H E R
0033100 S m u s t b e g i n w i t
0033120 h a n o p e r a t o r " 1
0033140 1 6 Q " O T H E R S m u s t
0033160 b e a l i s t o f o p
0033200 e r a t o r s a n d o p e r
0033220 a n d s " ) \r S P L I T 8 9 D
0033240 1 \r ( P 2 Z P 1 Y P
0033260 0 X I 1 P O S I 0
0033300 N F 3 L F 4 S P L
0033320 I T 8 9 F L G ) \0 T 003 002 \0 002 021
0033340 0 002 S 001 ` \0 \0 \n \0 \0 X A 225 d A \n
0033360 \0 \0 202 @ H 034 Y d 265 023 @ l \b 360 223 g
0033400 \0 \0 202 g \0 \0 @ h 032 032 020 002 227 I 002 \t
0033420 \0 \0 J 032 272 @ J 032 Z I H 360 253 H I \n
0033440 \0 \0 \t \0 \0 J 032 Z 200 J c \b g \0 \0 J
0033460 032 020 \0 ( 1 0 5 Q P A C K 1 0
0033500 2 Q L D I F F 6 2 Q P A C
0033520 K 2 2 Q N L E F T 1 2 Q
0033540 D U N P A C K ) \r ( 1 1 7 Q :
0033560 4 6 Q A 4 2 Q B 7 S
0033600 K O R L S T 3 ) \r N I L \r D W I
0033620 M L O A D F N S ? D 1 \r ( P
0033640 1 T E M P 0 F N F 2
0033660 F A U L T X F 3 F A U L
0033700 T A P P L Y F L G F 4 D W
0033720 I M I F Y F L G F 5 S I D
0033740 E S F 6 D W I M I F Y I N
0033760 G F 7 T Y P E - I N ? F
0034000 1 0 Q L I S P X H I S T )
0034020 \0 Q 002 \a \0 \0 S 221 R 201 R 001 021 021 001 `
0034040 \0 \0 264 1 T 222 V 263 + H 004 l 004 360 264 %
0034060 H \t \0 \0 263 036 H \t \0 \0 Y 264 030 H i d
0034100 \v \0 \0 I \n \0 \0 Y 001 H 360 247 I 001 i \n
0034120 \0 \0 h 020 W 016 254 g \0 \0 W 020 \n \0 \0 002
0034140 001 002 c \n R 020 \0 ( 1 1 0 Q M E M
0034160 B 7 3 Q L I S P X P R I N T
0034200 6 0 Q L O A D F N S 5 4 Q
0034220 L I S P X P R I N T 4 3 Q
0034240 E D I T L O A D F N S ? 3 5 Q
0034260 D E F I N E D P ) \r ( 1 0 3 Q
0034300 S I D E 1 3 Q D W I M L O
0034320 A D F N S F L G ) \r N I L \r C L
0034340 I S P E R R O R D 1 \r ( P 2
0034360 I N P 1 A T P 0 T
0034400 E M I 1 F L G I 0 T
0034420 Y P E F 3 T A I L F 4
0034440 P A R E N T F 5 T Y P E
0034460 - I N ? F 6 F A U L T F N
0034500 F 7 F A U L T X ) 001 b 003
0034520 005 \0 002 ` \0 \0 h 360 264 003 202 261 \0 367 @ g
0034540 \0 \0 360 h 360 264 003 202 261 \0 352 021 0 002 U 252
0034560 V \t \0 \0 277 k i \n \0 \0 277 @ d 004 l 004
0034600 361 220 001 X d k 360 227 277 o \0 \0 \0 261 \0 206
0034620 l 002 360 225 o \0 \0 \0 260 { H g \0 \0 360 263
0034640 026 H g \0 \0 360 255 H g \0 \0 360 247 H d g
0034660 \0 \0 360 234 277 o \0 \0 \0 i \n \0 \0 277 H 260
0034700 T l 004 360 225 o \0 \0 \0 260 J H d g \0 \0
0034720 360 226 277 o \0 \0 \0 260 < g \0 \0 360 225 o \0
0034740 \0 \0 260 1 H d g \0 \0 360 226 277 o \0 \0 \0
0034760 260 # g \0 \0 360 225 o \0 \0 \0 260 030 H d 003
0035000 001 g \0 \0 360 234 277 o \0 \0 \0 i \n \0 \0 277
0035020 H 002 001 i \n \0 \0 277 @ 003 265 9 T S 360 263
0035040 026 o \0 \0 \0 i \n \0 \0 277 S 001 \t \0 \0 i
0035060 d \v \0 \0 277 o \0 \0 \0 i \n \0 \0 277 T 265
0035100 004 W 016 S \n \0 \0 i d \v \0 \0 277 i \t \0
0035120 \0 h 020 002 001 271 @ 002 002 001 272 I J 360 242 J
0035140 263 026 o \0 \0 \0 i \n \0 \0 277 I \t \0 \0 i
0035160 d \v \0 \0 h 020 i \t \0 \0 277 o \0 \0 \0 i
0035200 \n \0 \0 277 I d 002 002 \n \0 \0 i o \0 \0 \0
0035220 g \0 \0 h d i \r \a \0 \0 277 i \t \0 \0 277
0035240 o \0 \0 \0 i \n \0 \0 277 J \t \0 \0 i d \v
0035260 \0 \0 h 020 \0 ( 5 3 6 Q L I S P X
0035300 P R I N T 5 3 1 Q R E T D W
0035320 I M 2 5 2 4 Q L I S P X P R
0035340 I N 1 5 1 3 Q L I S P X T E
0035360 R P R I 5 0 6 Q M A P R I N
0035400 T 4 6 7 Q R E T D W I M 2
0035420 4 5 7 Q L I S P X P R I N 1
0035440 4 4 6 Q L I S P X T E R P R I
0035460 4 4 0 Q L I S P X P R I N T
0035500 4 3 3 Q R E T D W I M 2 4
0035520 2 6 Q L I S P X P R I N 1 3
0035540 7 5 Q L I S P X T E R P R I
0035560 3 7 0 Q L I S P X P R I N 2
0035600 3 6 3 Q R E T D W I M 2 3 5
0035620 1 Q L I S P X P R I N 1 3 4
0035640 0 Q L I S P X P R I N 2 3 3
0035660 3 Q R E T D W I M 2 3 2 5 Q
0035700 L I S P X P R I N 1 3 0 3 Q
0035720 L I S P X P R I N 1 2 7 3 Q
0035740 L I S P X P R I N 1 1 5 1 Q
0035760 L I S P X P R I N 1 4 6 Q
0036000 L I S P X S P A C E S 4 0 Q
0036020 F I X P R I N T I N ) \r ( 4 7 7
0036040 Q % ) 2 6 0 Q B R A C K E
0036060 T 2 4 1 Q C A R A T O M 2
0036100 2 5 Q P H R A S E 2 1 0 Q
0036120 F I E L D N A M E 1 7 4 Q _
0036140 1 3 6 Q = > 1 2 7 Q - >
0036160 1 2 1 Q : : 1 1 2 Q :
0036200 1 6 Q A L R E A D Y P R I N T
0036220 E D 2 D W I M E S S G A G )
0036240 \r ( 5 2 0 Q " i n "
0036260 4 7 4 Q " . . . " 4 5 3 Q
0036300 " a t " 4 2 2 Q "
0036320 i n " 3 4 5 Q "
0036340 i n " 3 2 1 Q " a
0036360 t " 2 6 7 Q " m i s s i n
0036400 g " 2 4 7 Q " c a r o r
0036420 c d r o f n o n - l i s t
0036440 t a k e n " 2 3 4 Q " c a
0036460 n ' t p a r s e t h i s p
0036500 h r a s e " 2 1 6 Q " u n d
0036520 e f i n e d f i e l d n a m
0036540 e " 2 0 3 Q " i n c o r r e
0036560 c t u s e o f _ " 1 6 5
0036600 Q " b a d i f s t a t e m
0036620 e n t " 1 4 5 Q " i m p r o
0036640 p e r u s e o f " 1 0 4
0036660 Q " m i s s i n g o p e r a
0036700 t o r " 7 1 Q " m i s s i n
0036720 g o p e r a n d " ) \r C L I S
0036740 P % D 1 \r ( P 0 C L I S
0036760 P T E M I 0 C L I S P X )
0037000 \0 M 001 \0 003 001 021 020 \0 ` \0 \0 244 ` \0
0037020 \0 262 9 g \0 \0 m 377 ` \0 \0 \n \0 \0 X \n
0037040 \0 \0 H \t \0 \0 277 X 001 ` \0 \0 360 262 035 H
0037060 002 @ 360 262 027 H d 002 001 \n \0 \0 277 H d 002
0037100 002 001 H 002 002 002 \v \0 \0 277 @ 001 g \0 \0 \n
0037120 \0 \0 020 \0 ( 1 1 2 Q E V A L 1
0037140 0 1 Q / R P L N O D E 6 4 Q
0037160 C L I S P T R A N 3 6 Q R
0037200 E L S T K 3 2 Q B L I P V A
0037220 L 2 6 Q S T K N T H ) \r ( 1
0037240 0 7 Q I N T E R N A L 4 4 Q
0037260 C L I S P T R A N F L G 2 3
0037300 Q C L I S P T R A N F L G 1
0037320 6 Q E V A L 1 1 Q # C L I
0037340 S P A R R A Y 5 C L I S P A
0037360 R R A Y ) \r N I L \r N E W Q U O
0037400 T E D 1 \r ( P 0 T E M I
0037420 0 X ) \0 B 001 \0 003 001 @ 002 242 @
0037440 001 020 021 020 \0 m 377 \t \0 \0 \t \0 \0 X g \0
0037460 \0 360 263 035 H \t \0 \0 g \0 \0 \t \0 \0 360 236
0037500 H g \0 \0 g \0 \0 033 \n \0 \0 277 @ 001 020 o
0037520 \0 \0 \0 g \0 \0 @ 032 \n \0 \0 h 020 \0 ( 7
0037540 6 Q E R R O R 5 6 Q / P U
0037560 T D 4 1 Q G E T D 3 3 Q
0037600 G E T D 2 0 Q S T K N A M E
0037620 1 5 Q S T K N T H ) \r ( 7 1
0037640 Q Q U O T E 5 2 Q S U B R
0037660 4 7 Q Q U O T E 3 6 Q N
0037700 E W Q U O T E 2 4 Q Q U O T
0037720 E ) \r ( 6 6 Q " p a r e n t h
0037740 e s i s e r r o r i n " ) \r
0037760 F I X A T O M 2 D 1 \r N I L
0040000 \0 \b 001 \0 002 \0 e 021 001 \0 H a 020 \0 N I
0040020 L \r N I L \r N I L \r F L U S H R
0040040 I G H T D 1 \r ( I 5 F I L
0040060 E I 4 C E N T E R F L A G
0040100 I 3 P 2 F L A G I 2
0040120 M I N I 1 X I 0 P O
0040140 S ) \0 ? \0 \0 \0 006 j @ 363 226 E \t \0
0040160 \0 @ 331 212 @ d j 360 225 277 h E \n \0 \0 A
0040200 C \n \0 \0 331 b \0 D 231 d E \t \0 \0 330 342
0040220 b \0 200 @ B E \v \0 \0 C 225 A E \n \0 \0
0040240 020 A E \n \0 \0 020 \0 ( 7 4 Q P R I
0040260 N 1 6 6 Q P R I N 2 5 7 Q
0040300 T A B 4 4 Q P O S I T I O
0040320 N 3 2 Q N C H A R S 2 5 Q
0040340 L I N E L E N G T H 7 P O
0040360 S I T I O N ) \r N I L \r N I L \r
0040400 P R I N T P A R A D 1 \r ( I
0040420 5 F I L E I 4 P A R E N
0040440 F L A G I 3 P 2 F L A G
0040460 I 2 L I S T I 1 R M A
0040500 R G I 0 L M A R G ) \0 :
0040520 \0 \0 \0 006 @ 244 E \t \0 \0 211 j @ 363 230 E
0040540 \t \0 \0 @ 331 b \0 277 A j 361 251 A h E \n
0040560 \0 \0 330 b 002 277 E B E \t \0 \0 D 221 k 200
0040600 j D 221 k 200 j \f \0 \0 \n \0 \0 020 \0 ( 6
0040620 7 Q P O S I T I O N 6 4 Q
0040640 P R I N T P A R A 1 4 7 Q P
0040660 O S I T I O N 3 5 Q L I N E
0040700 L E N G T H 1 6 Q P O S I T
0040720 I O N 5 P O S I T I O N ) \r
0040740 N I L \r N I L \r P R I N T P A R
0040760 A 1 D 1 \r ( P 2 L E N P
0041000 1 L P 0 C C I 3
0041020 C L O S E C O U N T I 2 O
0041040 P E N C O U N T I 1 P O S
0041060 I 0 L I S T F 7 F I
0041100 L E F 1 0 Q L M A R G F
0041120 1 1 Q R M A R G F 1 2 Q
0041140 P 2 F L A G ) 001 \n \a 004 \0 004 j
0041160 021 a 006 @ 003 265 4 H ^ j 361 242 261 \0 372 W
0041200 022 A k 330 b 002 375 361 242 261 \0 336 W 016 \t \0
0041220 \0 277 W 020 ] j 361 242 261 \0 277 g \0 \0 W 016
0041240 \n \0 \0 277 M k 331 260 355 001 271 @ 002 003 241 C
0041260 270 I 003 265 2 W 022 B H A I W 024 \n \0 \0
0041300 Z 330 b 002 330 330 375 361 262 7 W 016 \t \0 \0 277
0041320 W 020 [ j 361 262 # g \0 \0 W 016 \n \0 \0 277
0041340 K k 331 260 357 A B k 330 H k 330 \f \0 \0 b
0041360 002 277 j b 004 X 260 ; W 020 J 330 b 002 277 B
0041400 j 361 262 037 B \ j 361 235 g \0 \0 W 016 \n \0
0041420 \0 277 L k 331 260 360 A B 330 b 002 277 j b 004
0041440 277 W 024 226 I W 016 \n \0 \0 205 I W 016 \n \0
0041460 \0 277 W 022 A k 330 361 262 030 @ d 002 003 262 023
0041500 277 g \0 \0 W 016 \n \0 \0 277 A k 330 b 002 277
0041520 @ 002 b \0 261 377 g \0 \0 W 016 \n \0 \0 277
0041540 W 020 k 330 b 002 207 g \0 \0 W 016 \n \0 \0 277
0041560 N k 331 261 377 005 A 020 \0 ( 3 7 7 Q P
0041600 R I N 3 3 5 7 Q P R I N 3
0041620 3 3 1 Q P R I N 3 3 0 1 Q
0041640 P R I N 3 2 7 2 Q P R I N 4
0041660 2 4 1 Q P R I N 3 1 7 7 Q
0041700 P R I N T P A R A 1 1 5 7 Q
0041720 P R I N 3 1 3 7 Q T E R P
0041740 R I 1 2 0 Q N C H A R S 6
0041760 3 Q P R I N 3 4 1 Q T E R
0042000 P R I ) \r ( 3 7 2 Q % ) 3 5
0042020 2 Q % ) 3 2 4 Q % 2 3
0042040 4 Q % ( 1 5 2 Q % 5 6
0042060 Q % ) \r N I L \r U S E D F R
0042100 E E D 1 \r ( I 0 A F 0
0042120 F R E E V A R S ) \0 \t \0 001 003
0042140 001 @ P \n \0 \0 c \0 020 \0 ( 4 \ A P
0042160 P E N D 2 ) \r N I L \r N I L \r (
0042200 P R E T T Y C O M P R I N T D
0042220 W I M C O M S ) \r ( R P A Q Q
0042240 D W I M C O M S ( ( F N S D
0042260 W I M N E W Q U O T E N E W
0042300 F A U L T 1 C H E C K T R A N
0042320 ) ( V A R S D W I M O D E L
0042340 S T ( D W I M W A I T 1 0 )
0042360 ( L C A S E F L G T ) ) \r
0042400 ( D E C L A R E : D O N T E V
0042420 A L @ L O A D D O C O P Y (
0042440 P ( S A V E D E F ( Q U O T
0042460 E Q U O T E ) ) ( M O V D
0042500 ( Q U O T E N E W Q U O T E )
0042520 ( Q U O T E Q U O T E ) ) )
0042540 ) ( F N S \r R E T D W I M 2
0042560 R E T D W I M 3 F I X A T O
0042600 M 2 S P L I T 8 9 W T F I X
0042620 L O A D E F C L I S P % )
0042640 ( C O M S ( F N S V A R S B
0042660 O U N D I N E D I T C H A I N
0042700 \r V A R S B O U N D I N F O R M
0042720 ) ( B L O C K S ( V A R S B
0042740 O U N D I N E D I T C H A I N
0042760 V A R S B O U N D I N E D I T C
0043000 H A I N V A R S B O U N D I N
0043020 F O R M C H E C K T R A N ) )
0043040 ) ( * * \r D W I M L O A D
0043060 F N S ? ) ( F N S D W I M L
0043100 O A D F N S ? ) ( A P P E N D
0043120 V A R S ( D W I M U S E R F O
0043140 R M S ( D W I M L O A D F N S
0043160 ? ) ) ) ( V A R S ( D W I M
0043200 L O A D F N S F L G T ) ) \r
0043220 ( F N S C L I S P L O O K U P
0043240 0 C L I S P L O O K U P 1 C
0043260 L I S P L O O K U P 2 C L I S
0043300 P E R R O R C L I S P D E C
0043320 C L I S P D E C 0 C L I S P D
0043340 E C 1 G E T L O C A L D E C )
0043360 ( \r C O M S * P R I N T O
0043400 U T C O M S ) ( F N S C O M
0043420 P I L E U S E R F N C O M P I
0043440 L E U S E R F N 1 U S E D F R
0043460 E E C L I S P T R A N ) ( F
0043500 N S C L I S P F O R E R R \r
0043520 C L I S P F O R E R R 1 I . S
0043540 . O P R W A R N U S E R ) (
0043560 D E C L A R E : E V A L @ C O
0043600 M P I L E D O N T C O P Y (
0043620 A D D V A R S ( N L A M L B
0043640 R E A K 1 ) ) ) ( B L O C K S
0043660 ( \r N E W F A U L T 1 B L O C
0043700 K N E W F A U L T 1 C H E C
0043720 K T R A N ( E N T R I E S N
0043740 E W F A U L T 1 ) ( G L O B A
0043760 L V A R S # C L I S P A R R A
0044000 Y ) ( N O L I N K F N S W T
0044020 F I X ) ) ( \r C L I S P L O O
0044040 K U P 0 C L I S P L O O K U P
0044060 0 C L I S P L O O K U P 1 C
0044100 L I S P L O O K U P 2 ( G L O
0044120 B A L V A R S D E C L W O R D
0044140 S C L I S P R E C O R D T Y P
0044160 E S \r C L I S P T R A N F L G
0044200 ) ( L O C A L F R E E V A R S
0044220 W O R D C L A S S C L A S
0044240 S D E F V A R 1 V A R 2 ) )
0044260 ( C L I S P F O R E R R B L O
0044300 C K W A R N U S E R C L I S
0044320 P F O R E R R \r C L I S P F O
0044340 R E R R 1 ( G L O B A L V A R
0044360 S D W I M E S S G A G ) ( E
0044400 N T R I E S C L I S P F O R E
0044420 R R W A R N U S E R ) ) ( C
0044440 L I S P D E C B L O C K C L I
0044460 S P D E C C L I S P D E C 0 \r
0044500 C L I S P D E C 1 G E T L O
0044520 C A L D E C ( G L O B A L V A
0044540 R S C L I S P R E C O R D T Y
0044560 P E S D E C L W O R D S C L
0044600 I S P A R I T H O P L S T C L
0044620 I S P A R I T H C L A S S L S T
0044640 \r C O M M E N T F L G S K O
0044660 R L S T 1 ) ( E N T R I E S
0044700 C L I S P D E C C L I S P D E
0044720 C 0 G E T L O C A L D E C )
0044740 ( L O C A L F R E E V A R S F
0044760 A U L T F N ) ) ( \r C O M P I
0045000 L E U S E R F N B L O C K C O
0045020 M P I L E U S E R F N C O M P
0045040 I L E U S E R F N 1 C H E C K
0045060 T R A N ( E N T R I E S C O
0045100 M P I L E U S E R F N ) ( S P
0045120 E C V A R S E X P ) ( \r G L
0045140 O B A L V A R S D W I M E S S
0045160 G A G C L I S P T R A N F L G
0045200 C L I S P A R R A Y D W I M
0045220 F L G N O F I X V A R S L S T
0045240 0 N O F I X F N S L S T N O
0045260 F I X F N S L S T 0 \r N O F I
0045300 X V A R S L S T F I L E P K G
0045320 F L G N O S P E L L F L G #
0045340 C L I S P A R R A Y ) ) ( N I
0045360 L D W I M ( G L O B A L V A
0045400 R S D W I M O D E L S T D W
0045420 I M F L G A D D S P E L L F L
0045440 G ) \r R E T D W I M 2 R E T
0045460 D W I M 3 W T F I X L O A D E
0045500 F ( G L O B A L V A R S D W
0045520 I M K E Y L S T D W I M W A I
0045540 T L C A S E F L G N O L I N
0045560 K M E S S ) ( L I N K F N S
0045600 . T ) ( \r N O L I N K F N S
0045620 W T F I X ) C L I S P T R A
0045640 N ( G L O B A L V A R S R E
0045660 C O R D S T A T S C L I S P T
0045700 R A N F L G C L I S P A R R A
0045720 Y # C L I S P A R R A Y ) I
0045740 . S . O P R ( \r G L O B A L V
0045760 A R S I . S . O P R S L S T
0046000 C L I S P F O R W O R D S P L S
0046020 T I . S . O P R L S T F I L
0046040 E P K G F L G D F N F L G ) )
0046060 ( N I L S P L I T 8 9 ( G
0046100 L O B A L V A R S \r S K O R L
0046120 S T 3 ) ) ( N I L D W I M L
0046140 O A D F N S ? ( G L O B A L V
0046160 A R S D W I M L O A D F N S F
0046200 L G ) ) ( N I L C L I S P E
0046220 R R O R ( G L O B A L V A R S
0046240 D W I M E S S G A G ) ) ( \r
0046260 N I L C L I S P % ( G L O
0046300 B A L V A R S C L I S P T R A
0046320 N F L G C L I S P A R R A Y
0046340 # C L I S P A R R A Y ) ) ) (
0046360 D E C L A R E : D O N T E V A
0046400 L @ L O A D D O E V A L @ C O
0046420 M P I L E \r D O N T C O P Y
0046440 C O M P I L E R V A R S ( A D
0046460 D V A R S ( N L A M A U S E
0046500 D F R E E C L I S P % N E
0046520 W Q U O T E ) ( N L A M L )
0046540 ( L A M A F I X A T O M 2 ) )
0046560 ) ) ) \r ( R P A Q Q D W I M O
0046600 D E L S T ( ( C C A U T I O
0046620 U S ( A P P R O V E F L G .
0046640 T ) ) ( T T R U S T I N G
0046660 ( A P P R O V E F L G ) ) ) )
0046700 \r ( R P A Q Q D W I M W A I T
0046720 1 0 ) \r ( R P A Q Q L C A S
0046740 E F L G T ) \r ( S A V E D E F
0046760 ( Q U O T E Q U O T E ) ) \r
0047000 ( M O V D ( Q U O T E N E W
0047020 Q U O T E ) ( Q U O T E Q U
0047040 O T E ) ) \r ( A P P E N D T O V
0047060 A R D W I M U S E R F O R M S
0047100 ( D W I M L O A D F N S ? ) )
0047120 \r ( R P A Q Q D W I M L O A D
0047140 F N S F L G T ) \r ( R P A Q Q
0047160 P R I N T O U T C O M S ( (
0047200 F N S P R I N T C O M S T R A
0047220 N P R I N T O U T T R A N )
0047240 ( B L O C K S ( N I L P R I
0047260 N T C O M S T R A N P R I N T
0047300 O U T T R A N ( \r L O C A L V
0047320 A R S . T ) ( G L O B A L
0047340 V A R S C O M M E N T F L G
0047360 L C A S E F L G P R I N T O U
0047400 T M A C R O S ) ) ) ( A D D V
0047420 A R S ( P R I N T O U T M A C
0047440 R O S ) ) ( V A R S \r P R I
0047460 N T O U T T O K E N S ) ( P R
0047500 O P C L I S P W O R D P R I
0047520 N T O U T p r i n t o u t )
0047540 ( * U S E D I N T R A N S
0047560 L A T I O N S ) ( F N S F L
0047600 U S H R I G H T P R I N T P A
0047620 R A \r P R I N T P A R A 1 ) )
0047640 ) \r ( A D D T O V A R P R I N
0047660 T O U T M A C R O S ) \r ( R P A
0047700 Q Q P R I N T O U T T O K E N
0047720 S ( . R E S E T . T A B #
0047740 , , , , , , . P 2 . P
0047760 P F . P P V . P P F T L .
0050000 P P V T L . T A B 0 . F R
0050020 . F R 2 . C E N T E R \r . C
0050040 E N T E R 2 . P A R A . P A
0050060 R A 2 . P A G E . F O N T
0050100 . S U P . S U B . B A S E
0050120 . S P . S K I P . N ) ) \r (
0050140 P U T P R O P S P R I N T O U
0050160 T C L I S P W O R D ( P R I
0050200 N T O U T T R A N . p r i n
0050220 t o u t ) ) \r ( P U T P R O P S
0050240 p r i n t o u t C L I S P W
0050260 O R D ( P R I N T O U T T R A
0050300 N . p r i n t o u t ) ) \r (
0050320 P U T P R O P S D W I M C O
0050340 P Y R I G H T ( " X e r o x
0050360 C o r p o r a t i o n " 1 9 8
0050400 2 1 9 8 3 1 9 8 4 ) ) \r N I
0050420 L \r
0050422