$ od -c -N 50000 [eris]<LispCore>SOURCES>CMLPRINT.DCOM!2
0000000 ( F I L E C R E A T E D " 2 1
0000020 - J u l - 8 6 1 1 : 5 7 : 2 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 P R I
0000120 N T . ; 2 2 ) \r " 2 1 - J u l
0000140 - 8 6 0 6 : 4 0 : 3 1 " " C
0000160 O M P I L E - F I L E d " i n
0000200 " X e r o x L i s p 2 1 -
0000220 J u l - 8 6 . . . " d a t e
0000240 d " 2 1 - J u l - 8 6 0 6 :
0000260 5 4 : 2 8 " ) \r ( F I L E C R E
0000300 A T E D " 2 5 - J u n - 8 6
0000320 1 6 : 0 2 : 3 8 " { E R I S }
0000340 < L I S P C O R E > L I B R A R
0000360 Y > C M L P R I N T . ; 2 2 8
0000400 9 0 0 c h a n g e s t o :
0000420 ( V A R S \r C M L P R I N T C
0000440 O M S ) ( F U N C T I O N S
0000460 W R I T E - L I N E ) p r e v
0000500 i o u s d a t e : " 1 7 - J
0000520 u n - 8 6 1 4 : 3 2 : 0 0 "
0000540 \r { E R I S } < L I S P C O R E
0000560 > L I B R A R Y > C M L P R I N
0000600 T . ; 2 1 ) \r ( R P A Q Q C M
0000620 L P R I N T C O M S ( ( F N S
0000640 W R I T E \ W R I T E 1 W
0000660 R I T E - C H A R C L : P R I
0000700 N 1 C L : P R I N T C L : T
0000720 E R P R I F R E S H - L I N E
0000740 \r F I N I S H - O U T P U T
0000760 F O R C E - O U T P U T C L E
0001000 A R - O U T P U T P P R I N T
0001020 P R I N C ) ( F N S W R I
0001040 T E - T O - S T R I N G P R I
0001060 N 1 - T O - S T R I N G \r P R
0001100 I N C - T O - S T R I N G ) (
0001120 F U N C T I O N S W R I T E -
0001140 L I N E ) ( * W R I T E - S
0001160 T R I N G i s i n C M L S
0001200 T R E A M S ) ( I N I T V A R
0001220 S ( * P R I N T - S T R U C T
0001240 U R E * \r ) ) ( D E C L A R E
0001260 : D O N T E V A L @ L O A D
0001300 D O E V A L @ C O M P I L E D
0001320 O N T C O P Y C O M P I L E R
0001340 V A R S ( A D D V A R S ( N
0001360 L A M A ) ( N L A M L ) ( L
0001400 A M A \r W R I T E - T O - S T
0001420 R I N G P R I N C P P R I N
0001440 T C L : P R I N T C L : P R
0001460 I N 1 W R I T E - C H A R \
0001500 W R I T E 1 W R I T E ) ) ) )
0001520 ) \r W R I T E D 1 \r ( L ( 0
0001540 - a r g s - ) P 4 5 Q T
0001560 H E R E - A R E - C I R C L E S
0001600 P 4 4 Q * P R I N T - C I
0001620 R C L E - H A S H T A B L E *
0001640 P 4 3 Q * P R I N T - C I R
0001660 C L E - N U M B E R * P 4 2
0001700 Q * P R I N T - C I R C L E *
0001720 P 4 1 Q * P R I N T - P R
0001740 E T T Y * P 4 0 Q * P R I
0001760 N T - A R R A Y * P 3 7 Q
0002000 * P R I N T - G E N S Y M * P
0002020 3 6 Q * P R I N T - C A S E
0002040 * P 3 5 Q * P R I N T - L
0002060 E N G T H * P 3 4 Q * P R
0002100 I N T - L E V E L * P 3 3 Q
0002120 * P R I N T - B A S E * P
0002140 3 2 Q * P R I N T - R A D I X
0002160 * P 3 1 Q * P R I N T - E
0002200 S C A P E * F 4 6 Q * S T
0002220 A N D A R D - O U T P U T * F
0002240 4 7 Q * P R I N T - E S C A
0002260 P E * F 5 0 Q * P R I N T
0002300 - P R E T T Y * F 5 1 Q *
0002320 P R I N T - R A D I X * F 5
0002340 2 Q * P R I N T - B A S E *
0002360 F 5 3 Q * P R I N T - L E V
0002400 E L * F 5 4 Q * P R I N T
0002420 - L E N G T H * F 5 5 Q *
0002440 P R I N T - C I R C L E * F
0002460 5 6 Q * P R I N T - C A S E *
0002500 F 5 7 Q * P R I N T - G E
0002520 N S Y M * F 6 0 Q * P R I
0002540 N T - A R R A Y * F 6 1 Q
0002560 * P R I N T - C I R C L E - H A
0002600 S H T A B L E * ) 002 @ & \f 002 \0
0002620 e 021 001 \0 k a 021 361 020 021 200 030 H l 002 273
0002640 272 K d J 363 242 261 001 \v 277 W L 274 H l 002
0002660 276 275 N d M 363 242 261 001 017 277 W N 021 001 031
0002700 H l 002 _ 020 277 _ 016 277 O 020 d O 016 363 242
0002720 261 001 \v 277 W R 021 001 032 H l 002 _ 024 277 _
0002740 022 277 O 024 d O 022 363 242 261 001 \n 277 W T 021
0002760 001 033 H l 002 _ 030 277 _ 026 277 O 030 d O 026
0003000 363 242 261 001 \t 277 W V 021 001 034 H l 002 _ 034
0003020 277 _ 032 277 O 034 d O 032 363 242 261 001 \b 277 W
0003040 X 021 001 035 H l 002 _ 277 _ 036 277 O d
0003060 O 036 363 242 261 001 \a 277 W \ 021 001 036 H l 002
0003100 _ $ 277 _ " 277 O $ d O " 363 242 261 001 006
0003120 277 W ^ 021 001 037 H l 002 _ ( 277 _ & 277 O
0003140 ( d O & 363 242 261 001 005 277 W ` 021 001 H
0003160 l 002 _ , 277 _ * 277 O , d O * 363 242 261
0003200 001 004 277 W P 021 001 ! H l 002 _ 0 277 _ .
0003220 277 O 0 d O . 363 242 261 001 003 277 W Z 021 001
0003240 " O D 225 W b 242 261 001 \f I L \n \0 \0 I
0003260 020 a g \0 \0 360 226 K k 330 a 261 376 361 K l
0003300 002 324 [ 261 376 337 a g \0 \0 360 226 N k 330 a
0003320 261 376 355 N l 002 324 ^ 261 376 333 a g \0 \0 360
0003340 227 O 020 k 330 a 261 376 360 O 020 l 002 324 _ 020
0003360 261 376 333 a g \0 \0 360 227 O 024 k 330 a 261 376
0003400 361 O 024 l 002 324 _ 024 261 376 334 a g \0 \0 360
0003420 227 O 030 k 330 a 261 376 362 O 030 l 002 324 _ 030
0003440 261 376 335 a g \0 \0 360 227 O 034 k 330 a 261 376
0003460 363 O 034 l 002 324 _ 034 261 376 336 a g \0 \0 360
0003500 227 O k 330 a 261 376 364 O l 002 324 _
0003520 261 376 337 a g \0 \0 360 227 O $ k 330 a 261 376
0003540 365 O $ l 002 324 _ $ 261 376 340 a g \0 \0 360
0003560 227 O ( k 330 a 261 376 366 O ( l 002 324 _ (
0003600 261 376 341 a g \0 \0 360 227 O , k 330 a 261 376
0003620 367 O , l 002 324 _ , 261 376 342 a g \0 \0 360
0003640 227 O 0 k 330 a 261 376 370 O 0 l 002 324 _ 0
0003660 261 376 343 k \b \0 \0 021 022 % I \t \0 \0 277 O
0003700 J 243 h _ H 277 I L \n \0 \0 023 261 376 343 \0
0003720 ( 1 0 7 2 Q \ W R I T E 1 1
0003740 0 5 5 Q P R I N T - C I R C L
0003760 E - S C A N 1 0 4 6 Q M A K
0004000 E - H A S H - T A B L E 4 3 6
0004020 Q \ W R I T E 1 ) \r ( 1 0 1 6
0004040 Q : C I R C L E 7 6 6 Q :
0004060 P R E T T Y 7 3 6 Q : A R R
0004100 A Y 7 0 6 Q : G E N S Y M
0004120 6 5 6 Q : C A S E 6 2 6 Q
0004140 : L E N G T H 5 7 6 Q : L E
0004160 V E L 5 4 6 Q : B A S E 5
0004200 1 6 Q : R A D I X 4 7 1 Q
0004220 : E S C A P E 4 4 4 Q : S T
0004240 R E A M ) \r ( ) \r \ W R I T E 1
0004260 D 1 \r ( L ( 1 S T R E A M
0004300 0 O B J E C T ) P 0 \
0004320 T H I S F I L E L I N E L E N G
0004340 T H F 1 * P R I N T - P R
0004360 E T T Y * ) \0 036 001 001 \0 002 Q 232 @
0004400 h d d d A \r 006 \0 \0 020 021 020 \0 @ A g
0004420 \0 \0 \n \0 \0 j \v \0 \0 020 \0 ( 3 3 Q
0004440 \ P R I N D A T U M 2 7 Q \
0004460 G E T S T R E A M 1 3 Q P R
0004500 I N T D E F ) \r ( 2 4 Q O U T
0004520 P U T ) \r ( ) \r W R I T E - C H
0004540 A R D 1 \r ( L ( 0 - a r g
0004560 s - ) F 5 * S T A N D A R
0004600 D - O U T P U T * ) \0 . 005 001 002
0004620 \0 e 021 001 \0 k a 021 1 004 l 002 H 361 221 U
0004640 202 l 002 a g \0 \0 \n \0 \0 I \t \0 \0 274 [
0004660 006 \0 \0 311 272 K L l 002 J 016 I 020 \0 (
0004700 3 4 Q C H A R - I N T 3 0 Q
0004720 \ G E T S T R E A M ) \r ( 4 1
0004740 Q S T R E A M 2 5 Q O U T
0004760 P U T ) \r ( ) \r C L : P R I N 1
0005000 D 1 \r ( L ( 0 - a r g s -
0005020 ) F 3 * S T A N D A R D -
0005040 O U T P U T * ) \0 # 003 001 002 \0 e
0005060 021 001 \0 k a 021 021 002 l 002 H 361 221 S 202 l
0005100 002 a 272 I g \0 \0 J g \0 \0 i \r 005 \0 \0
0005120 020 \0 ( 4 0 Q W R I T E ) \r ( 3
0005140 3 Q : E S C A P E 2 7 Q :
0005160 S T R E A M ) \r ( ) \r C L : P R
0005200 I N T D 1 \r ( L ( 0 - a r
0005220 g s - ) F 3 * S T A N D A
0005240 R D - O U T P U T * ) \0 $ 003 001
0005260 002 \0 e 021 001 \0 k a 021 021 002 l 002 H 361 221
0005300 S 202 l 002 a Z \t \0 \0 I J \n \0 \0 k J
0005320 \n \0 \0 277 020 \0 ( 4 0 Q S P A C E
0005340 S 3 3 Q C L : P R I N 1 2
0005360 6 Q T E R P R I ) \r N I L \r (
0005400 ) \r C L : T E R P R I D 1 \r (
0005420 I 0 O U T P U T - S T R E A
0005440 M F 0 * S T A N D A R D -
0005460 O U T P U T * ) \0 \t \0 001 \0 001 @
0005500 265 003 P \t \0 \0 020 \0 ( 6 T E R P R
0005520 I ) \r N I L \r ( ) \r F R E S H -
0005540 L I N E D 1 \r ( I 0 O U T
0005560 P U T - S T R E A M F 0 *
0005600 S T A N D A R D - O U T P U T *
0005620 ) \0 \t \0 001 \0 001 @ 265 003 P \t \0 \0 020
0005640 \0 ( 6 F R E S H L I N E ) \r N
0005660 I L \r ( ) \r F I N I S H - O U T
0005700 P U T D 1 \r ( I 0 O U T P
0005720 U T - S T R E A M F 0 * S
0005740 T A N D A R D - O U T P U T * )
0005760 \0 \v \0 001 \0 001 @ 265 003 P i \n \0 \0 h
0006000 020 \0 ( 7 F O R C E O U T P U T
0006020 ) \r N I L \r ( ) \r F O R C E - O
0006040 U T P U T D 1 \r ( I 0 O U
0006060 T P U T - S T R E A M F 0
0006100 * S T A N D A R D - O U T P U T
0006120 * ) \0 \n \0 001 \0 001 @ 265 003 P \t \0 \0
0006140 h 020 \0 ( 6 F O R C E O U T P U
0006160 T ) \r N I L \r ( ) \r C L E A R -
0006200 O U T P U T D 1 \r ( L ( 0
0006220 O U T P U T - S T R E A M ) )
0006240 \0 003 \0 \0 \0 001 h 020 \0 N I L \r N I L
0006260 \r ( ) \r P P R I N T D 1 \r ( L
0006300 ( 0 - a r g s - ) F 3
0006320 * S T A N D A R D - O U T P U T
0006340 * ) \0 - 003 001 002 \0 e 021 001 \0 k a 021
0006360 021 002 l 002 H 361 221 S 202 l 002 a Z \t \0 \0
0006400 I g \0 \0 J g \0 \0 i g \0 \0 i \r \a \0
0006420 \0 \b \0 \0 020 \0 ( 5 2 Q V A L U E
0006440 S 4 7 Q W R I T E 2 6 Q
0006460 T E R P R I ) \r ( 4 2 Q : P R
0006500 E T T Y 3 6 Q : E S C A P E
0006520 3 2 Q : S T R E A M ) \r ( )
0006540 \r P R I N C D 1 \r ( L ( 0
0006560 - a r g s - ) F 3 * S T A
0006600 N D A R D - O U T P U T * ) \0
0006620 # 003 001 002 \0 e 021 001 \0 k a 021 021 002 l 002
0006640 H 361 221 S 202 l 002 a 272 I g \0 \0 J g \0
0006660 \0 h \r 005 \0 \0 020 \0 ( 4 0 Q W R I
0006700 T E ) \r ( 3 3 Q : E S C A P E
0006720 2 7 Q : S T R E A M ) \r ( )
0006740 \r W R I T E - T O - S T R I N G
0006760 D 1 \r ( L ( 0 - a r g s -
0007000 ) P 3 7 Q * P R I N T - G
0007020 E N S Y M * P 3 6 Q * P R
0007040 I N T - A R R A Y * P 3 5 Q
0007060 * P R I N T - C A S E * P
0007100 3 4 Q * P R I N T - L E N G T
0007120 H * P 3 3 Q * P R I N T -
0007140 L E V E L * P 3 2 Q * P R
0007160 I N T - P R E T T Y * P 3 1
0007200 Q * P R I N T - C I R C L E *
0007220 P 3 0 Q * P R I N T - B A
0007240 S E * P 2 7 Q * P R I N T
0007260 - R A D I X * P 2 6 Q * P
0007300 R I N T - E S C A P E * F 4
0007320 0 Q * P R I N T - E S C A P E
0007340 * F 4 1 Q * P R I N T - R
0007360 A D I X * F 4 2 Q * P R I
0007400 N T - B A S E * F 4 3 Q *
0007420 P R I N T - C A S E * F 4 4
0007440 Q * P R I N T - C I R C L E *
0007460 F 4 5 Q * P R I N T - P R
0007500 E T T Y * F 4 6 Q * P R I
0007520 N T - A R R A Y * F 4 7 Q
0007540 * P R I N T - L E V E L * F
0007560 5 0 Q * P R I N T - L E N G T
0007600 H * F 5 1 Q * P R I N T -
0007620 G E N S Y M * ) 001 347 \n 002 \0 e
0007640 021 001 \0 k a 021 361 020 021 P 025 H l 002 273 272
0007660 K d J 363 242 261 \0 346 277 W @ 021 001 026 H l
0007700 002 275 274 M d L 363 242 261 \0 350 277 W B 021 001
0007720 027 H l 002 _ 016 277 276 O 016 d N 363 242 261 \0
0007740 347 277 W D 021 001 030 H l 002 _ 022 277 _ 020 277
0007760 O 022 d O 020 363 242 261 \0 346 277 W H 021 001 031
0010000 H l 002 _ 026 277 _ 024 277 O 026 d O 024 363 242
0010020 261 \0 345 277 W J 021 001 032 H l 002 _ 032 277 _
0010040 030 277 O 032 d O 030 363 242 261 \0 344 277 W N 021
0010060 001 033 H l 002 _ 036 277 _ 034 277 O 036 d O 034
0010100 363 242 261 \0 343 277 W P 021 001 034 H l 002 _ "
0010120 277 _ 277 O " d O 363 242 261 \0 342 277 W
0010140 F 021 001 035 H l 002 _ & 277 _ $ 277 O & d
0010160 O $ 363 242 261 \0 341 277 W L 021 001 036 H l 002
0010200 _ * 277 _ ( 277 O * d O ( 363 242 261 \0 340
0010220 277 W R 021 001 037 I \t \0 \0 020 a g \0 \0 360
0010240 226 K k 330 a 261 377 026 K l 002 324 [ 261 377 004
0010260 a g \0 \0 360 226 M k 330 a 261 377 024 M l 002
0010300 324 ] 261 377 002 a g \0 \0 360 227 O 016 k 330 a
0010320 261 377 024 O 016 l 002 324 _ 016 261 377 \0 a g \0
0010340 \0 360 227 O 022 k 330 a 261 377 025 O 022 l 002 324
0010360 _ 022 261 377 \0 a g \0 \0 360 227 O 026 k 330 a
0010400 261 377 026 O 026 l 002 324 _ 026 261 377 001 a g \0
0010420 \0 360 227 O 032 k 330 a 261 377 027 O 032 l 002 324
0010440 _ 032 261 377 002 a g \0 \0 360 227 O 036 k 330 a
0010460 261 377 030 O 036 l 002 324 _ 036 261 377 003 a g \0
0010500 \0 360 227 O " k 330 a 261 377 031 O " l 002 324
0010520 _ " 261 377 004 a g \0 \0 360 227 O & k 330 a
0010540 261 377 032 O & l 002 324 _ & 261 377 005 a g \0
0010560 \0 360 227 O * k 330 a 261 377 033 O * l 002 324
0010600 _ * 261 377 006 \0 ( 3 7 2 Q \ P R I
0010620 N D A T U M . T O . S T R I N G
0010640 ) \r ( 7 2 1 Q : G E N S Y M
0010660 6 7 1 Q : A R R A Y 6 4 1 Q
0010700 : C A S E 6 1 1 Q : L E N
0010720 G T H 5 6 1 Q : L E V E L
0010740 5 3 1 Q : P R E T T Y 5 0 1
0010760 Q : C I R C L E 4 5 1 Q :
0011000 B A S E 4 2 4 Q : R A D I X
0011020 3 7 7 Q : E S C A P E ) \r (
0011040 ) \r P R I N 1 - T O - S T R I N
0011060 G D 1 \r ( P 0 * P R I N T
0011100 - E S C A P E * I 0 O B J
0011120 E C T ) \0 \n 001 \0 \0 001 i 021 001 \0 @
0011140 \t \0 \0 020 \0 ( 7 \ P R I N D A T
0011160 U M . T O . S T R I N G ) \r N I
0011200 L \r ( ) \r P R I N C - T O - S T
0011220 R I N G D 1 \r ( P 0 * P R
0011240 I N T - E S C A P E * I 0
0011260 O B J E C T ) \0 \t 001 \0 \0 001 021 020
0011300 \0 @ \t \0 \0 020 \0 ( 6 \ P R I N D
0011320 A T U M . T O . S T R I N G ) \r
0011340 N I L \r ( ) \r W R I T E - L I N
0011360 E D 1 \r ( L ( 0 - a r g s
0011400 - ) F 1 1 Q * S T A N D A
0011420 R D - O U T P U T * ) \0 x \t 001
0011440 002 \0 e 021 001 \0 k a 021 q \b l 002 H 361 222
0011460 W 022 202 l 002 a 272 H l 003 274 273 L d K 363
0011500 262 0 277 j 275 H l 003 _ 016 277 276 O 016 d N
0011520 363 262 2 277 I \t \0 \0 _ 020 277 I J g \0 \0
0011540 M g \0 \0 O 020 \r 006 \0 \0 J \t \0 \0 277 020
0011560 a g \0 \0 360 225 L k 330 a 260 312 L l 002 324
0011600 \ 260 274 a g \0 \0 360 226 O 016 k 330 a 260 312
0011620 O 016 l 002 324 _ 016 260 267 \0 ( 1 1 3 Q
0011640 C L : T E R P R I 1 0 7 Q W
0011660 R I T E - S T R I N G 6 5 Q
0011700 C L : L E N G T H ) \r ( 1 4 4 Q
0011720 : E N D 1 2 1 Q : S T A R
0011740 T 1 0 1 Q : E N D 7 5 Q
0011760 : S T A R T ) \r ( ) \r ( R P A Q
0012000 ? * P R I N T - S T R U C T U
0012020 R E * ) \r ( P U T P R O P S C
0012040 M L P R I N T C O P Y R I G H
0012060 T ( " X e r o x C o r p o r
0012100 a t i o n " 1 9 8 5 1 9 8 6
0012120 ) ) \r S T O P \r
0012130