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