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