$ od -c -N 50000 [eris]<LispCore>LIBRARY>CMLRAND.DCOM!17
0000000 ( F I L E C R E A T E D " 2 1
0000020 - J u l - 8 6 0 3 : 4 4 : 0 3
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 > L I B R A R Y > C M L R A N
0000120 D . ; 2 2 ) \r " 2 0 - J u l -
0000140 8 6 2 3 : 1 5 : 1 9 " " C O
0000160 M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 2 0 - J
0000220 u l - 8 6 . . . " d a t e d
0000240 " 2 0 - J u l - 8 6 2 3 : 2
0000260 9 : 3 0 " ) \r ( F I L E C R E A
0000300 T E D " 1 6 - J u l - 8 6 1
0000320 1 : 4 6 : 2 4 " { E R I S } <
0000340 R O A C H > C M L > C M L R A N
0000360 D . ; 2 1 2 3 1 2 c h a n g
0000400 e s t o : ( F N S R A N D
0000420 O M \r M A K E - R A N D O M -
0000440 S T A T E % % R A N D 1 % %
0000460 R A N D O M - S E E D % % R A
0000500 N D O M - I N I T % % R A N D
0000520 O M - C O P Y - S T A T E % %
0000540 P R I N T - R A N D O M - S T A
0000560 T E ) \r p r e v i o u s d a
0000600 t e : " 1 0 - J u l - 8 6 1
0000620 7 : 1 2 : 1 3 " { E R I S } <
0000640 R O A C H > C M L > C M L R A N
0000660 D . ; 1 ) \r ( R P A Q Q C M L
0000700 R A N D C O M S ( ( * * C
0000720 M L R A N D - - C o v e r s
0000740 s e c t i o n 1 2 . 9 , r
0000760 a n d o m n u m b e r s . -
0001000 - B y K e l l y R o a c h
0001020 . * ) ( \r D E C L A R E :
0001040 E V A L @ C O M P I L E D O N
0001060 T C O P Y ( C O N S T A N T S
0001100 ( R A N D O M - C O N S T - A
0001120 8 3 7 3 ) ( R A N D O M - C
0001140 O N S T - C 1 0 1 0 1 0 1 0 1
0001160 ) ( \r R A N D O M - U P P E R
0001200 - B O U N D 1 3 4 2 1 7 7 2 6
0001220 ) ( R A N D O M - M A X 5 4
0001240 ) ( R A N D O M - F I X N U M
0001260 - L E N G T H 1 6 ) ( R A N
0001300 D O M - F L O A T - M A N T I S
0001320 S A - L E N G T H \r 2 3 ) ) )
0001340 ( I N I T V A R S ( % % * R
0001360 A N D O M - S E E D * 0 ) (
0001400 * R A N D O M - S T A T E * N
0001420 I L ) ) ( S T R U C T U R E S
0001440 R A N D O M - S T A T E ) (
0001460 F N S R A N D O M \r M A K E
0001500 - R A N D O M - S T A T E ) (
0001520 F N S % % R A N D 1 % % R A
0001540 N D 3 % % R A N D O M - S E E
0001560 D % % R A N D O M - I N I T
0001600 % % R A N D O M - C O P Y - S T
0001620 A T E \r % % P R I N T - R A N
0001640 D O M - S T A T E ) ( D E C L
0001660 A R E : D O N T E V A L @ L O
0001700 A D D O C O P Y ( P ( % %
0001720 R A N D O M - I N I T ) ) ) (
0001740 P R O P F I L E T Y P E C M
0001760 L R A N D ) ( \r D E C L A R E
0002000 : D O N T E V A L @ L O A D
0002020 D O E V A L @ C O M P I L E D
0002040 O N T C O P Y C O M P I L E R
0002060 V A R S ( A D D V A R S ( N
0002100 L A M A ) ( N L A M L ) ( L
0002120 A M A \r % % R A N D O M - C O
0002140 P Y - S T A T E % % R A N D 3
0002160 % % R A N D 1 M A K E - R A
0002200 N D O M - S T A T E R A N D O
0002220 M ) ) ) ) ) \r ( R P A Q ? % %
0002240 * R A N D O M - S E E D * 0 )
0002260 \r ( R P A Q ? * R A N D O M -
0002300 S T A T E * N I L ) \r R A N D
0002320 O M - S T A T E - S E E D D 1
0002340 \r ( L ( 0 O B J E C T ) )
0002360 \0 \b \0 \0 \0 001 @ 006 \0 \0 311 004 020 \0 N I
0002400 L \r ( 3 R A N D O M - S T A T
0002420 E ) \r ( ) \r s e t f - R A N D O
0002440 M - S T A T E - S E E D D 1 \r
0002460 ( L ( 1 V A L U E 0 O B
0002500 J E C T ) ) \0 \n \0 \0 \0 002 @ 006 \0
0002520 \0 A 024 004 A 020 \0 N I L \r ( 3 R A
0002540 N D O M - S T A T E ) \r ( ) \r (
0002560 R E M P R O P ( Q U O T E R
0002600 A N D O M - S T A T E - S E E D
0002620 ) ( Q U O T E S E T F - M E
0002640 T H O D - E X P A N D E R ) ) \r
0002660 ( P U T P R O P S R A N D O M
0002700 - S T A T E - S E E D S E T F
0002720 - I N V E R S E s e t f - R A
0002740 N D O M - S T A T E - S E E D )
0002760 \r R A N D O M - S T A T E - K
0003000 D 1 \r ( L ( 0 O B J E C T )
0003020 ) \0 \b \0 \0 \0 001 @ 006 \0 \0 311 002 020 \0
0003040 N I L \r ( 3 R A N D O M - S T
0003060 A T E ) \r ( ) \r s e t f - R A N
0003100 D O M - S T A T E - K D 1 \r (
0003120 L ( 1 V A L U E 0 O B J
0003140 E C T ) ) \0 \n \0 \0 \0 002 @ 006 \0 \0
0003160 A 024 002 A 020 \0 N I L \r ( 3 R A N
0003200 D O M - S T A T E ) \r ( ) \r ( R
0003220 E M P R O P ( Q U O T E R A
0003240 N D O M - S T A T E - K ) ( Q
0003260 U O T E S E T F - M E T H O D
0003300 - E X P A N D E R ) ) \r ( P U T
0003320 P R O P S R A N D O M - S T A
0003340 T E - K S E T F - I N V E R S
0003360 E s e t f - R A N D O M - S T
0003400 A T E - K ) \r R A N D O M - S T
0003420 A T E - J D 1 \r ( L ( 0 O
0003440 B J E C T ) ) \0 \b \0 \0 \0 001 @ 006
0003460 \0 \0 311 \0 020 \0 N I L \r ( 3 R A N
0003500 D O M - S T A T E ) \r ( ) \r s e
0003520 t f - R A N D O M - S T A T E -
0003540 J D 1 \r ( L ( 1 V A L U E
0003560 0 O B J E C T ) ) \0 \n \0 \0
0003600 \0 002 @ 006 \0 \0 A 024 \0 A 020 \0 N I L \r
0003620 ( 3 R A N D O M - S T A T E )
0003640 \r ( ) \r ( R E M P R O P ( Q U
0003660 O T E R A N D O M - S T A T E
0003700 - J ) ( Q U O T E S E T F -
0003720 M E T H O D - E X P A N D E R )
0003740 ) \r ( P U T P R O P S R A N D
0003760 O M - S T A T E - J S E T F -
0004000 I N V E R S E s e t f - R A N
0004020 D O M - S T A T E - J ) \r R A N
0004040 D O M - S T A T E - P D 1 \r (
0004060 L ( 0 O B J E C T ) ) \0 \b
0004100 \0 \0 \0 001 @ 004 ` \0 \0 360 020 \0 N I L \r
0004120 ( 4 004 003 R A N D O M - S T A T
0004140 E T Y P E # ) \r ( ) \r C O P Y -
0004160 R A N D O M - S T A T E D 1 \r
0004200 ( L ( 0 O B J E C T ) ) \0
0004220 \t \0 \0 \0 001 ` \0 \0 @ \n \0 \0 020 \0 ( 6
0004240 N C R E A T E 2 ) \r ( 2 004 003
0004260 R A N D O M - S T A T E T Y P E
0004300 # ) \r ( ) \r ( D E F P R I N T
0004320 ( Q U O T E R A N D O M - S T
0004340 A T E ) ( F U N C T I O N (
0004360 L A M B D A ( X S T R E A M
0004400 ) ( A P P L Y * ( F U N C T
0004420 I O N % % P R I N T - R A N D
0004440 O M - S T A T E ) X \r S T R
0004460 E A M 0 ) T ) ) ) \r % % M A
0004500 K E - R A N D O M - S T A T E
0004520 D 1 \r ( L ( 0 - a r g s - )
0004540 ) \0 203 \b \0 002 \0 e 021 001 \0 H k 021 002
0004560 002 J d I 363 262 < 277 l 030 022 021 a \a H k
0004600 273 272 K d J 363 262 > 277 j 274 H k 276 275 N
0004620 d M 363 262 D 277 \b \0 \0 _ 016 277 ` \0 \0 037
0004640 d I 024 \0 277 d L 024 002 277 d O 016 024 004 277
0004660 020 a g \0 \0 360 225 J k 330 a 260 277 J l 002
0004700 324 Z 260 260 a g \0 \0 360 225 K k 330 a 260 274
0004720 K l 002 324 [ 260 256 a g \0 \0 360 225 N k 330
0004740 a 260 270 N l 002 324 ^ 260 250 \0 ( 6 0 Q
0004760 % % R A N D O M - S E E D ) \r (
0005000 1 6 2 Q : S E E D 1 3 7 Q
0005020 : K 1 1 4 Q : J 6 6 Q 004
0005040 003 R A N D O M - S T A T E T Y P
0005060 E # ) \r ( ) \r ( P U T P R O P
0005100 ( Q U O T E R A N D O M - S T
0005120 A T E ) ( Q U O T E S T R U
0005140 C T U R E - C O N S T R U C T O
0005160 R ) ( Q U O T E % % M A K E
0005200 - R A N D O M - S T A T E ) ) \r
0005220 ( P U T P R O P ( Q U O T E
0005240 R A N D O M - S T A T E ) ( Q
0005260 U O T E % % S L O T - D E S C
0005300 R I P T I O N S ) ( Q U O T E
0005320 ( ( J 2 4 : T Y P E I N
0005340 T E G E R ) ( K 0 : T Y P
0005360 E \r I N T E G E R ) ( S E E
0005400 D ( % % R A N D O M - S E E D
0005420 ) : T Y P E ( A R R A Y I
0005440 N T E G E R ) ) ) ) ) \r ( / D E
0005460 C L A R E D A T A T Y P E ( Q
0005500 U O T E R A N D O M - S T A T
0005520 E ) ( Q U O T E ( P O I N T
0005540 E R P O I N T E R P O I N T
0005560 E R ) ) ( Q U O T E ( ( R A
0005600 N D O M - S T A T E 0 \r P O
0005620 I N T E R ) ( R A N D O M - S
0005640 T A T E 2 P O I N T E R )
0005660 ( R A N D O M - S T A T E 4
0005700 P O I N T E R ) ) ) ( Q U O T
0005720 E 6 ) ) \r R A N D O M D 1 \r
0005740 ( L ( 0 - a r g s - ) F
0005760 6 * R A N D O M - S T A T E *
0006000 ) \0 221 006 001 002 \0 e 021 001 \0 k a 021 A
0006020 005 l 002 H 361 221 V 202 l 002 a 272 I d \t \0
0006040 \0 252 277 o \0 \0 \0 I \n \0 \0 277 I [ d 004
0006060 k 360 231 277 J \t \0 \0 I \n \0 \0 020 004 l 003
0006100 360 262 032 I l 002 l 027 \n \0 \0 J \n \0 \0 l
0006120 002 l 027 \n \0 \0 \n \0 \0 326 020 K 3 262 1
0006140 J \t \0 \0 I m 360 \n \0 \0 275 274 M j 360 263
0006160 032 M 005 003 265 020 L l 020 \n \0 \0 J \t \0 \0
0006200 324 M 260 343 \t \0 \0 262 357 L I \n \0 \0 020 o
0006220 \0 \0 \0 I \n \0 \0 020 \0 ( 2 1 6 Q C
0006240 L : E R R O R 2 0 5 Q C L :
0006260 M O D 1 7 6 Q \ F Z E R O P
0006300 1 6 7 Q % % R A N D 3 1 6
0006320 3 Q A S H 1 4 1 Q A S H
0006340 1 3 3 Q % % R A N D 3 1 2 0
0006360 Q % % / 1 1 5 Q A S H 1
0006400 0 6 Q R A N D O M 1 0 2 Q
0006420 A S H 6 3 Q R E M 5 7 Q
0006440 % % R A N D 3 4 2 Q C L : E
0006460 R R O R 3 0 Q P L U S P ) \r
0006500 N I L \r ( 2 1 2 Q " R A N D
0006520 O M : i l l e g a l a r g
0006540 ~ A . " 3 6 Q " R A N D O M
0006560 : ~ A n o t a p o s i t
0006600 i v e n u m b e r . " ) \r M A
0006620 K E - R A N D O M - S T A T E
0006640 D 1 \r ( L ( 0 S T A T E )
0006660 F 0 * R A N D O M - S T A T
0006700 E * F 1 % % * R A N D O M
0006720 - S E E D * ) \0 ( \0 002 \0 001 @ 265
0006740 \a P \t \0 \0 020 \t \0 \0 224 @ \t \0 \0 020 @
0006760 i 360 230 \b \0 \0 c 002 \b \0 \0 020 o \0 \0 \0
0007000 @ \n \0 \0 020 \0 ( 4 5 Q C L : E R
0007020 R O R 3 4 Q % % M A K E - R
0007040 A N D O M - S T A T E 2 7 Q
0007060 G E T - U N I V E R S A L - T I
0007100 M E 1 7 Q % % R A N D O M -
0007120 C O P Y - S T A T E 1 2 Q R
0007140 A N D O M - S T A T E - P 6
0007160 % % R A N D O M - C O P Y - S T
0007200 A T E ) \r N I L \r ( 4 1 Q "
0007220 M A K E - R A N D O M - S T A T
0007240 E : i l l e g a l a r g ~
0007260 A . " ) \r % % R A N D 1 D 1 \r
0007300 ( F 0 % % * R A N D O M - S
0007320 E E D * ) \0 025 \0 001 \0 \0 P n 265
0007340 326 o \0 \0 \0 324 o \0 \0 \0 \n \0 \0 c \0 020
0007360 \0 ( 2 0 Q C L : M O D ) \r N I
0007400 L \r ( 1 5 Q 7 7 7 7 7 7 7 7
0007420 7 Q 1 0 Q 6 0 1 2 4 5 2 6 5
0007440 Q ) \r % % R A N D 3 D 1 \r ( L
0007460 ( 0 S T A T E ) ) \0 Q 006 \0
0007500 \0 001 @ \t \0 \0 @ \t \0 \0 @ \t \0 \0 021 3
0007520 005 H 273 J 274 o \0 \0 \0 H @ I d j \n \0
0007540 \0 223 277 l 6 201 k 325 \n \0 \0 266 325 H @ J
0007560 d j \n \0 \0 223 277 l 6 201 k 325 \n \0 \0 266
0007600 325 275 j M 363 221 j 203 o \0 \0 \0 M 325 K L
0007620 267 020 \0 ( 7 4 Q s e t f - R A N
0007640 D O M - S T A T E - K 6 2 Q
0007660 % % = 5 0 Q s e t f - R A N
0007700 D O M - S T A T E - J 3 6 Q
0007720 % % = 1 3 Q R A N D O M - S
0007740 T A T E - K 7 R A N D O M -
0007760 S T A T E - J 3 R A N D O M
0010000 - S T A T E - S E E D ) \r N I L
0010020 \r ( 1 1 1 Q 7 7 7 7 7 7 7 7
0010040 6 Q 2 6 Q 7 7 7 7 7 7 7 7 6
0010060 Q ) \r % % R A N D O M - S E E D
0010100 D 1 \r ( P 1 I ) \0 . 005 \0
0010120 \0 \0 l 7 g \0 \0 l 6 j 021 2 004 I H 363
0010140 263 031 \b \0 \0 274 K 265 \r L h 032 [ 272 I k
0010160 324 Y 260 354 L & 273 260 367 J 022 \v \0 \0 020 \0
0010200 ( 5 3 Q M A K E - A R R A Y
0010220 2 2 Q % % R A N D 1 ) \r ( 4
0010240 : I N I T I A L - C O N T E N T
0010260 S ) \r ( ) \r % % R A N D O M - I
0010300 N I T D 1 \r ( F 0 * R A N
0010320 D O M - S T A T E * ) \0 027 \0 001
0010340 \0 \0 g \0 \0 l 7 g \0 \0 o \0 \0 \0 \v \0
0010360 \0 \n \0 \0 c \0 h 020 \0 ( 2 1 Q % %
0010400 M A K E - R A N D O M - S T A T
0010420 E 1 6 Q M A K E - A R R A Y
0010440 ) \r ( 7 : I N I T I A L - C O
0010460 N T E N T S 2 : S E E D ) \r
0010500 ( 1 3 Q ( 2 5 4 0 7 0 5 7 0
0010520 Q 7 7 5 1 0 1 2 2 7 Q 5 1 1
0010540 2 3 1 7 2 4 Q 5 7 3 2 0 3 2 2
0010560 7 Q 4 0 6 5 1 4 3 6 5 Q 5 1
0010600 4 6 5 2 4 0 4 Q 3 1 2 0 4 4 5
0010620 2 4 Q 5 0 0 5 7 6 4 5 7 Q 1
0010640 6 5 5 4 5 7 3 6 Q 7 1 6 0 2 7
0010660 7 5 5 Q 4 1 4 5 7 3 6 2 4 Q
0010700 1 0 7 5 6 1 0 0 0 Q 2 5 4 1 6
0010720 7 3 1 2 Q 7 4 4 5 2 2 4 4 Q
0010740 1 5 0 4 1 0 3 2 4 Q 7 0 1 0 0
0010760 6 4 3 1 Q 2 7 6 3 2 3 2 5 4 Q
0011000 4 6 3 4 2 6 1 2 4 Q 7 1 5 3
0011020 6 5 3 6 6 Q 5 6 6 4 5 1 0 1 4
0011040 Q 2 4 7 3 1 6 3 6 4 Q 3 1 4
0011060 7 2 4 0 2 4 Q 6 0 1 0 7 1 3 1
0011100 1 Q 4 7 3 0 1 0 0 4 2 Q 1 0
0011120 1 7 2 7 3 3 1 Q 7 0 4 1 0 4 0
0011140 5 5 Q 2 4 1 2 2 7 7 3 7 Q 7
0011160 4 5 2 3 5 1 7 4 Q 2 7 7 7 1 6
0011200 0 7 Q 3 2 7 6 4 3 1 3 2 Q 1
0011220 1 3 4 0 2 5 4 Q 2 6 6 6 6 5 7
0011240 3 1 Q 2 1 0 7 5 5 6 Q 1 2 3
0011260 7 0 4 5 0 2 Q 4 3 2 3 5 6 4 1
0011300 2 Q 6 2 0 6 0 2 1 2 6 Q 6 6
0011320 0 3 4 5 7 0 3 Q 2 7 1 7 5 6 2
0011340 2 4 Q 4 5 2 1 7 6 2 5 1 Q 6
0011360 4 2 1 1 1 0 2 1 Q 2 1 6 3 0 0
0011400 7 4 0 Q 3 7 0 2 5 7 1 6 4 Q
0011420 2 6 1 1 5 0 7 3 1 Q 4 4 5 3 0
0011440 0 1 0 2 Q 2 4 3 7 2 6 0 3 Q
0011460 5 1 2 1 1 0 6 6 4 Q 2 0 1 3 1
0011500 7 1 2 2 Q 3 4 7 6 3 1 5 5 1 Q
0011520 2 3 7 6 2 6 7 5 1 Q 4 4 6 3
0011540 1 7 1 2 6 Q 2 2 3 7 2 4 7 2 7
0011560 Q 4 5 3 4 0 5 2 7 7 Q 4 2 4
0011600 6 1 2 6 2 0 Q 3 7 7 2 1 0 4 4
0011620 1 Q 5 7 7 6 3 6 0 7 4 Q ) ) \r
0011640 % % R A N D O M - C O P Y - S T
0011660 A T E D 1 \r ( L ( 0 S T A
0011700 T E ) ) \0 B 005 \0 \0 001 021 P 004 g \0
0011720 \0 l 7 \t \0 \0 g \0 \0 @ \t \0 \0 g \0 \0
0011740 @ \t \0 \0 \r 006 \0 \0 X l 6 j 274 273 L K
0011760 363 263 031 H \t \0 \0 272 L 271 @ \t \0 \0 L 266
0012000 J I 267 277 L k 324 \ 260 347 H 020 \0 ( 6 2
0012020 Q R A N D O M - S T A T E - S
0012040 E E D 5 3 Q R A N D O M - S
0012060 T A T E - S E E D 3 4 Q % %
0012100 M A K E - R A N D O M - S T A T
0012120 E 3 0 Q R A N D O M - S T A
0012140 T E - K 2 1 Q R A N D O M -
0012160 S T A T E - J 1 2 Q M A K E
0012200 - A R R A Y ) \r ( 2 4 Q : K
0012220 1 5 Q : J 5 : S E E D ) \r
0012240 ( ) \r % % P R I N T - R A N D O
0012260 M - S T A T E D 1 \r ( P 1 6
0012300 Q I P 1 4 Q S E E D P
0012320 1 3 Q D E S C R I P T O R
0012340 P 1 2 Q F I E L D P 7
0012360 * P R I N T - L E V E L * P
0012400 0 T Y P E I 1 S T R E A
0012420 M I 0 S T A T E F 1 7
0012440 Q * R E A D T A B L E * F
0012460 2 0 Q * P R I N T - L E V E L
0012500 * ) 001 \t 017 002 \0 002 @ \t \0 \0 021 a 006
0012520 A W 036 006 \0 \0 312 004 \a 273 Z 006 \0 \0 311
0012540 271 J K l 002 I 016 277 o \0 \0 \0 A \n \0 \0
0012560 H A \n \0 \0 W d 221 k 331 021 001 \a H \t
0012600 \0 \0 H \t \0 \0 021 " \v O 022 003 265 003 210 001
0012620 _ 024 277 O 020 003 265 016 023 023 o \0 \0 \0 A \n
0012640 \0 \0 i 020 001 _ 026 277 o \0 \0 \0 A \n \0 \0
0012660 277 O 024 d 003 220 001 A \n \0 \0 277 o \0 \0 \0
0012700 A \n \0 \0 277 O 024 d 003 220 001 g \0 \0 360 262
0012720 h O 026 @ \n \0 \0 021 001 \f A W 036 006 \0 \0
0012740 312 004 \a 276 ] 006 \0 \0 311 274 M N l 002 L
0012760 016 277 o \0 \0 \0 A \n \0 \0 277 O 030 j 266 A
0013000 \n \0 \0 277 l 5 k 021 002 016 O 034 O 032 363 263
0013020 035 o \0 \0 \0 A \n \0 \0 277 O 030 O 034 266 A
0013040 \n \0 \0 277 O 034 k 324 _ 034 260 342 023 o \0 \0
0013060 \0 A \n \0 \0 023 212 O 026 @ \n \0 \0 A \n \0
0013100 \0 277 O 022 002 _ 022 277 O 020 002 _ 020 277 261 377
0013120 ; \0 ( 3 6 7 Q P R I N 2 3 6
0013140 3 Q F E T C H F I E L D 3 5
0013160 3 Q P R I N 1 3 3 1 Q P R
0013200 I N 2 3 1 7 Q P R I N 1 2
0013220 7 1 Q P R I N 2 2 6 0 Q P
0013240 R I N 3 2 1 5 Q F E T C H F
0013260 I E L D 1 7 2 Q P R I N 1
0013300 1 6 1 Q P R I N 2 1 4 6 Q
0013320 P R I N 1 1 3 0 Q P R I N 1
0013340 7 4 Q S L O T - L I S T 7
0013360 0 Q G E T D E S C R I P T O R
0013400 S 5 3 Q P R I N 2 4 6 Q
0013420 P R I N 3 3 T Y P E N A M E
0013440 ) \r ( 2 3 6 Q S T R E A M 2
0013460 2 6 Q R E A D T A B L E P 2
0013500 0 4 Q S E E D 2 4 Q S T R
0013520 E A M 1 4 Q R E A D T A B L
0013540 E P ) \r ( 3 4 7 Q " ) " 3
0013560 1 3 Q " " 2 5 4 Q " # (
0013600 " 1 6 6 Q " " 1 4 2 Q
0013620 " " 1 2 4 Q " ) " 4 2 Q
0013640 " S ( " ) \r ( % % R A N D O M
0013660 - I N I T ) \r ( P U T P R O P S
0013700 C M L R A N D F I L E T Y P
0013720 E C O M P I L E - F I L E ) \r
0013740 ( P U T P R O P S C M L R A N
0013760 D C O P Y R I G H T ( " X e
0014000 r o x C o r p o r a t i o n "
0014020 1 9 8 6 ) ) \r S T O P \r
0014035