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