$ od -c -N 50000 [eris]<LispCore>SOURCES>LLBASIC.DCOM!44
0000000 ( F I L E C R E A T E D " 2 5
0000020 - J u n - 8 6 1 2 : 4 4 : 5 1
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 B A S I
0000120 C . ; 5 1 ) \r " 2 4 - J u n -
0000140 8 6 1 7 : 1 7 : 5 7 " t c o
0000160 m p l ' d i n " X e r o x
0000200 L i s p 2 4 - J u n - 8 6 .
0000220 . . " d a t e d " 2 4 - J u
0000240 n - 8 6 1 7 : 3 4 : 2 1 " ) \r
0000260 ( F I L E C R E A T E D " 2 5
0000300 - J u n - 8 6 1 2 : 4 3 : 3 9
0000320 " { E R I S } < L I S P C O R
0000340 E > S O U R C E S > L L B A S I
0000360 C . ; 5 1 6 3 4 6 3 c h a n
0000400 g e s t o : ( V A R S \r L
0000420 L B A S I C C O M S ) ( R E C
0000440 O R D S P N A M E C E L L P
0000460 A C K A G E I N D E X ) ( F N
0000500 S I N I T A T O M S \ C R E
0000520 A T E . S Y M B O L ) p r e v
0000540 i o u s d a t e : \r " 2 1 -
0000560 M a y - 8 6 1 5 : 4 6 : 3 2 "
0000600 { E R I S } < L I S P C O R E
0000620 > S O U R C E S > L L B A S I C
0000640 . ; 5 0 ) \r L I S T P D 1 \r (
0000660 I 0 X ) \0 025 \0 \0 \0 001 @ 004 l
0000700 005 360 264 016 @ 323 l 377 345 j 360 h 360 264 003 @
0000720 020 \0 N I L \r N I L \r ( ) \r L I T
0000740 A T O M D 1 \r ( L ( 0 X )
0000760 ) \0 \a \0 \0 \0 001 @ 004 l 004 360 020 \0 N
0001000 I L \r N I L \r ( ) \r F I X P D
0001020 1 \r ( I 0 X ) \0 005 \0 \0 \0 001
0001040 @ 3 020 \0 N I L \r N I L \r ( ) \r
0001060 S T R I N G P D 1 \r ( L ( 0
0001100 X ) ) \0 \n \0 \0 \0 001 @ 004 l \a 360
0001120 264 003 @ 020 \0 N I L \r N I L \r ( ) \r
0001140 S M A L L P D 1 \r ( L ( 0
0001160 X ) ) \0 \t \0 \0 \0 001 @ 004 k 360 264 003
0001200 @ 020 \0 N I L \r N I L \r ( ) \r N L
0001220 I S T P D 1 \r ( L ( 0 X )
0001240 ) \0 006 \0 \0 \0 001 @ 003 h 360 020 \0 N I
0001260 L \r N I L \r ( ) \r A R R A Y P
0001300 D 1 \r ( L ( 0 X ) ) \0 \n \0
0001320 \0 \0 001 @ 004 l 006 360 264 003 @ 020 \0 N I L
0001340 \r N I L \r ( ) \r A T O M D 1 \r
0001360 ( I 0 X ) \0 \r \0 \0 \0 001 @ h
0001400 360 265 \b @ 3 \b 264 003 i 020 \0 N I L \r N
0001420 I L \r ( ) \r F L O A T P D 1 \r
0001440 ( L ( 0 X ) ) \0 \n \0 \0 \0 001
0001460 @ 004 l 003 360 264 003 @ 020 \0 N I L \r N I
0001500 L \r ( ) \r N U M B E R P D 1 \r
0001520 ( I 0 X ) \0 005 \0 \0 \0 001 @ 3
0001540 020 020 \0 N I L \r N I L \r ( ) \r S T
0001560 A C K P D 1 \r ( L ( 0 X )
0001600 ) \0 \n \0 \0 \0 001 @ 004 l \b 360 264 003 @
0001620 020 \0 N I L \r N I L \r ( ) \r G E T
0001640 T O P V A L D 1 \r ( I 0 X
0001660 ) \0 \a \0 \0 \0 001 @ 301 \f 311 \0 020 \0 N
0001700 I L \r N I L \r ( ) \r S E T T O P
0001720 V A L D 1 \r ( I 1 V A L
0001740 I 0 A T M ) \0 % \0 \0 \0 002 @
0001760 265 \f A d 262 026 l 006 \n \0 \0 020 i 360 233 A
0002000 i 360 265 \b A l 006 \n \0 \0 020 @ 301 \f A 024
0002020 \0 A 020 \0 ( 3 2 Q \ L I S P E R
0002040 R O R 1 3 Q \ L I S P E R R
0002060 O R ) \r N I L \r ( ) \r \ S E T G
0002100 L O B A L V A L . U F N D 1 \r
0002120 ( L ( 1 A 0 V ) ) \0 \r
0002140 \0 \0 \0 002 ` \0 \0 A 320 A 320 @ 024 \0 @ 020
0002160 \0 N I L \r ( 2 \ V A L S P A C
0002200 E ) \r ( ) \r \ S E T F V A R . U
0002220 F N D 1 \r ( L ( 1 V C E L
0002240 L 0 V ) ) \0 \a \0 \0 \0 002 A @
0002260 024 \0 @ 020 \0 N I L \r N I L \r ( ) \r
0002300 G E T P R O P L I S T D 1 \r (
0002320 I 0 A T M ) \0 \a \0 \0 \0 001 @
0002340 301 002 311 \0 020 \0 N I L \r N I L \r ( )
0002360 \r \ A T O M C E L L D 1 \r ( P
0002400 0 L O C I 1 N I 0
0002420 X ) \0 = 001 \0 \0 002 A d l \n 360 227
0002440 277 @ 006 \0 \0 323 260 ' l \f 360 226 @ 006 \0 \0
0002460 323 260 034 A d l 002 360 226 277 @ 006 \0 \0 323 214
0002500 l \b 360 225 @ 006 \0 \0 323 202 \b \0 \0 021 001 \0
0002520 A H 321 H 320 020 \0 ( 6 2 Q S H O U
0002540 L D N T ) \r ( 5 5 Q L I T A T
0002560 O M 4 3 Q L I T A T O M 2
0002600 5 Q L I T A T O M 1 2 Q L
0002620 I T A T O M ) \r ( ) \r S E T P R
0002640 O P L I S T D 1 \r ( L ( 1
0002660 L S T 0 A T M ) ) \0 \t \0 \0
0002700 \0 002 @ 301 002 A 024 \0 A 020 \0 N I L \r N
0002720 I L \r ( ) \r \ M K A T O M D 1
0002740 \r ( P 2 7 Q N E W A T O M
0002760 P 2 6 Q \ I N T E R R U P T
0003000 A B L E P 2 5 Q B 2 P
0003020 2 4 Q B 1 P 2 2 Q B 2
0003040 P 2 1 Q B 1 P 1 4 Q C
0003060 H A R # P 1 1 Q R E P R O
0003100 B E P 1 0 Q F I R S T B Y
0003120 T E P 7 F I R S T C H A R
0003140 P 6 P N B A S E P 5
0003160 A T M # P 4 H A S H E N T
0003200 P 3 H A S H P 2 F A
0003220 T C H A R S E E N P I 3 F
0003240 A T P I 2 L E N I 1
0003260 O F F S T I 0 B A S E )
0003300 001 370 030 \0 \0 004 C 264 * A B 330 k 331 A 021
0003320 002 001 I H 363 263 026 @ I 320 310 \0 l 377 361 224
0003340 I 265 \v i 206 I k 324 Y 260 352 h 022 h 360 h
0003360 360 021 201 \n B j 360 230 j 273 l 377 _ 020 277 260
0003400 v C 225 @ A 320 310 \0 202 @ A 302 _ 016 277 B
0003420 k 360 262 3 O 016 d l 377 361 263 - 277 ` \0 \0
0003440 262 % O 016 l 9 361 231 ` \0 \0 O 016 l \n 331
0003460 320 020 l 0 O 016 361 245 O 016 l 0 331 020 ` \0
0003500 \0 O 016 320 020 O 016 l 9 361 255 @ A B C \f
0003520 \0 \0 \ 265 003 202 261 001 f O 016 l 377 345 _ 020
0003540 341 273 A B 330 k 331 A k 330 021 002 \f O 030 O
0003560 026 363 262 _ 023 ` \0 \0 K 320 310 \0 \ j 360 222
0003600 261 001 034 L k 331 ] _ 024 277 l \b O 024 323 321
0003620 O 024 323 320 311 \0 ^ 312 \0 \a B 360 242 261 \0 351
0003640 J N 312 \0 207 j 360 264 020 ` \0 \0 M 320 301 002
0003660 312 \0 j 360 h 360 360 242 261 \0 315 J 262 c B
0003700 k A 021 003 017 O 034 O 032 363 262 5 i 022 261 \0
0003720 261 K d n 017 377 345 340 340 320 323 [ d l 377 345
0003740 341 320 323 C 231 @ O 030 320 310 \0 l 377 345 203 @
0003760 O 030 302 320 323 273 O 030 k 324 _ 030 261 377 s N
0004000 O 034 320 310 \0 @ O 036 320 310 \0 360 242 h 260 277
0004020 O 034 k 324 _ 034 277 O 036 k 324 _ 036 277 260 247
0004040 C 262 2 B k A 021 003 022 O " O 363 263 !
0004060 N O " 302 @ O $ 320 310 \0 360 242 h 260 023 O
0004100 " k 324 _ " 277 O $ k 324 _ $ 277 260 334 i
0004120 022 260 . B k A 021 003 025 O ( O & 363 263 037
0004140 N O ( 302 @ O * 302 360 242 h 260 023 O ( k
0004160 324 _ ( 277 O * k 324 _ * 277 260 336 i 022 225
0004200 ` \0 \0 M 320 020 K O 022 265 \r O 020 K 346 k
0004220 344 l ? 345 _ 022 320 323 273 261 376 334 021 020 026 @
0004240 A B C J \r 005 \0 \0 021 001 027 ` \0 \0 K 320
0004260 O . 006 \0 \0 323 k 330 315 \0 O . 020 \0 ( 7
0004300 4 1 Q \ C R E A T E . S Y M B
0004320 O L 2 1 3 Q M K N U M A T O
0004340 M ) \r ( 7 5 6 Q L I T A T O M
0004360 7 4 7 Q \ A t o m H a s h T
0004400 a b l e 6 7 4 Q \ A T O M S
0004420 P A C E 3 4 5 Q \ A T O M S
0004440 P A C E 2 6 1 Q \ A t o m H
0004460 a s h T a b l e 1 7 2 Q \ O
0004500 n e C h a r A t o m B a s e 1
0004520 4 4 Q \ O n e C h a r A t o m
0004540 B a s e 1 3 1 Q \ O n e C h
0004560 a r A t o m B a s e ) \r ( ) \r \
0004600 C R E A T E . S Y M B O L D 1
0004620 \r ( P 1 1 Q J P 1 0 Q
0004640 I P 6 \ I N T E R R U P T
0004660 A B L E P 5 P N P 3
0004700 A T M P 2 C P P P 1
0004720 P B P 0 P N B A S E I
0004740 4 F A T C H A R S E E N P I
0004760 3 F A T P I 2 L E N
0005000 I 1 O F F S E T I 0 B
0005020 A S E ) \0 310 \n \0 \0 005 D 224 B l 002
0005040 330 204 B l 004 330 342 342 \t \0 \0 021 A 004 ` \0
0005060 \0 [ d n 001 377 345 j 360 262 035 343 021 001 005 l
0005100 376 M 361 243 \b \0 \0 277 M n 210 004 \n \0 \0 277
0005120 M \t \0 \0 023 216 n 377 377 360 231 l 026 o \0 \0
0005140 \0 \n \0 \0 277 l \b K 323 321 K 323 320 274 021 020
0005160 006 L k H 322 l 377 345 307 277 L H 323 315 001 023
0005200 D 231 H k 320 @ A 320 B 304 260 7 C 262 + B
0005220 A k 021 003 \t O 022 O 016 363 263 034 H O 022 @
0005240 O 020 320 310 \0 307 277 O 020 k 324 _ 020 277 O 022
0005260 k 324 _ 022 260 343 023 211 @ A H k B \r 005 \0
0005300 \0 277 H B 317 \0 \a H 025 \0 277 K k 330 027 \0
0005320 \0 ` \0 \0 K 320 [ D 226 d 301 002 k 317 \0
0005340 K 020 \0 ( 2 4 5 Q \ M O V E B Y
0005360 T E S 1 1 0 Q \ M P . E R R
0005400 O R 7 0 Q \ I N I T A T O M
0005420 P A G E 6 3 Q \ M A K E M D
0005440 S E N T R Y 5 3 Q \ M K A T
0005460 O M . F U L L 1 7 Q \ A L L
0005500 O C B L O C K ) \r ( 2 7 0 Q \
0005520 A T O M S P A C E 2 6 5 Q \
0005540 A t o m F r L s t 2 5 Q \ A
0005560 t o m F r L s t ) \r ( 1 0 5 Q
0005600 " N o m o r e a t o m s
0005620 l e f t " ) \r \ M K A T O M . F
0005640 U L L D 1 \r N I L \0 031 \0 \0 \0
0005660 \0 ` \0 \0 263 023 i 027 \0 \0 277 ` \0 \0 k 317
0005700 \0 ` 277 i 027 \0 \0 h 020 \0 N I L \r ( 2
0005720 5 Q \ P E N D I N G I N T E R
0005740 R U P T 1 4 Q \ I N T E R R
0005760 U P T S T A T E 1 0 Q \ S T
0006000 O R A G E F U L L 2 \ S T O
0006020 R A G E F U L L ) \r ( ) \r \ I N
0006040 I T A T O M P A G E D 1 \r ( P
0006060 1 V A L B A S E P 0 O
0006100 F F S E T I 0 P N ) \0 H
0006120 002 \0 \0 001 @ 341 021 021 001 ` \0 \0 H 320 H 320
0006140 \t \0 \0 ` \0 \0 H 320 H 320 \t \0 \0 ` \0 \0
0006160 H 320 H 320 \t \0 \0 ` \0 \0 H 320 H 320 Y \t
0006200 \0 \0 n 002 \0 d j 361 264 022 I g \0 \0 316 \0
0006220 277 I l 002 320 271 k 331 260 355 020 \0 ( 5 5 Q
0006240 \ N E W 4 P A G E 4 2 Q \
0006260 N E W 4 P A G E 3 0 Q \ N E
0006300 W 4 P A G E 1 6 Q \ N E W 4
0006320 P A G E ) \r ( 7 1 Q N O B I N
0006340 D 4 5 Q \ V A L S P A C E
0006360 3 3 Q \ P L I S T S P A C E
0006400 2 1 Q \ D E F S P A C E 7
0006420 \ P N P S P A C E ) \r ( ) \r M A
0006440 P A T O M S D 1 \r ( L ( 0
0006460 F N ) ) \0 031 001 \0 \0 001 j 021 001 \0 j
0006500 H 321 k @ 017 016 277 H k 330 X ` \0 \0 360 262
0006520 360 h 020 \0 N I L \r ( 2 2 Q \ A t
0006540 o m F r L s t ) \r ( ) \r A T O M
0006560 H A S H # P R O B E S D 1 \r (
0006600 P 3 0 Q B 2 P 2 7 Q B
0006620 1 P 2 5 Q B 2 P 2 4 Q
0006640 B 1 P 2 2 Q P R O B E S
0006660 P 2 1 Q C H A R # P 1
0006700 3 Q F A T P P 1 2 Q F A
0006720 T C H A R S E E N P P 1 1 Q
0006740 R E P R O B E P 1 0 Q P
0006760 N B A S E P 7 H A S H E N
0007000 T P 6 H A S H P 5 F
0007020 I R S T C H A R P 4 F I R
0007040 S T B Y T E P 3 L E N P
0007060 2 O F F S T P 1 B A S
0007100 E P 0 D E S I R E D A T O
0007120 M # I 0 S T R I N G ) 001
0007140 362 031 \0 \0 001 021 320 \f @ d 004 l 004 360 262 /
0007160 301 \b 311 \0 271 k 272 @ 301 \b 311 \0 312 \0 \a 273
0007200 @ 301 002 312 \0 j 360 h 360 _ 024 _ 026 277 @
0007220 323 270 O 026 262 j I J 320 310 \0 260 f \t \0 \0
0007240 b \0 311 \0 271 @ 310 003 272 @ 310 002 273 @ 312 \0
0007260 C j 360 221 h 200 i _ 026 262 = @ 021 1 020 O
0007300 032 310 003 k 331 _ 036 277 O 032 311 \0 _ 277 O
0007320 036 O 032 310 002 330 _ 034 277 O 036 k 330 _ 036 O
0007340 034 361 255 O O 036 320 310 \0 l 377 361 262 354 i
0007360 200 h 022 _ 024 277 K l 377 361 262 230 h 020 I J
0007400 302 ] d l 377 345 \ d 341 276 J K 330 k 331 J
0007420 k 330 021 002 021 O " O 363 263 0 N d n 017
0007440 377 345 340 340 320 323 ^ d l 377 345 341 320 323 O 026
0007460 231 I O " 320 310 \0 l 377 345 203 I O " 302 320
0007500 323 276 O " k 324 _ " 260 317 023 k 021 001 022 `
0007520 \0 \0 N 320 310 \0 _ 016 j 360 263 242 H 265 M O
0007540 016 k 331 _ 030 277 l \b O 030 323 321 O 030 323 320
0007560 311 \0 _ 020 312 \0 \a K 360 242 261 \0 300 O 024 `
0007600 \0 \0 O 016 k 331 320 301 002 312 \0 j 360 h 360
0007620 360 242 261 \0 250 O 024 262 = K k J 021 003 017 O
0007640 034 O 032 363 234 i 022 261 \0 217 O 016 k 331 360 261
0007660 \0 207 O 020 O 034 320 310 \0 I O 036 320 310 \0 360
0007700 242 h 260 344 O 034 k 324 _ 034 277 O 036 k 324 _
0007720 036 277 260 315 O 026 262 3 K k J 021 003 025 O (
0007740 O & 363 263 " O 020 O ( 302 I O * 320 310 \0
0007760 360 242 h 260 023 O ( k 324 _ ( 277 O * k 324
0010000 _ * 277 260 333 i 022 260 / K k J 021 003 030 O
0010020 . O , 363 263 O 020 O . 302 I O 0 302 360
0010040 242 h 260 023 O . k 324 _ . 277 O 0 k 324 _
0010060 0 277 260 335 i 022 222 O $ 020 N O 022 265 \f L
0010100 N 346 k 344 l ? 345 _ 022 320 323 276 O $ k 324
0010120 _ $ 277 261 376 374 \0 ( 7 2 Q M K S T
0010140 R I N G ) \r ( 4 3 4 Q \ A T O
0010160 M S P A C E 3 5 4 Q \ A t o
0010200 m H a s h T a b l e ) \r ( ) \r \
0010220 D E F I N E D P D 1 \r ( I 0
0010240 A ) \0 021 \0 \0 \0 001 @ 004 l 004 360 264
0010260 \n @ 301 \n 311 \0 264 003 i 020 \0 N I L \r N
0010300 I L \r ( ) \r P U T D D 1 \r ( I
0010320 2 F L G I 1 D E F I
0010340 0 F N ) \0 F \0 \0 \0 003 A B 263
0010360 < d 005 006 262 7 d 312 \0 C l 004 360 262 . d
0010400 311 \0 A 310 003 l \t 330 302 A 311 \0 A 310 003 l
0010420 \n 330 302 341 A 311 \0 A 310 003 l \v 330 302 344 321
0010440 @ 360 247 A @ \n \0 \0 b 002 277 @ A \n \0 \0
0010460 277 020 \0 ( 1 0 2 Q \ P U T D 7
0010500 2 Q \ R E N A M E D F N ) \r N
0010520 I L \r ( ) \r \ P U T D D 1 \r (
0010540 P 2 \ I N T E R R U P T A B
0010560 L E P 1 D V A L P 0
0010600 D C E L L I 1 D E F I
0010620 0 F N ) \0 c 003 \0 \0 002 @ 301 \n 021
0010640 021 001 021 020 002 A Y d 005 006 237 312 \0 C l 004
0010660 360 227 I 311 \0 271 H j 260 037 I 003 232 ` \0 \0
0010700 226 I @ \n \0 \0 265 016 H j 317 \0 \0 277 H I
0010720 024 \0 A 020 271 H k 317 \0 @ 277 H I 024 \0 277
0010740 H I 312 004 ! 317 \0 ! 277 H I 310 006 j 360 221
0010760 k 200 j 317 \0 020 277 H k 317 \0 \0 A 020 \0 (
0011000 5 1 Q \ M A K E P S E U D O C
0011020 O D E ) \r ( 4 3 Q C O M P I L
0011040 E A T P U T D F L G ) \r ( ) \r G
0011060 E T D D 1 \r ( P 0 A I
0011100 0 A ) \0 H 002 \0 \0 001 @ 004 l 004 360
0011120 264 = @ 301 \n 021 021 001 H 312 \0 \0 j 360 263 0
0011140 H 312 \0 @ j 360 246 H 311 \0 \t \0 \0 020 H 311
0011160 \0 X l 006 037 d H 024 \0 277 H \t \0 \0 340 340
0011200 271 d I 315 002 277 d l 004 317 \0 C 277 020 H 311
0011220 \0 020 \0 ( 6 2 Q \ # B L O C K D
0011240 A T A C E L L S 4 1 Q \ P S
0011260 E U D O C O D E . R E A L D E F
0011300 ) \r N I L \r ( ) \r \ R E S E T S
0011320 Y S T E M S T A T E D 1 \r N I
0011340 L \0 \t \0 \0 \0 \0 i \t \0 \0 \b \0 \0 020
0011360 \0 ( 6 \ R E S E T T E R M I N
0011400 A L 3 \ K E Y B O A R D O N
0011420 ) \r N I L \r ( ) \r I N I T I A L
0011440 E V A L Q T D 1 \r ( P 2 L
0011460 P 1 F L P 0 R L )
0011500 \0 ` 003 \0 \0 \0 \b \0 \0 ` \0 \0 021 ! 002 H
0011520 262 S o \0 \0 \0 \t \0 \0 277 H 001 I 032 271 H
0011540 002 X 265 371 I 001 \t \0 \0 Z 003 262 * I 001 \t
0011560 \0 \0 277 l \r \t \0 \0 277 J 001 I 001 J 002 Z
0011600 \n \0 \0 277 \t \0 \0 277 J 003 265 360 I 001 g \0
0011620 \0 \n \0 \0 277 I 002 Y 264 004 260 312 027 \0 \0 277
0011640 \b \0 \0 i 020 \0 ( 1 3 4 Q I N T E
0011660 R P R E T . R E M . C M 1 1 5
0011700 Q S E T T O P V A L 1 0 0 Q
0011720 E V A L 7 4 Q S E T T O P
0011740 V A L 6 1 Q D S P B O U T
0011760 5 3 Q S I M P L E P R I N T
0012000 4 2 Q G E T T O P V A L 2 2
0012020 Q S I M P L E P R I N T 2
0012040 \ S E T I O P O I N T E R S ) \r
0012060 ( 1 3 0 Q B O O T F I L E S
0012100 1 1 2 Q N O B I N D 5 B O
0012120 O T F I L E S ) \r ( 1 7 Q "
0012140 e v a l u a t i n g i n i t i
0012160 a l e x p r e s s i o n s : \r
0012200 " ) \r S I M P L E P R I N T D
0012220 1 \r ( P 1 I I 1 N I
0012240 0 X ) \0 221 002 \0 \0 002 @ d 004 l
0012260 004 360 246 277 @ 005 \a 262 035 @ \t \0 \0 k 021 002
0012300 001 I H 363 221 h 020 @ I ) \t \0 \0 277 I k
0012320 324 Y 260 360 @ 003 264 [ A j 360 233 o \0 \0 \0
0012340 h b 002 277 b \0 260 307 l ( \t \0 \0 @ 001 A
0012360 005 001 227 j A 361 243 A k 331 201 l 003 b 002 \n
0012400 \0 \0 277 A j 360 225 o \0 \0 \0 260 " @ 002 b
0012420 \0 265 \b o \0 \0 \0 260 026 003 263 030 o \0 \0 \0
0012440 \t \0 \0 277 @ \t \0 \0 277 o \0 \0 \0 \t \0 \0
0012460 h 020 o \0 \0 \0 \t \0 \0 277 260 263 \0 ( 2 1
0012500 4 Q S I M P L E P R I N T 2
0012520 0 3 Q S I M P L E P R I N T
0012540 1 7 3 Q S I M P L E P R I N T
0012560 1 6 6 Q S I M P L E P R I N
0012600 T 1 2 5 Q S I M P L E P R I
0012620 N T 1 0 0 Q D S P B O U T
0012640 4 0 Q D S P B O U T 2 0 Q
0012660 N C H A R S ) \r N I L \r ( 2 1
0012700 1 Q " " 2 0 0 Q " ) "
0012720 1 6 3 Q " . " 1 5 2 Q
0012740 " ) " 1 3 6 Q " - - ) "
0012760 6 3 Q " & " ) \r P A G E F A U
0013000 L T S D 1 \r N I L \0 \a \0 \0 \0
0013020 \0 ` \0 \0 313 006 020 \0 N I L \r ( 2 \
0013040 M I S C S T A T S ) \r ( ) \r \ S
0013060 E T T O T A L T I M E D 1 \r N
0013100 I L \0 021 \0 \0 \0 \0 ` \0 \0 l 002 320 `
0013120 \0 \0 313 \0 \t \0 \0 366 020 \0 ( 1 5 Q C
0013140 L O C K D I F F E R E N C E ) \r
0013160 ( 1 0 Q \ M I S C S T A T S
0013200 2 \ M I S C S T A T S ) \r ( )
0013220 \r \ S E R I A L N U M B E R D
0013240 1 \r N I L \0 \a \0 \0 \0 \0 ` \0 \0 310
0013260 020 020 \0 N I L \r ( 2 \ I n t e r
0013300 f a c e P a g e ) \r ( ) \r \ B L
0013320 T D 1 \r ( P 0 N N I 2
0013340 N W O R D S I 1 S B A S
0013360 E I 0 D B A S E ) \0 9 003
0013400 \0 \0 003 n @ \0 021 ! 002 B H 363 236 @ H 320
0013420 A H 320 B H 325 304 @ A H 304 020 j B k 331
0013440 272 271 I J 363 263 024 @ J 320 A J 320 310 \0 315
0013460 \0 277 J m 377 324 272 260 353 @ 020 \0 N I L \r
0013500 N I L \r ( ) \r \ M O V E B Y T E
0013520 S D 1 \r ( P 4 N W O R D S
0013540 P 3 D B N P 2 S B N
0013560 P 1 D B P 0 S B I
0013600 4 N B Y T E S I 3 D B
0013620 Y T E I 2 D B A S E I
0013640 1 S B Y T E I 0 S B A S
0013660 E ) \0 j 005 \0 \0 005 D j 361 264 L @ A
0013700 342 320 B C 342 320 021 2 004 A k 345 Z C k 345
0013720 [ 360 262 7 J k 360 262 030 I k H k 302 307 277
0013740 I k 320 271 H k 320 270 D m 377 324 b \b 277 I
0013760 H D 342 \ 304 277 D k 345 k 360 264 \r I L 320
0014000 j H L 320 j 302 307 h 020 D d j 361 264 373 I
0014020 K d k 324 273 H J d k 324 272 302 307 277 k 331
0014040 260 352 \0 N I L \r N I L \r ( ) \r \ C
0014060 L E A R W O R D S D 1 \r ( I
0014100 1 N W O R D S I 0 B A S
0014120 E ) \0 H \0 \0 \0 002 @ A n 177 377 361 262
0014140 % @ n 177 377 320 j 315 \0 277 @ d k 320 n 177
0014160 377 304 277 @ n 200 \0 320 b \0 277 A n 200 \0 331
0014200 b 002 260 331 A j 361 262 030 @ A k 331 320 j 315
0014220 \0 277 A k 360 250 @ d k 320 A k 331 304 277 020
0014240 \0 N I L \r N I L \r ( ) \r \ C L E
0014260 A R B Y T E S D 1 \r ( I 2
0014300 N B Y T E S I 1 O F F S T
0014320 I 0 B A S E ) \0 9 \0 \0 \0
0014340 003 B j 361 264 4 A k 345 j 360 263 024 @ A j
0014360 307 277 A k 324 b 002 277 B m 377 324 b 004 277 @
0014400 A 342 320 b \0 B k 345 j 360 246 d B k 331 j
0014420 307 277 @ B 342 \n \0 \0 020 \0 ( 6 6 Q \
0014440 C L E A R W O R D S ) \r N I L \r
0014460 ( ) \r \ C L E A R C E L L S D
0014500 1 \r ( I 1 N C E L L S I
0014520 0 B A S E ) \0 K \0 \0 \0 002 n ?
0014540 377 A 361 263 & @ n 177 377 320 j 315 \0 277 @ d
0014560 k 320 n 177 377 304 277 @ n 200 \0 320 b \0 277 A
0014600 n @ \0 331 b 002 277 260 327 A j 361 264 033 A 340
0014620 b 002 @ A k 331 320 j 315 \0 A k 360 247 @ d
0014640 k 320 A k 331 304 h 020 \0 N I L \r N I L
0014660 \r ( ) \r \ M O V E W O R D S D
0014700 1 \r ( I 4 N W O R D S I
0014720 3 D O F F S E T I 2 D B
0014740 A S E I 1 S O F F S E T
0014760 I 0 S B A S E ) \0 \n \0 \0 \0
0015000 005 B C 320 @ A 320 D 304 020 \0 N I L \r N
0015020 I L \r ( ) \r \ Z E R O B Y T E S
0015040 D 1 \r ( I 2 L A S T I
0015060 1 F I R S T I 0 B A S E
0015100 ) \0 \f \0 \0 \0 003 @ A B A 331 k 330 \v
0015120 \0 \0 020 \0 ( 1 1 Q \ C L E A R B
0015140 Y T E S ) \r N I L \r ( ) \r \ Z E
0015160 R O W O R D S D 1 \r ( P 0
0015200 D I F I 1 E N D B A S E
0015220 I 0 B A S E ) \0 B 001 \0 \0 002
0015240 A 322 @ 322 361 262 " @ n 377 377 @ 323 331 \n \0
0015260 \0 277 @ 322 n 377 377 321 j 315 \0 277 @ 322 k 330
0015300 j 321 b \0 277 260 333 A 323 @ 323 331 021 001 \0 j
0015320 H 361 253 @ j 315 \0 277 @ k 320 H \n \0 \0 h
0015340 020 \0 ( 7 6 Q \ C L E A R W O R
0015360 D S 2 0 Q \ C L E A R W O R
0015400 D S ) \r N I L \r ( ) \r ( P R E T
0015420 T Y C O M P R I N T L L B A S
0015440 I C C O M S ) \r ( R P A Q Q L
0015460 L B A S I C C O M S ( ( F N S
0015500 L I S T P L I T A T O M F
0015520 I X P S T R I N G P S M A L
0015540 L P N L I S T P A R R A Y P
0015560 A T O M F L O A T P N U M
0015600 B E R P S T A C K P ) ( \r D
0015620 E C L A R E : D O N T C O P Y
0015640 ( E X P O R T ( M A C R O S
0015660 C H E C K \ S t a t s Z e r
0015700 o \ S t a t s A d d 1 I P L
0015720 U S 1 6 S M A L L P O S P S
0015740 E T X V A R S E T Q . N O R E
0015760 F I E Q \r ) ( T E M P L A T
0016000 E S S P R E A D A P P L Y *
0016020 S P R E A D A P P L Y S E T Q
0016040 . N O R E F ) ( C O N S T A N
0016060 T S W o r d s P e r P a g e )
0016100 ) ) ( C O M S ( * " a t o
0016120 m s " ) ( F N S \r G E T T O
0016140 P V A L S E T T O P V A L F
0016160 S E T V A L \ S E T G L O B A
0016200 L V A L . U F N \ S E T F V A
0016220 R . U F N G E T P R O P L I S
0016240 T \ A T O M C E L L S E T P
0016260 R O P L I S T ) ( C O M S (
0016300 \r M A C R O S \ A T O M C E L
0016320 L \ P R O P C E L L ) ( M A
0016340 C R O S G E T P R O P L I S T
0016360 S E T P R O P L I S T ) ) (
0016400 F N S \ M K A T O M \ C R E
0016420 A T E . S Y M B O L \ M K A T
0016440 O M . F U L L \r \ I N I T A T
0016460 O M P A G E ) ( F N S M A P
0016500 A T O M S A T O M H A S H # P
0016520 R O B E S ) ( F N S I N I T
0016540 A T O M S C O P Y A T O M U
0016560 N C O P Y A T O M ) ( C O M S
0016600 ( * \r " S e e \ P N A M E
0016620 L I M I T c o m m e n t b e
0016640 l o w " ) ( V A R S ( \ P N
0016660 A M E L I M I T 2 5 5 ) ) (
0016700 I N I T V A R S ( \ P N A M E
0016720 S . I N . B L O C K S ? ) ) )
0016740 ( F N S \r \ D E F I N E D P
0016760 P U T D \ P U T D G E T D
0017000 P U T D E F N G E T D E F N )
0017020 ( V A R S ( C O M P I L E A
0017040 T P U T D F L G ) ) ( I N I T
0017060 V A R S ( \r \ P K G - I N D E
0017100 X - T O - P A C K A G E - V E C
0017120 T O R ) ) ( D E C L A R E :
0017140 D O N T C O P Y ( E X P O R T
0017160 ( R E C O R D S L I T A T O
0017200 M S Y M B O L V A L I N D E
0017220 X V C E L L \r D E F I N I T
0017240 I O N C E L L F N H E A D E R
0017260 P N A M E C E L L P A C K A
0017300 G E I N D E X P N A M E B A S
0017320 E P N A M E I N D E X ) ( M
0017340 A C R O S \ D E F C E L L \
0017360 V A L C E L L \r \ P N A M E C
0017400 E L L ) ( M A C R O S \ A T
0017420 O M V A L I N D E X \ A T O M
0017440 D E F I N D E X \ A T O M P N
0017460 A M E I N D E X \ A T O M P R
0017500 O P I N D E X \ I N D E X A T
0017520 O M P N A M E \r \ I N D E X A
0017540 T O M V A L \ I N D E X A T O
0017560 M D E F ) ( G L O B A L V A R
0017600 S \ N x t P n B y t e \ C u
0017620 r P n P a g e \ N x t A t o m
0017640 P a g e \ A t o m F r L s t
0017660 \r \ O n e C h a r A t o m B a s
0017700 e \ P N A M E S . I N . B L O
0017720 C K S ? \ S C R A T C H S T R
0017740 I N G C O M P I L E A T P U T
0017760 D F L G \ P K G - I N D E X -
0020000 T O - P A C K A G E - V E C T O
0020020 R ) ( \r C O N S T A N T S (
0020040 \ P N A M E L I M I T 2 5 5 )
0020060 ( \ C h a r s P e r P n P a g
0020100 e 5 1 2 ) ) ( * \r " \ P N
0020120 A M E L I M I T i s e x p o
0020140 r t e d b u t n e e d s t
0020160 o a l s o b e a V A R S
0020200 o n t h i s f i l e t o
0020220 g e t i t c o p i e d .
0020240 N o t e t h a t b o t h
0020260 c o m m a n d s m u s t b e
0020300 e d i t e d t o g e t h e r
0020320 . " \r ) ) ) ( D E C L A R
0020340 E : E V A L @ C O M P I L E
0020360 D O N T C O P Y ( M A C R O S
0020400 C O M P U T E . A T O M . H A
0020420 S H A T O M . H A S H . R E P
0020440 R O B E ) ( A D D V A R S (
0020460 \r D O N T C O M P I L E F N S
0020500 I N I T A T O M S C O P Y A T
0020520 O M U N C O P Y A T O M G E
0020540 T D E F N P U T D E F N F S
0020560 E T V A L ) ) ) ) ( C O M S
0020600 ( * \r " f o r e x e c u t i
0020620 n g b o o t e x p r e s s i
0020640 o n s w h e n f i r s t r
0020660 u n " ) ( F N S \ R E S E T
0020700 S Y S T E M S T A T E I N I T
0020720 I A L E V A L Q T S I M P L E
0020740 P R I N T ) ( \r G L O B A L V
0020760 A R S R E S E T F O R M S B
0021000 O O T F I L E S ) ) ( C O M S
0021020 ( * " s t a t s " ) ( F N
0021040 S P A G E F A U L T S \ S E
0021060 T T O T A L T I M E \ S E R I
0021100 A L N U M B E R ) ) ( \r C O M
0021120 S ( * " F a s t f u n c t
0021140 i o n s f o r m o v i n g
0021160 a n d c l e a r i n g s t o
0021200 r a g e " ) ( F N S \ B L T
0021220 \ M O V E B Y T E S \ C L E
0021240 A R W O R D S \ C L E A R B Y
0021260 T E S \r \ C L E A R C E L L S
0021300 ) ( D E C L A R E : E V A L
0021320 @ C O M P I L E D O N T C O P
0021340 Y ( M A C R O S . C L E A R
0021360 N W O R D S . ) ) ( * " O b
0021400 s o l e t e : " ) ( D E C L A
0021420 R E : \r E V A L @ C O M P I L
0021440 E D O N T C O P Y ( E X P O
0021460 R T ( M A C R O S \ M O V E
0021500 W O R D S ) ) ) ( F N S \ M
0021520 O V E W O R D S \ Z E R O B Y
0021540 T E S \ Z E R O W O R D S ) )
0021560 ( L O C A L V A R S \r . T
0021600 ) ( D E C L A R E : D O N T
0021620 C O P Y ( A D D V A R S ( I
0021640 N I T V A L U E S ( \ A t o m
0021660 F r L s t 0 ) ) ( I N I T P
0021700 T R S ( \ O n e C h a r A t o
0021720 m B a s e N I L ) ( \r \ S C
0021740 R A T C H S T R I N G ) ) ( I
0021760 N E W C O M S ( F N S F S E
0022000 T V A L S E T P R O P L I S T
0022020 P U T D E F N \ B L T \ A
0022040 T O M C E L L ) ( F N S \ M
0022060 K A T O M \r \ C R E A T E . S
0022100 Y M B O L \ I N I T A T O M P
0022120 A G E \ M O V E B Y T E S )
0022140 ( F N S C O P Y A T O M I N
0022160 I T A T O M S ) ) ( E X P A N
0022200 D M A C R O F N S S M A L L P
0022220 O S P \r C O M P U T E . A T O
0022240 M . H A S H A T O M . H A S H
0022260 . R E P R O B E \ D E F C E L
0022300 L \ V A L C E L L \ P N A M
0022320 E C E L L \ P R O P C E L L
0022340 \ I N D E X A T O M P N A M E )
0022360 ( \r M K I . S U B F N S ( M
0022400 K N U M A T O M . N I L L )
0022420 ( \ M K A T O M . F U L L .
0022440 N I L L ) ( \ A T O M D E F
0022460 I N D E X . I . A T O M N U
0022500 M B E R ) ( \ A T O M V A L I
0022520 N D E X . \r I . A T O M N U
0022540 M B E R ) ( \ A T O M P R O P
0022560 I N D E X . I . A T O M N U
0022600 M B E R ) ( \ A T O M P N A M
0022620 E I N D E X . I . A T O M N
0022640 U M B E R ) ( S E T Q . N O R
0022660 E F . S E T Q ) ( \r S E T
0022700 T O P V A L . I . F S E T V
0022720 A L ) ) ( R D . S U B F N S
0022740 ( M K N U M A T O M . N I L
0022760 L ) ( \ A T O M D E F I N D E
0023000 X . V A T O M N U M B E R )
0023020 ( \ A T O M P R O P I N D E X
0023040 . \r V A T O M N U M B E R )
0023060 ( \ A T O M V A L I N D E X
0023100 . V A T O M N U M B E R ) (
0023120 S E T Q . N O R E F . S E T
0023140 Q ) ( \ I N D E X A T O M P N
0023160 A M E . V A T O M ) ( \r \
0023200 I N D E X A T O M V A L . V
0023220 A T O M ) ( \ I N D E X A T O
0023240 M D E F . V A T O M ) ( \
0023260 C R E A T E . S Y M B O L .
0023300 V N O S U C H A T O M ) ) ( R
0023320 D C O M S ( F N S C O P Y A
0023340 T O M \r U N C O P Y A T O M
0023360 \ M K A T O M G E T T O P V A
0023400 L G E T P R O P L I S T S E
0023420 T T O P V A L G E T D E F N
0023440 \ A T O M C E L L ) ( F N S
0023460 L I S T P ) ( V A R S ( C O
0023500 P Y A T O M S T R ) ) \r ) ( R
0023520 D . S U B F N S ( \ R P L P T
0023540 R . V P U T B A S E P T R )
0023560 ) ( R D V A L S ( \ A t o m
0023600 F r L s t ) ) ) ) ) ) \r ( P U T
0023620 P R O P S \ A T O M C E L L
0023640 D M A C R O ( X ( L E T (
0023660 ( C E ( C O N S T A N T E X P
0023700 R E S S I O N P ( C A D R X
0023720 ) ) ) ) ( C O N D ( C E (
0023740 B Q U O T E ( ( O P C O D E S
0023760 \r A T O M C E L L . N % ,
0024000 ( C A R C E ) ) % , ( C A
0024020 R X ) ) ) ) ( T ( Q U O T
0024040 E I G N O R E M A C R O ) ) )
0024060 ) ) ) \r ( P U T P R O P S \ P
0024100 R O P C E L L M A C R O ( (
0024120 A T O M ) ( \ A T O M C E L L
0024140 A T O M ( C O N S T A N T
0024160 \ P L I S T . H I ) ) ) ) \r ( P
0024200 U T P R O P S G E T P R O P L
0024220 I S T D M A C R O ( ( X )
0024240 ( \ G E T B A S E P T R ( \ P
0024260 R O P C E L L X ) 0 ) ) ) \r
0024300 ( P U T P R O P S S E T P R O
0024320 P L I S T D M A C R O ( ( A
0024340 T M L S T ) ( \ R P L P T R
0024360 ( \ P R O P C E L L A T M )
0024400 0 L S T ) ) ) \r ( R P A Q Q
0024420 \ P N A M E L I M I T 2 5 5
0024440 ) \r ( R P A Q ? \ P N A M E S
0024460 . I N . B L O C K S ? ) \r ( R P
0024500 A Q Q C O M P I L E A T P U T
0024520 D F L G N I L ) \r ( R P A Q ?
0024540 \ P K G - I N D E X - T O - P
0024560 A C K A G E - V E C T O R ) \r (
0024600 P U T P R O P S L L B A S I C
0024620 C O P Y R I G H T ( " X e r
0024640 o x C o r p o r a t i o n "
0024660 1 9 8 1 1 9 8 2 1 9 8 3 1
0024700 9 8 4 1 9 8 5 1 9 8 6 ) ) \r
0024720 N I L \r
0024724