$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>FONTSAMPLE!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 247 P A C K A G E " I N T E
0000040 R L I S P " 247 R E A D T A B L
0000060 E " I N T E R L I S P " 247 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 1 0 - J a n - 8
0000140 7 1 5 : 4 7 : 0 0 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > F O N T S A M P L E
0000220 . ; 1 4 006 001 1 6 5 6 3 \r \r
0000240 c h a n g e s t o
0000260 % : ( F N S F N T . N A R
0000300 R D S C R F N T . F L S T ) \r
0000320
0000340 ( V A R S F O N T S A
0000360 M P L E C O M S ) \r \r
0000400 p r e v i o u s d a t e % :
0000420 " 8 - J a n - 8 7 1 0 : 1
0000440 7 : 5 1 " { E R I S } < L I S
0000460 P C O R E > L I B R A R Y > F O
0000500 N T S A M P L E . ; 1 3 ) \r \r \r
0000520 ( * " \r C o p y r i g h t (
0000540 c ) 1 9 8 5 , 1 9 8 6 , 1
0000560 9 8 7 b y X e r o x C o r
0000600 p o r a t i o n . A l l r
0000620 i g h t s r e s e r v e d . \r
0000640 " ) \r \r ( P R E T T Y C O M P R
0000660 I N T F O N T S A M P L E C O
0000700 M S ) \r \r ( R P A Q Q 006 002 F O
0000720 N T S A M P L E C O M S 006 001 \r
0000740 ( ( M A C R O S
0000760 I D I V U P ) \r
0001000 ( V A R S F N T . P A N E L
0001020 F N T . F N A M E F N T . I N
0001040 F O F O N T F N T . O U T F T
0001060 E X T ) \r ( F N
0001100 S F N T . M A K E B O O K F
0001120 N T . L E S S P F N T . S O R
0001140 T P F N T . D I S P L O O K
0001160 F N T . D I S P T B L E F N T
0001200 . D I S P D S C R F N T . N A
0001220 R R D S C R \r
0001240 F N T . D I S P I N I
0001260 T F N T . F A C E M A P F N
0001300 T . S I Z E M A P F N T . M A
0001320 K E N A M E F N T . M A K E W
0001340 I N D F N T . F I L E M A P
0001360 F N T . F I N D A L L \r
0001400 F N T . F L
0001420 S T ) ) ) \r ( D E C L A R E % :
0001440 E V A L @ C O M P I L E \r [
0001460 P U T P R O P S I D I V U P
0001500 D M A C R O ( ( I N U M E X P
0001520 R I D E N E X P R ) \r
0001540
0001560 ( L E T ( I N U M
0001600 I D E N ) \r
0001620
0001640 ( S E T Q I N U M I
0001660 N U M E X P R ) \r
0001700
0001720 ( S E T Q I D E
0001740 N I D E N E X P R ) \r
0001760
0002000 ( I Q U O T
0002020 I E N T ( I P L U S I N U M
0002040 I D E N - 1 ) \r
0002060
0002100 I
0002120 D E N ] \r ) \r \r ( R P A Q Q 006
0002140 002 F N T . P A N E L 006 001 ( [ P
0002160 R O G ( S E T Q F N T . W I
0002200 N D ( F N T . M A K E W I N D
0002220 ) ) \r
0002240 ( S E T Q
0002260 F N T . F O N T L I S T ' (
0002300 G A C H A 1 0 ( M E D I U M
0002320 R E G U L A R R E G U L A R
0002340 ) \r
0002360
*
0002420 0 I N T E R P R E S
0002440 S ] \r
0002460 ( P R O G ( C L E A
0002500 R W F N T . W I N D ) \r
0002520
0002540 ( F N T . D I S P T B
0002560 L E F N T . W I N D F N T .
0002600 F O N T L I S T ) ) \r
0002620 ( P R
0002640 O G ( S E T Q F N T . F I L
0002660 E N A M E ( F N T . M A K E N
0002700 A M E F N T . F O N T L I S T
0002720 ) ) \r
0002740 ( S E T Q
0002760 F N T . S T R M ( O P E N I
0003000 M A G E S T R E A M F N T . F
0003020 I L E N A M E ' I N T E R P R
0003040 E S S ) ) \r
0003060 ( T
0003100 O T O P W F N T . W I N D ) \r
0003120
0003140 ( B I T B L T
0003160 F N T . W I N D 0 0 F N T
0003200 . S T R M 0 0 6 1 2 7 9
0003220 2 ' I N P U T ' R E P L A C
0003240 E ) \r
0003260 ( C L O S
0003300 E F F N T . S T R M ) ) ) ) \r
0003320 \r ( R P A Q Q 006 002 F N T . F N
0003340 A M E 006 001 { D S K } F O N T B
0003360 O O K . I P ) \r \r ( R P A Q Q
0003400 006 002 F N T . I N F O F O N T 006 001
0003420 ( T E R M I N A L 8 ( M E
0003440 D I U M R E G U L A R R E G
0003460 U L A R ) \r
0003500
0003520 0 ) ) \r \r ( R P A Q Q 006 002 F
0003540 N T . O U T F T E X T 006 001 " a
0003560 b c d e f g h i j k l A B C D
0003600 E F G H I J K L " ) \r ( D E F I
0003620 N E Q \r \r ( 006 004 F N T . M A K E
0003640 B O O K 006 001 \r [ L A M B D A
0003660 ( O U T F R O O T N A M E L
0003700 i s t O f F o n t s P R N T F
0003720 N P E R P A G E ) 006 006 006 001
0003740 006 006 ( * F S
0003760 " 3 0 - J u n - 8 6 1 1 : 4 5
0004000 " ) 006 001 \r \r
0004020 006 006 ( * *
0004040 t a k e s a f i l e n a
0004060 m e a n d f o n t s p e c
0004100 i f i c a t i o n a n d i t
0004120 e r a t i v e l y i n v o k e
0004140 s a g i v e n \r 006 001
0004160 006 006 p r i n t f
0004200 u n c t i o n ( f n t . d i s
0004220 p f o n t b y d e f a u l t
0004240 ) o n e a c h f o n t i
0004260 n t h e s o r t e d l i s
0004300 t ) 006 001 \r \r ( L E T (
0004320 F O N T L I S T O U T F T Y P
0004340 E O U T F D S C R O U T F O
0004360 P T S I T E R T H I S P A G
0004400 E O U T F N A M E ) \r
0004420 \r
0004440 006 006 ( * * H a n d l e i
0004460 n p u t p a r m d e f a u l
0004500 t s * * ) 006 001 \r \r
0004520 ( 006 002 i f 006 001 ( E Q
0004540 P R N T F N N I L ) \r
0004560 006 002 t h e n 006
0004600 001 ( S E T Q Q P R N T F N
0004620 F N T . D I S P L O O K ) ) \r
0004640 ( 006 002 i f 006 001
0004660 ( E Q P E R P A G E N I L )
0004700 \r 006 002
0004720 t h e n 006 001 ( S E T Q P E R
0004740 P A G E ( S E L E C T Q P R
0004760 N T F N \r
0005000
0005020 ( F N T . D I
0005040 S P T B L E 1 ) \r
0005060
0005100 ( F
0005120 N T . D I S P L O O K 1 8 ) \r
0005140
*
0005200 1 ) ) ) \r
0005220 ( S E T Q Q O U T F T Y P
0005240 E I N T E R P R E S S ) \r
0005260 ( S E T Q Q O U
0005300 T F O P T S ( R E G I O N (
0005320 2 7 9 4 1 9 0 5 2 5 4 0 0
0005340 2 4 7 6 5 ) ) ) \r
0005360 ( 006 002 i f 006 001 ( E Q U A L
0005400 L i s t O f F o n t s ' A L
0005420 L ) \r
0005440 006 002 t h e n 006 001 ( S E T Q F
0005460 O N T L I S T ( 006 002 F N T . F
0005500 I N D A L L 006 001 O U T F T Y P
0005520 E ) ) \r 006
0005540 002 e l s e 006 001 ( S E T Q F O
0005560 N T L I S T L i s t O f F o n
0005600 t s ) ) \r \r
0005620 006 006 ( * *
0005640 I t e r a t e o v e r f i
0005660 l e s i n c r e m e n t f i
0005700 l e n a m e s , i t e r a t
0005720 e o v e r f o n t s * *
0005740 ) 006 001 \r \r ( S
0005760 E T Q I T E R 0 ) \r
0006000 ( 006 002 f o r 006 001 P A
0006020 G E N O 006 002 f r o m 006 001 1
0006040 006 002 t o 006 001 ( I D I V U P (
0006060 L E N G T H F O N T L I S T )
0006100 \r
0006120
0006140 P E R P A G E ) \r
0006160 006 002 d o
0006200 006 001 ( S E T Q O U T F N A M
0006220 E ( 006 002 F N T . F I L E M A P
0006240 006 001 O U T F R O O T N A M E
0006260 P A G E N O ) ) \r
0006300 ( 006 002 i f 006 001
0006320 O U T F N A M E \r
0006340 006 002 t h
0006360 e n 006 001 ( S E T Q O U T F D
0006400 S C R ( O P E N I M A G E S T
0006420 R E A M O U T F N A M E O U
0006440 T F T Y P E O U T F O P T S )
0006460 ) ) \r
0006500 ( S E T Q T H I S P A G E
0006520 ( I M I N P E R P A G E (
0006540 I D I F F E R E N C E ( L E N
0006560 G T H F O N T L I S T ) \r
0006600
*
0006660 I T E R ) ) ) \r
0006700 [ 006 002 f o r 006 001
0006720 I 006 002 f r o m 006 001 1 006 002
0006740 t o 006 001 T H I S P A G E 006 002
0006760 d o 006 001 ( S E T Q I T E R
0007000 ( A D D 1 I T E R ) ) \r
0007020
*
0007060 ( A P P L Y *
0007100 P R N T F N O U T F D S C R
0007120 ( C A R ( N T H F O N T L
0007140 I S T I T E R ] \r
0007160 ( C L O S E F
0007200 O U T F D S C R ) \r
0007220 ( B L O C K
0007240 ] ) \r \r ( 006 004 F N T . L E S S P
0007260 006 001 \r [ L A M B D A ( D S
0007300 C 1 D S C 2 ) 006 006 006 001
0007320
*
0007360 006 006 ( * F S " 5 -
0007400 J u l - 8 6 2 3 : 1 1 " ) 006 001
0007420 \r \r
0007440 006 006 ( * * I m p
0007460 o s e a l p h a o r d e r
0007500 o n f o n t l i s t ) 006 001 \r
0007520 \r ( P R O G N I L \r
0007540 ( 006 002 i f 006 001
0007560 ( N O T ( L I S T P D S C
0007600 1 ) ) \r
0007620 006 002 t h e n 006 001 ( R E T U
0007640 R N ( A L P H O R D E R D S
0007660 C 1 D S C 2 ) ) ) \r
0007700 \r
0007720 006 006 ( * * S w i t c h f a
0007740 c e & s i z e f o r o r
0007760 d e r * * ) 006 001 \r \r
0010000 [ S E T Q D S C 1
0010020 ( L I S T ( C A R D S C 1
0010040 ) \r
0010060 ( C A
0010100 D D R D S C 1 ) \r
0010120
0010140 ( C A D R D S C 1 )
0010160 \r
0010200 ( C A D
0010220 D D R D S C 1 ) \r
0010240
0010260 ( C A R ( C D D D R
0010300 D S C 1 ] \r
0010320 [ S E T Q D S C 2 ( L I S
0010340 T ( C A R D S C 2 ) \r
0010360
0010400 ( C A D D R D
0010420 S C 2 ) \r
0010440
0010460 ( C A D R D S C 2 ) \r
0010500
0010520 ( C A D D D R D
0010540 S C 2 ) \r
0010560
0010600 ( C A R ( C D D D R D S C 2
0010620 ] \r ( R E T
0010640 U R N ( 006 002 F N T . S O R T P
0010660 006 001 D S C 1 D S C 2 ] ) \r \r
0010700 ( 006 004 F N T . S O R T P 006 001 \r
0010720 [ L A M B D A ( D S C 1 D
0010740 S C 2 ) 006 006 006 001
0010760
*
0011020 006 006 ( * F S " 5 - J u l -
0011040 8 6 2 3 : 1 5 " ) 006 001 \r
0011060 \r
0011100 006 006 ( * * I m p o s e
0011120 a l p h a o r d e r o n f
0011140 o n t l i s t ) 006 001 \r \r
0011160 ( P R O G ( K E Y 1 K E Y
0011200 2 ) \r ( 006 002
0011220 i f 006 001 ( N O T ( L I S T P
0011240 D S C 1 ) ) \r
0011260 006 002 t h e n 006 001 (
0011300 R E T U R N ( A L P H O R D E
0011320 R D S C 1 D S C 2 ) ) ) \r
0011340 ( S E T Q K
0011360 E Y 1 ( C A R D S C 1 ) ) \r
0011400 ( S E T Q
0011420 K E Y 2 ( C A R D S C 2 ) )
0011440 \r \r
0011460 006 006 ( * * R e v
0011500 e r s e o r d e r o f f a
0011520 c e * * ) 006 001 \r \r
0011540 [ 006 002 i f 006 001 ( E Q
0011560 U A L K E Y 1 K E Y 2 ) \r
0011600 006 002 t
0011620 h e n 006 001 ( R E T U R N ( 006
0011640 002 F N T . S O R T P 006 001 ( C D
0011660 R D S C 1 ) \r
0011700
0011720 ( C D R D
0011740 S C 2 ] \r [
0011760 006 002 i f 006 001 ( L I S T P K E
0012000 Y 1 ) \r
0012020 006 002 t h e n 006 001 ( R E T U
0012040 R N ( N O T ( 006 002 F N T . S
0012060 O R T P 006 001 K E Y 1 K E Y 2
0012100 ] \r ( 006 002 i
0012120 f 006 001 ( N U M B E R P K E Y
0012140 1 ) \r
0012160 006 002 t h e n 006 001 ( R E T U R
0012200 N ( L E S S P K E Y 1 K E
0012220 Y 2 ) ) ) \r
0012240 ( R E T U R N ( A L P H O R D
0012260 E R K E Y 1 K E Y 2 ] ) \r \r
0012300 ( 006 004 F N T . D I S P L O O K 006
0012320 001 \r [ L A M B D A ( F I L
0012340 E D S C F O N T D S C ) 006 006 006
0012360 001
0012400
0012420 006 006 ( * F S " 2 4 - J
0012440 a n - 8 6 1 8 : 1 9 " ) 006 001 \r
0012460 \r
0012500 006 006 ( * * u s e s
0012520 " p r i v a t e " g l o b a
0012540 l v a r s f n t . i n f o f
0012560 o n t a n d f n t . o u t f
0012600 t e x t t o g e n e r a t e
0012620 \r 006 001 006 006
0012640 s a m p l e s t r i n g ) 006 001
0012660 \r \r ( L E T N I L (
0012700 D S P F O N T F N T . I N F O
0012720 F O N T F I L E D S C ) \r
0012740 ( T E R P R I F
0012760 I L E D S C ) \r
0013000 ( T E R P R I F I L E D S C
0013020 ) \r ( T E R P
0013040 R I F I L E D S C ) \r
0013060 ( T E R P R I F I L
0013100 E D S C ) \r (
0013120 006 002 F N T . N A R R D S C R 006 001
0013140 F I L E D S C ( L I S T F
0013160 O N T D S C ) ) \r
0013200 ( D S P F O N T F O N T D
0013220 S C F I L E D S C ) \r
0013240 ( p r i n t o u t F
0013260 I L E D S C F N T . O U T F T
0013300 E X T ] ) \r \r ( 006 004 F N T . D I
0013320 S P T B L E 006 001 \r [ L A M B
0013340 D A ( S t r e a m F O N T D
0013360 S C ) 006 006 006 001
0013400
0013420 006 006 ( * F
0013440 S " 1 7 - M a r - 8 6 1 7 :
0013460 3 7 " ) 006 001 \r
0013500 \r 006 006 ( *
0013520 * g e n e r a t e s a f
0013540 o n t t a b l e u s i n g
0013560 p r i n 1 ) 006 001 \r \r ( L
0013600 E T * ( ( T i t l e F o n t
0013620 ( F O N T C R E A T E F N T .
0013640 I N F O F O N T ) ) \r
0013660 ( F o n t L i s t
0013700 ( L I S T F O N T D S C ) ) \r
0013720 ( I n c h
0013740 e s T o P r i n t e r U n i t s
0013760 ( F T I M E S 7 2 . 0 ( D
0014000 S P S C A L E N I L S t r e
0014020 a m ) ) ) \r
0014040 ( D D e v ( I M A G E S T R
0014060 E A M T Y P E S t r e a m ) )
0014100 ) \r ( 006 002 f
0014120 o r 006 001 F o n t 006 002 i n 006 001
0014140 F o n t L i s t \r
0014160 006 002 d o 006 001 ( D
0014200 S P R I G H T M A R G I N ( T
0014220 I M E S 1 0 0 . 0 I n c h e
0014240 s T o P r i n t e r U n i t s )
0014260 \r
0014300 S t r e a m )
0014320
0014340 006 006
0014360 ( * L e t c l i p o n r
0014400 i g h t * ) 006 001 \r
0014420 ( M O V E T
0014440 O ( F T I M E S 0 . 7 5 I
0014460 n c h e s T o P r i n t e r U n
0014500 i t s ) \r
0014520 ( F T I
0014540 M E S 1 0 . 0 I n c h e s T
0014560 o P r i n t e r U n i t s ) \r
0014600
0014620 S t r e a m ) \r
0014640 ( D
0014660 S P F O N T T i t l e F o n t
0014700 S t r e a m ) \r
0014720 ( 006 002 F N T .
0014740 N A R R D S C R 006 001 S t r e a
0014760 m F o n t L i s t ) \r
0015000 ( D S P
0015020 F O N T F O N T D S C S t r
0015040 e a m ) \r
0015060 ( p r i n t o u t S
0015100 t r e a m F N T . O U T F T E
0015120 X T ) \r
0015140 ( D S P F O N T F o n
0015160 t S t r e a m ) \r
0015200 ( 006 002 f o r
0015220 006 001 Y P o s i t i o n 006 002 f
0015240 r o m 006 001 ( T I M E S 9 I
0015260 n c h e s T o P r i n t e r U n
0015300 i t s ) 006 002 t o 006 001 ( T I M
0015320 E S 1 . 5 I n c h e s T o P
0015340 r i n t e r U n i t s \r
0015360
*
0015460 ) \r
0015500 006 002
0015520 b y 006 001 ( T I M E S - 0 . 5
0015540 I n c h e s T o P r i n t e r
0015560 U n i t s ) 006 002 b i n d 006 001
0015600 ( C h a r a c t e r C o d e _
0015620 0 ) \r
0015640 006 002 d o 006 001 ( 006
0015660 002 f o r 006 001 X P o s i t i o n
0015700 006 002 f r o m 006 001 ( T I M E S
0015720 0 . 7 5 I n c h e s T o P r
0015740 i n t e r U n i t s ) \r
0015760
0016000 006 002 t o 006 001 ( T I M
0016020 E S 7 . 5 I n c h e s T o P
0016040 r i n t e r U n i t s ) 006 002 b
0016060 y 006 001 ( T I M E S 0 . 4 5
0016100 I n c h e s T o P r i n t e r U
0016120 n i t s ) \r
0016140 006
0016160 002 d o 006 001 ( M O V E T O X P
0016200 o s i t i o n Y P o s i t i o
0016220 n S t r e a m ) \r
0016240
0016260 ( 006 002 i f 006 001 ( N
0016300 E Q C h a r a c t e r C o d e
0016320 ( C H A R C O D E F F ) ) \r
0016340
*
0016400 006 002 t h e n 006 001 ( 006 002 i f 006 001
0016420 ( E Q D D e v ' D I S P L
0016440 A Y ) \r
0016460
0016500 006 002 t
0016520 h e n 006 001 ( B L T C H A R C
0016540 h a r a c t e r C o d e S t r
0016560 e a m ) \r
0016600
0016620 006 002 e l
0016640 s e 006 001 ( P R I N 1 ( C H A
0016660 R A C T E R C h a r a c t e r
0016700 C o d e ) \r
0016720
*
0016760 S t r e a m )
0017000 ) ) \r
0017020 (
0017040 S E T Q C h a r a c t e r C o
0017060 d e ( A D D 1 C h a r a c t
0017100 e r C o d e ) ) ) \r
0017120
0017140 ( p r i n t o u t T " . " )
0017160 ) \r
0017200 ( p r i n t o u t T "
0017220 d o n e . " T ] ) \r \r ( 006 004 F
0017240 N T . D I S P D S C R 006 001 \r
0017260 [ L A M B D A ( O U T F F O
0017300 N T L I S T ) 006 006 006 001
0017320
0017340 006
0017360 006 ( * F S " 2 - J u l - 8
0017400 5 1 3 : 0 0 " ) 006 001 \r
0017420 \r
0017440 006 006 ( * * P r i n t s a
0017460 l i s t o f f o n t l i s
0017500 t s w i t h f a c e l i s t
0017520 f o r m a t t i n g a p p r
0017540 o p r i a t e f o r 8 p t
0017560 . \r 006 001 006 006
0017600 t e r m i n a l ) 006 001 \r \r
0017620 ( P R O G ( N A M E S I Z
0017640 E J U N K N U M B S T R M
0017660 T E M P O F F X U N I T S
0017700 T 0 T 1 T 2 T 3 T 4
0017720 T 5 T 6 T 7 ) \r
0017740 ( 006 002 i f 006 001 ( E Q
0017760 F O N T L I S T N I L ) \r
0020000 006 002 t h
0020020 e n 006 001 ( R E T U R N N I L
0020040 ) ) \r ( S E
0020060 T Q T E M P ( D S P S C A L
0020100 E N I L O U T F ) ) \r
0020120 ( S E T Q U N I
0020140 T S ( T I M E S 4 . 2 5 T
0020160 E M P ) ) \r
0020200 ( S E T Q O F F X ( T I M E
0020220 S 4 2 . 5 T E M P ) ) \r
0020240 ( S E T Q T 0
0020260 ( P L U S O F F X ( T I M
0020300 E S 0 U N I T S ) ) ) \r
0020320 ( S E T Q T 1
0020340 ( P L U S O F F X ( T I M
0020360 E S 1 4 U N I T S ) ) ) \r
0020400 ( S E T Q T
0020420 2 ( P L U S O F F X ( T I
0020440 M E S 2 0 U N I T S ) ) ) \r
0020460 ( S E T Q
0020500 T 3 ( P L U S O F F X ( T
0020520 I M E S 3 0 U N I T S ) ) )
0020540 \r ( S E T Q
0020560 T 4 ( P L U S O F F X (
0020600 T I M E S 4 0 U N I T S ) )
0020620 ) \r ( S E T
0020640 Q T 5 ( P L U S O F F X
0020660 ( T I M E S 5 0 U N I T S )
0020700 ) ) \r ( S E
0020720 T Q T 6 ( P L U S O F F X
0020740 ( T I M E S 5 5 U N I T S
0020760 ) ) ) \r ( S
0021000 E T Q T 7 ( P L U S O F F
0021020 X ( T I M E S 7 0 U N I T
0021040 S ) ) ) \r [
0021060 M A P C F O N T L I S T ' (
0021100 L A M B D A ( D E S C R ) \r
0021120
0021140 ( S E T Q
0021160 N A M E ( C A R D E S C R
0021200 ) ) \r
0021220 (
0021240 S E T Q S I Z E ( C A D R
0021260 D E S C R ) ) \r
0021300
0021320 ( S E T Q J U N K (
0021340 C A D D R D E S C R ) ) \r
0021360
0021400 ( S E T Q
0021420 T E M P ( C D D D R D E S C
0021440 R ) ) \r
0021460
0021500 ( S E T Q N U M B ( C A R
0021520 T E M P ) ) \r
0021540
0021560 ( S E T Q S T R M ( C
0021600 A D R T E M P ) ) \r
0021620
0021640 ( D S P X P O S I
0021660 T I O N T 0 O U T F ) \r
0021700
0021720 ( p r i n t
0021740 o u t O U T F N A M E ) \r
0021760
0022000 ( D S P X
0022020 P O S I T I O N T 1 O U T F
0022040 ) \r
0022060 ( p
0022100 r i n t o u t O U T F | . I
0022120 3 | S I Z E ) \r
0022140
0022160 ( D S P X P O S I T I
0022200 O N T 2 O U T F ) \r
0022220
0022240 ( p r i n t o u
0022260 t O U T F " ( " ( C A R
0022300 J U N K ) ) \r
0022320
0022340 ( D S P X P O S I T I O N
0022360 T 3 O U T F ) \r
0022400
0022420 ( p r i n t o u t
0022440 O U T F ( C A D R J U N K )
0022460 ) \r
0022500 ( D
0022520 S P X P O S I T I O N T 4 O
0022540 U T F ) \r
0022560
0022600 ( p r i n t o u t O U T F
0022620 ( C A D D R J U N K ) \r
0022640
*
0022700 " ) " ) \r
0022720
0022740 ( D S P X P O S I T I O N T
0022760 5 O U T F ) \r
0023000
0023020 ( p r i n t o u t O U
0023040 T F N U M B ) \r
0023060
0023100 ( D S P X P O S I T I
0023120 O N T 6 O U T F ) \r
0023140
0023160 ( p r i n t o u
0023200 t O U T F S T R M ) \r
0023220
0023240 ( D S P X P O
0023260 S I T I O N T 7 O U T F ] \r
0023300 ( R E T U R
0023320 N N I L ] ) \r \r ( 006 004 F N T .
0023340 N A R R D S C R 006 001 \r [ L A
0023360 M B D A ( O U T F F O N T L
0023400 I S T ) 006 006 006 001
0023420
0023440 006 006 ( *
0023460 ; " E d i t e d 9 - J a
0023500 n - 8 7 1 8 : 5 7 b y F S
0023520 " ) 006 001 \r \r
0023540 006 006 ( * *
0023560 P r i n t s a l i s t o
0023600 f f o n t l i s t s w i t h
0023620 n a r r o w f o r m a t t i
0023640 n g a p p r o p r i a t e f
0023660 o r 8 p t . \r 006 001
0023700 006 006 t e r m i n a l )
0023720 006 001 \r \r ( P R O G ( N
0023740 A M E S I Z E F A C E N U
0023760 M B S T R M T E M P O F F
0024000 X U N I T S T 0 T 1 T 2
0024020 T 3 T 4 T 5 D E S C R )
0024040 \r ( 006 002 i f
0024060 006 001 ( E Q F O N T L I S T
0024100 N I L ) \r
0024120 006 002 t h e n 006 001 ( R E T
0024140 U R N N I L ) ) \r
0024160 ( 006 002 i f 006 001 ( T Y P
0024200 E N A M E P F O N T L I S T
0024220 ' F O N T D E S C R I P T O R )
0024240 \r 006
0024260 002 t h e n 006 001 ( S E T Q F O
0024300 N T L I S T ( 006 002 F N T . F L
0024320 S T 006 001 F O N T L I S T ) ) )
0024340 \r ( S E T Q
0024360 T E M P ( D S P S C A L E
0024400 N I L O U T F ) ) \r
0024420 ( S E T Q U N I T S
0024440 ( T I M E S 4 . 2 5 T E M
0024460 P ) ) \r ( S
0024500 E T Q O F F X ( T I M E S
0024520 4 2 . 5 T E M P ) ) \r
0024540 ( S E T Q T 0 (
0024560 P L U S O F F X ( T I M E S
0024600 0 U N I T S ) ) ) \r
0024620 ( S E T Q T 1 (
0024640 P L U S O F F X ( T I M E S
0024660 1 4 U N I T S ) ) ) \r
0024700 ( S E T Q T 2
0024720 ( P L U S O F F X ( T I M E
0024740 S 2 0 U N I T S ) ) ) \r
0024760 ( S E T Q T 3
0025000 ( P L U S O F F X ( T I M
0025020 E S 2 8 U N I T S ) ) ) \r
0025040 ( S E T Q T
0025060 4 ( P L U S O F F X ( T I
0025100 M E S 3 3 U N I T S ) ) ) \r
0025120 ( S E T Q
0025140 T 5 ( P L U S O F F X ( T
0025160 I M E S 4 8 U N I T S ) ) )
0025200 \r \r
0025220 006 006 ( * * ( M A
0025240 P C F O N T L I S T ( Q U O
0025260 T E ( L A M B D A ( D E S C
0025300 R ) \r 006 001 006
0025320 006 ( S E T Q N A M E ( C A R
0025340 D E S C R ) ) ( S E T Q S
0025360 I Z E ( C A D R D E S C R )
0025400 ) \r 006 001 006 006
0025420 ( S E T Q F A C E ( F N T .
0025440 F A C E M A P ( C A D D R D
0025460 E S C R ) ) ) ( S E T Q T E
0025500 M P \r 006 001 006
0025520 006 ( C D D D R D E S C R ) )
0025540 ( S E T Q N U M B ( C A R
0025560 T E M P ) ) ( S E T Q S T R
0025600 M \r 006 001 006 006
0025620 ( C A D R T E M P ) ) ( D S
0025640 P X P O S I T I O N T 0 O U
0025660 T F ) ( p r i n t o u t O U
0025700 T F N A M E ) \r 006 001
0025720 006 006 ( D S P X P O S I
0025740 T I O N T 1 O U T F ) ( p
0025760 r i n t o u t O U T F | . I
0026000 3 | S I Z E ) \r 006 001
0026020 006 006 ( D S P X P O S I
0026040 T I O N T 2 O U T F ) ( p
0026060 r i n t o u t O U T F F A C
0026100 E ) \r 006 001 006
0026120 006 ( D S P X P O S I T I O N T
0026140 3 O U T F ) ( p r i n t o u
0026160 t O U T F N U M B ) \r 006 001
0026200 006 006 ( D S P X
0026220 P O S I T I O N T 4 O U T F
0026240 ) ( p r i n t o u t O U T F
0026260 S T R M ) \r 006 001
0026300 006 006 ( D S P X P O S I T I
0026320 O N T 5 O U T F ) ) ) ) ) 006
0026340 001 \r \r ( 006 002
0026360 f o r 006 001 I 006 002 i n 006 001 F
0026400 O N T L I S T 006 002 d o 006 001 (
0026420 006 002 i f 006 001 ( 006 002 t y p e ? 006
0026440 001 F O N T D E S C R I P T O R
0026460 I ) \r
0026500
0026520 006 002 t h e n 006 001
0026540 ( S E T Q D E S C R ( 006 002
0026560 F N T . F L S T 006 001 I ) ) \r
0026600
*
0026640 006 002 e l s e 006 001 ( S E T Q
0026660 D E S C R I ) ) \r
0026700
0026720 ( S E T Q
0026740 N A M E ( C A R D E S C R )
0026760 ) \r
0027000
0027020 ( S E T Q S I Z E ( C A
0027040 D R D E S C R ) ) \r
0027060
0027100 ( S E T Q
0027120 F A C E ( 006 002 F N T . F A C
0027140 E M A P 006 001 ( C A D D R D E
0027160 S C R ) ) ) \r
0027200
0027220 ( S E T Q T E M
0027240 P ( C D D D R D E S C R ) )
0027260 \r
0027300
0027320 ( S E T Q N U M B ( C A R
0027340 T E M P ) ) \r
0027360
0027400 ( S E T Q S T
0027420 R M ( C A D R T E M P ) ) \r
0027440
*
0027500 ( D S P X P O S I T I O N T 0
0027520 O U T F ) \r
0027540
0027560 ( p r i n t o u t
0027600 O U T F N A M E ) \r
0027620
0027640 ( D S P
0027660 X P O S I T I O N T 1 O U T
0027700 F ) \r
0027720
0027740 ( p r i n t o u t O U T
0027760 F | . I 3 | S I Z E ) \r
0030000
0030020 ( D
0030040 S P X P O S I T I O N T 2 O
0030060 U T F ) \r
0030100
0030120 ( p r i n t o u t O
0030140 U T F F A C E ) \r
0030160
0030200 ( D S P X P
0030220 O S I T I O N T 3 O U T F )
0030240 \r
0030260
0030300 ( p r i n t o u t O U T F
0030320 N U M B ) \r
0030340
0030360 ( D S P X P O S I T
0030400 I O N T 4 O U T F ) \r
0030420
0030440 ( p r
0030460 i n t o u t O U T F S T R M
0030500 ) \r
0030520
0030540 ( D S P X P O S I T I O N
0030560 T 5 O U T F ) ) \r
0030600 ( R E T U R N N I L ]
0030620 ) \r \r ( 006 004 F N T . D I S P I N
0030640 I T 006 001 \r [ L A M B D A (
0030660 F I L E D S C ) 006 006 006 001
0030700
*
0030740 006 006 ( * F S "
0030760 2 - J u l - 8 5 1 4 : 1 4 " )
0031000 006 001 \r \r
0031020 006 006 ( * * i
0031040 n i t i a l i z a t i o n o r
0031060 o p t i m i z a t i o n f o
0031100 r f n t . d i s p f o n t ) 006
0031120 001 \r \r ( P R O G ( v a
0031140 r s . . . ) \r
0031160 ( S E T Q F N T . O U T F T
0031200 E X T " a b c d e f g h i j k
0031220 l A B C D E F G H I J K L " )
0031240 \r ( S E T Q
0031260 Q F N T . I N F O F O N T (
0031300 T E R M I N A L 8 ( M E D I
0031320 U M R E G U L A R R E G U L
0031340 A R ) \r
0031360
0031400 0 I N T E R
0031420 P R E S S ) ) \r
0031440 ( R E T U R N N I L ] ) \r
0031460 \r ( 006 004 F N T . F A C E M A P 006
0031500 001 \r [ L A M B D A ( O L D
0031520 F A C E ) 006 006 006 001
0031540
*
0031600 006 006 ( * F S " 5 - S
0031620 e p - 8 5 1 9 : 0 4 " ) 006 001 \r
0031640 \r
0031660 006 006 ( * * m a k e
0031700 s h o r t f a c e f r o m
0031720 f a c e l i s t ) 006 001 \r \r
0031740 ( S E T Q O L D F A C E
0031760 ( \ F O N T F A C E O L D F A
0032000 C E ) )
0032020 006 006 ( *
0032040 m a k e l i s t f o r m *
0032060 ) 006 001 \r ( C O N C A T
0032100 ( G N C ( M K S T R I N G (
0032120 C A R O L D F A C E ) ) ) \r
0032140 ( G N C (
0032160 M K S T R I N G ( C A D R O
0032200 L D F A C E ) ) ) \r
0032220 ( G N C ( M K S T R
0032240 I N G ( C A D D R O L D F A
0032260 C E ] ) \r \r ( 006 004 F N T . S I Z
0032300 E M A P 006 001 \r [ L A M B D A
0032320 ( S I Z E ) 006 006 006 001
0032340
*
0032400 006 006 ( * F S
0032420 " 2 - J u l - 8 5 1 4 : 1 3
0032440 " ) 006 001 \r \r
0032460 006 006 ( * *
0032500 m a k e s i z e i n t o
0032520 t w o c h a r a c t e r s t
0032540 r i n g ) 006 001 \r \r ( P R
0032560 O G ( S T R ) \r
0032600 ( 006 002 i f 006 001 ( I L E S
0032620 S P S I Z E 1 0 ) \r
0032640 006 002 t h e n
0032660 006 001 ( R E T U R N ( C O N C
0032700 A T " 0 " ( M K S T R I N G
0032720 S I Z E ) ) ) \r
0032740 006 002 e l s e 006 001 ( R
0032760 E T U R N ( M K S T R I N G
0033000 S I Z E ] ) \r \r ( 006 004 F N T . M
0033020 A K E N A M E 006 001 \r [ L A M
0033040 B D A ( F O N T L I S T ) 006 006
0033060 006 001
0033100
0033120 006 006 ( *
0033140 F S " 3 - S e p - 8 5 1 6
0033160 : 0 7 " ) 006 001 \r
0033200 \r 006 006 (
0033220 * * m a k e a u n i q u
0033240 e i n t e r p r e s s f i l
0033260 e n a m e g i v e n a f
0033300 o n t l i s t ) 006 001 \r \r
0033320 ( P R O G ( S T R T Y P E
0033340 S I Z E F A C E D D E V ) \r
0033360 ( S E T Q
0033400 T Y P E ( M K S T R I N G (
0033420 C A R F O N T L I S T ) ) ) \r
0033440 ( S E T Q
0033460 S I Z E ( 006 002 F N T . S I Z E
0033500 M A P 006 001 ( C A D R F O N T
0033520 L I S T ) ) ) \r
0033540 [ S E T Q F A C E ( M K
0033560 S T R I N G ( 006 002 F N T . F A
0033600 C E M A P 006 001 ( C A D D R F
0033620 O N T L I S T ] \r
0033640 ( S E T Q D D E V ( C
0033660 A R ( C D D D D R F O N T L
0033700 I S T ) ) ) \r
0033720 ( S E T Q S T R ( C O N C
0033740 A T ( M K S T R I N G T Y P
0033760 E ) \r
0034000 ( M
0034020 K S T R I N G S I Z E ) \r
0034040
0034060 ( M K S T R I
0034100 N G F A C E ) \r
0034120
0034140 ( G N C ( M K S T R I
0034160 N G D D E V ) ) \r
0034200
0034220 " . I P " ) ) \r
0034240 ( R E T U R N S
0034260 T R ] ) \r \r ( 006 004 F N T . M A K
0034300 E W I N D 006 001 \r [ L A M B D
0034320 A N I L 006 006 006 001
0034340
*
0034400 006 006 ( * F S
0034420 " 2 1 - M a r - 8 6 1 8 : 0
0034440 7 " ) 006 001 \r
0034460 \r 006 006 ( *
0034500 * M A K E A W I N D O W )
0034520 006 001 \r \r ( P R O G ( P
0034540 P I ) \r ( S
0034560 E T Q P P I ( T I M E S 7
0034600 2 ( D S P S C A L E N I L
0034620 T ) ) ) \r [
0034640 S E T Q F N T . W I N D O W
0034660 ( C R E A T E W ( 006 002 c r e a
0034700 t e 006 001 R E G I O N \r
0034720
*
0034760 L E F T _ 0 \r
0035000
*
0035040 B O T T O
0035060 M _ 0 \r
0035100
*
0035140 W I D T H _ ( F I X ( T
0035160 I M E S 8 . 5 P P I ) ) \r
0035200
*
0035240 H E I G H T
0035260 _ ( T I M E S 1 1 P P I
0035300 ] \r ( R E T
0035320 U R N F N T . W I N D O W ] )
0035340 \r \r ( 006 004 F N T . F I L E M A P
0035360 006 001 \r [ L A M B D A ( O U
0035400 T F N A M E N U M B E R ) 006 006
0035420 006 001
0035440
0035460 006 006 ( * F S " 5 -
0035500 S e p - 8 5 1 6 : 5 6 " ) 006 001
0035520 \r \r
0035540 006 006 ( * * T a k
0035560 e s a f i l e n a m e a
0035600 n d r e t u r n s a n I n
0035620 t e r p r e s s f i l e n a
0035640 m e w i t h n u m b e r a
0035660 t e n d * \r 006 001
0035700 006 006 * ) 006 001 \r \r
0035720 ( P R O G ( F N A M E R O
0035740 O T N A M E D E S T N A M E )
0035760 \r ( 006 002 i f
0036000 006 001 ( O R ( E Q O U T F N
0036020 A M E T ) \r
0036040 ( E Q O U T
0036060 F N A M E N I L ) ) \r
0036100 006 002 t h e n
0036120 006 001 ( R E T U R N O U T F N
0036140 A M E ) ) \r
0036160 ( S E T Q F N A M E O U T F
0036200 N A M E ) \r
0036220 ( S E T Q R O O T N A M E (
0036240 F I L E N A M E F I E L D F N
0036260 A M E ' N A M E ) ) \r
0036300 ( S E T Q R O O T
0036320 N A M E ( M K A T O M ( C O
0036340 N C A T R O O T N A M E N U
0036360 M B E R ) ) ) \r
0036400 ( S E T Q D E S T N A M E
0036420 ( P A C K F I L E N A M E '
0036440 N A M E R O O T N A M E ' B
0036460 O D Y F N A M E ) ) \r
0036500 ( R E T U R N D E
0036520 S T N A M E ] ) \r \r ( 006 004 F N T
0036540 . F I N D A L L 006 001 \r [ L A
0036560 M B D A ( D E V I C E ) 006 006 006
0036600 001
0036620
0036640 006 006 ( *
0036660 F S " 5 - S e p - 8 5 1
0036700 9 : 1 8 " ) 006 001 \r
0036720 \r 006 006
0036740 ( * * R e t u r n s l i s
0036760 t o f a l l f o n t s f
0037000 o r d e v i c e * * ) 006 001
0037020 \r \r ( L E T ( R E S U
0037040 L T ) \r ( S E
0037060 T Q R E S U L T ( F O N T S
0037100 A V A I L A B L E ' * ' *
0037120 ' \r \r
0037140 006 006 ( * * * )
0037160 006 001 \r ' * D E V I C E T )
0037200 ) \r ( S E T Q
0037220 R E S U L T ( S O R T R E
0037240 S U L T ' F N T . L E S S P ]
0037260 ) \r \r ( 006 004 F N T . F L S T 006 001
0037300 \r [ L A M B D A ( F O N T
0037320 O B J ) 006 006 006 001
0037340
*
0037400 006 006 ( * ; " E d i t e d
0037420 9 - J a n - 8 7 1 8 : 5 6
0037440 b y F S " ) 006 001 \r (
0037460 C O N D \r [ ( T Y
0037500 P E N A M E P F O N T O B J
0037520 ' F O N T D E S C R I P T O R )
0037540 \r ( L I S T (
0037560 F O N T P R O P F O N T O B J
0037600 ' F A M I L Y ) \r
0037620 ( F O N T P R O
0037640 P F O N T O B J ' S I Z E )
0037660 \r (
0037700 F O N T P R O P F O N T O B J
0037720 ' F A C E ) \r
0037740 ( F O N T P R O P
0037760 F O N T O B J ' R O T A T I O
0040000 N ) \r
0040020 ( F O N T P R O P F O N T O
0040040 B J ' D E V I C E ] \r
0040060 ( ( L I S T P F O N T O
0040100 B J ) \r F O N T
0040120 O B J ] ) \r ) \r ( P U T P R O P
0040140 S F O N T S A M P L E C O P
0040160 Y R I G H T ( " X e r o x C
0040200 o r p o r a t i o n " 1 9 8 5
0040220 1 9 8 6 1 9 8 7 ) ) \r ( D E
0040240 C L A R E % : D O N T C O P Y
0040260 \r ( F I L E M A P ( N I L
0040300 ( 1 9 3 1 1 6 4 7 1 ( F N
0040320 T . M A K E B O O K 1 9 4 1
0040340 . 3 7 4 6 ) ( F N T . L E S
0040360 S P 3 7 4 8 . 4 5 4 2 )
0040400 ( F N T . S O R T P 4 5 4 4
0040420 . 5 3 1 0 ) ( \r F N T . D I
0040440 S P L O O K 5 3 1 2 . 5 8
0040460 2 9 ) ( F N T . D I S P T B L
0040500 E 5 8 3 1 . 7 8 3 4 ) (
0040520 F N T . D I S P D S C R 7 8 3
0040540 6 . 9 9 4 3 ) ( F N T . N
0040560 A R R D S C R 9 9 4 5 . \r
0040600 1 2 6 8 9 ) ( F N T . D I S P
0040620 I N I T 1 2 6 9 1 . 1 3 1
0040640 0 3 ) ( F N T . F A C E M A P
0040660 1 3 1 0 5 . 1 3 4 9 2 )
0040700 ( F N T . S I Z E M A P 1 3 4
0040720 9 4 . 1 3 8 3 0 ) ( \r F N
0040740 T . M A K E N A M E 1 3 8 3 2
0040760 . 1 4 5 1 6 ) ( F N T . M
0041000 A K E W I N D 1 4 5 1 8 .
0041020 1 5 0 7 2 ) ( F N T . F I L E
0041040 M A P 1 5 0 7 4 . 1 5 7 0
0041060 4 ) ( F N T . F I N D A L L
0041100 \r 1 5 7 0 6 . 1 6 0 4 9 )
0041120 ( F N T . F L S T 1 6 0 5 1
0041140 . 1 6 4 6 9 ) ) ) ) ) \r S T O
0041160 P \r
0041162