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