$ od -c -N 50000 [eris]<LispCore>SOURCES>LLNEW.DCOM!12
0000000 ( F I L E C R E A T E D " 8
0000020 - S e p - 8 6 1 4 : 4 7 : 0 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 > L L N E W .
0000120 ; 1 1 ) \r " 2 9 - A u g - 8 6
0000140 2 2 : 2 1 : 5 6 " r e c o m
0000160 p i l e d c h a n g e s : E
0000200 Q L i n " X e r o x L i s
0000220 p 2 9 - A u g - 8 6 . . . "
0000240 d a t e d " 2 9 - A u g - 8
0000260 6 2 2 : 5 5 : 0 3 " ) \r ( F I
0000300 L E C R E A T E D " 8 - S e
0000320 p - 8 6 1 4 : 4 0 : 0 1 " {
0000340 E R I S } < L I S P C O R E > S
0000360 O U R C E S > L L N E W . ; 1 1
0000400 5 5 6 4 0 c h a n g e s t
0000420 o : ( F N S E Q L ) ( V A
0000440 R S \r L L N E W C O M S ) p
0000460 r e v i o u s d a t e : " 3
0000500 1 - A u g - 8 6 1 6 : 3 8 : 1
0000520 8 " { E R I S } < L I S P C O
0000540 R E > S O U R C E S > L L N E W
0000560 . ; 1 0 ) \r \ A D D B A S E D
0000600 1 \r ( P 3 N L P 2 N H
0000620 P 1 X L P 0 X H I
0000640 1 D I 0 X ) \0 214 004 \0
0000660 \0 002 @ 322 @ 323 021 " 003 A 004 d l 002 360 231
0000700 277 A 310 \0 272 A 310 001 260 026 d k 360 262 , 277
0000720 j A 361 243 j 272 A 205 n 377 377 272 A 323 273 I
0000740 d n 377 377 K 331 361 262 < 277 H k 324 270 I n
0000760 377 377 K 331 331 k 331 260 . l 003 360 227 A \t \0
0001000 \0 b 002 260 267 A d 004 ` \0 \0 360 233 o \0 \0
0001020 \0 i \v \0 \0 b 002 260 243 l \n i \v \0 \0 b
0001040 002 260 231 K 324 271 J n 177 377 361 231 H n 377 377
0001060 J 331 331 k 331 202 H J 324 X I 321 020 \0 ( 1
0001100 5 4 Q \ L I S P E R R O R 1
0001120 4 2 Q \ L I S P E R R O R 1
0001140 1 6 Q \ F I X P . F R O M . F
0001160 L O A T P ) \r ( 1 3 0 Q 004 003 B
0001200 I G N U M T Y P E # ) \r ( 1 3
0001220 6 Q " A R G N O T F I X P
0001240 " ) \r \ G E T B A S E D 1 \r (
0001260 L ( 1 D 0 X ) ) \0 \a \0
0001300 \0 \0 002 @ A 320 310 \0 020 \0 N I L \r N I
0001320 L \r ( ) \r \ P U T B A S E D 1
0001340 \r ( I 2 V I 1 D I
0001360 0 X ) \0 035 002 \0 \0 003 @ A 320 B d
0001400 005 001 227 277 j B 361 241 B 203 B \t \0 \0 021 002
0001420 001 H I 315 \0 I 020 \0 ( 2 2 Q \ I L
0001440 L E G A L . A R G ) \r N I L \r (
0001460 ) \r \ P U T B A S E . U F N D
0001500 1 \r ( I 2 D I 1 V I
0001520 0 X ) \0 035 002 \0 \0 003 @ B 320 A
0001540 d 005 001 227 277 j A 361 241 A 203 A \t \0 \0 021
0001560 002 001 H I 315 \0 I 020 \0 ( 2 2 Q \ I
0001600 L L E G A L . A R G ) \r N I L \r
0001620 ( ) \r \ P U T B A S E P T R . U
0001640 F N D 1 \r ( I 2 D I 1
0001660 V I 0 X ) \0 021 \0 \0 \0 003
0001700 @ B 320 A 322 315 \0 @ B 320 A 323 315 001 A 020
0001720 \0 N I L \r N I L \r ( ) \r \ P U T
0001740 B I T S . U F N D 1 \r ( I 2
0001760 N . F D I 1 V I 0
0002000 X ) \0 P 005 \0 \0 003 A d 005 001 227 277 j
0002020 A 361 241 A 203 A \t \0 \0 B l 017 345 k 330 B
0002040 l 377 345 342 342 342 342 021 # 004 l 020 J I 330 331
0002060 \ k I \n \0 \0 k 331 [ @ B 343 320 b \0 d
0002100 310 \0 K L \n \0 \0 n 377 377 346 345 H K 345 L
0002120 \n \0 \0 344 315 \0 H 020 \0 ( 1 1 1 Q L
0002140 L S H 7 5 Q L L S H 5 4 Q
0002160 L L S H 1 7 Q \ I L L E G
0002200 A L . A R G ) \r N I L \r ( ) \r \
0002220 G E T B A S E B Y T E D 1 \r (
0002240 L ( 1 N 0 P T R ) ) \0
0002260 031 \0 \0 \0 002 A k 345 j 360 227 @ A 342 320 310
0002300 \0 343 020 @ A 342 320 310 \0 l 377 345 020 \0 N I
0002320 L \r N I L \r ( ) \r \ P U T B A S
0002340 E B Y T E D 1 \r ( I 2 B Y
0002360 T E I 1 D I S P I 0
0002400 P T R ) \0 I 001 \0 \0 003 B d 005 001 235
0002420 277 j B 361 247 n 001 \0 B 361 221 B 203 B \t \0
0002440 \0 b 004 @ A 006 \0 \0 b 002 342 320 A k 345 j
0002460 360 262 024 @ A 342 320 310 \0 021 001 \0 B 341 H l
0002500 377 345 330 022 211 @ A 342 320 310 \0 343 341 B 330 315
0002520 \0 B 020 \0 ( 2 5 Q \ I L L E G A
0002540 L . A R G ) \r ( 3 4 Q S M A L
0002560 L P ) \r ( ) \r \ G E T B A S E P
0002600 T R D 1 \r ( I 1 D I 0
0002620 X ) \0 020 \0 \0 \0 002 @ A 320 310 \0 l
0002640 377 345 @ A 320 310 001 321 020 \0 N I L \r N I
0002660 L \r ( ) \r \ P U T B A S E P T R
0002700 D 1 \r ( I 2 V I 1 D
0002720 I 0 X ) \0 021 \0 \0 \0 003 @ A
0002740 320 B 322 315 \0 @ A 320 B 323 315 001 B 020 \0 N
0002760 I L \r N I L \r ( ) \r \ H I L O C
0003000 D 1 \r ( I 0 X ) \0 004 \0 \0
0003020 \0 001 @ 322 020 \0 N I L \r N I L \r ( )
0003040 \r \ L O L O C D 1 \r ( I 0
0003060 X ) \0 004 \0 \0 \0 001 @ 323 020 \0 N I L
0003100 \r N I L \r ( ) \r \ V A G 2 D 1
0003120 \r ( I 1 L I 0 H ) \0
0003140 ) \0 \0 \0 002 @ d 005 001 235 277 j @ 361 247 n
0003160 001 \0 @ 361 221 @ 203 @ \t \0 \0 A d 005 001 227
0003200 277 j A 361 241 A 203 A \t \0 \0 321 020 \0 ( 4
0003220 5 Q \ I L L E G A L . A R G
0003240 2 5 Q \ I L L E G A L . A R G
0003260 ) \r N I L \r ( ) \r E Q D 1 \r (
0003300 L ( 1 Y 0 X ) ) \0 005 \0
0003320 \0 \0 002 @ A 360 020 \0 N I L \r N I L \r
0003340 ( ) \r E Q L D 1 \r ( L ( 1
0003360 Y 0 X ) ) \0 x 001 \0 \0 002 @ A
0003400 360 265 s @ 021 001 \0 H d 3 233 277 A 3
0003420 264 d @ A 331 j 360 020 004 l 003 360 234 A 004 l
0003440 003 360 264 R @ A \n \0 \0 020 H d 004 ` \0 \0
0003460 360 262 277 A 004 ` \0 \0 360 264 : @ \t \0 \0
0003500 A \t \0 \0 : 264 / @ \t \0 \0 A \t \0 \0 :
0003520 020 004 ` \0 \0 360 264 036 A 004 ` \0 \0 360 264 026
0003540 @ \t \0 \0 A \t \0 \0 : 264 \v @ \t \0 \0 A
0003560 \t \0 \0 : 020 \0 ( 1 6 4 Q C O M P
0003600 L E X - I M A G P A R T 1 6 0
0003620 Q C O M P L E X - I M A G P A
0003640 R T 1 5 1 Q C O M P L E X -
0003660 R E A L P A R T 1 4 5 Q C O
0003700 M P L E X - R E A L P A R T 1
0003720 2 0 Q R A T I O - D E N O M I
0003740 N A T O R 1 1 4 Q R A T I O
0003760 - D E N O M I N A T O R 1 0 5
0004000 Q R A T I O - N U M E R A T O
0004020 R 1 0 1 Q R A T I O - N U M
0004040 E R A T O R 5 2 Q F E Q P )
0004060 \r ( 1 3 6 Q 004 003 C O M P L E X
0004100 T Y P E # 1 2 6 Q 004 003 C O M
0004120 P L E X T Y P E # 7 2 Q 004 003
0004140 R A T I O T Y P E # 6 1 Q 004
0004160 003 R A T I O T Y P E # ) \r ( ) \r
0004200 \ R P L P T R D 1 \r ( P 0
0004220 \ I N T E R R U P T A B L E I
0004240 2 V A L I 1 O F F S E
0004260 T I 0 O B J ) \0 034 001 \0 \0
0004300 003 021 020 \0 B 025 \0 @ A 320 b \0 311 \0 025 001
0004320 @ k B 322 307 @ B 323 315 001 B 020 \0 N I L
0004340 \r N I L \r ( ) \r \ R P L P T R .
0004360 U F N D 1 \r ( P 0 \ I N T
0004400 E R R U P T A B L E I 2 O
0004420 F F S E T I 1 V A L I
0004440 0 O B J ) \0 034 001 \0 \0 003 021 020 \0
0004460 A 025 \0 @ B 320 b \0 311 \0 025 001 @ k A 322
0004500 307 @ A 323 315 001 A 020 \0 N I L \r N I L
0004520 \r ( ) \r L O C D 1 \r ( I 0
0004540 X ) \0 \a \0 \0 \0 001 @ 322 @ 323 032 020 \0
0004560 N I L \r N I L \r ( ) \r V A G D
0004600 1 \r ( I 0 L O C ) \0 034 \0 \0
0004620 \0 001 @ d 003 235 001 @ 002 3 265 \a @ 002 001
0004640 j 330 321 020 \t \0 \0 @ \t \0 \0 321 020 \0 ( 3
0004660 0 Q \ L O N U M 2 4 Q \ H
0004700 I N U M ) \r N I L \r ( ) \r \ N E
0004720 W 4 P A G E D 1 \r ( I 0 P
0004740 T R ) \0 033 \0 \0 \0 001 @ \t \0 \0 n 001
0004760 \0 320 \t \0 \0 n 001 \0 320 \t \0 \0 n 001 \0 320
0005000 \t \0 \0 020 \0 ( 3 0 Q \ N E W P A
0005020 G E 2 1 Q \ N E W P A G E
0005040 1 2 Q \ N E W P A G E 3 \
0005060 N E W P A G E ) \r N I L \r ( ) \r
0005100 C O N S D 1 \r ( I 1 Y I
0005120 0 X ) \0 005 \0 \0 \0 002 @ A 032 020
0005140 \0 N I L \r N I L \r ( ) \r \ C O N
0005160 S . U F N D 1 \r ( P 6 C N
0005200 S . P A G E P 0 \ I N T E
0005220 R R U P T A B L E I 1 Y
0005240 I 0 X ) 001 016 \r \0 \0 002 021 ` 005
0005260 @ 025 \0 A 025 \0 ` \0 \0 l \n 320 Z 310 001 k
0005300 320 323 271 J I 315 001 277 I j 360 230 J d 310 \0
0005320 k 330 315 \0 277 ` \0 \0 262 032 ` \0 \0 k 361 264
0005340 \v ` \0 \0 k 331 027 \0 \0 206 027 \0 \0 277 \b \0
0005360 \0 277 021 020 006 A 004 l 005 360 262 Q A 322 A 323
0005400 n 377 \0 345 321 ^ 312 \0 \a j 361 262 @ N @ A
0005420 323 l 377 345 342 l 200 330 021 003 \t O 016 d 312 \0
0005440 207 320 273 O 016 K 312 \0 \a 317 \0 207 277 O 016 d
0005460 312 \0 \a m 377 324 317 \0 \a 277 K O 020 316 \0 277
0005500 K O 022 317 \0 \a 277 K 022 260 k \b \0 \0 ^ @
0005520 A 243 l 200 260 / N d 312 \0 207 320 274 N L 312
0005540 \0 \a 317 \0 207 277 N d 312 \0 \a m 377 324 317 \0
0005560 \a 277 L A 316 \0 277 L j 317 \0 \a 277 L 323 l
0005600 377 345 342 021 003 \f O 024 d 312 \0 207 320 275 O 024
0005620 M 312 \0 \a 317 \0 207 277 O 024 d 312 \0 \a m 377
0005640 324 317 \0 \a 277 M O 026 316 \0 277 M O 030 317 \0
0005660 \a 277 M 022 ^ d 025 001 N 020 \0 ( 2 4 0 Q
0005700 \ N E X T C O N S P A G E 1
0005720 0 3 Q \ D O R E C L A I M ) \r
0005740 ( 7 7 Q \ R E C L A I M . C O
0005760 U N T D O W N 7 3 Q \ R E C
0006000 L A I M . C O U N T D O W N 6
0006020 6 Q \ R E C L A I M . C O U N
0006040 T D O W N 5 7 Q \ R E C L A
0006060 I M . C O U N T D O W N 5 2 Q
0006100 \ R E C L A I M . C O U N T D
0006120 O W N 1 3 Q \ L I S T P D T
0006140 D ) \r ( ) \r C A R D 1 \r ( I
0006160 0 X ) \0 004 \0 \0 \0 001 @ 001 020 \0 N
0006200 I L \r N I L \r ( ) \r \ C A R . U
0006220 F N D 1 \r ( N A M E C A R
0006240 I 0 X ) \0 S \0 \0 \0 001 @ d 003
0006260 237 312 \0 \a j 360 225 @ 311 \0 311 \0 020 @ 311 \0
0006300 020 241 h 020 ` \0 \0 d i 360 227 277 @ l 004 \n
0006320 \0 \0 020 d 226 d g \0 \0 360 262 025 277 @ d i
0006340 360 221 i 020 004 l 004 360 263 332 o \0 \0 \0 020 277
0006360 @ d i 360 263 356 005 \a 263 324 o \0 \0 \0 020 \0
0006400 ( 4 4 Q \ L I S P E R R O R )
0006420 \r ( 5 3 Q C D R 3 1 Q C A
0006440 R / C D R E R R ) \r ( 1 2 0 Q
0006460 " { c a r o f n o n - l i
0006500 s t } " 1 0 0 Q " { c a r
0006520 o f n o n - l i s t } " ) \r C
0006540 D R D 1 \r ( I 0 X ) \0 004
0006560 \0 \0 \0 001 @ 002 020 \0 N I L \r N I L \r
0006600 ( ) \r \ C D R . U F N D 1 \r (
0006620 N A M E C D R P 0 Q I
0006640 0 X ) \0 v 001 \0 \0 001 @ d 003 262
0006660 > 312 \0 \a 021 001 \0 H d l 200 360 221 h 020 l
0006700 200 361 237 @ 322 @ 323 n 377 \0 345 321 H l 200 331
0006720 340 320 020 H j 360 226 @ 311 \0 \t \0 \0 020 @ 322
0006740 @ 323 n 377 \0 345 321 H 340 320 311 \0 020 264 321 `
0006760 \0 \0 d i 360 245 d g \0 \0 360 227 277 @ l 004
0007000 \n \0 \0 020 263 023 @ 004 l 004 360 225 @ 301 002 311
0007020 \0 020 o \0 \0 \0 020 @ 005 \a 263 343 o \0 \0 \0
0007040 020 \0 ( 1 2 6 Q \ L I S P E R R
0007060 O R 6 0 Q \ C D R . U F N )
0007100 \r ( 1 1 5 Q C D R 1 0 5 Q
0007120 C A R / C D R E R R ) \r ( 1 6
0007140 3 Q " { c d r o f n o n -
0007160 l i s t } " 1 5 1 Q " { c d
0007200 r o f n o n - l i s t } " )
0007220 \r R P L A C A D 1 \r ( I 1
0007240 Y I 0 X ) \0 005 \0 \0 \0 002 @
0007260 A 030 020 \0 N I L \r N I L \r ( ) \r \
0007300 R P L A C A . U F N D 1 \r ( P
0007320 2 \ I N T E R R U P T A B L
0007340 E P 0 \ I N T E R R U P T
0007360 A B L E I 1 Y I 0 X
0007400 ) \0 B 003 \0 \0 002 @ 003 263 025 @ 265 \f A
0007420 d 262 7 l \a \n \0 \0 020 l 004 \n \0 \0 020 021
0007440 001 @ 001 025 001 A 025 \0 @ 312 \0 \a j 360 223
0007460 @ 311 \0 200 @ 271 021 020 002 I k A 322 l 377 345
0007500 307 277 I A 323 315 001 @ 020 \0 ( 2 5 Q \
0007520 L I S P E R R O R 1 7 Q \ L
0007540 I S P E R R O R ) \r N I L \r ( )
0007560 \r R P L A C D D 1 \r ( I 1
0007600 Y I 0 X ) \0 005 \0 \0 \0 002 @
0007620 A 031 020 \0 N I L \r N I L \r ( ) \r \
0007640 R P L A C D . U F N D 1 \r ( P
0007660 5 R P . P A G E P 4 R
0007700 P . Q P 0 \ I N T E R R U
0007720 P T A B L E I 1 Y I 0
0007740 X ) 001 2 \t \0 \0 002 @ 003 263 027 @ 265
0007760 016 A d 242 261 001 & l \a \n \0 \0 020 l 004 \n
0010000 \0 \0 020 021 @ 003 @ 002 025 001 A 025 \0 @ 312 \0
0010020 \a 021 021 005 L d j 360 262 034 277 @ 311 \0 ] 322
0010040 M 323 n 377 \0 345 321 M 312 \0 \a 340 320 ] A 316
0010060 \0 261 \0 350 l 177 361 263 025 @ 322 @ 323 n 377 \0
0010100 345 321 L 340 320 ] A 316 \0 261 \0 320 A 245 @ l
0010120 200 261 \0 305 @ 322 @ 323 n 377 \0 345 321 ] A 322
0010140 A 323 n 377 \0 345 321 360 234 @ A 323 l 377 345 342
0010160 l 200 330 261 \0 243 M 312 \0 \a j 361 262 2 @ M
0010200 d 312 \0 207 320 271 M I 312 \0 \a 317 \0 207 277 M
0010220 d 312 \0 \a m 377 324 317 \0 \a 277 I A 316 \0 277
0010240 I j 317 \0 \a 277 I 323 l 377 345 342 260 j @ \b
0010260 \0 \0 ] @ 311 \0 M d 312 \0 207 320 272 M J 312
0010300 \0 \a 317 \0 207 277 M d 312 \0 \a m 377 324 317 \0
0010320 \a 277 J A 316 \0 277 J j 317 \0 \a 277 J 323 l
0010340 377 345 342 021 003 \b N d 312 \0 207 320 273 N K 312
0010360 \0 \a 317 \0 207 277 N d 312 \0 \a m 377 324 317 \0
0010400 \a 277 K O 016 316 \0 277 K O 020 317 \0 \a 277 K
0010420 022 316 \0 277 @ j 317 \0 \a @ 020 \0 ( 3 0 7
0010440 Q \ N E X T C O N S P A G E
0010460 2 7 Q \ L I S P E R R O R 2
0010500 1 Q \ L I S P E R R O R ) \r N
0010520 I L \r ( ) \r D O C O L L E C T
0010540 D 1 \r ( L ( 1 L S T 0 I
0010560 T E M ) ) \0 026 \0 \0 \0 002 A 003 265 \n
0010600 @ h 032 d d 031 277 020 d @ A 002 032 031 277 002
0010620 020 \0 N I L \r N I L \r ( ) \r \ R P
0010640 L C O N S D 1 \r ( P 5 C E
0010660 L L P 4 C P A G E P 0
0010700 \ I N T E R R U P T A B L E
0010720 I 1 I T E M I 0 L S T
0010740 ) \0 271 006 \0 \0 002 @ 003 242 261 \0 253 021 `
0010760 005 @ 322 @ 323 n 377 \0 345 321 h 275 \ 312 \0 \a
0011000 j 360 222 261 \0 217 @ 312 \0 \a l 177 361 264 003 202
0011020 261 \0 203 A 025 \0 277 @ 002 025 001 277 L d 312 \0
0011040 207 320 271 L I 312 \0 \a 317 \0 207 277 L d 312 \0
0011060 \a m 377 324 317 \0 \a 277 I A 316 \0 277 I l 200
0011100 317 \0 \a 277 I 275 ` \0 \0 l \n 320 [ 310 001 k
0011120 320 323 272 K J 315 001 277 J j 360 230 K d 310 \0
0011140 k 330 315 \0 277 ` \0 \0 262 032 ` \0 \0 k 361 264
0011160 \v ` \0 \0 k 331 027 \0 \0 206 027 \0 \0 277 \b \0
0011200 \0 277 @ M 323 l 377 345 342 l 200 330 317 \0 \a 277
0011220 M 200 h 022 265 \v A h 032 b 002 @ A 031 A 020
0011240 \0 ( 2 3 0 Q \ D O R E C L A I
0011260 M ) \r ( 2 2 4 Q \ R E C L A I
0011300 M . C O U N T D O W N 2 2 0 Q
0011320 \ R E C L A I M . C O U N T D
0011340 O W N 2 1 3 Q \ R E C L A I
0011360 M . C O U N T D O W N 2 0 4 Q
0011400 \ R E C L A I M . C O U N T D
0011420 O W N 1 7 7 Q \ R E C L A I
0011440 M . C O U N T D O W N 1 4 0 Q
0011460 \ L I S T P D T D ) \r ( ) \r E
0011500 N D C O L L E C T D 1 \r ( L
0011520 ( 1 Y 0 X ) ) \0 \f \0 \0 \0
0011540 002 @ 265 004 A 020 002 @ A 031 277 020 \0 N I L
0011560 \r N I L \r ( ) \r \ I N I T C O N
0011600 S P A G E D 1 \r ( P 1 C E
0011620 L L P 0 J I 1 L I N
0011640 K I 0 B A S E ) \0 9 002 \0
0011660 \0 002 @ l 376 317 \0 207 277 l 376 021 021 001 H j
0011700 360 263 026 @ H 320 Y h 316 \0 277 I H l 002 331
0011720 X 317 \0 \a 277 260 351 @ l 177 317 \0 \a 277 @ A
0011740 322 341 A 323 343 330 315 001 @ 020 \0 N I L \r N
0011760 I L \r ( ) \r \ N E X T C O N S P
0012000 A G E D 1 \r ( P 1 P G P
0012020 0 N ) \0 X 003 \0 \0 \0 ` \0 \0 310
0012040 \r 021 ! 002 H d j 360 262 % 277 ` \0 \0 310 016
0012060 \t \0 \0 Y d n 001 \0 320 \t \0 \0 \n \0 \0 277
0012100 ` \0 \0 I 322 341 I 323 343 330 315 \r 210 Z 343 J
0012120 l 377 345 341 321 Y 277 I 312 \0 \a k 361 221 I 020
0012140 ` \0 \0 I 310 001 X 315 \r 277 I n 377 377 315 001
0012160 277 260 263 \0 ( 4 2 Q \ I N I T C O
0012200 N S P A G E 3 7 Q \ I N I T
0012220 C O N S P A G E 2 6 Q \ A L
0012240 L O C M D S P A G E ) \r ( 1 0 6
0012260 Q \ L I S T P D T D 4 6 Q
0012300 \ L I S T P D T D 2 1 Q \ L
0012320 I S T P D T D 2 \ L I S T P
0012340 D T D ) \r ( ) \r \ R E S T L I S
0012360 T . U F N D 1 \r ( L ( 2 F
0012400 I R S T N 1 L A S T N 0
0012420 T A I L ) ) \0 I 006 \0 \0 003 @ 223 \b
0012440 \0 \0 277 f 021 Q 005 k H 321 312 001 360 j 360 224
0012460 H l 002 331 204 k H 321 310 \b 271 k I 321 310 001
0012500 272 k J l 002 331 321 273 B A 275 274 L M 363 263
0012520 024 K M 340 320 311 \0 @ 032 b \0 277 M m 377 324
0012540 275 260 353 @ 020 \0 ( 4 \ G C . H A N
0012560 D L E O V E R F L O W ) \r N I L
0012600 \r ( ) \r \ F I N D K E Y . U F N
0012620 D 1 \r ( L ( 1 A R G N 0
0012640 K E Y ) ) \0 N 006 \0 \0 002 f 021 !
0012660 002 k H 321 312 001 360 j 360 224 H l 002 331 204 k
0012700 H 321 310 \b 271 k I 321 310 001 272 I J 331 342 k
0012720 331 A k J A k 331 340 324 321 021 003 005 L K 363
0012740 263 030 M 311 \0 @ 360 223 L k 330 020 L l 002 324
0012760 274 M l 004 320 275 260 347 h 020 \0 N I L \r N
0013000 I L \r ( ) \r C H E C K C O N S P
0013020 A G E S D 1 \r ( P 1 C P A
0013040 G E ) \0 = 003 \0 \0 \0 021 020 \0 ` \0 \0
0013060 310 \r X 343 H l 377 345 341 321 022 021 021 002 I 265
0013100 \r 023 g \0 \0 g \0 \0 \n \0 \0 020 004 l 005 360
0013120 246 I \t \0 \0 277 260 350 I 310 001 Z 343 J l 377
0013140 345 341 321 Y 260 333 \0 ( 5 2 Q H E L P
0013160 4 0 Q \ M A P M D S ) \r ( 3
0013200 5 Q \ C H E C K C O N S P A G
0013220 E 3 2 Q L I S T P 5 \ L
0013240 I S T P D T D ) \r ( ) \r \ C H E
0013260 C K C O N S P A G E D 1 \r ( P
0013300 3 C N T P 2 N X T P
0013320 1 P T R I 0 P N ) \0
0013340 Y 004 \0 \0 001 021 020 \0 @ X 343 H l 377 345 341
0013360 321 022 021 ! 003 I 312 \0 \a 273 I 312 \0 207 Z k
0013400 345 j 360 247 o \0 \0 \0 \t \0 \0 277 K j 361 262
0013420 ! J j 360 253 I J 320 312 \0 \a Z k 345 j 360
0013440 247 o \0 \0 \0 \t \0 \0 277 K m 377 324 [ 260 337
0013460 J j 360 246 o \0 \0 \0 \t \0 \0 h 020 \0 ( 1
0013500 2 5 Q R A I D 1 0 2 Q R A
0013520 I D 4 5 Q R A I D ) \r N I L
0013540 \r ( 1 2 2 Q ( E Q N X T
0013560 0 ) 7 7 Q ( A N D ( N E Q
0013600 N X T 0 ) ( E V E N P (
0013620 S E T Q N X T ( f e t c h
0013640 ( L I S T P C D R C O D E )
0013660 o f ( \ A D D B A S E P T R
0013700 N X T ) ) ) W O R D S P E R
0013720 C E L L ) ) \r 4 2 Q ( E V E
0013740 N P ( S E T Q N X T ( f e
0013760 t c h ( C O N S P A G E N E
0014000 X T C E L L ) o f P T R ) )
0014020 W O R D S P E R C E L L ) ) \r
0014040 ( P R E T T Y C O M P R I N T
0014060 L L N E W C O M S ) \r ( R P A Q
0014100 Q L L N E W C O M S ( ( C O
0014120 M S ( * l o w l e v e l
0014140 m e m o r y a c c e s s ) (
0014160 F N S \ A D D B A S E \ G E
0014200 T B A S E \ P U T B A S E \
0014220 P U T B A S E . U F N \r \ P U
0014240 T B A S E P T R . U F N \ P U
0014260 T B I T S . U F N \ G E T B A
0014300 S E B Y T E \ P U T B A S E B
0014320 Y T E \ G E T B A S E P T R
0014340 \ P U T B A S E P T R \ H I L
0014360 O C \ L O L O C \ V A G 2
0014400 E Q \r E Q L \ R P L P T R
0014420 \ R P L P T R . U F N ) ( P R
0014440 O P B Y T E M A C R O E Q L
0014460 ) ( F N S L O C V A G )
0014500 ( F N S C R E A T E P A G E S
0014520 \ N E W 4 P A G E ) ( D E C
0014540 L A R E : \r D O N T C O P Y
0014560 ( E X P O R T ( R E C O R D S
0014600 P O I N T E R W O R D ) (
0014620 M A C R O S P T R G T P . C
0014640 O E R C E . T O . S M A L L P O
0014660 S P . . C O E R C E . T O . B
0014700 Y T E . ) ) ( \r A D D V A R S
0014720 ( I N E W C O M S ( F N S
0014740 \ G E T B A S E B Y T E \ P U
0014760 T B A S E B Y T E C R E A T E
0015000 P A G E S \ N E W 4 P A G E )
0015020 ) ( R D C O M S ( F N S \
0015040 C A R . U F N \r \ C D R . U F
0015060 N ) ( F N S \ C O P Y \ U
0015100 N C O P Y ) ( F N S \ G E T
0015120 B A S E B Y T E \ P U T B A S
0015140 E B Y T E ) ) ( I N I T P T R
0015160 S ( \ L I S T P D T D ) ) (
0015200 M K I . S U B F N S ( \r \ A D
0015220 D B A S E . I . A D D B A S
0015240 E ) ( \ G E T B A S E . I
0015260 . G E T B A S E ) ( \ P U T B
0015300 A S E . I . P U T B A S E )
0015320 ( \ G E T B A S E P T R .
0015340 I . G E T B A S E P T R ) ( \r
0015360 \ P U T B A S E P T R . I .
0015400 P U T B A S E P T R ) ( \ H I
0015420 L O C . I . H I L O C ) (
0015440 \ L O L O C . I . L O L O C
0015460 ) ( \ V A G 2 . I . V A G
0015500 2 ) ( \r . C O E R C E . T O .
0015520 S M A L L P O S P . . P R O
0015540 G 1 ) ( . C O E R C E . T O .
0015560 B Y T E . . P R O G 1 ) (
0015600 L O C K E D P A G E P . M K
0015620 I . L O C K E D P A G E P ) (
0015640 \ R P L P T R . \r I . P U T
0015660 B A S E P T R ) ( C O N S .
0015700 I . \ C O N S . U F N ) ) (
0015720 R D . S U B F N S ( \ A D D B
0015740 A S E . V A D D B A S E )
0015760 ( \ G E T B A S E . V G E T
0016000 B A S E ) ( \ P U T B A S E \r
0016020 . V P U T B A S E ) ( \ G
0016040 E T B A S E P T R . V G E T
0016060 B A S E P T R ) ( \ P U T B A
0016100 S E P T R . V P U T B A S E
0016120 P T R ) ( \ H I L O C . V
0016140 H I L O C ) ( \ L O L O C .
0016160 \r V L O L O C ) ( \ V A G 2
0016200 . V V A G 2 ) ( . C O E R
0016220 C E . T O . S M A L L P O S P .
0016240 . P R O G 1 ) ( . C O E R
0016260 C E . T O . B Y T E . . P R
0016300 O G 1 ) ( C O N S . V C O
0016320 N S ) ( \r C R E A T E C E L L
0016340 . V C R E A T E C E L L )
0016360 ( C O P Y S T R I N G . V C
0016400 O P Y S T R I N G ) ( P T R G
0016420 T P . I G R E A T E R P )
0016440 ( \ R P L P T R . V P U T B
0016460 A S E P T R ) ( C A R \r .
0016500 V \ C A R . U F N ) ( C D R
0016520 . V \ C D R . U F N ) ( C A
0016540 R / C D R E R R . T ) ) )
0016560 E V A L @ C O M P I L E ( A D
0016600 D V A R S ( D O N T C O M P I
0016620 L E F N S C R E A T E P A G E
0016640 S ) ) \r ) ) ( C O M S ( *
0016660 c o n s c e l l s ) ( F N S
0016700 C O N S \ C O N S . U F N
0016720 C A R \ C A R . U F N C D R
0016740 \ C D R . U F N R P L A C A
0016760 \ R P L A C A . U F N R P L
0017000 A C D \r \ R P L A C D . U F N
0017020 D O C O L L E C T \ R P L C
0017040 O N S E N D C O L L E C T \
0017060 I N I T C O N S P A G E \ N E
0017100 X T C O N S P A G E ) ( F N S
0017120 \ R E S T L I S T . U F N \
0017140 F I N D K E Y . U F N \r ) ( I
0017160 N I T V A R S ( C A R / C D R
0017200 E R R ( Q U O T E C D R ) )
0017220 ) ( D E C L A R E : D O N T
0017240 C O P Y ( G L O B A L V A R S
0017260 C A R / C D R E R R ) ( E X
0017300 P O R T ( R E C O R D S \r L
0017320 I S T P C O N S P A G E ) (
0017340 C O N S T A N T S * C O N S
0017360 C O N S T A N T S ) ) ( M A C
0017400 R O S . M A K E C O N S C E L
0017420 L . ) ( * f o r M A K E I
0017440 N I T ) ( A D D V A R S ( \r
0017460 I N E W C O M S ( F N S \ C
0017500 O N S . U F N \ I N I T C O N
0017520 S P A G E \ N E X T C O N S P
0017540 A G E ) ) ( E X P A N D M A C
0017560 R O F N S . M A K E C O N S C
0017600 E L L . ) ) ) ( C O M S ( *
0017620 \r t e s t i n g o u t C O
0017640 N S e s ) ( F N S C H E C K
0017660 C O N S P A G E S \ C H E C K
0017700 C O N S P A G E ) ( D E C L A
0017720 R E : D O N T C O P Y ( M A
0017740 C R O S ! C H E C K ) ) ) )
0017760 ( C O M S ( * \r o t h e r
0020000 r a n d o m s t u f f f o r
0020020 m a k e i n i t ) ( F N S
0020040 M A K E I N I T F I R S T M A
0020060 K E I N I T L A S T \ C O P Y
0020100 \ U N C O P Y ) ( D E C L A
0020120 R E : D O N T C O P Y ( \r E
0020140 X P O R T ( M A C R O S L O
0020160 C A L A L L O C A L ) ) ( A
0020200 D D V A R S ( M K I . S U B F
0020220 N S ( C H E C K . * ) (
0020240 R A I D . H E L P ) ( U N
0020260 I N T E R R U P T A B L Y .
0020300 P R O G N \r ) ( \ S t a t s A
0020320 d d 1 . * ) ( E V Q .
0020340 I . \ C O P Y ) ( C O P Y .
0020360 I . \ C O P Y ) ) ( R D . S
0020400 U B F N S ( C H E C K . *
0020420 ) ( R A I D . H E L P )
0020440 ( \r U N I N T E R R U P T A B L
0020460 Y . P R O G N ) ( \ S t a
0020500 t s A d d 1 . * ) ( E V Q
0020520 . V \ C O P Y ) ( C O P Y
0020540 . V \ C O P Y ) ( 1 S T
0020560 . V \ U N C O P Y ) ) ) ( A
0020600 D D V A R S ( \r I N E W C O M
0020620 S ( F N S M A K E I N I T F
0020640 I R S T \ C O P Y M A K E I
0020660 N I T L A S T ) ) ) E V A L @
0020700 C O M P I L E ( A D D V A R S
0020720 ( D O N T C O M P I L E F N S
0020740 M A K E I N I T F I R S T \r
0020760 \ C O P Y M A K E I N I T L A
0021000 S T \ U N C O P Y ) ) ) ) (
0021020 L O C A L V A R S . T ) ) )
0021040 \r ( P U T P R O P S E Q L B
0021060 Y T E M A C R O C O M P . E Q
0021100 ) \r ( R P A Q ? C A R / C D R
0021120 E R R ( Q U O T E C D R ) )
0021140 \r ( P U T P R O P S L L N E W
0021160 C O P Y R I G H T ( " X e r
0021200 o x C o r p o r a t i o n "
0021220 1 9 8 1 1 9 8 2 1 9 8 3 1
0021240 9 8 4 1 9 8 5 1 9 8 6 ) ) \r
0021260 N I L \r
0021264