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