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