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