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