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