$ od -c -N 50000 [phylum]<LISP>Lyric>LIBRARY>FX-80DRIVER!1
0000000 ( D E F I N E - F I L E - I N F
0000020 O 036 P A C K A G E " I N T E
0000040 R L I S P " 036 R E A D T A B L
0000060 E " I N T E R L I S P " 036 B
0000100 A S E 1 0 ) \r 006 001 ( F I L E C
0000120 R E A T E D " 2 - J u n - 8
0000140 7 1 9 : 1 6 : 4 9 " 006 004 { E
0000160 R I S } < L I S P C O R E > L I
0000200 B R A R Y > F X - 8 0 D R I V E
0000220 R . ; 1 7 006 001 2 3 2 9 5 9 \r
0000240 \r c h a n g e s t
0000260 o % : ( V A R S F X - 8 0
0000300 . F A S T - D R I V E R C O M S
0000320 ) \r
0000340 ( F N S \ F A S T
0000360 F X 8 0 . C L O S E \ H Q F X
0000400 8 0 . D U M P - P A G E - B U F
0000420 F E R ) \r \r p r e v
0000440 i o u s d a t e % : " 1 -
0000460 J u n - 8 7 1 3 : 1 0 : 5 9 "
0000500 { E R I S } < L I S P C O R E
0000520 > L I B R A R Y > F X - 8 0 D R
0000540 I V E R . ; 1 6 ) \r \r \r ( * "
0000560 \r C o p y r i g h t ( c ) 1
0000600 9 8 6 , 1 9 8 7 b y X e r
0000620 o x C o r p o r a t i o n .
0000640 A l l r i g h t s r e s e
0000660 r v e d . \r " ) \r \r ( P R E T T
0000700 Y C O M P R I N T F X - 8 0 D
0000720 R I V E R C O M S ) \r \r ( R P A
0000740 Q Q 006 002 F X - 8 0 D R I V E R
0000760 C O M S 006 001 ( \r \r 006 006 ( * ;
0001000 ; ; " F X - 8 0 d r i v e r
0001020 " ) 006 001 \r \r
0001040 ( C
0001060 O M S * F X - 8 0 . F A S T
0001100 - D R I V E R C O M S
0001120 006 006 ( * ; " t h e f
0001140 a s t d r i v e r " ) 006 001 \r )
0001160 \r
0001200 ( C O M S *
0001220 F X - 8 0 . H I G H - Q U A L
0001240 I T Y - D R I V E R C O M S \r
0001260
*
0001340 006 006 (
0001360 * ; " t h e h i g h e r
0001400 q u a l i t y d r i v e r "
0001420 ) 006 001 \r ) \r
0001440 ( C
0001460 O M S * F X 8 0 - P R I N T
0001500 C O M S
0001520 006 006 ( * ; " F X P r i
0001540 n t e r e m u l a t i o n " )
0001560 006 001 \r ) \r
0001600 ( C O
0001620 M S
0001640
0001660 006 006 ( * ; " c o m m o n
0001700 r o u t i n e s " ) 006 001 \r \r
0001720
0001740 ( F U
0001760 N C T I O N S
0002000 006 006 ( *
0002020 ; " a b o r t w i n d o w
0002040 s t u f f " ) 006 001 \r \r
0002060
*
0002120 W I T H - A B O R T - W I N D
0002140 O W \ F X 8 0 . C R E A T E -
0002160 S E N D - A B O R T - W I N D O
0002200 W ) \r
0002220
0002240 ( F U N C T I O N S
0002260
0002300 006 006 ( * ; " f o n t p r o
0002320 f i l e h a c k i n g " ) 006 001
0002340 \r \r
0002360
0002400 \ A D D - T O - F
0002420 O N T P R O F I L E \ G E T -
0002440 F R O M - F O N T P R O F I L E
0002460 ) ) \r
0002500 \r \r 006 006 (
0002520 * ; ; ; " i n i t i a l i z
0002540 a t i o n " ) 006 001 \r \r
0002560
0002600 [ C O M S ( D E C L A R
0002620 E % : D O N T E V A L @ L O A
0002640 D D O C O P Y ( P ( \ H Q
0002660 F X 8 0 . I N I T ) \r
0002700
*
0002760 ( \ F A
0003000 S T F X 8 0 . I N I T ] \r
0003020
0003040 ( P R O P F I L E T
0003060 Y P E F X - 8 0 D R I V E R )
0003100 ) ) \r \r \r \r 006 004 ( * ; ; ; "
0003120 F X - 8 0 d r i v e r " ) 006 001
0003140 \r \r \r ( R P A Q Q 006 002 F X - 8
0003160 0 . F A S T - D R I V E R C O M
0003200 S 006 001 [ \r
0003220 \r 006 006 ( *
0003240 ; ; " F a s t d r i v e r "
0003260 ) 006 001 \r \r
0003300
0003320 \r \r
0003340 006 006 ( * ; ;
0003360 " " ) 006 001 \r \r
0003400
0003420 ( S T R U C T U R E
0003440 S F A S T F X 8 0 D A T A ) \r
0003460
0003500 ( F
0003520 N S \ F A S T F X 8 0 . I N I
0003540 T ) \r
0003560
0003600 \r \r
0003620 006 006 ( * ; ; "
0003640 I m a g e s t r e a m m e t h
0003660 o d s " ) 006 001 \r \r
0003700
0003720 ( C O M S \r
0003740 \r
0003760 006 006 ( * ; ; " o p e n
0004000 i n g / c l o s i n g i m a g
0004020 e s t r e a m " ) 006 001 \r \r
0004040
*
0004100 ( C O M S ( F N S O P E N
0004120 F A S T F X 8 0 S T R E A M ) \r
0004140
*
0004200 ( F U N C T
0004220 I O N S \ F A S T F X 8 0 . P
0004240 R E A M B L E \ F A S T F X 8
0004260 0 . R E S E T - P R I N T E R
0004300 \r
0004320
*
0004360 \ F A S T F X 8 0 . O U T P
0004400 U T - S I G N A T U R E ) ) \r
0004420
*
0004460 ( F N S \ F A S T F X 8
0004500 0 . C L O S E ) ) \r
0004520
0004540 ( C O M S \r
0004560 \r
0004600 006 006 ( * ; ; " m e t
0004620 h o d s t h a t h a c k f
0004640 o n t s " ) 006 001 \r \r
0004660
0004700 ( F
0004720 N S \ F A S T F X 8 0 . C H A
0004740 N G E F O N T \ F A S T F X 8
0004760 0 . F O N T C R E A T E \r
0005000
*
0005040 \ F A S T F X 8 0
0005060 . C R E A T E C H A R S E T ) \r
0005100
*
0005140 ( F U N C T I O N S \
0005160 F A S T F X 8 0 . I N I T - F O
0005200 N T - P R O F I L E ) ) \r
0005220
0005240 ( C O M S
0005260 \r \r
0005300 006 006 ( * ; ; "
0005320 m e t h o d s f o r m e a s
0005340 u r i n g " ) 006 001 \r \r
0005360
0005400 (
0005420 F N S \ F A S T F X 8 0 . S T
0005440 R I N G W I D T H \ F A S T F
0005460 X 8 0 . C H A R W I D T H \r
0005500
*
0005540 \ F A S T F X 8
0005560 0 . S U B C H A R W I D T H ) \r
0005600
*
0005640 ( F U N C T I O N S \
0005660 F A S T F X 8 0 . S P A C E F A
0005700 C T O R ) ) \r
0005720
0005740 ( C O M S \r
0005760 \r
0006000 006 006 ( * ; ; " m e t h o d
0006020 s t h a t a f f e c t t h
0006040 e c u r r e n t p o s i t i
0006060 o n / s i z e o f d r a w i
0006100 n g s u r f a c e " ) 006 001 \r \r
0006120
*
0006160 ( F N S \ F A S T F X
0006200 8 0 . C L I P P I N G R E G I O
0006220 N \ F A S T F X 8 0 . M O V E
0006240 T O \r
0006260
0006300 \ F A
0006320 S T F X 8 0 . X P O S I T I O N
0006340 \ F A S T F X 8 0 . Y P O S I
0006360 T I O N \r
0006400
0006420 \
0006440 F A S T F X 8 0 . B A C K U P .
0006460 P A P E R \ F A S T F X 8 0 .
0006500 A D V A N C E . P A P E R \r
0006520
*
0006560 \ F A S T F X 8
0006600 0 . N E W P A G E \ F A S T F
0006620 X 8 0 . O U T C H A R \ F A S
0006640 T F X 8 0 . N E W L I N E \r
0006660
*
0006720 \ F A S T F X 8
0006740 0 . L I N E F E E D \ F A S T
0006760 F X 8 0 . D R A W L I N E ) \r
0007000
*
0007040 ( F U N C T I O N S \ F
0007060 A S T F X 8 0 . S T A R T P A G
0007100 E \ F A S T F X 8 0 . S M A R
0007120 T - X P O S I T I O N \r
0007140
*
0007200 \ F A S T F X 8
0007220 0 . T O P M A R G I N \ F A S
0007240 T F X 8 0 . B O T T O M M A R G
0007260 I N \r
0007300
0007320 \
0007340 F A S T F X 8 0 . L E F T M A R
0007360 G I N \ F A S T F X 8 0 . R I
0007400 G H T M A R G I N \r
0007420
*
0007460 \ F A S T F X 8 0 .
0007500 C U R - P O S - V I S I B L E ?
0007520 \ F A S T F X 8 0 . H O R I Z
0007540 O N T A L ) ) \r
0007560
0007600 ( C O M S \r
0007620 \r
0007640 006 006 ( * ; ; " p r i n t
0007660 e r c o d e " ) 006 001 \r \r
0007700
*
0007740 ( F U N C T I O N S \ F A S
0007760 T F X 8 0 . S E N D M A K E -
0010000 F A S T F X 8 0 F A S T F X 8
0010020 0 F I L E P \r
0010040
*
0010100 \ F A S T F X 8 0 . C A N
0010120 N O T - P R I N T - B I T M A P
0010140 S ) \r
0010160
0010200 ( F N S \ F A S
0010220 T F X 8 0 . C O N V E R T - T E
0010240 D I T ) ) \r
0010260
0010300 ( C O M S \r
0010320 \r
0010340 006 006 ( * ; ; " C h a r a c t
0010360 e r t r a n s m i s s i o n
0010400 m e t h o d " ) 006 001 \r \r
0010420
*
0010460 ( F N S \ F A S T F X 8 0 . B
0010500 O U T ) ) \r
0010520
0010540 \r \r
0010560 006 006 ( * ;
0010600 ; " M i s c e l l a n y " ) 006
0010620 001 \r \r
0010640
0010660 ( F U N C T I O N S \ F A S
0010700 T F X 8 0 . T R A N S L A T E -
0010720 C H A R W I T H - F A S T F X
0010740 8 0 - D A T A ) \r
0010760
0011000 ( C O N S T A N T
0011020 S ( \ F A S T F X 8 0 . D O T
0011040 S P E R I N C H 7 2 ) \r
0011060
*
0011120 ( \ F A S T F X 8 0 . L I N
0011140 E S P E R I N C H 6 ) \r
0011160
*
0011220 ( \ F A S T F X 8 0 . L I N
0011240 E H E I G H T 1 2 ) \r
0011260
*
0011340 006 006 ( * ;
0011360 " i n d o t s " ) 006 001 \r \r
0011400
*
0011440 ( \ F A S T F X 8 0 . F I
0011460 L E - S I G N A T U R E " F a
0011500 s t F X - 8 0 / X e r o x / 1 .
0011520 0 " ) ) \r
0011540
0011560 ( I N I T V A R S ( F
0011600 A S T F X 8 0 - D E F A U L T -
0011620 D E S T I N A T I O N " { T T
0011640 Y } " ) \r
0011660
0011700 ( \ F A S T
0011720 F X 8 0 . I N C H E S - P E R -
0011740 P A G E 1 1 ) \r
0011760
0012000 ( \
0012020 F A S T F X 8 0 . I N C H E S -
0012040 P E R - L I N E 8 . 5 ) ) \r
0012060
0012100 ( C O
0012120 M S \r \r
0012140 006 006 ( * ; ;
0012160 " n e e d t o l o a d t
0012200 h e s e e x p o r t s " ) 006 001
0012220 \r \r
0012240
0012260 ( D E C L A R E % :
0012300 E V A L @ L O A D E V A L @
0012320 C O M P I L E D O N T C O P Y
0012340 ( F I L E S ( L O A D C O M
0012360 P ) \r
0012400
*
0012500 A D I S P L A
0012520 Y ] ) \r \r \r \r 006 004 ( * ; ; "
0012540 F a s t d r i v e r " ) 006 001 \r
0012560 \r \r \r \r 006 004 ( * ; ; " " ) 006
0012600 001 \r \r \r ( C L : D E F S T R U C
0012620 T 006 002 F A S T F X 8 0 D A T A
0012640 006 001 \r \r
0012660 006 006 ( * ; ;
0012700 " t h e i m a g e d a t a
0012720 v e c t o r f o r a f a s
0012740 t f x 8 0 i m a g e s t r e a
0012760 m " ) 006 001 \r ( V I R T U A L -
0013000 X P O S 0 ) \r ( V I R T U A
0013020 L - Y P O S 0 ) \r ( R E A L
0013040 - X P O S 0 ) \r ( R E A L -
0013060 Y P O S 0 ) \r C L I P P I N
0013100 G R E G I O N B A C K I N G S
0013120 T R E A M ( L E F T M A R G I
0013140 N 0 ) \r R I G H T M A R G I
0013160 N T O P M A R G I N ( B O T
0013200 T O M M A R G I N 0 ) \r F O
0013220 N T P A P E R - W I D T H P
0013240 A P E R - H E I G H T ( S P A
0013260 C E F A C T O R 1 . 0 ) ) \r \r
0013300 ( D E F I N E Q \r \r ( 006 004 \ F A
0013320 S T F X 8 0 . I N I T 006 001 \r
0013340 [ L A M B D A N I L 006 006 006 001
0013360
*
0013420 006
0013440 006 ( * ; " E d i t e d 1 6
0013460 - D e c - 8 6 1 2 : 0 3 b y
0013500 h d j " ) 006 001 \r ( 006 002
0013520 D E C L A R E 006 001 ( G L O B A
0013540 L V A R S D E F A U L T P R I
0013560 N T I N G H O S T I M A G E S
0013600 T R E A M T Y P E S P R I N T
0013620 E R T Y P E S P R I N T F I L
0013640 E T Y P E S \r
0013660 \ F A S
0013700 T F X 8 0 . I M A G E O P S \
0013720 F A S T F X 8 0 . F D E V ) ) \r
0013740 ( S E T Q \ F A S T F
0013760 X 8 0 . F D E V ( 006 002 c r e a
0014000 t e 006 001 F D E V \r
0014020
0014040 D E V I C E
0014060 N A M E _ ( L I S T ' F A
0014100 S T F X 8 0 ' P R I N T E R )
0014120 \r
0014140
0014160 C L O S E F I L E _ ( F U
0014200 N C T I O N N I L L ) \r
0014220
0014240 B O U
0014260 T _ ( F U N C T I O N \ F
0014300 A S T F X 8 0 . B O U T ) ) ) \r
0014320 ( S E T Q \ F A S T F
0014340 X 8 0 . I M A G E O P S ( 006 002
0014360 c r e a t e 006 001 I M A G E O P
0014400 S \r
0014420
0014440 I M A G E T Y P E
0014460 _ ' F A S T F X 8 0 \r
0014500
*
0014540 I M F O N T _ ( F U N C T I
0014560 O N \ F A S T F X 8 0 . C H A
0014600 N G E F O N T ) \r
0014620
0014640 I M L
0014660 E F T M A R G I N _ ( F U N
0014700 C T I O N \ F A S T F X 8 0 .
0014720 L E F T M A R G I N ) \r
0014740
*
0015000 I M R I G H T M A R G I N _
0015020 ( F U N C T I O N \ F A S T F
0015040 X 8 0 . R I G H T M A R G I N )
0015060 \r
0015100
0015120 I M T O P M A R G I N
0015140 _ ( F U N C T I O N \ F A
0015160 S T F X 8 0 . T O P M A R G I N
0015200 ) \r
0015220
0015240 I M B O T T O M M A
0015260 R G I N _ ( F U N C T I O N
0015300 \ F A S T F X 8 0 . B O T T O
0015320 M M A R G I N ) \r
0015340
0015360 I M L
0015400 I N E F E E D _ ( F U N C T
0015420 I O N N I L L ) \r
0015440
0015460 I M
0015500 T E R P R I _ ( F U N C T I
0015520 O N \ F A S T F X 8 0 . N E W
0015540 L I N E ) \r
0015560
0015600 I M X P O S
0015620 I T I O N _ ( F U N C T I O
0015640 N \ F A S T F X 8 0 . X P O S
0015660 I T I O N ) \r
0015700
0015720 I M Y P O
0015740 S I T I O N _ ( F U N C T I
0015760 O N \ F A S T F X 8 0 . Y P O
0016000 S I T I O N ) \r
0016020
0016040 I M C L
0016060 O S E F N _ ( F U N C T I O
0016100 N \ F A S T F X 8 0 . C L O S
0016120 E ) \r
0016140
0016160 I M M O V E T O
0016200 _ ( F U N C T I O N \ F A S
0016220 T F X 8 0 . M O V E T O ) \r
0016240
*
0016300 I M D R A W C U R V E _
0016320 ( F U N C T I O N N I L L ) \r
0016340
*
0016400 I M F I L L C I R C L E
0016420 _ ( F U N C T I O N N I L
0016440 L ) \r
0016460
0016500 I M D R A W L I N
0016520 E _ ( F U N C T I O N N I
0016540 L L ) \r
0016560
0016600 I M D R A W E L
0016620 L I P S E _ ( F U N C T I O
0016640 N N I L L ) \r
0016660
0016700 I M D R
0016720 A W C I R C L E _ ( F U N C
0016740 T I O N N I L L ) \r
0016760
0017000 I
0017020 M B I T B L T _ ( F U N C T
0017040 I O N N I L L ) \r
0017060
0017100 I M
0017120 B L T S H A D E _ ( F U N C
0017140 T I O N N I L L ) \r
0017160
0017200 I
0017220 M N E W P A G E _ ( F U N C
0017240 T I O N \ F A S T F X 8 0 . N
0017260 E W P A G E ) \r
0017300
0017320 I M S C
0017340 A L E _ [ F U N C T I O N
0017360 ( L A M B D A N I L 1 ] \r
0017400
*
0017440 I M S P A C E F A C T O R
0017460 _ ( F U N C T I O N N I L
0017500 L ) \r
0017520
0017540 I M F O N T C R E
0017560 A T E _ ' F A S T F X 8 0 \r
0017600
*
0017640 I M C O L O R _ ( F
0017660 U N C T I O N N I L L ) \r
0017700
*
0017740 I M B A C K C O L O R _
0017760 ( F U N C T I O N N I L L ) \r
0020000
*
0020040 I M O P E R A T I O N
0020060 _ ( F U N C T I O N N I L L
0020100 ) \r
0020120
0020140 I M S T R I N G W I
0020160 D T H _ ( F U N C T I O N
0020200 \ F A S T F X 8 0 . S T R I N G
0020220 W I D T H ) \r
0020240
0020260 I M C H A
0020300 R W I D T H _ ( F U N C T I
0020320 O N \ F A S T F X 8 0 . C H A
0020340 R W I D T H ) \r
0020360
0020400 I M C L
0020420 I P P I N G R E G I O N _ (
0020440 F U N C T I O N \ F A S T F X
0020460 8 0 . C L I P P I N G R E G I O
0020500 N ) \r
0020520
0020540 I M R E S E T _
0020560 ( F U N C T I O N N I L L )
0020600 \r
0020620
0020640 I M D R A W P O L Y G
0020660 O N _ ( F U N C T I O N N
0020700 I L L ) \r
0020720
0020740 I M F I L L P
0020760 O L Y G O N _ ( F U N C T I
0021000 O N N I L L ) \r
0021020
0021040 I M S
0021060 C A L E D B I T B L T _ ( F
0021100 U N C T I O N N I L L ) ) ) \r
0021120 [ 006 002 p u s h 006 001 I M
0021140 A G E S T R E A M T Y P E S (
0021160 C O P Y A L L ' ( F A S T F X
0021200 8 0 ( O P E N S T R E A M O
0021220 P E N F A S T F X 8 0 S T R E A
0021240 M ) \r
0021260
0021300 (
0021320 F O N T C R E A T E \ F A S T
0021340 F X 8 0 . F O N T C R E A T E )
0021360 \r
0021400
0021420 ( F O
0021440 N T S A V A I L A B L E \ S E
0021460 A R C H D I S P L A Y F O N T F
0021500 I L E S ) \r
0021520
*
0021560 ( C R E A T E C H A R S E T
0021600 \ F A S T F X 8 0 . C R E A T
0021620 E C H A R S E T ] \r [ 006
0021640 002 p u s h 006 001 P R I N T E R T
0021660 Y P E S ( C O P Y A L L ' (
0021700 ( F A S T F X 8 0 ) \r
0021720
0021740 ( C A
0021760 N P R I N T ( F A S T F X 8 0
0022000 ) ) \r
0022020
0022040 ( S T A T U S T R U
0022060 E ) \r
0022100
0022120 ( S E N D \ F A S T
0022140 F X 8 0 . S E N D ) \r
0022160
0022200 ( B I
0022220 T M A P S C A L E N I L ) \r
0022240
*
0022300 ( B I T M A P F I L E ( \ F
0022320 A S T F X 8 0 . C A N N O T - P
0022340 R I N T - B I T M A P S F I L
0022360 E B I T M A P S C A L E F A
0022400 C T O R \r
0022420
*
0022460 R E G I O
0022500 N R O T A T I O N T I T L E
0022520 ) ) \r
0022540
0022560 ( P R O P E R T I E S
0022600 N I L L ] \r [ 006 002 p u
0022620 s h 006 001 P R I N T F I L E T Y
0022640 P E S ( C O P Y A L L ' ( F
0022660 A S T F X 8 0 ( T E S T F A
0022700 S T F X 8 0 F I L E P ) \r
0022720
*
0022760 ( E X T E N S I O
0023000 N ( F A S T F X 8 0 ) ) \r
0023020
*
0023060 ( C O N V E R S
0023100 I O N ( T E X T M A K E - F
0023120 A S T F X 8 0 T E D I T \r
0023140
*
0023220 \ F A S T
0023240 F X 8 0 . C O N V E R T - T E D
0023260 I T ] \r ( 006 002 p u s h 006
0023300 001 D E F A U L T P R I N T I N
0023320 G H O S T ( L I S T ' F A S
0023340 T F X 8 0 ' F A S T F X 8 0 )
0023360 ) \r ( P U T P R O P '
0023400 F A S T F X 8 0 ' P R I N T E
0023420 R T Y P E ' F A S T F X 8 0 )
0023440 \r ( \ F A S T F X 8 0 .
0023460 I N I T - F O N T - P R O F I L
0023500 E ) \r T ] ) \r ) \r \r \r \r
0023520 006 004 ( * ; ; " I m a g e s t
0023540 r e a m m e t h o d s " ) 006 001
0023560 \r \r \r \r \r 006 004 ( * ; ; " o p
0023600 e n i n g / c l o s i n g i m
0023620 a g e s t r e a m " ) 006 001 \r \r (
0023640 D E F I N E Q \r \r ( 006 004 O P E N
0023660 F A S T F X 8 0 S T R E A M 006 001
0023700 \r [ L A M B D A ( F I L E
0023720 N A M E O P T I O N S ) 006 006 006
0023740 001
0023760
0024000 006 006 ( * ; " E d i t e d
0024020 1 8 - D e c - 8 6 1 6 : 0 2
0024040 b y h d j " ) 006 001 \r
0024060 \r
0024100 006 006 ( * ; ; " o p e n a
0024120 f a s t f x 8 0 i m a g e s
0024140 t r e a m " ) 006 001 \r \r (
0024160 L E T * [ [ B A C K I N G (
0024200 O P E N S T R E A M F I L E N
0024220 A M E ' O U T P U T N I L
0024240 ' ( ( S E Q U E N T I A L T )
0024260 \r
0024300
*
0024340 ( T Y P E F A
0024360 S T F X 8 0 ] \r
0024400 ( P A P E R - W I D T H
0024420 ( F I X ( T I M E S \ F A S
0024440 T F X 8 0 . I N C H E S - P E R
0024460 - L I N E \ F A S T F X 8 0 .
0024500 D O T S P E R I N C H ) ) ) \r
0024520 ( P A P E R
0024540 - H E I G H T ( F I X ( T I
0024560 M E S \ F A S T F X 8 0 . I N
0024600 C H E S - P E R - P A G E \ F
0024620 A S T F X 8 0 . D O T S P E R I
0024640 N C H ) ) ) \r
0024660 ( F A S T F X 8 0 S T R E A
0024700 M ( 006 002 c r e a t e 006 001 S T
0024720 R E A M \r
0024740
0024760 F U L L F I L E N
0025000 A M E _ ( F U L L N A M E
0025020 B A C K I N G ) \r
0025040
0025060 D E V I C
0025100 E _ \ F A S T F X 8 0 . F D
0025120 E V \r
0025140
0025160 A C C E S S _ ' O
0025200 U T P U T \r
0025220
0025240 O U T C H A R F
0025260 N _ ( F U N C T I O N \ F
0025300 A S T F X 8 0 . O U T C H A R )
0025320 \r
0025340
0025360 I M A G E O P S _ \ F
0025400 A S T F X 8 0 . I M A G E O P S
0025420 \r
0025440
0025460 I M A G E D A T A _ (
0025500 M A K E - F A S T F X 8 0 D A T
0025520 A : B A C K I N G S T R E A M
0025540 B A C K I N G \r
0025560
*
0025620 :
0025640 C L I P P I N G R E G I O N (
0025660 C R E A T E R E G I O N 0 0
0025700 P A P E R - W I D T H \r
0025720
*
0026020 P A P E R -
0026040 H E I G H T ) \r
0026060
*
0026120 : R I
0026140 G H T M A R G I N P A P E R -
0026160 W I D T H : T O P M A R G I N
0026200 \r
0026220
*
0026260 ( - P A P E R - H
0026300 E I G H T ( T I M E S 3 \
0026320 F A S T F X 8 0 . L I N E H E I
0026340 G H T ) ) \r
0026360
*
0026420 : B O T T
0026440 O M M A R G I N \r
0026460
*
0026520 ( T
0026540 I M E S 3 \ F A S T F X 8 0
0026560 . L I N E H E I G H T ) \r
0026600
*
0026660 : P A P E R - W I D T H P
0026700 A P E R - W I D T H : P A P E
0026720 R - H E I G H T \r
0026740
*
0027000 P
0027020 A P E R - H E I G H T ] \r
0027040 ( 006 002 r e p l a c
0027060 e 006 001 ( S T R E A M U S E R
0027100 V I S I B L E ) 006 002 o f 006 001
0027120 B A C K I N G 006 002 w i t h 006 001
0027140 N I L ) \r
0027160 ( \ F A S T F X 8 0 . P R E A M
0027200 B L E F A S T F X 8 0 S T R E
0027220 A M ) \r F A
0027240 S T F X 8 0 S T R E A M ] ) \r )
0027260 \r \r ( C L : D E F U N 006 002 \ F
0027300 A S T F X 8 0 . P R E A M B L E
0027320 006 001 ( F A S T F X 8 0 S T R E
0027340 A M ) \r \r
0027360 006 006 ( * ;
0027400 ; " s t a r t a F A S T F
0027420 X 8 0 m a s t e r " ) 006 001 \r
0027440 \r \r 006 006 ( * ; ; ; " m u s t
0027460 c h a n g e F A S T F X 8 0
0027500 F I L E P w h e n t h i s
0027520 c h a n g e s " ) 006 001 \r \r ( 006
0027540 002 D E C L A R E 006 001 ( G L O B
0027560 A L V A R S \ F A S T F X 8 0
0027600 . I N C H E S - P E R - P A G E
0027620 ) ) \r ( \ F A S T F X 8 0 . R
0027640 E S E T - P R I N T E R F A S
0027660 T F X 8 0 S T R E A M \ F A S
0027700 T F X 8 0 . I N C H E S - P E R
0027720 - P A G E ) \r ( \ F A S T F X
0027740 8 0 . O U T P U T - S I G N A T
0027760 U R E F A S T F X 8 0 S T R E
0030000 A M ) \r ( \ F A S T F X 8 0 .
0030020 C H A N G E F O N T F A S T F
0030040 X 8 0 S T R E A M ( D E F A U
0030060 L T F O N T ' F A S T F X 8 0
0030100 ) ) \r ( \ F A S T F X 8 0 . S
0030120 T A R T P A G E F A S T F X 8
0030140 0 S T R E A M ) ) \r \r \r ( C L :
0030160 D E F U N 006 002 \ F A S T F X 8
0030200 0 . R E S E T - P R I N T E R 006
0030220 001 ( F A S T F X 8 0 S T R E A
0030240 M I N C H E S - P E R - P A G
0030260 E ) \r \r
0030300 006 006 ( * ; ;
0030320 " s e n d a r e s e t s
0030340 e q u e n c e t o t h e f
0030360 x - 8 0 " ) 006 001 \r ( 006 002 I F 006
0030400 001 ( A N D ( < = 1 I N C
0030420 H E S - P E R - P A G E ) \r
0030440 ( < = I N C H
0030460 E S - P E R - P A G E 2 1 ) )
0030500 \r 006 002 T H E N 006 001 006
0030520 006 ( * ; ; " s e n d a r
0030540 e s e t s e q u e n c e t o
0030560 t h e f x - 8 0 . . . " ) 006
0030600 001 \r \r ( \ F
0030620 A S T F X 8 0 . B O U T F A S
0030640 T F X 8 0 S T R E A M ( C H A
0030660 R C O D E E S C ) ) \r
0030700 ( \ F A S T F X 8 0
0030720 . B O U T F A S T F X 8 0 S T
0030740 R E A M ( C H A R C O D E @
0030760 ) ) \r \r
0031000 006 006 ( * ; ;
0031020 " . . . a n d s e t t h e
0031040 f o r m l e n g t h " ) 006 001
0031060 \r \r ( \ F A
0031100 S T F X 8 0 . B O U T F A S T
0031120 F X 8 0 S T R E A M ( C H A R
0031140 C O D E E S C ) ) \r
0031160 ( \ F A S T F X 8 0 .
0031200 B O U T F A S T F X 8 0 S T R
0031220 E A M ( C H A R C O D E C )
0031240 ) \r ( \ F A
0031260 S T F X 8 0 . B O U T F A S T
0031300 F X 8 0 S T R E A M ( F I X R
0031320 ( T I M E S I N C H E S - P
0031340 E R - P A G E \ F A S T F X 8
0031360 0 . L I N E S P E R I N C H ) )
0031400 ) \r 006 002 E L S E 006 001 ( E
0031420 R R O R " I l l e g a l p a
0031440 g e l e n g t h v a l u e "
0031460 I N C H E S - P E R - P A G E
0031500 ) ) ) \r \r \r ( C L : D E F U N
0031520 006 002 \ F A S T F X 8 0 . O U T P
0031540 U T - S I G N A T U R E 006 001 (
0031560 F A S T F X 8 0 S T R E A M )
0031600 \r \r
0031620 006 006 ( * ; ; " s
0031640 t a r t t h e f i l e w i
0031660 t h a n i d e n t i f y i n
0031700 g s i g n a t u r e . E n
0031720 s u r e i t i s n o t p
0031740 r i n t e d b y f o l l o w
0031760 i n g i t w i t h a n e
0032000 q u a l n u m b e r o f A
0032020 S C I I 1 2 7 ' s . " ) 006 001 \r
0032040 \r
0032060 006 006 ( * ; ; " T h
0032100 i s w i l l n o t w o r k
0032120 i f S I G N A T U R E c o
0032140 n t a i n s l i n e - e n d i
0032160 n g c h a r a c t e r s . " )
0032200 006 001 \r \r ( L E T ( ( D E L -
0032220 B Y T E 1 2 7 ) ) \r
0032240 ( 006 002 F O R 006 001 B Y T E I
0032260 N S T R I N G \ F A S T F X 8
0032300 0 . F I L E - S I G N A T U R E
0032320 006 002 D O 006 001 ( \ F A S T F X
0032340 8 0 . B O U T F A S T F X 8 0
0032360 S T R E A M B Y T E ) ) \r
0032400 ( 006 002 F O R 006 001 B Y T
0032420 E I N S T R I N G \ F A S T
0032440 F X 8 0 . F I L E - S I G N A T
0032460 U R E 006 002 D O 006 001 ( \ F A S
0032500 T F X 8 0 . B O U T F A S T F
0032520 X 8 0 S T R E A M D E L - B Y
0032540 T E ) ) ) ) \r \r ( D E F I N E Q
0032560 \r \r ( 006 004 \ F A S T F X 8 0 . C
0032600 L O S E 006 001 \r [ L A M B D A
0032620 ( F A S T F X 8 0 S T R E A M
0032640 ) 006 006 006 001
0032660
0032700 006 006 ( * ; "
0032720 E d i t e d 2 - J u n - 8 7
0032740 1 9 : 1 1 b y S n o w " )
0032760 006 001 \r \r
0033000 006 006 ( * ; ;
0033020 " c l o s e a f a s t f x
0033040 8 0 s t r e a m " ) 006 001 \r \r
0033060 ( W I T H - F A S T F X
0033100 8 0 - D A T A ( D A T A F A
0033120 S T F X 8 0 S T R E A M ) \r
0033140 ( 006 002 \ F A S
0033160 T F X 8 0 . O U T C H A R 006 001
0033200 F A S T F X 8 0 S T R E A M (
0033220 C H A R C O D E C R ) ) \r
0033240 \r
0033260 006 006 ( * ; ; \r 006 001
0033300 006 006 " d o a b o u t
0033320 h e r e b e c a u s e a n
0033340 o u t c h a r w i l l c a u
0033360 s e a n e w - p a g e w h
0033400 i c h t h e n a d d s 4
0033420 l i n e s t o t h e o u t
0033440 p u t . " ) 006 001 \r \r
0033460 ( 006 002 \ F A S T F X 8
0033500 0 . B O U T 006 001 F A S T F X 8
0033520 0 S T R E A M ( C H A R C O D
0033540 E F F ) ) \r
0033560 ( \ C L O S E F I L E ( F
0033600 A S T F X 8 0 D A T A - B A C K
0033620 I N G S T R E A M D A T A ) )
0033640 \r ( 006 002 f
0033660 e t c h 006 001 ( S T R E A M F
0033700 U L L F I L E N A M E ) 006 002 o
0033720 f 006 001 F A S T F X 8 0 S T R E
0033740 A M ] ) \r ) \r \r \r \r 006 004 ( * ;
0033760 ; " m e t h o d s t h a t
0034000 h a c k f o n t s " ) 006 001 \r \r
0034020 ( D E F I N E Q \r \r ( 006 004 \ F A
0034040 S T F X 8 0 . C H A N G E F O N
0034060 T 006 001 \r [ L A M B D A ( S
0034100 T R E A M F O N T ) 006 006 006 001
0034120
*
0034160 006 006 ( * ; " E d i
0034200 t e d 1 6 - F e b - 8 7 1 0
0034220 : 4 2 b y j d s " ) 006 001 \r
0034240 \r
0034260 006 006 ( * ; ; " f o n
0034300 t - c h a n g e m e t h o d
0034320 f o r t h e f a s t f x -
0034340 8 0 d e v i c e " ) 006 001 \r \r
0034360 ( W I T H - F A S T F X 8
0034400 0 - D A T A ( D A T A S T R
0034420 E A M ) \r
0034440 ( P R O G 1 ( F A S T F X 8 0
0034460 D A T A - F O N T D A T A ) \r
0034500
0034520 ( C O N D \r
0034540 ( F O
0034560 N T ( S E T Q F O N T ( F
0034600 O N T C R E A T E F O N T N
0034620 I L N I L N I L ' F A S T
0034640 F X 8 0 ) ) \r
0034660
0034700 ( C O N D \r
0034720
0034740 ( ( N E Q F O N T
0034760 ( F A S T F X 8 0 D A T A - F
0035000 O N T D A T A ) ) \r
0035020
0035040 [ L E T (
0035060 [ I T A L I C P ( F M E M B
0035100 ' I T A L I C ( F O N T P R O
0035120 P F O N T ' F A C E ] \r
0035140
*
0035200 [ B O L D P ( F M E M B
0035220 ' B O L D ( F O N T P R O P
0035240 F O N T ' F A C E ] \r
0035260
*
0035320 ( U N D E R L I N E - N E S
0035340 S 1 2 8 ) \r
0035360
0035400 ( I T A
0035420 L I C - N E S S 6 4 ) \r
0035440
*
0035500 ( E X P A N D E D - N E S S
0035520 3 2 ) \r
0035540
0035560 ( D O U B L
0035600 E - S T R I K E - N E S S 1 6
0035620 ) \r
0035640
0035660 ( E M P H A S I Z
0035700 E D - N E S S 8 ) \r
0035720
*
0035760 ( C O M P R E S S E D - N E S S
0036000 4 ) \r
0036020
0036040 ( E L I T E -
0036060 N E S S 1 ) \r
0036100
0036120 ( P I
0036140 C A - N E S S 0 ) ) \r
0036160 \r
0036200 006 006 ( * ; ; " S e n d m
0036220 a s t e r s e l e c t c o d
0036240 e a n d i n f o r m p r i
0036260 n t e r o f b o l d n e s s
0036300 , i t a l i c i s m , a n d
0036320 n e w f o n t s i z e :
0036340 p i c a f o r r e g u l a r
0036360 s i z e d f o n t s , e m
0036400 p h a s i z e d p i c a f o
0036420 r l a r g e f o n t s . " )
0036440 006 001 \r \r
0036460
0036500 ( 006 002 \ F A S T
0036520 F X 8 0 . B O U T 006 001 S T R E
0036540 A M ( C H A R C O D E E S C
0036560 ) ) \r
0036600
0036620 ( 006 002 \ F A S T F
0036640 X 8 0 . B O U T 006 001 S T R E A
0036660 M ( C H A R C O D E ! ) ) \r
0036700
*
0036740 [ 006 002 \ F A S T F X 8 0
0036760 . B O U T 006 001 S T R E A M (
0037000 L O G O R ( C O N D \r
0037020
*
0037120 ( I T A L I C P I T A L I C
0037140 - N E S S ) \r
0037160
*
0037240 ( T P
0037260 I C A - N E S S ) ) \r
0037300
*
0037360 ( C O
0037400 N D \r
0037420
*
0037500 ( B O L D P E
0037520 M P H A S I Z E D - N E S S ) \r
0037540
*
0037640 ( T P I C A - N E S
0037660 S ) ) \r
0037700
*
0037760 ( C O N D \r
0040000
*
0040100 ( ( > ( F O N T P R O P F
0040120 O N T ' S I Z E ) \r
0040140
*
0040240 1 2 ) \r
0040260
*
0040340 E X
0040360 P A N D E D - N E S S ) \r
0040400
*
0040500 ( T P I C A - N E S S ] \r
0040520 \r
0040540 006 006 ( * ; ; " S e
0040560 t i t a l i c n e s s , s i
0040600 n c e F X - 8 0 d o e s n '
0040620 t s u p p o r t t h e I T
0040640 A L I C b i t i n m a s t
0040660 e r r e s e t . " ) 006 001 \r \r
0040700
*
0040740 ( 006 002 \ F A S T F X 8 0 .
0040760 B O U T 006 001 S T R E A M ( C
0041000 H A R C O D E E S C ) ) \r
0041020
*
0041060 ( C O N D \r
0041100
0041120 (
0041140 I T A L I C P
0041160 006 006 ( * ; " t u r
0041200 n i t o n " ) 006 001 \r
0041220
*
0041260 ( 006 002 \ F A
0041300 S T F X 8 0 . B O U T 006 001 S T
0041320 R E A M ( C H A R C O D E 4
0041340 ) ) ) \r
0041360
0041400 ( T
0041420
0041440 006 006 ( * ; " t u r n i t
0041460 o f f " ) 006 001 \r
0041500
*
0041540 ( 006 002 \ F A S T F X 8 0 .
0041560 B O U T 006 001 S T R E A M ( C
0041600 H A R C O D E 5 ] \r
0041620
0041640 ( C L : S E
0041660 T F ( F A S T F X 8 0 D A T A
0041700 - F O N T D A T A ) \r
0041720
*
0041760 F O N T ] ) \r \r ( 006 004 \ F A
0042000 S T F X 8 0 . F O N T C R E A T
0042020 E 006 001 \r [ L A M B D A ( F
0042040 A M I L Y S I Z E F A C E
0042060 R O T A T I O N D E V I C E
0042100 C H A R S E T ) 006 006 006 001
0042120 006 006 ( * h d j " 2
0042140 7 - O c t - 8 6 1 4 : 5 9 " )
0042160 006 001 \r \r
0042200 006 006 ( * ; ;
0042220 " c r e a t e a n d r e t
0042240 u r n a f o n t d e s c r i
0042260 p t o r f o r a f a s t f
0042300 x 8 0 f o n t " ) 006 001 \r \r
0042320 ( L E T ( ( F O N T D E S
0042340 C ( 006 002 c r e a t e 006 001 F O
0042360 N T D E S C R I P T O R \r
0042400
0042420 F O N T D E V I
0042440 C E _ ' F A S T F X 8 0 \r
0042460
0042500 F O N T F A
0042520 M I L Y _ F A M I L Y \r
0042540
0042560 F O N T S I Z
0042600 E _ S I Z E \r
0042620
0042640 F O N T F A C E _ F
0042660 A C E \r
0042700 R
0042720 O T A T I O N _ R O T A T I
0042740 O N \r
0042760 F O
0043000 N T S C A L E _ 1 \r
0043020
0043040 \ S F H e i g h t
0043060 _ 9 \r
0043100
0043120 \ S F A s c e n t _ 7 \r
0043140
0043160 \ S F D e s c
0043200 e n t _ 2 ) ) ) \r
0043220 ( 006 002 i f 006 001 ( \ G E
0043240 T C H A R S E T I N F O C H A
0043260 R S E T F O N T D E S C T )
0043300 \r 006 002
0043320 t h e n 006 001 F O N T D E S C \r
0043340 006 002 e l s
0043360 e 006 001 N I L ] ) \r \r ( 006 004 \ F
0043400 A S T F X 8 0 . C R E A T E C H
0043420 A R S E T 006 001 \r [ L A M B D
0043440 A ( F A M I L Y S I Z E F
0043460 A C E R O T A T I O N D E V
0043500 I C E C H A R S E T F O N T
0043520 D E S C ) 006 006 006 001 006 006 ( * h d
0043540 j " 2 7 - O c t - 8 6 1 4 :
0043560 5 7 " ) 006 001 \r
0043600 \r 006 006 ( *
0043620 ; ; " C r e a t e a c h
0043640 a r a c t e r s e t f o r
0043660 t h e f a s t f x - 8 0 .
0043700 R e a l l y o n l y w o r
0043720 k s f o r c h a r s e t
0043740 0 ; r e t u r n s t h e s
0043760 a m e i n f o f o r a l l
0044000 s e t s . " ) 006 001 \r
0044020 \r
0044040 006 006 ( * * ( i f ( N E Q
0044060 0 C H A R S E T ) t h e n
0044100 ( E R R O R " F X - 8 0 d o
0044120 e s n o t s u p p o r t N
0044140 S c h a r a c t e r s . " ) )
0044160 ) 006 001 \r \r ( L E T ( (
0044200 W I D T H S ( \ C R E A T E C
0044220 S I N F O E L E M E N T ) ) ) \r
0044240 ( 006 002 f o r 006
0044260 001 C 006 002 f r o m 006 001 3 2
0044300 006 002 t o 006 001 2 5 4 006 002 d o 006
0044320 001 ( \ F S E T W I D T H W I
0044340 D T H S C ( 006 002 \ F A S T F
0044360 X 8 0 . S U B C H A R W I D T H
0044400 006 001 C S I Z E ) ) ) \r
0044420 ( 006 002 c r e a t e 006
0044440 001 C H A R S E T I N F O \r
0044460 W I
0044500 D T H S _ W I D T H S \r
0044520 I M
0044540 A G E W I D T H S _ W I D T
0044560 H S \r
0044600 Y W I D T H S _ ( \ C
0044620 R E A T E C S I N F O E L E M E
0044640 N T ) \r
0044660 C H A R S E T A S C E N
0044700 T _ ( 006 002 f f e t c h 006 001
0044720 \ S F A s c e n t 006 002 o f 006 001
0044740 F O N T D E S C ) \r
0044760 C H A R S
0045000 E T D E S C E N T _ ( 006 002 f
0045020 f e t c h 006 001 \ S F D e s c e
0045040 n t 006 002 o f 006 001 F O N T D E
0045060 S C ] ) \r ) \r \r ( C L : D E F U
0045100 N 006 002 \ F A S T F X 8 0 . I N
0045120 I T - F O N T - P R O F I L E 006
0045140 001 N I L \r
0045160 \r 006 006 ( *
0045200 ; ; " s e t u p t h e
0045220 f o n t s f o r t h e F A
0045240 S T F X 8 0 , b a s e d o n
0045260 t h e D I S P L A Y f o n
0045300 t p r o f i l e e n t r i e
0045320 s " ) 006 001 \r \r
0045340
*
0045400 [ 006 002 F O R 006 001 F O N T - C
0045420 L A S S \r
0045440
*
0045500 006 002 I N 006 001 ' ( D E F A U
0045520 L T F O N T I T A L I C F O N
0045540 T B O L D F O N T L I T T L
0045560 E F O N T T I N Y F O N T \r
0045600
*
0045660 B I G F O N T
0045700 C O M M E N T F O N T T E X T
0045720 F O N T ) \r
0045740
*
0046000 006 002 D O 006 001 ( \ A D D -
0046020 T O - F O N T P R O F I L E F
0046040 O N T P R O F I L E F O N T -
0046060 C L A S S \r
0046100
*
0046140 ' F A
0046160 S T F X 8 0 \r
0046200
*
0046240 ( \
0046260 G E T - F R O M - F O N T P R O
0046300 F I L E F O N T P R O F I L E
0046320 F O N T - C L A S S \r
0046340
*
0046420 ' D I S P L
0046440 A Y ] \r
0046460
0046500 ( F
0046520 O N T P R O F I L E F O N T P
0046540 R O F I L E ) \r
0046560
*
0046620 T ) \r \r \r \r \r 006 004 ( * ; ;
0046640 " m e t h o d s f o r m e
0046660 a s u r i n g " ) 006 001 \r \r ( D E
0046700 F I N E Q \r \r ( 006 004 \ F A S T F
0046720 X 8 0 . S T R I N G W I D T H 006
0046740 001 \r [ L A M B D A ( F A S
0046760 T F X 8 0 S T R E A M S T R I
0047000 N G R D T B L ) 006 006 006 001
0047020
0047040 006 006 ( * h d j " 6 -
0047060 N o v - 8 6 1 5 : 1 5 " ) 006 001
0047100 \r \r
0047120 006 006 ( * ; ; "
0047140 r e t u r n s S T R I N G ' s
0047160 w i d t h , r e l a t i v e
0047200 t o S T R E A M ' s c u r
0047220 r e n t f o n t a n d t h
0047240 e r e a d t a b l e R D T B
0047260 L " ) 006 001 \r \r ( 006 002 i f
0047300 006 001 R D T B L \r
0047320 006 002 t h e n 006 001 ( 006 002 b i n
0047340 d 006 001 ( F I R S T F L G _
0047360 T ) \r
0047400 ( S A _ ( 006 002 f
0047420 e t c h 006 001 R E A D S A 006 002
0047440 o f 006 001 R D T B L ) ) \r
0047460
0047500 ( E S C A P E - C H A R - W I D
0047520 T H _ ( 006 002 \ F A S T F X 8
0047540 0 . C H A R W I D T H 006 001 F A
0047560 S T F X 8 0 S T R E A M ( 006 002
0047600 f e t c h 006 001 ( R E A D T A B
0047620 L E P \r
0047640
*
0047740 E
0047760 S C A P E C H A R ) \r
0050000
*
0050100 006 002 o f 006 001
0050120 R D T B L ) ) ) \r
0050140 ( S Y
0050160 N _ N I L ) 006 002 f o r 006 001
0050200 C H A R C O D E 006 002 i n s t
0050220 r i n g 006 001 S T R I N G \r
0050240 006 002
0050260 s u m 006 001 ( P R O G 1 ( +
0050300 ( 006 002 \ F A S T F X 8 0 . C H A
0050320 R W I D T H 006 001 F A S T F X 8
0050340 0 S T R E A M C H A R C O D E
0050360 ) \r
0050400
0050420 ( 006 002 I F 006 001 ( A N D ( 006 002
0050440 f e t c h 006 001 ( R E A D C O D
0050460 E E S C Q U O T E ) 006 002 o f
0050500 006 001 ( S E T Q S Y N ( \ S
0050520 Y N C O D E S A C H A R C O
0050540 D E ) \r
0050560
*
0050640 ) ) \r
0050660
*
0050720 ( O R F I R S T F L G
0050740 ( 006 002 f e t c h 006 001 ( R E A
0050760 D C O D E I N N E R E S C Q U
0051000 O T E ) 006 002 o f 006 001 S Y N )
0051020 ) ) \r
0051040
0051060 006 002 T H E N 006 001 E S
0051100 C A P E - C H A R - W I D T H \r
0051120
*
0051160 006 002 E L S E 006 001 0 ) ) \r
0051200
0051220 ( S E T Q F I
0051240 R S T F L G N I L ) ) ) \r
0051260 006 002 e l s e 006 001 ( 006 002
0051300 f o r 006 001 C H A R 006 002 i n s
0051320 t r i n g 006 001 S T R I N G 006
0051340 002 s u m 006 001 ( 006 002 \ F A S T F
0051360 X 8 0 . C H A R W I D T H 006 001
0051400 F A S T F X 8 0 S T R E A M C
0051420 H A R ] ) \r \r ( 006 004 \ F A S T F
0051440 X 8 0 . C H A R W I D T H 006 001 \r
0051460 [ L A M B D A ( S T R E A
0051500 M C H A R C O D E ) 006 006 006 001
0051520
*
0051560 006 006 ( * ; " E d i t e d
0051600 4 - F e b - 8 7 1 5 : 5 2
0051620 b y h d j " ) 006 001 \r
0051640 \r
0051660 006 006 ( * ; ; " r e t u r n
0051700 s t h e w i d t h o f C
0051720 H A R C O D E , r e l a t i v
0051740 e t o S T R E A M ' s c u
0051760 r r e n t f o n t " ) 006 001 \r \r
0052000 ( W I T H - F A S T F X
0052020 8 0 - D A T A ( D A T A S T
0052040 R E A M ) \r
0052060 ( L E T [ ( W I D T H ( 006
0052100 002 \ F A S T F X 8 0 . S U B C H
0052120 A R W I D T H 006 001 ( \ F A S T
0052140 F X 8 0 . T R A N S L A T E - C
0052160 H A R C H A R C O D E ) \r
0052200
0052220 ( F O
0052240 N T P R O P ( F A S T F X 8 0
0052260 D A T A - F O N T D A T A ) \r
0052300
*
0052340 ' S I Z E ] \r
0052360 ( 006 002
0052400 I F 006 001 ( E Q C H A R C O D
0052420 E ( C H A R C O D E S P A C
0052440 E ) ) \r
0052460 006 002 T H E N 006 001
0052500 ( F I X R ( T I M E S W I
0052520 D T H ( F A S T F X 8 0 D A T
0052540 A - S P A C E F A C T O R D A
0052560 T A ) ) ) \r
0052600 006 002 E L S E 006 001
0052620 W I D T H ] ) \r \r ( 006 004 \ F A
0052640 S T F X 8 0 . S U B C H A R W I
0052660 D T H 006 001 \r [ L A M B D A
0052700 ( C H A R C O D E S I Z E ) 006
0052720 006 006 001
0052740
0052760 006 006 ( * ; " E
0053000 d i t e d 4 - F e b - 8 7
0053020 1 5 : 5 0 b y h d j " ) 006 001
0053040 \r ( 006 002 I F 006 001 ( I G
0053060 E Q C H A R C O D E 3 1 ) \r
0053100 006 002 T H E N 006 001
0053120 ( 006 002 I F 006 001 ( G R E A T E
0053140 R P S I Z E 1 2 ) \r
0053160 006 002 T
0053200 H E N 006 001 1 4 \r
0053220 006 002 E L S E 006 001
0053240 7 ) \r 006 002 E L S E
0053260 006 001 0 ] ) \r ) \r \r ( C L : D E
0053300 F U N 006 002 \ F A S T F X 8 0 .
0053320 S P A C E F A C T O R 006 001 ( F
0053340 A S T F X 8 0 S T R E A M F A
0053360 C T O R ) \r
0053400 \r 006 006 ( *
0053420 ; ; " r e t u r n s / s e t
0053440 s t h e w i d t h o f t
0053460 h e s p a c e c h a r a c t
0053500 e r ( 3 2 A S C I I ) f o
0053520 r F A S T F X 8 0 S T R E A M
0053540 " ) 006 001 \r [ W I T H - H Q F X
0053560 8 0 - D A T A ( D A T A F A
0053600 S T F X 8 0 S T R E A M ) \r
0053620 ( P R O G 1 ( F A
0053640 S T F X 8 0 D A T A - S P A C E
0053660 F A C T O R D A T A ) \r
0053700 ( A N D
0053720 F A C T O R ( 006 002 I F 006 001
0053740 ( N U M B E R P F A C T O R )
0053760 \r
0054000
0054020 006 002 T H E N 006 001 ( C L : S E T
0054040 F ( F A S T F X 8 0 D A T A -
0054060 S P A C E F A C T O R D A T A
0054100 ) \r
0054120
0054140 F A C
0054160 T O R ) \r
0054200
0054220 006 002 E L S E 006 001 ( \ I L L
0054240 E G A L . A R G F A C T O R ]
0054260 ) \r \r \r \r \r 006 004 ( * ; ; " m
0054300 e t h o d s t h a t a f f e
0054320 c t t h e c u r r e n t p
0054340 o s i t i o n / s i z e o f
0054360 d r a w i n g s u r f a c e "
0054400 ) 006 001 \r \r ( D E F I N E Q \r \r (
0054420 006 004 \ F A S T F X 8 0 . C L I P
0054440 P I N G R E G I O N 006 001 \r [
0054460 L A M B D A ( S T R E A M R
0054500 E G I O N ) 006 006 006 001
0054520
0054540 006 006
0054560 ( * ; " E d i t e d 8 -
0054600 D e c - 8 6 1 5 : 1 6 b y
0054620 h d j " ) 006 001 \r
0054640 \r 006 006 (
0054660 * ; ; \r 006 001 006
0054700 006 " R e t u r n s o l d c l
0054720 i p p i n g r e g i o n a n
0054740 d s e t s n e w o n e .
0054760 w i l l n e v e r s e t
0055000 o n e l a r g e r t h a n t
0055020 h e p a p e r s i z e . " )
0055040 006 001 \r \r ( 006 002 D E C L A
0055060 R E 006 001 ( G L O B A L V A R S
0055100 \ F A S T F X 8 0 . P A G E S
0055120 I Z E ) ) \r ( W I T H -
0055140 F A S T F X 8 0 - D A T A ( D
0055160 A T A S T R E A M ) \r
0055200 ( P R O G 1 ( C
0055220 O P Y ( F A S T F X 8 0 D A T
0055240 A - C L I P P I N G R E G I O N
0055260 D A T A ) ) \r
0055300 ( A N D R
0055320 E G I O N ( C L : S E T F (
0055340 F A S T F X 8 0 D A T A - C L I
0055360 P P I N G R E G I O N D A T A
0055400 ) \r
0055420
0055440 ( I N T E R S E C
0055460 T R E G I O N S R E G I O N
0055500 ( C R E A T E R E G I O N 0
0055520 0 ( \r
0055540
*
0055640 F A S T F X 8 0 D A T A - P A
0055660 P E R - W I D T H \r
0055700
*
0056000 D A T A )
0056020 \r
0056040
*
0056120 ( F A S T F X 8 0 D
0056140 A T A - P A P E R - H E I G H T
0056160 \r
0056200
*
0056260 D A T A ] ) \r \r (
0056300 006 004 \ F A S T F X 8 0 . M O V E
0056320 T O 006 001 \r [ L A M B D A (
0056340 S T R E A M X Y ) 006 006 006 001
0056360
*
0056420 006 006 ( * h d j "
0056440 2 7 - O c t - 8 6 1 1 : 4 0 "
0056460 ) 006 001 \r \r
0056500 006 006 ( * ; ;
0056520 " m o v e t o ( X , Y )
0056540 o n S T R E A M ' s d r a
0056560 w i n g s u r f a c e " ) 006 001
0056600 \r \r ( 006 002 \ F A S T F X
0056620 8 0 . X P O S I T I O N 006 001 S
0056640 T R E A M X ) \r ( 006 002
0056660 \ F A S T F X 8 0 . Y P O S I T
0056700 I O N 006 001 S T R E A M Y ] )
0056720 \r \r ( 006 004 \ F A S T F X 8 0 . X
0056740 P O S I T I O N 006 001 \r [ L A
0056760 M B D A ( F A S T F X 8 0 S T
0057000 R E A M X P O S ) 006 006 006 001
0057020
0057040 006 006 ( *
0057060 h d j " 2 0 - N o v - 8 6
0057100 1 7 : 5 0 " ) 006 001 \r
0057120 \r 006
0057140 006 ( * ; ; " R e t u r n o
0057160 l d x - p o s i t i o n , o
0057200 p t i o n a l l y m o v e t
0057220 o n e w o n e . I f n
0057240 e w p o s i t i o n w o u l
0057260 d l i e o u t s i d e t h
0057300 e c l i p p i n g r e g i o
0057320 n , s e t t h e v i r t u
0057340 a l x p o s i t i o n , b
0057360 u t d o n ' t c h a n g e
0057400 t h e r e a l x p o s i t
0057420 i o n o r m o v e t h e
0057440 p r i n t e r ' s p r i n t
0057460 h e a d . " ) 006 001 \r \r (
0057500 W I T H - F A S T F X 8 0 - D A
0057520 T A \r ( D A T A F A
0057540 S T F X 8 0 S T R E A M ) \r
0057560 ( L E T ( ( O L D - R E
0057600 A L - X P O S ( F A S T F X 8
0057620 0 D A T A - R E A L - X P O S
0057640 D A T A ) ) \r
0057660 ( O L D - V I R T U A L - X
0057700 P O S ( F A S T F X 8 0 D A T
0057720 A - V I R T U A L - X P O S D
0057740 A T A ) ) \r
0057760 ( C L I P P I N G R E G I O N
0060000 ( F A S T F X 8 0 D A T A - C
0060020 L I P P I N G R E G I O N D A
0060040 T A ) ) ) \r
0060060 ( P R O G 1 O L D - V I R T U
0060100 A L - X P O S \r
0060120 ( 006 002 i f 006 001
0060140 X P O S \r
0060160 006 002 t h e
0060200 n 006 001 \r \r
0060220 006 006 ( * ;
0060240 ; " S p a c e o r b a c k
0060260 s p a c e t i l l n e w x
0060300 - p o s a p p r o x i m a t e
0060320 s d e s i r e d p o s i t i
0060340 o n " ) 006 001 \r \r
0060360
0060400 ( L E T ( ( L E F T - B O
0060420 R D E R ( 006 002 f e t c h 006 001
0060440 ( R E G I O N L E F T ) 006 002
0060460 o f 006 001 C L I P P I N G R E G
0060500 I O N ) ) \r
0060520
0060540 ( R I G H T - B O R
0060560 D E R ( 006 002 f e t c h 006 001 (
0060600 R E G I O N R I G H T ) 006 002
0060620 o f 006 001 C L I P P I N G R E G
0060640 I O N ) ) ) \r
0060660
0060700 ( 006 002 i f 006 001 ( A
0060720 N D ( L E Q L E F T - B O R
0060740 D E R X P O S ) \r
0060760
*
0061020 ( L E Q X P O S R I G H
0061040 T - B O R D E R ) ) \r
0061060
0061100 006 002
0061120 t h e n 006 001 ( 006 002 i f 006 001 (
0061140 A N D ( E Q P ( F A S T F X
0061160 8 0 D A T A - L E F T M A R G I
0061200 N D A T A ) \r
0061220
*
0061260 0 )
0061300 \r
0061320
*
0061360 ( E Q P X P O S 0 ) ) \r
0061400
*
0061440 006 002 t h
0061460 e n 006 001
0061500 006 006 ( * ; " i f w e c
0061520 a n , j u s t s e n d a
0061540 C R " ) 006 001 \r
0061560
*
0061620 ( 006 002 \ F A S T
0061640 F X 8 0 . B O U T 006 001 F A S T
0061660 F X 8 0 S T R E A M ( C H A R
0061700 C O D E C R ) ) \r
0061720
*
0061760 006 002 e l s e 006 001
0062000 006 006 ( *
0062020 ; " o t h e r w i s e d o
0062040 t h e f u l l s c h m e e r
0062060 " ) 006 001 \r
0062100
*
0062140 ( \ F A S T F X 8 0 . S
0062160 M A R T - X P O S I T I O N O
0062200 L D - R E A L - X P O S X P O
0062220 S \r
0062240
*
0062300 F A S T F X 8
0062320 0 S T R E A M ) ) \r
0062340
*
0062400 ( C L : S E T F ( F A S T
0062420 F X 8 0 D A T A - R E A L - X P
0062440 O S D A T A ) \r
0062460
*
0062520 X P O S ) ) ) \r
0062540
0062560 ( C L : S E
0062600 T F ( F A S T F X 8 0 D A T A
0062620 - V I R T U A L - X P O S D A
0062640 T A ) \r
0062660
0062700 X P O S ] ) \r \r ( 006 004
0062720 \ F A S T F X 8 0 . Y P O S I T
0062740 I O N 006 001 \r [ L A M B D A
0062760 ( S T R E A M Y P O S ) 006 006 006
0063000 001
0063020
0063040 006 006 ( * ; " E
0063060 d i t e d 9 - D e c - 8 6
0063100 2 2 : 4 3 b y h d j " ) 006 001
0063120 \r \r
0063140 006 006 ( * ; ; " R
0063160 e t u r n o l d y p o s i
0063200 t i o n , o p t i o n a l l y
0063220 m o v e t o n e w o n e
0063240 . I f n e w p o s i t i
0063260 o n w o u l d l i e o u t
0063300 s i d e t h e c l i p p i n
0063320 g r e g i o n , s e t t h
0063340 e v i r t u a l Y p o s i
0063360 t i o n , b u t d o n ' t
0063400 c h a n g e t h e r e a l
0063420 Y p o s i t i o n o r m o
0063440 v e t h e p r i n t e r ' s
0063460 p r i n t h e a d . " ) 006 001
0063500 \r \r ( W I T H - F A S T
0063520 F X 8 0 - D A T A \r (
0063540 D A T A S T R E A M ) \r
0063560 ( L E T ( ( O L D - R E A
0063600 L - Y P O S ( F A S T F X 8 0
0063620 D A T A - R E A L - Y P O S D
0063640 A T A ) ) \r
0063660 ( O L D - V I R T U A L - Y P
0063700 O S ( F A S T F X 8 0 D A T A
0063720 - V I R T U A L - Y P O S D A
0063740 T A ) ) \r
0063760 ( C L I P P I N G R E G I O N
0064000 ( F A S T F X 8 0 D A T A - C L
0064020 I P P I N G R E G I O N D A T
0064040 A ) ) ) \r (
0064060 P R O G 1 O L D - V I R T U A
0064100 L - Y P O S \r
0064120 ( 006 002 i f 006 001
0064140 Y P O S \r
0064160 006 002 t h e n
0064200 006 001 [ 006 002 i f 006 001 ( N O T
0064220 ( E Q P Y P O S O L D - R E
0064240 A L - Y P O S ) ) \r
0064260
0064300 006 002 t h e n 006 001
0064320 ( L E T ( ( T O P - B O R D
0064340 E R ( 006 002 f e t c h 006 001 ( R
0064360 E G I O N T O P ) 006 002 o f 006
0064400 001 C L I P P I N G R E G I O N
0064420 ) ) \r
0064440
0064460 ( B O T
0064500 T O M - B O R D E R ( 006 002 f e
0064520 t c h 006 001 ( R E G I O N B O
0064540 T T O M ) 006 002 o f 006 001 C L I
0064560 P P I N G R E G I O N ) ) ) \r
0064600
*
0064640 ( 006 002 i f 006 001 (
0064660 N O T ( E Q P Y P O S O L
0064700 D - R E A L - Y P O S ) ) \r
0064720
*
0064760 006 002 t h e n
0065000 006 001 ( L E T [ ( D O T S - T
0065020 O - M O V E ( F I X ( - Y
0065040 P O S O L D - R E A L - Y P O
0065060 S ] \r
0065100
*
0065140 ( 006 002 i f 006 001
0065160 ( M I N U S P D O T S - T O
0065200 - M O V E ) \r
0065220
*
0065300 006 002 t h e n 006 001 ( 006 002 \ F A
0065320 S T F X 8 0 . A D V A N C E . P
0065340 A P E R 006 001 S T R E A M \r
0065360
*
0065460 D O T S - T O - M O V
0065500 E ) \r
0065520
*
0065560 006 002 e l s
0065600 e 006 001 ( 006 002 \ F A S T F X 8 0
0065620 . B A C K U P . P A P E R 006 001
0065640 S T R E A M \r
0065660
*
0065740 D O T S
0065760 - T O - M O V E ) ) ) \r
0066000
*
0066040 ( C L
0066060 : S E T F ( F A S T F X 8 0 D
0066100 A T A - R E A L - Y P O S D A
0066120 T A ) \r
0066140
*
0066200 Y P O S
0066220 ] \r
0066240 ( C L :
0066260 S E T F ( F A S T F X 8 0 D A
0066300 T A - V I R T U A L - Y P O S
0066320 D A T A ) \r
0066340
0066360 Y P O S ] ) \r \r (
0066400 006 004 \ F A S T F X 8 0 . B A C K
0066420 U P . P A P E R 006 001 \r [ L A
0066440 M B D A ( S T R E A M D O T
0066460 S ) 006 006 006 001
0066500
0066520 006 006 ( *
0066540 h d j " 2 8 - O c t - 8 6
0066560 1 2 : 5 9 " ) 006 001 \r
0066600 \r 006
0066620 006 ( * ; ; " b a c k u p t
0066640 h e p a g e D O T S r a s
0066660 t e r l i n e s " ) 006 001 \r \r
0066700 ( S E T Q D O T S ( T
0066720 I M E S 3 ( A B S D O T S
0066740 ) ) ) \r ( 006 002 w h i l e
0066760 006 001 ( G R E A T E R P D O T
0067000 S 0 ) 006 002 d o 006 001 ( 006 002 \
0067020 F A S T F X 8 0 . B O U T 006 001
0067040 S T R E A M ( C H A R C O D E
0067060 E S C ) ) \r
0067100
0067120 ( 006 002 \ F A S T F
0067140 X 8 0 . B O U T 006 001 S T R E A
0067160 M ( C H A R C O D E j ) ) \r
0067200
*
0067240 ( 006 002 \ F A S T F X 8 0 . B O U
0067260 T 006 001 S T R E A M ( L E T
0067300 ( ( M A X B A C K U P ( M I N
0067320 D O T S 2 5 5 ) ) ) \r
0067340
*
0067420 ( 006 002 a d d 006
0067440 001 D O T S ( M I N U S M A
0067460 X B A C K U P ) ) \r
0067500
*
0067560 M A X B A C K U P ]
0067600 ) \r \r ( 006 004 \ F A S T F X 8 0 .
0067620 A D V A N C E . P A P E R 006 001 \r
0067640 [ L A M B D A ( S T R E A
0067660 M D O T S ) 006 006 006 001
0067700
*
0067740 006 006 ( * h d j " 2 8 - O c
0067760 t - 8 6 1 2 : 5 8 " ) 006 001 \r
0070000 \r
0070020 006 006 ( * ; ; " a d v
0070040 a n c e t h e p a g e D O
0070060 T S r a s t e r l i n e s "
0070100 ) 006 001 \r \r ( S E T Q D
0070120 O T S ( T I M E S 3 ( A B
0070140 S D O T S ) ) ) \r ( 006
0070160 002 w h i l e 006 001 ( G R E A T E
0070200 R P D O T S 0 ) 006 002 d o 006
0070220 001 ( 006 002 \ F A S T F X 8 0 . B
0070240 O U T 006 001 S T R E A M ( C H
0070260 A R C O D E E S C ) ) \r
0070300
0070320 ( 006 002
0070340 \ F A S T F X 8 0 . B O U T 006 001
0070360 S T R E A M ( C H A R C O D
0070400 E J ) ) \r
0070420
0070440 ( 006 002 \ F A S T F X
0070460 8 0 . B O U T 006 001 S T R E A M
0070500 ( L E T ( ( M A X A D V A N
0070520 C E ( M I N D O T S 2 5 5
0070540 ) ) ) \r
0070560
*
0070640 ( 006 002 a d d 006 001 D O T S ( M
0070660 I N U S M A X A D V A N C E )
0070700 ) \r
0070720
*
0070760 M A
0071000 X A D V A N C E ] ) \r \r ( 006 004 \
0071020 F A S T F X 8 0 . N E W P A G E
0071040 006 001 \r [ L A M B D A ( F A
0071060 S T F X 8 0 S T R E A M ) 006 006 006
0071100 001
0071120
0071140 006 006 ( * ; " E d i t
0071160 e d 1 7 - D e c - 8 6 1 0 :
0071200 3 2 b y h d j " ) 006 001 \r
0071220 \r
0071240 006 006 ( * ; ; " E n d
0071260 t h e o l d p a g e , s t
0071300 a r t a n e w o n e " ) 006
0071320 001 \r \r
0071340 006 006 ( * ; ; "
0071360 J u s t s e n d a f o r m
0071400 - f e e d " ) 006 001 \r \r (
0071420 006 002 \ F A S T F X 8 0 . B O U T
0071440 006 001 F A S T F X 8 0 S T R E A
0071460 M ( C H A R C O D E F F ) )
0071500 \r ( \ F A S T F X 8 0 .
0071520 S T A R T P A G E F A S T F X
0071540 8 0 S T R E A M ] ) \r \r ( 006 004 \
0071560 F A S T F X 8 0 . O U T C H A R
0071600 006 001 \r [ L A M B D A ( F A
0071620 S T F X 8 0 S T R E A M C H A
0071640 R C O D E ) 006 006 006 001
0071660
0071700 006 006 ( * ; " E d i t
0071720 e d 1 2 - F e b - 8 7 0 9 :
0071740 0 8 b y j d s " ) 006 001 \r
0071760 \r
0072000 006 006 ( * ; ; " o u t c
0072020 h a r f n f o r f a s t f x
0072040 8 0 i m a g e s t r e a m s "
0072060 ) 006 001 \r \r ( L E T ( (
0072100 T R A N S L A T E D - C H A R
0072120 ( \ F A S T F X 8 0 . T R A N S
0072140 L A T E - C H A R C H A R C O
0072160 D E ) ) ) \r (
0072200 W I T H - F A S T F X 8 0 - D A
0072220 T A ( D A T A F A S T F X 8
0072240 0 S T R E A M ) \r
0072260 ( S E L C H A
0072300 R Q C H A R C O D E \r
0072320
0072340 ( ^ L ( 006 002 \ F A S T F X 8
0072360 0 . N E W P A G E 006 001 F A S T
0072400 F X 8 0 S T R E A M ) ) \r
0072420
0072440 ( ( C R E O L ) \r
0072460
0072500 ( 006 002 \ F A S T F
0072520 X 8 0 . N E W L I N E 006 001 F A
0072540 S T F X 8 0 S T R E A M ) ) \r
0072560
0072600 ( L F ( 006 002 \ F A S T
0072620 F X 8 0 . L I N E F E E D 006 001
0072640 F A S T F X 8 0 S T R E A M ) )
0072660 \r
0072700 ( S P A C E [ 006 002
0072720 \ F A S T F X 8 0 . X P O S I T
0072740 I O N 006 001 F A S T F X 8 0 S T
0072760 R E A M ( + ( 006 002 \ F A S T
0073000 F X 8 0 . X P O S I T I O N 006 001
0073020 \r
0073040
*
0073120 F A S T
0073140 F X 8 0 S T R E A M ) \r
0073160
*
0073240 (
0073260 006 002 \ F A S T F X 8 0 . C H A R
0073300 W I D T H 006 001 \r
0073320
*
0073420 F A S T F X 8 0 S T R E A
0073440 M ( C H A R C O D E \r
0073460
*
0073600 S P A C E ] \r
0073620
0073640 ( C O N D \r
0073660
0073700 ( (
0073720 > ( F A S T F X 8 0 D A T A -
0073740 V I R T U A L - X P O S D A T
0073760 A ) \r
0074000
0074020 ( F A S T F X 8 0 D
0074040 A T A - R I G H T M A R G I N
0074060 D A T A ) ) \r
0074100
0074120 ( 006 002 \ F A S T F
0074140 X 8 0 . N E W L I N E 006 001 F A
0074160 S T F X 8 0 S T R E A M ) ) ) )
0074200 \r
0074220 ( C O N D \r
0074240
0074260 ( ( G R E A T E R P C
0074300 H A R C O D E 3 2 ) \r
0074320 \r
0074340 006 006 ( * ; ; " o n l y p
0074360 r i n t g r a p h i c c h a
0074400 r a c t e r s " ) 006 001 \r \r
0074420
0074440 ( L E T ( ( C H A
0074460 R W I D T H ( 006 002 \ F A S T F
0074500 X 8 0 . C H A R W I D T H 006 001
0074520 F A S T F X 8 0 S T R E A M T
0074540 R A N S L A T E D - C H A R ) )
0074560 ) \r \r
0074600 006 006 ( * ; ; "
0074620 i f c h a r a c t e r w i l
0074640 l b e v i s i b l e , o u
0074660 t p u t i t " ) 006 001 \r \r
0074700
0074720 ( C O N D
0074740 \r
0074760
0075000 ( ( \ F A S T F X 8 0 . C U
0075020 R - P O S - V I S I B L E ? D
0075040 A T A ) \r
0075060
0075100 ( 006 002 \ F A S T F
0075120 X 8 0 . B O U T 006 001 F A S T F
0075140 X 8 0 S T R E A M T R A N S L
0075160 A T E D - C H A R ) ) ) \r
0075200
0075220 ( C L : I
0075240 N C F ( F A S T F X 8 0 D A T
0075260 A - R E A L - X P O S D A T A
0075300 ) \r
0075320
0075340 C H A R W I D T H
0075360 ) \r
0075400
0075420 ( C L : I N C F ( F A S T F X
0075440 8 0 D A T A - V I R T U A L - X
0075460 P O S D A T A ) \r
0075500
0075520 C
0075540 H A R W I D T H ) \r
0075560 \r 006
0075600 006 ( * ; ; " i f w e ' v e
0075620 p a s s e d t h e m a r g
0075640 i n , D I N G ! , d o a
0075660 n e w l i n e " ) 006 001 \r \r
0075700
0075720 ( C O N D
0075740 \r
0075760
0076000 ( ( > ( F A S T F X 8 0 D
0076020 A T A - V I R T U A L - X P O S
0076040 D A T A ) \r
0076060
0076100 ( F A S
0076120 T F X 8 0 D A T A - R I G H T M
0076140 A R G I N D A T A ) ) \r
0076160
0076200 (
0076220 006 002 \ F A S T F X 8 0 . N E W L
0076240 I N E 006 001 F A S T F X 8 0 S T
0076260 R E A M ] ) \r \r ( 006 004 \ F A S T
0076300 F X 8 0 . N E W L I N E 006 001 \r
0076320 [ L A M B D A ( F A S T F X
0076340 8 0 S T R E A M ) 006 006 006 001
0076360
*
0076420 006 006 ( * h d j " 1 1 - N o v
0076440 - 8 6 1 4 : 0 2 " ) 006 001 \r
0076460 \r
0076500 006 006 ( * ; ; \r 006 001
0076520 006 006 " p e r f o r m a n e w
0076540 l i n e o n a f a s t f x
0076560 8 0 i m a g e s t r e a m .
0076600 i f w e g o b e l o w
0076620 t h e b o t t o m m a r g i
0076640 n , s t a r t a n e w p
0076660 a g e . " ) 006 001 \r \r ( 006
0076700 002 D E C L A R E 006 001 ( G L O B
0076720 A L V A R S \ F A S T F X 8 0
0076740 . L I N E H E I G H T ) ) \r
0076760 ( W I T H - F A S T F X 8 0
0077000 - D A T A ( D A T A F A S T
0077020 F X 8 0 S T R E A M ) \r
0077040 ( L E T ( ( N E
0077060 W - Y ( - ( F A S T F X 8 0
0077100 D A T A - V I R T U A L - Y P O
0077120 S D A T A ) \r
0077140
0077160 \ F A S T F X 8 0 . L I N
0077200 E H E I G H T ) ) ) \r
0077220 ( 006 002 i f
0077240 006 001 ( < N E W - Y ( F A S
0077260 T F X 8 0 D A T A - B O T T O M
0077300 M A R G I N D A T A ) ) \r
0077320
0077340 006 002 t h e n 006 001 ( 006 002 \ F
0077360 A S T F X 8 0 . N E W P A G E 006
0077400 001 F A S T F X 8 0 S T R E A M
0077420 ) \r
0077440 006 002 e l s e 006 001
0077460
*
0077520 006 006 ( * ; " m o v e
0077540 t o t h e l e f t m a r g
0077560 i n " ) 006 001 \r
0077600 ( 006
0077620 002 \ F A S T F X 8 0 . X P O S I
0077640 T I O N 006 001 F A S T F X 8 0 S
0077660 T R E A M ( F A S T F X 8 0 D
0077700 A T A - L E F T M A R G I N D
0077720 A T A ) ) \r
0077740 ( 006 002
0077760 F R E P L A C E 006 001 ( S T R E
0100000 A M C H A R P O S I T I O N )
0100020 006 002 O F 006 001 F A S T F X 8 0
0100040 S T R E A M 006 002 W I T H 006 001
0100060 0 ) \r
0100100
*
0100160 006 006 ( * ; " t h e n m o
0100200 v e d o w n o r n e w p a
0100220 g e " ) 006 001 \r
0100240 ( 006
0100260 002 \ F A S T F X 8 0 . Y P O S I
0100300 T I O N 006 001 F A S T F X 8 0 S
0100320 T R E A M N E W - Y ] ) \r \r (
0100340 006 004 \ F A S T F X 8 0 . L I N E
0100360 F E E D 006 001 \r [ L A M B D A
0100400 ( F A S T F X 8 0 S T R E A M
0100420 ) 006 006 006 001
0100440
0100460 006 006 ( * h d j
0100500 " 6 - N o v - 8 6 1 5 : 3
0100520 8 " ) 006 001 \r
0100540 \r 006 006 ( *
0100560 ; ; " m o v e d o w n 1
0100600 l i n e , l e a v i n g t h
0100620 e x - p o s i t i o n a l o
0100640 n e " ) 006 001 \r \r ( 006 002 D
0100660 E C L A R E 006 001 ( G L O B A L
0100700 V A R S \ F A S T F X 8 0 . L
0100720 I N E H E I G H T ) ) \r
0100740 ( W I T H - F A S T F X 8 0 - D
0100760 A T A ( D A T A F A S T F X
0101000 8 0 S T R E A M ) \r
0101020 ( L E T ( ( N E W -
0101040 Y P O S ( - ( F A S T F X 8
0101060 0 D A T A - V I R T U A L - Y P
0101100 O S D A T A ) \r
0101120
0101140 \ F A S T F X 8 0
0101160 . L I N E H E I G H T ) ) \r
0101200 (
0101220 O L D - X P O S ( F A S T F X
0101240 8 0 D A T A - V I R T U A L - X
0101260 P O S D A T A ) ) ) \r
0101300 ( 006 002 i
0101320 f 006 001 ( < N E W - Y P O S
0101340 ( F A S T F X 8 0 D A T A - B O
0101360 T T O M M A R G I N D A T A )
0101400 ) \r
0101420 006 002 t h e n 006 001
0101440
*
0101500 006 006 ( * ; " m o v e
0101520 t o a n e w p a g e " ) 006
0101540 001 \r
0101560 ( 006 002 \ F
0101600 A S T F X 8 0 . N E W P A G E 006
0101620 001 F A S T F X 8 0 S T R E A M
0101640 ) 006 006 ( * ; " r e s t o
0101660 r e t h e o l d x p o s
0101700 i t i o n " ) 006 001 \r
0101720
0101740 ( 006 002 \ F A S T F X 8 0 .
0101760 X P O S I T I O N 006 001 F A S T
0102000 F X 8 0 S T R E A M O L D - X
0102020 P O S ) \r
0102040 006 002 e l s e 006 001
0102060
*
0102120 006 006 ( * ; " m o
0102140 v e d o w n " ) 006 001 \r
0102160
0102200 ( 006 002 \ F A S T F X 8 0 .
0102220 Y P O S I T I O N 006 001 F A S T
0102240 F X 8 0 S T R E A M N E W - Y
0102260 P O S ] ) \r \r ( 006 004 \ F A S T F
0102300 X 8 0 . D R A W L I N E 006 001 \r
0102320 [ L A M B D A ( S T R E A M
0102340 X 1 Y 1 X 2 Y 2 W I D
0102360 T H O P E R A T I O N C O L
0102400 O R D A S H I N G ) 006 006 006 001
0102420 006 006 ( * h d j " 3 1 - O c t
0102440 - 8 6 1 4 : 0 9 " ) 006 001 \r
0102460 \r
0102500 006 006 ( * ; ; " d u m m
0102520 y d r a w l i n e f o r t
0102540 h e f a s t f x 8 0 d e v
0102560 i c e " ) 006 001 \r \r ( M O
0102600 V E T O X 2 Y 2 S T R E A
0102620 M ] ) \r ) \r \r ( C L : D E F U N
0102640 006 002 \ F A S T F X 8 0 . S T A
0102660 R T P A G E 006 001 ( F A S T F X
0102700 8 0 S T R E A M ) ( W I T H -
0102720 F A S T F X 8 0 - D A T A \r
0102740
*
0103000 ( D
0103020 A T A F A S T F X 8 0 S T R E
0103040 A M ) \r
0103060
*
0103120 ( L E T [ ( A S C E N
0103140 T ( F O N T P R O P ( D S P
0103160 F O N T N I L F A S T F X 8
0103200 0 S T R E A M ) \r
0103220
*
0103300 ' A
0103320 S C E N T ] \r
0103340 \r 006 006 ( *
0103360 ; ; " s e t t h e % " a
0103400 c t u a l % " p o s i t i o n
0103420 o f p r i n t h e a d o n
0103440 p a p e r a f t e r a n
0103460 e w p a g e , t h e n l e t
0103500 t h e d r i v e r f i g u
0103520 r e o u t h o w t o g e
0103540 t t o ( l e f t m a r g i n
0103560 , t o p m a r g i n ) . " ) 006
0103600 001 \r \r
0103620
*
0103660 ( C L : S E T F
0103700 ( F A S T F X 8 0 D A T A - V
0103720 I R T U A L - X P O S D A T A
0103740 ) \r
0103760
*
0104020 0 )
0104040 \r
0104060
*
0104120 ( C L : S E T F (
0104140 F A S T F X 8 0 D A T A - R E A
0104160 L - X P O S D A T A ) \r
0104200
*
0104260 0 ) \r
0104300
*
0104360 ( C L : S E T F ( F A S T F
0104400 X 8 0 D A T A - V I R T U A L -
0104420 Y P O S D A T A ) \r
0104440
*
0104520 ( F A S T F X 8 0
0104540 D A T A - P A P E R - H E I G H
0104560 T D A T A ) ) \r
0104600
*
0104640 ( C
0104660 L : S E T F ( F A S T F X 8 0
0104700 D A T A - R E A L - Y P O S D
0104720 A T A ) \r
0104740
*
0105020 ( F A S T F X 8 0 D A T A - P
0105040 A P E R - H E I G H T D A T A
0105060 ) ) \r \r
0105100 006 006 ( * ; ;
0105120 " m o v e t h e p a p e r "
0105140 ) 006 001 \r \r
0105160
*
0105220 ( M O V E T
0105240 O ( F A S T F X 8 0 D A T A -
0105260 L E F T M A R G I N D A T A )
0105300 \r
0105320
*
0105360 ( -
0105400 ( F A S T F X 8 0 D A T A - T O
0105420 P M A R G I N D A T A ) \r
0105440
*
0105520 A S C
0105540 E N T ) \r
0105560
*
0105640 F A S T F X 8 0 S T R E A M )
0105660 \r
0105700
*
0105740 F A S T F X 8 0 S T
0105760 R E A M ) ) ) \r \r \r ( C L : D E
0106000 F U N 006 002 \ F A S T F X 8 0 .
0106020 S M A R T - X P O S I T I O N 006
0106040 001 ( C U R R E N T - X P O S
0106060 D E S I R E D - X P O S F A S
0106100 T F X 8 0 S T R E A M ) \r
0106120 \r
0106140 006 006 ( * ; ; " i f i
0106160 t w o u l d c r e a t e l
0106200 e s s o u t p u t t o s p
0106220 a c e f r o m t h e l e f
0106240 t m a r g i n , r a t h e r
0106260 t h a n t o b a c k s p a
0106300 c e f r o m t h e c u r r
0106320 e n t p o s i t i o n , d o
0106340 s o " ) 006 001 \r ( L E T * (
0106360 ( S P A C E W I D T H ( \ F A
0106400 S T F X 8 0 . C H A R W I D T H
0106420 F A S T F X 8 0 S T R E A M
0106440 ( C H A R C O D E S P ) ) ) \r
0106460 ( C U R R E N T
0106500 - X P O S - I N - S P A C E S
0106520 ( I Q U O T I E N T C U R R E
0106540 N T - X P O S S P A C E W I D
0106560 T H ) ) \r ( D E
0106600 S I R E D - X P O S - I N - S P
0106620 A C E S ( I Q U O T I E N T
0106640 D E S I R E D - X P O S S P A
0106660 C E W I D T H ) ) \r
0106700 ( N U M - B A C K S P A C E
0106720 S - N E E D E D ( - C U R R
0106740 E N T - X P O S - I N - S P A C
0106760 E S D E S I R E D - X P O S -
0107000 I N - S P A C E S ) ) ) \r
0107020 ( 006 002 I F 006 001 ( < N
0107040 U M - B A C K S P A C E S - N E
0107060 E D E D D E S I R E D - X P O
0107100 S - I N - S P A C E S ) \r
0107120 006 002 T H E N 006 001
0107140 \r \r
0107160 006 006 ( * ; ; "
0107200 i f b a c k s p a c i n g ' s
0107220 c h e a p e r , b a c k s p
0107240 a c e a w a y " ) 006 001 \r \r
0107260 ( \
0107300 F A S T F X 8 0 . H O R I Z O N
0107320 T A L ( - N U M - B A C K S
0107340 P A C E S - N E E D E D ) \r
0107360
0107400 F A S T F X 8 0 S T R
0107420 E A M ) \r 006 002
0107440 E L S E 006 001 \r
0107460 \r 006 006 (
0107500 * ; ; " o t h e r w i s e ,
0107520 g o t o t h e l e f t
0107540 m a r g i n . . . " ) 006 001 \r
0107560 \r (
0107600 \ F A S T F X 8 0 . B O U T F
0107620 A S T F X 8 0 S T R E A M ( C
0107640 H A R C O D E C R ) ) \r
0107660 \r
0107700 006 006 ( * ; ; " . . .
0107720 a n d t h e n s p a c e t
0107740 o t h e r i g h t s p o t
0107760 " ) 006 001 \r \r
0110000 ( \ F A S T F X 8 0 . H
0110020 O R I Z O N T A L D E S I R E
0110040 D - X P O S - I N - S P A C E S
0110060 F A S T F X 8 0 S T R E A M )
0110100 ) ) ) \r \r \r ( C L : D E F U N
0110120 006 002 \ F A S T F X 8 0 . T O P M
0110140 A R G I N 006 001 ( S T R E A M
0110160 & O P T I O N A L Y P O S I T
0110200 I O N ) \r [ W I T H - F A
0110220 S T F X 8 0 - D A T A ( D A T
0110240 A S T R E A M ) \r
0110260 ( P R O G 1 ( F A S T
0110300 F X 8 0 D A T A - T O P M A R G
0110320 I N D A T A ) \r
0110340 ( A N D Y
0110360 P O S I T I O N ( 006 002 I F 006 001
0110400 ( S M A L L P Y P O S I T I
0110420 O N ) \r
0110440
0110460 006 002 T H E N 006 001
0110500 ( C L : S E T F ( F A S T F
0110520 X 8 0 D A T A - T O P M A R G I
0110540 N D A T A ) \r
0110560
*
0110620 Y P O S I T I O
0110640 N ) \r
0110660
0110700 006 002 E L S E 006 001 ( \
0110720 I L L E G A L . A R G Y P O S
0110740 I T I O N ] ) \r \r \r ( C L : D E
0110760 F U N 006 002 \ F A S T F X 8 0 .
0111000 B O T T O M M A R G I N 006 001 (
0111020 S T R E A M & O P T I O N A L
0111040 Y P O S I T I O N ) \r [
0111060 W I T H - F A S T F X 8 0 - D A
0111100 T A ( D A T A S T R E A M )
0111120 \r ( P R O G
0111140 1 ( F A S T F X 8 0 D A T A -
0111160 B O T T O M M A R G I N D A T
0111200 A ) \r
0111220 ( A N D Y P O S I T I
0111240 O N ( 006 002 I F 006 001 ( S M A L
0111260 L P Y P O S I T I O N ) \r
0111300
*
0111340 006 002 T H E N 006 001 ( C L : S
0111360 E T F ( F A S T F X 8 0 D A T
0111400 A - B O T T O M M A R G I N D
0111420 A T A ) \r
0111440
*
0111500 Y P O S I T I O N ) \r
0111520
*
0111560 006 002 E L S E 006 001 ( \ I L L
0111600 E G A L . A R G Y P O S I T I
0111620 O N ] ) \r \r \r ( C L : D E F U N
0111640 006 002 \ F A S T F X 8 0 . L E F
0111660 T M A R G I N 006 001 ( S T R E A
0111700 M & O P T I O N A L X P O S
0111720 I T I O N ) \r [ W I T H -
0111740 F A S T F X 8 0 - D A T A ( D
0111760 A T A S T R E A M ) \r
0112000 ( P R O G 1 ( F A
0112020 S T F X 8 0 D A T A - L E F T M
0112040 A R G I N D A T A ) \r
0112060 ( A N
0112100 D X P O S I T I O N ( 006 002 I
0112120 F 006 001 ( S M A L L P X P O S
0112140 I T I O N ) \r
0112160
0112200 006 002 T H E
0112220 N 006 001 ( C L : S E T F ( F A
0112240 S T F X 8 0 D A T A - L E F T M
0112260 A R G I N D A T A ) \r
0112300
*
0112340 X P O S
0112360 I T I O N ) \r
0112400
0112420 006 002 E L S E 006
0112440 001 ( \ I L L E G A L . A R G
0112460 X P O S I T I O N ] ) \r \r \r ( C
0112500 L : D E F U N 006 002 \ F A S T F
0112520 X 8 0 . R I G H T M A R G I N 006
0112540 001 ( S T R E A M & O P T I O
0112560 N A L X P O S I T I O N ) \r
0112600 [ W I T H - F A S T F X 8 0
0112620 - D A T A ( D A T A S T R E
0112640 A M ) \r ( P
0112660 R O G 1 ( F A S T F X 8 0 D A
0112700 T A - R I G H T M A R G I N D
0112720 A T A ) \r
0112740 ( A N D X P O S I
0112760 T I O N ( 006 002 I F 006 001 ( S M
0113000 A L L P X P O S I T I O N ) \r
0113020
*
0113060 006 002 T H E N 006 001 ( C L
0113100 : S E T F ( F A S T F X 8 0 D
0113120 A T A - R I G H T M A R G I N
0113140 D A T A ) \r
0113160
*
0113220 X P O S I T I O N )
0113240 \r
0113260
0113300 006 002 E L S E 006 001 ( \ I L
0113320 L E G A L . A R G X P O S I T
0113340 I O N ] ) \r \r \r ( D E F M A C R
0113360 O 006 002 \ F A S T F X 8 0 . C U
0113400 R - P O S - V I S I B L E ? 006 001
0113420 ( F A S T F X 8 0 D A T A )
0113440 ` ( I N S I D E P ( F A S T F
0113460 X 8 0 D A T A - C L I P P I N G
0113500 R E G I O N \r
0113520
*
0113600 , F A S T F X 8 0 D
0113620 A T A ) \r
0113640
*
0113720 ( F A S T F X 8 0 D A T A - R
0113740 E A L - X P O S , F A S T F X
0113760 8 0 D A T A ) \r
0114000
*
0114060 ( F A S T F X 8 0 D A T
0114100 A - R E A L - Y P O S , F A S
0114120 T F X 8 0 D A T A ) ) ) \r \r \r (
0114140 C L : D E F U N 006 002 \ F A S T
0114160 F X 8 0 . H O R I Z O N T A L 006
0114200 001 ( S P A C E S F A S T F X
0114220 8 0 S T R E A M ) \r
0114240 \r
0114260 006 006 ( * ; ; " p r i n t S
0114300 P A C E S s p a c e c h a r
0114320 a c t e r s i f S P A C E S
0114340 > 0 , p r i n t S P A C
0114360 E S b a c k s p a c e s i f
0114400 < 0 , a n d d o n o t
0114420 h i n g i f S P A C E S = 0
0114440 . " ) 006 001 \r [ 006 002 i f 006 001 (
0114460 M I N U S P S P A C E S ) \r
0114500 006 002 t h e n 006 001 ( 006 002
0114520 f o r 006 001 S P A C E 006 002 f r
0114540 o m 006 001 1 006 002 t o 006 001 ( A
0114560 B S S P A C E S ) 006 002 b y 006
0114600 001 1 006 002 d o 006 001 ( \ F A S
0114620 T F X 8 0 . B O U T F A S T F
0114640 X 8 0 S T R E A M ( C H A R C
0114660 O D E B S ) ) ) \r 006 002 e
0114700 l s e 006 001 ( 006 002 f o r 006 001 S
0114720 P A C E 006 002 f r o m 006 001 1
0114740 006 002 t o 006 001 S P A C E S 006 002
0114760 b y 006 001 1 006 002 d o 006 001 ( \
0115000 F A S T F X 8 0 . B O U T F A
0115020 S T F X 8 0 S T R E A M ( C H
0115040 A R C O D E S P ] ) \r \r \r \r \r
0115060 006 004 ( * ; ; " p r i n t e r
0115100 c o d e " ) 006 001 \r \r \r ( C L :
0115120 D E F U N 006 002 \ F A S T F X 8
0115140 0 . S E N D 006 001 ( P R I N T E
0115160 R F I L E N A M E & O P T I
0115200 O N A L O P T I O N S ) \r
0115220 \r
0115240 006 006 ( * ; ; " s e n
0115260 d t h e f i l e d e s i g
0115300 n a t e d b y F I L E N A M
0115320 E t o P R I N T E R , o b
0115340 e y i n g O P T I O N S .
0115360 S i n c e w e o n l y h a
0115400 v e o n e f x - 8 0 p e r
0115420 m a c h i n e , i g n o r e
0115440 P R I N T E R a n d s e n
0115460 d t o F A S T F X 8 0 - D E
0115500 F A U L T - D E S T I N A T I O
0115520 N " ) 006 001 \r ( 006 002 D E C L A R
0115540 E 006 001 ( G L O B A L V A R S
0115560 F A S T F X 8 0 - D E F A U L T
0115600 - D E S T I N A T I O N ) ) \r
0115620 [ L E T [ ( C O P I E S ( L
0115640 I S T G E T O P T I O N S '
0115660 % # C O P I E S ] \r
0115700 ( 006 002 F O R 006 001 C O P Y 006 002
0115720 F R O M 006 001 1 006 002 T O 006 001
0115740 C O P I E S 006 002 D O 006 001 \r
0115760 \r
0116000 006 006 ( * ; ; " a l l
0116020 o w t h e u s e r t o a
0116040 b o r t i t w h i l e r u
0116060 n n i n g " ) 006 001 \r \r
0116100
0116120 (
0116140 W I T H - A B O R T - W I N D O
0116160 W ( ( T H I S . P R O C E S S
0116200 ) \r
0116220
*
0116260 F I L E N A
0116300 M E P R I N T E R C O P Y )
0116320 \r
0116340
0116360 ( C O P
0116400 Y F I L E F I L E N A M E F
0116420 A S T F X 8 0 - D E F A U L T -
0116440 D E S T I N A T I O N \r
0116460
*
0116520 ' (
0116540 ( T Y P E F A S T F X 8 0 ] )
0116560 \r \r \r ( C L : D E F U N 006 002 M
0116600 A K E - F A S T F X 8 0 006 001 (
0116620 F I L E F A S T F X 8 0 F I L
0116640 E & O P T I O N A L F O N T
0116660 S H E A D I N G T A B S O
0116700 P T I O N S ) \r
0116720 \r 006 006
0116740 ( * ; ; " t u r n F I L E
0116760 i n t o a F A S T F X 8 0
0117000 m a s t e r " ) 006 001 \r ( T E
0117020 X T T O I M A G E F I L E F I
0117040 L E F A S T F X 8 0 F I L E
0117060 ' F A S T F X 8 0 F O N T S
0117100 H E A D I N G T A B S O P T
0117120 I O N S ) ) \r \r \r ( C L : D E F
0117140 U N 006 002 F A S T F X 8 0 F I L
0117160 E P 006 001 ( F A S T F X 8 0 F I
0117200 L E ? ) \r
0117220 \r 006 006 ( *
0117240 ; ; " i s F I L E ( a f
0117260 i l e n a m e o r s t r e a
0117300 m ) a f a s t f x 8 0 f i
0117320 l e ? " ) 006 001 \r [ L E T [ (
0117340 F I L E - T Y P E ( G E T F I
0117360 L E I N F O F A S T F X 8 0 F
0117400 I L E ? ' T Y P E ] \r
0117420 ( 006 002 I F 006 001 ( E Q F I
0117440 L E - T Y P E ' F A S T F X 8
0117460 0 ) \r 006 002 T
0117500 H E N 006 001
0117520
*
0117560 006 006 ( * ; \r 006 001
0117600
*
0117660 006 006 " i f f i l e h
0117700 a s a t y p e , a n d t
0117720 y p e = F A S T F X 8 0 , w e
0117740 w i n " ) 006 001 \r \r
0117760 T \r
0120000 006 002 E L S E 006 001
0120020
*
0120060 006 006 ( *
0120100 ; \r 006 001
0120120
*
0120160 006 006 " n o f i l e t y p
0120200 e o r f i l e t y p e n o
0120220 t F A S T F X 8 0 , s o r
0120240 e a d t h e f i l e " ) 006 001
0120260 \r \r (
0120300 L E T [ ( S T R E A M ( O P
0120320 E N S T R E A M ( I N T E R L
0120340 I S P - N A M E S T R I N G F
0120360 A S T F X 8 0 F I L E ? ) \r
0120400
*
0120440 ' I N P U T \r
0120460
0120500 ' O L D \r
0120520
*
0120560 ' ( S E Q U E N T I A L ] \r
0120600 \r
0120620 006 006 ( * ; ; " f i l e
0120640 l o o k s l i k e E S C @
0120660 E S C C n < s i g n a t u r e >
0120700 . . . " ) 006 001 \r \r
0120720 ( P R O G
0120740 1 [ A N D ( > ( G E T F I
0120760 L E I N F O S T R E A M ' L
0121000 E N G T H ) \r
0121020
0121040 ( + 5 ( N C
0121060 H A R S \ F A S T F X 8 0 . F
0121100 I L E - S I G N A T U R E ) ) )
0121120 \r \r
0121140 006 006 ( * ; ; " y
0121160 u c k . . . " ) 006 001 \r \r
0121200
0121220 ( E Q ( C
0121240 H A R C O D E E S C ) \r
0121260
0121300 (
0121320 B I N S T R E A M ) ) \r
0121340
0121360 ( E Q (
0121400 C H A R C O D E @ ) \r
0121420
0121440 ( B
0121460 I N S T R E A M ) ) \r
0121500
0121520 ( E Q ( C
0121540 H A R C O D E E S C ) \r
0121560
0121600 (
0121620 B I N S T R E A M ) ) \r
0121640
0121660 ( E Q (
0121700 C H A R C O D E C ) \r
0121720
0121740 ( B
0121760 I N S T R E A M ) ) \r
0122000
0122020 ( B I N S
0122040 T R E A M ) \r
0122060
0122100 ( 006 002 F O R 006 001 C H
0122120 I N S T R I N G \ F A S T F
0122140 X 8 0 . F I L E - S I G N A T U
0122160 R E \r
0122200
0122220 006 002 A L W A Y S 006 001 (
0122240 E Q C H ( B I N S T R E A
0122260 M ] \r
0122300 ( C L O
0122320 S E F S T R E A M ] ) \r \r \r (
0122340 C L : D E F U N 006 002 \ F A S T
0122360 F X 8 0 . C A N N O T - P R I N
0122400 T - B I T M A P S 006 001 ( & O P
0122420 T I O N A L F I L E B I T M
0122440 A P S C A L E F A C T O R R
0122460 E G I O N R O T A T I O N T
0122500 I T L E ) \r ( P R I N T O
0122520 U T P R O M P T W I N D O W
0122540 " S o r r y , F A S T F X 8 0
0122560 c a n n o t r e n d e r g
0122600 r a p h i c s . " T " U s e
0122620 H Q F X 8 0 i n s t e a d .
0122640 " ) ) \r \r ( D E F I N E Q \r \r (
0122660 006 004 \ F A S T F X 8 0 . C O N V
0122700 E R T - T E D I T 006 001 \r [ L
0122720 A M B D A ( T E D I T - F I L
0122740 E I M A G E S T R E A M ) 006 006
0122760 006 001
0123000 006 006 (
0123020 * ; " E d i t e d 1 1 - D
0123040 e c - 8 6 1 7 : 2 9 b y h
0123060 d j " ) 006 001 \r
0123100 \r 006 006 ( *
0123120 ; ; " S e n d t h e t e
0123140 x t t o t h e p r i n t e
0123160 r . " ) 006 001 \r \r ( S E T
0123200 Q T E D I T - F I L E ( O P
0123220 E N T E X T S T R E A M T E D
0123240 I T - F I L E ) ) \r ( T
0123260 E D I T . F O R M A T . H A R D
0123300 C O P Y T E D I T - F I L E
0123320 I M A G E S T R E A M T N I
0123340 L N I L N I L ' F A S T F
0123360 X 8 0 ) \r ( C L O S E F
0123400 ? I M A G E S T R E A M ) \r
0123420 I M A G E S T R E A M ] )
0123440 \r ) \r \r \r \r 006 004 ( * ; ; " C
0123460 h a r a c t e r t r a n s m i
0123500 s s i o n m e t h o d " ) 006 001
0123520 \r \r ( D E F I N E Q \r \r ( 006 004 \
0123540 F A S T F X 8 0 . B O U T 006 001 \r
0123560 [ L A M B D A ( F A S T F
0123600 X 8 0 S T R E A M B Y T E ) 006
0123620 006 006 001
0123640
0123660 006 006 ( * h d j " 2 7 - O c
0123700 t - 8 6 1 1 : 5 1 " ) 006 001 \r
0123720 \r
0123740 006 006 ( * ; ; " s e n
0123760 d a b y t e t o t h e
0124000 f x 8 0 " ) 006 001 \r \r ( W
0124020 I T H - F A S T F X 8 0 - D A T
0124040 A ( D A T A F A S T F X 8 0
0124060 S T R E A M ) \r
0124100 ( B O U T ( F A S T F X
0124120 8 0 D A T A - B A C K I N G S T
0124140 R E A M D A T A ) \r
0124160 B Y T E
0124200 ] ) \r ) \r \r \r \r 006 004 ( * ; ;
0124220 " M i s c e l l a n y " ) 006 001 \r
0124240 \r \r ( D E F M A C R O 006 002 \ F
0124260 A S T F X 8 0 . T R A N S L A T
0124300 E - C H A R 006 001 ( C H A R C O
0124320 D E ) ` ( S E L C H A R Q ,
0124340 C H A R C O D E \r
0124360
*
0124420 ( 3 5
0124440 7 , 1 4 6 006 006 ( * ; " b u
0124460 l l e t " ) 006 001 \r \r
0124500
*
0124560 ( C H A R C O D E
0124600 006 002 * 006 001 ) ) \r
0124620
*
0124660 ( 3 5
0124700 7 , 4 5 006 006 ( * ; " e m
0124720 - d a s h " ) 006 001 \r \r
0124740
*
0125020 9 5 ) \r
0125040
*
0125100 (
0125120 3 5 7 , 4 4 006 006 ( * ; "
0125140 e n - d a s h " ) 006 001 \r \r
0125160
*
0125240 4 5 ) \r
0125260
*
0125340 ( \ C H A R 8 C O D E , C H
0125360 A R C O D E ) ) ) \r \r \r ( D E F
0125400 M A C R O 006 002 W I T H - F A S
0125420 T F X 8 0 - D A T A 006 001 ( ( V
0125440 A R - N A M E S T R E A M ) \r
0125460
0125500 & B
0125520 O D Y \r
0125540
0125560 ( B O D Y D E C L S E N
0125600 V ) ) ` ( L E T [ ( , V A R
0125620 - N A M E ( 006 002 F E T C H 006 001
0125640 ( S T R E A M I M A G E D A
0125660 T A ) \r
0125700
*
0125760 006 002 O F 006 001
0126000 , S T R E A M ] \r
0126020
*
0126060 ,
0126100 @ D E C L S \r
0126120
*
0126160 , @ B
0126200 O D Y ) ) \r \r ( D E C L A R E %
0126220 : E V A L @ C O M P I L E \r
0126240 \r ( R P A Q Q 006 002 \ F A S T F
0126260 X 8 0 . D O T S P E R I N C H 006
0126300 001 7 2 ) \r \r ( R P A Q Q 006 002
0126320 \ F A S T F X 8 0 . L I N E S P
0126340 E R I N C H 006 001 6 ) \r \r ( R P
0126360 A Q Q 006 002 \ F A S T F X 8 0 .
0126400 L I N E H E I G H T 006 001 1 2 )
0126420 \r \r ( R P A Q 006 002 \ F A S T F
0126440 X 8 0 . F I L E - S I G N A T U
0126460 R E 006 001 " F a s t F X - 8 0 /
0126500 X e r o x / 1 . 0 " ) \r \r ( C
0126520 O N S T A N T S ( \ F A S T F
0126540 X 8 0 . D O T S P E R I N C H
0126560 7 2 ) \r ( \ F A S
0126600 T F X 8 0 . L I N E S P E R I N
0126620 C H 6 ) \r ( \ F
0126640 A S T F X 8 0 . L I N E H E I G
0126660 H T 1 2 ) \r ( \
0126700 F A S T F X 8 0 . F I L E - S I
0126720 G N A T U R E " F a s t F X -
0126740 8 0 / X e r o x / 1 . 0 " ) )
0126760 \r ) \r \r ( R P A Q ? 006 002 F A S
0127000 T F X 8 0 - D E F A U L T - D E
0127020 S T I N A T I O N 006 001 " { T T
0127040 Y } " ) \r \r ( R P A Q ? 006 002 \
0127060 F A S T F X 8 0 . I N C H E S -
0127100 P E R - P A G E 006 001 1 1 ) \r \r
0127120 ( R P A Q ? 006 002 \ F A S T F X
0127140 8 0 . I N C H E S - P E R - L I
0127160 N E 006 001 8 . 5 ) \r \r \r \r 006 004 (
0127200 * ; ; " n e e d t o l o
0127220 a d t h e s e e x p o r t s
0127240 " ) 006 001 \r \r ( D E C L A R E % :
0127260 E V A L @ L O A D E V A L @
0127300 C O M P I L E D O N T C O P Y
0127320 \r ( F I L E S L O A D ( L O
0127340 A D C O M P ) \r A
0127360 D I S P L A Y ) \r ) \r \r ( R P A
0127400 Q Q 006 002 F X - 8 0 . H I G H -
0127420 Q U A L I T Y - D R I V E R C O
0127440 M S 006 001 \r [
0127460 \r 006 006 ( *
0127500 ; ; " H i g h - q u a l i t y
0127520 d r i v e r " ) 006 001 \r \r
0127540 \r
0127560 006 006 ( * ; ; " " ) 006 001 \r
0127600 \r ( S T R U C T
0127620 U R E S H Q F X 8 0 D A T A )
0127640 \r ( F N S \ H
0127660 Q F X 8 0 . I N I T ) \r
0127700 ( C O M S \r
0127720 \r
0127740 006 006 ( * ; ; " i m a g e s t
0127760 r e a m m e t h o d s " ) 006 001
0130000 \r \r
0130020 ( C O M S \r
0130040 \r 006 006 ( *
0130060 ; ; " o p e n i n g / c l o
0130100 s i n g i m a g e s t r e a m
0130120 " ) 006 001 \r \r
0130140 ( C O M S
0130160 ( F N S O P E N H Q F X 8 0 S
0130200 T R E A M ) \r
0130220
0130240 ( F U N C T I O N S \ H Q F
0130260 X 8 0 . P R E A M B L E \ H Q
0130300 F X 8 0 . R E S E T - P R I N T
0130320 E R \ H Q F X 8 0 . O U T P U
0130340 T - S I G N A T U R E ) \r
0130360
0130400 ) \r
0130420 ( F N
0130440 S \ H Q F X 8 0 . C L O S E )
0130460 ) \r
0130500 ( C O M S \r
0130520 \r 006 006 ( *
0130540 ; ; " m e t h o d s t h a
0130560 t h a c k f o n t s " ) 006 001
0130600 \r \r
0130620 ( F N S \ H Q F X
0130640 8 0 . F O N T C R E A T E \ H
0130660 Q F X 8 0 . C H A N G E F O N T
0130700 \ H Q F X 8 0 . C R E A T E C
0130720 H A R S E T \r
0130740
0130760 \ H Q F X 8 0 . C H A N G E -
0131000 C H A R S E T \ H Q F X 8 0 .
0131020 R E A D - F O N T - F I L E \
0131040 H Q F X 8 0 . S E A R C H - F O
0131060 N T S ) \r
0131100 ( F U N C T I
0131120 O N S \ H Q F X 8 0 . I N I T
0131140 - F O N T - P R O F I L E ) ) \r
0131160 ( C
0131200 O M S \r \r
0131220 006 006 ( * ;
0131240 ; " m e t h o d s f o r m
0131260 e a s u r i n g " ) 006 001 \r \r
0131300
0131320 ( F N S \ H Q F X 8 0 . C
0131340 H A R W I D T H \ H Q F X 8 0
0131360 . S T R I N G W I D T H ) \r
0131400
0131420 ( F U N C T I O N S \ H Q
0131440 F X 8 0 . S P A C E F A C T O R
0131460 ) ) \r
0131500 ( C O M S \r
0131520 \r 006 006 (
0131540 * ; ; " m e t h o d s t h
0131560 a t a f f e c t t h e c u
0131600 r r e n t p o s i t i o n / s
0131620 i z e o f d r a w i n g s
0131640 u r f a c e " ) 006 001 \r \r
0131660
0131700 ( F N S \ H Q F X 8 0 . C L I
0131720 P P I N G R E G I O N \ H Q F
0131740 X 8 0 . L E F T M A R G I N \
0131760 H Q F X 8 0 . R I G H T M A R G
0132000 I N \r
0132020 \ H Q
0132040 F X 8 0 . T O P M A R G I N \
0132060 H Q F X 8 0 . B O T T O M M A R
0132100 G I N \ H Q F X 8 0 . X P O S
0132120 I T I O N \ H Q F X 8 0 . Y P
0132140 O S I T I O N \r
0132160
0132200 \ H Q F X 8 0 . N E W L I N
0132220 E \ H Q F X 8 0 . N E W P A G
0132240 E \ H Q F X 8 0 . L I N E F E
0132260 E D \ H Q F X 8 0 . R E S E T
0132300 \r
0132320 \ H Q F X
0132340 8 0 . S T A R T P A G E ) \r
0132360
0132400 ( F U N C T I O N S \ H Q
0132420 F X 8 0 . C U R - P O S - V I S
0132440 I B L E ? ) ) \r
0132460 ( C O M S \r
0132500 \r
0132520 006 006 ( * ; ; " g r a p h
0132540 i c a l o p e r a t i o n s "
0132560 ) 006 001 \r \r
0132600 ( R E S O U R
0132620 C E S \ H Q F X 8 0 . B R U S
0132640 H B B T ) \r
0132660 ( F N S \
0132700 H Q F X 8 0 . B I T B L T \ H
0132720 Q F X 8 0 . B L T S H A D E \
0132740 H Q F X 8 0 . D R A W E L L I P
0132760 S E \ H Q F X 8 0 . O P E R A
0133000 T I O N \r
0133020 \
0133040 H Q F X 8 0 . D R A W P O I N T
0133060 ) \r
0133100 ( F N S \ H Q F X
0133120 8 0 . D R A W L I N E \ H Q F
0133140 X 8 0 . C L I P - A N D - D R A
0133160 W - L I N E \ H Q F X 8 0 . C
0133200 L I P - A N D - D R A W - L I N
0133220 E 1 ) \r
0133240 ( C O M S ( F
0133260 N S \ H Q F X 8 0 . D R A W C
0133300 I R C L E \ H Q F X 8 0 . C R
0133320 E A T E - B R U S H - B B T ) \r
0133340
0133360 ( F U N C T
0133400 I O N S \ H Q F X 8 0 . D R A
0133420 W - 4 - C I R C L E - P O I N T
0133440 S ) ) \r
0133460 ( C O M S ( F
0133500 N S \ H Q F X 8 0 . F I L L C
0133520 I R C L E \ H Q F X 8 0 . D R
0133540 A W A R C ) \r
0133560
0133600 ( F U N C T I O N S \ H Q F
0133620 X 8 0 . F I L L - C I R C L E -
0133640 B L T ) ) \r
0133660 ( C O M S
0133700 \r \r
0133720 006 006 ( * ; ; " c
0133740 u r v e - d r a w i n g " ) 006 001
0133760 \r \r
0134000 ( F N S
0134020 \ H Q F X 8 0 . D R A W C U R
0134040 V E \ H Q F X 8 0 . D R A W C
0134060 U R V E 2 \ H Q F X 8 0 . D R
0134100 A W C U R V E 3 \r
0134120
0134140 \ H Q F X 8 0
0134160 . L I N E W I T H B R U S H ) \r
0134200
0134220 ( F N S \
0134240 H Q F X 8 0 . B B T C U R V E P
0134260 T ) \r
0134300 ( M A
0134320 C R O S \ H Q F X 8 0 . C U R
0134340 V E P T ) \r
0134360
0134400 ( F U N C T I O N S \ H Q F X
0134420 8 0 . S M O O T H - C U R V E
0134440 . S E T U P . F O R . \ H Q F X
0134460 8 0 . B B T C U R V E P T . ) )
0134500 ) \r
0134520 ( C O M S \r
0134540 \r 006 006 ( *
0134560 ; ; " c h a r a c t e r p
0134600 r i n t i n g m e t h o d s "
0134620 ) 006 001 \r \r
0134640 ( F N S \ H
0134660 Q F X 8 0 . O U T C H A R \ H
0134700 Q F X 8 0 . B L T - C H A R ) )
0134720 \r (
0134740 C O M S \r
0134760 \r 006 006 ( *
0135000 ; ; " p r i n t e r c o d e
0135020 " ) 006 001 \r \r
0135040 ( F N S \
0135060 H Q F X 8 0 . D U M P - P A G E
0135100 - B U F F E R \ H Q F X 8 0 .
0135120 A D V A N C E - 8 - L I N E S )
0135140 \r
0135160 ( F U N C T I O N S
0135200 \ H Q F X 8 0 . E I G H T - L I
0135220 N E S - B L A N K ? \ H Q F X
0135240 8 0 . B I T M A P - L D B \ H
0135260 Q F X 8 0 . C L E A R - S C A N
0135300 L I N E \r
0135320
0135340 \ H Q F X 8 0 . C L E A R - W
0135360 O R D - B O X ) \r
0135400 ( F U
0135420 N C T I O N S \ H Q F X 8 0 .
0135440 S E N D M A K E - H Q F X 8 0
0135460 H Q F X 8 0 F I L E P ) ) \r
0135500 ( C O
0135520 M S \r \r
0135540 006 006 ( * ; ;
0135560 " w i n d o w h a r d c o p
0135600 y " ) 006 001 \r \r
0135620 ( F N S
0135640 \ H Q F X 8 0 . B I T M A P - F
0135660 I L E \ H Q F X 8 0 . C O N V
0135700 E R T - T E D I T ) ) \r
0135720 ( C O M S
0135740 \r \r
0135760 006 006 ( * ; ; " c
0136000 h a r a c t e r t r a n s m i
0136020 s s i o n m e t h o d " ) 006 001
0136040 \r \r
0136060 ( F N S \ H Q F X
0136100 8 0 . B O U T ) ) \r
0136120 ( C O M S \r
0136140 \r
0136160 006 006 ( * ; ; " h a n
0136200 d l i n g f o n t - i n f o r
0136220 m a t i o n c a c h i n g " )
0136240 006 001 \r \r
0136260 ( F N S \ H Q
0136300 F X 8 0 . F I X - L I N E - L E
0136320 N G T H \ H Q F X 8 0 . F I X
0136340 - F O N T \ H Q F X 8 0 . F I
0136360 X - Y ) \r
0136400 ( F U N C T I
0136420 O N S \ H Q F X 8 0 . I N V A
0136440 L I D A T E - C A C H E \ H Q
0136460 F X 8 0 . I N V A L I D A T E -
0136500 F O N T - C A C H E \r
0136520
0136540 \ H Q F X 8 0 . G
0136560 E T - C A C H E D - C H A R - W
0136600 I D T H \ H Q F X 8 0 . G E T
0136620 - C H A R A C T E R - O F F S E
0136640 T ) ) \r
0136660 ( C O M S \r
0136700 \r 006 006
0136720 ( * ; ; " a u x i l i a r y
0136740 f u n c t i o n s " ) 006 001 \r \r
0136760
0137000 ( F U N C T I O N S \
0137020 H Q F X 8 0 . G R A P H I C S -
0137040 M O D E ) \r
0137060 ( F N S \
0137100 H Q F X 8 0 . P R I N T E R - M
0137120 O D E ) \r
0137140 ( F U N C T I
0137160 O N S W I T H - H Q F X 8 0 -
0137200 D A T A ) ) \r
0137220 \r
0137240 \r 006 006 ( *
0137260 ; ; " a n d m i s c e l l a
0137300 n y " ) 006 001 \r \r
0137320 ( C O N S T A N T S
0137340 ( \ H Q F X 8 0 . F I L E - S
0137360 I G N A T U R E " H Q F X - 8
0137400 0 / X e r o x / 1 . 0 " ) \r
0137420
0137440 ( \ H Q F X 8 0 . 1 - T
0137460 O - 1 - M O D E - D P I 7 2 )
0137500 \r
0137520 ( \ H Q F X 8 0 . L
0137540 O W - S P E E D - D O U B L E -
0137560 M O D E - D P I 1 2 0 ) ) \r
0137600 ( I N
0137620 I T V A R S ( \ H Q F X 8 0 .
0137640 I N C H E S - P E R - P A G E
0137660 1 1 ) \r
0137700 ( \ H Q F X 8
0137720 0 . I N C H E S - P E R - L I N
0137740 E 8 . 5 ) \r
0137760 ( H Q F
0140000 X 8 0 - D E F A U L T - D E S T
0140020 I N A T I O N " { T T Y } " )
0140040 \r
0140060 ( H Q F X 8 0 - F O
0140100 N T - E X T E N S I O N S D I
0140120 S P L A Y F O N T E X T E N S I
0140140 O N S ) \r
0140160 ( H Q F X 8
0140200 0 - F O N T - D I R E C T O R I
0140220 E S D I S P L A Y F O N T D I
0140240 R E C T O R I E S ) \r
0140260
0140300 ( H Q F X 8 0 - F O N T - C O E
0140320 R C I O N S D I S P L A Y F O
0140340 N T C O E R C I O N S ) \r
0140360
0140400 ( H Q F X 8 0 - M I S S I N
0140420 G - F O N T - C O E R C I O N S
0140440 M I S S I N G D I S P L A Y F
0140460 O N T C O E R C I O N S ] ) \r \r
0140500 \r \r 006 004 ( * ; ; " H i g h -
0140520 q u a l i t y d r i v e r " )
0140540 006 001 \r \r \r \r \r 006 004 ( * ; ; "
0140560 " ) 006 001 \r \r \r ( C L : D E F S T
0140600 R U C T 006 002 H Q F X 8 0 D A T
0140620 A 006 001 \r \r
0140640 006 006 ( * ;
0140660 ; " t h e i m a g e d a t a
0140700 v e c t o r f o r a n H
0140720 Q F X 8 0 i m a g e s t r e a
0140740 m " ) 006 001 \r B A C K I N G B I
0140760 T M A P B A C K I N G S T R E
0141000 A M ( X P O S 0 ) \r
0141020 ( Y P O S 0 ) \r
0141040 ( C L I P P I N G R E G I
0141060 O N ( 006 002 c r e a t e 006 001 R
0141100 E G I O N ) ) \r L
0141120 I N E F E E D R I G H T M A R
0141140 G I N ( L E F T M A R G I N
0141160 0 ) \r T O P M A R
0141200 G I N \r ( B O T T
0141220 O M M A R G I N 0 ) \r
0141240 O P E R A T I O N S O U
0141260 R C E T Y P E ( P I L O T B B
0141300 T ( 006 002 c r e a t e 006 001 P I
0141320 L O T B B T \r
0141340
*
0141400 P B T D I S J O I N T
0141420 _ T ) ) \r ( T E
0141440 X T U R E W H I T E S H A D E
0141460 ) \r F O N T \r
0141500 ( C H A R S E T - A S
0141520