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