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