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