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