$ od -c -N 50000 [phylum]<JLisp>JLISP!7
0000000 ( F I L E C R E A T E D " 2 2
0000020 - S E P - 8 3 1 1 : 1 7 : 3 5
0000040 " 006 004 { P H Y L U M } < J L I
0000060 S P > J L I S P . ; 7 006 001 2 1
0000100 6 9 9 \r \r c h a
0000120 n g e s t o : ( F N S J
0000140 S T R I N G W I D T H ) \r \r
0000160 p r e v i o u s d a t
0000200 e : " 5 - A U G - 8 3 1 2
0000220 : 2 3 : 1 4 " { P H Y L U M }
0000240 < J L I S P > J L I S P . ; 6 )
0000260 \r \r \r ( * C o p y r i g h t
0000300 ( c ) 1 9 8 2 , 1 9 8 3 b
0000320 y X e r o x C o r p o r a t
0000340 i o n ) \r \r ( P R E T T Y C O M
0000360 P R I N T J L I S P C O M S )
0000400 \r \r ( R P A Q Q 006 002 J L I S P
0000420 C O M S 006 001 ( ( F N S . B U
0000440 F B O U T . D U M M Y P R E S
0000460 S F O N T G E T V C O D E I
0000500 N C R J A D D C H A R J C H
0000520 D E L J D S P P R I N T C H A
0000540 R \r \t \t J F I L
0000560 L B U F F E R J G E T K E Y
0000600 J M A K E P R E S S J P E E K
0000620 B A C K J P E E K K E Y J P
0000640 R E S S C H A R J S H O W K A
0000660 N J I \r \t \t J S
0000700 T R I N G W I D T H W O R D C
0000720 H A R P W O R D S E P R P \
0000740 C H A R S E T F O N T J E R A
0000760 S E C H A R S \ R E A D C U F
0001000 O N T F I L E ) \r \t ( D E C L A
0001020 R E : ( I N I T R E C O R D S
0001040 D S T R E A M ) \r \t \t D O
0001060 N T C O P Y \r \t \t ( R E C O
0001100 R D S D S T R E A M B U F F
0001120 E R C H R ) \r \t \t ( M A C
0001140 R O S \ C H A R S H I F T P
0001160 \ C H A R B I T S \ C H A R S
0001200 E T . C H A R S H I F T . ) )
0001220 \r \t ( C O M S ( G L O B A L V
0001240 A R S S P E C I A L K E Y S )
0001260 \r \t ( A D D V A R S
0001300 ( S P E C I A L K E Y S ) ) )
0001320 \r \t ( D E C L A R E : E V A L
0001340 @ C O M P I L E D O N T C O P
0001360 Y ( F I L E S ( L O A D C O
0001400 M P ) \r \t \t \t \t \t
0001420 P R E S S A T E R M ) ) \r \t (
0001440 C O M S ( G L O B A L V A R S
0001460 J F N S ) \r \t [ D
0001500 E C L A R E : F I R S T ( V
0001520 A R S J F N S ) \r \t \t \t ( P
0001540 ( f o r X i n J F N S d
0001560 o ( M O V D ? ( C A R X )
0001600 \r \t \t \t \t \t \t ( C A D R
0001620 X ] \r \t ( F N S
0001640 J I N ) ) \r \t ( V A R S ( J P
0001660 E N D I N G C H A R ) ) \r \t ( V
0001700 A R S ( \ I N F I L L B U F F
0001720 E R ) ) ) ) \r ( D E F I N E Q \r
0001740 \r ( 006 004 . B U F B O U T . 006 001 \r
0001760 [ L A M B D A ( C H F L
0002000 G )
0002020 006 003 ( * l m m " 2 9 -
0002040 M A R - 8 2 2 2 : 1 3 " ) 006 001
0002060 \r ( 006 002 p u s h 006 001 C
0002100 H A R S ( 006 002 c r e a t e 006 001
0002120 C H R 006 002 u s i n g 006 001 (
0002140 C A R C H A R S ) \r \t \t \t \t
0002160 X P O S _ ( D S P X P O S I
0002200 T I O N N I L ( T T Y D I S
0002220 P L A Y S T R E A M ) ) \r \t \t \t
0002240 \t C O D E S _ C H S T
0002260 A T E _ S T A T E ) ) \r
0002300 ( C O N D \r ( (
0002320 N U L L F L G ) \r \t ( \ C H E
0002340 C K C A R E T ( T T Y D I S P
0002360 L A Y S T R E A M ) ) \r \t ( M A
0002400 P C C H ( F U N C T I O N
0002420 \ E C H O C H A R ] ) \r \r ( 006 004
0002440 D U M M Y P R E S S F O N T 006 001
0002460 \r [ L A M B D A ( F A M I
0002500 L Y P S I Z E )
0002520
0002540 006 003
0002560 ( * l m m " 2 4 - M A R - 8
0002600 2 0 9 : 5 2 " ) 006 001 \r
0002620
*
0002700 006 003 ( * C R
0002720 E A T E D U M M Y J A P A N
0002740 E S E F O N T ) 006 001 \r
0002760 ( 006 002 c r e a t e 006 001 F O N T
0003000 D E S C R I P T O R 006 002 u s i
0003020 n g 006 001 ( F O N T C R E A T E
0003040 ( Q U O T E G A C H A ) \r \t
0003060 \t \t \t \t P S I Z E N
0003100 I L N I L ( Q U O T E P R
0003120 E S S ) ) \r \t \t \t \t F O N T F
0003140 A M I L Y _ F A M I L Y ] )
0003160 \r \r ( 006 004 G E T V C O D E 006 001 \r
0003200 [ L A M B D A ( C )
0003220
0003240 006 003 ( * l m m " 2 3 -
0003260 M A R - 8 2 2 2 : 0 8 " ) 006 001
0003300 \r ( \ E C H O C H A R
0003320 C ) \r ( \ E C H O C H A
0003340 R ( S E T Q C ( \ G E T K
0003360 E Y ) ) ) \r ( C O N D \r
0003400 ( [ O R ( A N D
0003420 ( I G E Q C ( C H A R C O D
0003440 E A ) ) \r \t \t ( I L E Q C
0003460 ( C H A R C O D E Z ) ) ) \r \t
0003500 ( A N D ( I G E Q C
0003520 ( C H A R C O D E a ) ) \r \t \t
0003540 ( I L E Q C ( C H A R C O D
0003560 E z ] \r \t ( L O G A N D C
0003600 3 1 ) ) \r ( T C ]
0003620 ) \r \r ( 006 004 I N C R 006 001 \r [
0003640 L A M B D A ( R S N X )
0003660
0003700 006 003 ( * l m m " 2 3 - M A R
0003720 - 8 2 2 2 : 0 8 " ) 006 001 \r
0003740
*
0004000 006 003 ( * c o p y o f i n
0004020 c p a r e n c o u n t ) 006 001 \r
0004040 ( 006 002 D E C L A R E 006 001
0004060 ( U S E D F R E E C H A R S )
0004100 ) \r ( C O N D \r
0004120 ( ( E Q R S N X S T R I
0004140 N G D E L I M . R C ) \r \t [ 006 002
0004160 r e p l a c e 006 001 ( C H R I
0004200 N S T R I N G P ) 006 002 o f 006 001
0004220 ( C A R C H A R S ) 006 002 w
0004240 i t h 006 001 ( N O T ( 006 002 f e
0004260 t c h 006 001 ( C H R I N S T R
0004300 I N G P ) 006 002 o f 006 001 ( C A
0004320 R C H A R S ] \r \t N I L ) \r
0004340 ( ( N O T ( 006 002 f e
0004360 t c h 006 001 ( C H R I N S T R
0004400 I N G P ) 006 002 o f 006 001 ( C A
0004420 R C H A R S ) ) ) \r \t ( S E L
0004440 E C T C R S N X \r \t \t ( L E
0004460 F T P A R E N . R C ( A N D
0004500 ( Z E R O P ( 006 002 f e t c h 006
0004520 001 ( C H R L B R K C O U N T
0004540 ) 006 002 o f 006 001 ( C A R C H
0004560 A R S ) ) ) \r \t \t \t \t (
0004600 006 002 a d d 006 001 ( 006 002 f e t c h
0004620 006 001 ( C H R L P A R C O U N
0004640 T ) 006 002 o f 006 001 ( C A R C
0004660 H A R S ) ) \r \t \t \t \t \t 1 ) )
0004700 \r \t \t \t N I L ) \r
0004720 \t \t [ R I G H T P A R E N . R
0004740 C 006 003 ( * N O T E :
0004760 R P ' s n e v e r m a t c h
0005000 l e f t - b r a c k e t s ,
0005020 j u s t l i k e o n 1 0 )
0005040 006 001 \r \t \t \t \t ( A N D ( Z E R
0005060 O P ( 006 002 f e t c h 006 001 ( C
0005100 H R L B R K C O U N T ) 006 002
0005120 o f 006 001 ( C A R C H A R S )
0005140 ) ) \r \t \t \t \t ( O R
0005160 ( Z E R O P ( 006 002 f e t c h 006
0005200 001 ( C H R L P A R C O U N T
0005220 ) 006 002 o f 006 001 ( C A R C H
0005240 A R S ) ) ) \r \t \t \t \t \t ( Z E
0005260 R O P ( 006 002 a d d 006 001 ( 006 002
0005300 f e t c h 006 001 ( C H R L P A
0005320 R C O U N T ) 006 002 o f 006 001 (
0005340 C A R C H A R S ) ) \r \t \t \t \t
0005360 \t \t - 1 ] \r \t \t ( L
0005400 E F T B R A C K E T . R C ( 006
0005420 002 a d d 006 001 ( 006 002 f e t c h 006
0005440 001 ( C H R L B R K C O U N T
0005460 ) 006 002 o f 006 001 ( C A R C H
0005500 A R S ) ) \r \t \t \t \t
0005520 1 ) \r \t \t \t \t N I L ) \r \t \t
0005540 [ R I G H T B R A C K E T . R C
0005560 ( C O N D \r \t \t \t \t (
0005600 ( Z E R O P ( 006 002 f e t c h 006
0005620 001 ( C H R L B R K C O U N T
0005640 ) 006 002 o f 006 001 ( C A R C H
0005660 A R S ) ) ) \r \t \t \t \t
0005700 ( 006 002 r e p l a c e 006 001 ( C
0005720 H R L P A R C O U N T ) 006 002
0005740 o f 006 001 ( C A R C H A R S )
0005760 006 002 w i t h 006 001 0 ) ) \r \t \t
0006000 \t \t ( T ( A N D ( Z
0006020 E R O P ( 006 002 a d d 006 001 ( 006
0006040 002 f e t c h 006 001 ( C H R L B
0006060 R K C O U N T ) 006 002 o f 006 001
0006100 ( C A R C H A R S ) ) \r \t \t \t
0006120 \t \t \t \t - 1 ) ) \r \t \t \t \t \t
0006140 ( Z E R O P ( 006 002 f e t c
0006160 h 006 001 ( C H R L P A R C O U
0006200 N T ) 006 002 o f 006 001 ( C A R
0006220 C H A R S ] \r \t \t N I L ] ) \r
0006240 \r ( 006 004 J A D D C H A R 006 001 \r
0006260 [ L A M B D A ( C H A R F
0006300 L G )
0006320 006 003 ( * l m m " 2 3 - M
0006340 A R - 8 2 2 2 : 0 8 " ) 006 001 \r
0006360 ( C O N D \r
0006400 ( ( I L E S S P C H A R 1 2
0006420 8 ) \r \t ( 006 002 . B U F B O U T .
0006440 006 001 ( L I S T C H A R ) ) )
0006460 \r ( T ( 006 002 . B U
0006500 F B O U T . 006 001 ( L I S T (
0006520 L O G O R 1 2 8 ( L R S H
0006540 C H A R 8 ) ) \r \t \t \t ( L
0006560 O G O R 1 2 8 ( L O G A N D
0006600 C H A R 1 2 7 ] ) \r \r ( 006 004
0006620 J C H D E L 006 001 \r [ L A M B
0006640 D A ( E M P T Y )
0006660
*
0006720 006 003 ( * l m m "
0006740 5 - A P R - 8 2 1 5 : 0 9 "
0006760 ) 006 001 \r ( 006 002 w h i l e
0007000 006 001 ( A N D ( N U L L ( 006
0007020 002 f e t c h 006 001 ( C H R C O
0007040 D E S ) 006 002 o f 006 001 ( C A R
0007060 C H A R S ) ) ) \r \t \t ( C D R
0007100 C H A R S ) ) \r
0007120 006 002 d o 006 001 ( 006 002 p o p 006 001
0007140 C H A R S ) )
0007160
0007200 006 003
0007220 ( * G E T R I D O F A N
0007240 Y G A R B A G E ) 006 001 \r
0007260 ( P R O G 1 ( C O N D \r \t
0007300 ( ( C D R C H A R S )
0007320
*
0007360 006 003 ( * B A C K U P
0007400 D I S P L A Y , R E T U R N
0007420 ( C H R C O D E S ) ) 006 001 \r
0007440 \t ( D S P B A C K
0007460 U P ( I D I F F E R E N C E
0007500 ( D S P X P O S I T I O N N I
0007520 L ( T T Y D I S P L A Y S T R
0007540 E A M ) ) \r \t \t \t \t
0007560 ( 006 002 f e t c h 006 001 ( C H R
0007600 X P O S ) 006 002 o f 006 001 ( C
0007620 A R C H A R S ) ) ) \r \t \t \t
0007640 ( T T Y D I S P L A Y S T R E
0007660 A M ) ) \r \t ( 006 002
0007700 f e t c h 006 001 ( C H R C O D
0007720 E S ) 006 002 o f 006 001 ( 006 002 p o
0007740 p 006 001 C H A R S ) ) ) \r \t
0007760 ( E M P T Y
0010000
*
0010040 006 003 ( * N O T H I N G
0010060 T O E R A S E ; P O T E N T
0010100 I A L L Y R I N G B E L L )
0010120 006 001 \r \t \t ( P R I N 3
0010140 ( F C H A R A C T E R ( C H A
0010160 R C O D E B E L L ) ) \r \t \t \t
0010200 T ) \r \t \t N I L )
0010220 ) \r \t ( S E T Q S T A T
0010240 E ( 006 002 f e t c h 006 001 ( C H
0010260 R S T A T E ) 006 002 o f 006 001
0010300 ( C A R C H A R S ] ) \r \r ( 006
0010320 004 J D S P P R I N T C H A R 006 001
0010340 \r [ L A M B D A ( S T R E
0010360 A M C H A R C O D E )
0010400
0010420 006 003
0010440 ( * l m m " 2 - M A R - 8
0010460 3 1 4 : 0 6 " ) 006 001 \r
0010500 ( P R O G ( ( D S ( O U T P
0010520 U T D S P S T R E A M ) ) ) \r
0010540 ( R E T U R
0010560 N ( P R O G ( ( F O N T 0
0010600 ( 006 002 f e t c h 006 001 F O N T 0
0010620 006 002 o f 006 001 D S ) ) ) \r \t \t
0010640 ( R E T U R N
0010660 ( C O N D \r \t \t \t \t ( F O N
0010700 T 0 ( B L T C H A R ( \ C H
0010720 A R B I T S C H A R C O D E )
0010740 \r \t \t \t \t \t \t D S ) \r \t \t \t
0010760 \t \t ( D S P F O N T F O N T
0011000 0 D S ) \r \t \t \t \t \t ( 006 002 r
0011020 e p l a c e 006 001 F O N T 0 006
0011040 002 o f 006 001 D S 006 002 w i t h 006
0011060 001 N I L ) \r \t \t \t \t \t 1 ) \r
0011100 \t \t \t \t ( ( \ C H A R S H I
0011120 F T P C H A R C O D E )
0011140 006 003 ( * A n e x t e n d e
0011160 d c h a r s e t / c h a r a c
0011200 t e r p a i r ) 006 001 \r \t \t \t \t
0011220 ( 006 002 r e p l a c e 006 001
0011240 F O N T 0 006 002 o f 006 001 D S
0011260 006 002 w i t h 006 001 ( D S P F O
0011300 N T ( 006 002 \ C H A R S E T F O
0011320 N T 006 001 C H A R C O D E \r \t \t
0011340 \t \t \t \t \t \t \t \t ( D S
0011360 P F O N T N I L D S ) ) \r \t
0011400 \t \t \t \t \t \t \t D S
0011420 ) ) \r \t \t \t \t 0 ) \r \t \t
0011440 \t \t ( T ( N O N J \ D S P
0011460 P R I N T C H A R S T R E A M
0011500 C H A R C O D E ] ) \r \r ( 006 004
0011520 J F I L L B U F F E R 006 001 \r
0011540 [ L A M B D A ( F I L L T Y P
0011560 E )
0011600
0011620 006 003 ( *
0011640 r m k : " 5 - A U G - 8 3
0011660 1 2 : 2 2 " ) 006 001 \r ( 006
0011700 002 D E C L A R E 006 001 ( U S E D
0011720 F R E E # C U R R E N T R D T
0011740 B L # F L G \ P R I M T E R
0011760 M T A B L E \ P R I M T E R M
0012000 S A \ L I N E B U F . O F D )
0012020 ) \r ( \ R E S E T L I N
0012040 E ) \r ( P R O G ( C
0012060 T C L A S S R S N X ( R T B
0012100 L S A ( A N D ( N E Q F I
0012120 L L T Y P E R E A D C . F T )
0012140 \r \t \t \t \t ( 006 002 f e
0012160 t c h 006 001 R E A D S A 006 002 o
0012200 f 006 001 # C U R R E N T R D T B
0012220 L # ) ) ) \r \t ( C O N
0012240 T R O L T O N ( 006 002 f e t c h
0012260 006 001 C O N T R O L F L G 006 002
0012300 o f 006 001 \ P R I M T E R M T A
0012320 B L E ) ) \r \t [ C H A
0012340 R S ( L I S T ( 006 002 c r e a
0012360 t e 006 001 C H R \r \t \t \t \t C
0012400 O D E S _ N I L \r \t \t \t \t
0012420 L P A R C O U N T _ ( 006 002 f
0012440 e t c h 006 001 ( L I N E B U F F
0012460 E R L P A R C O U N T ) 006 002
0012500 o f 006 001 \ L I N E B U F . O F
0012520 D ) \r \t \t \t \t L B R K C O U
0012540 N T _ ( 006 002 f e t c h 006 001 (
0012560 L I N E B U F F E R L B R K C
0012600 O U N T ) 006 002 o f 006 001 \ L I
0012620 N E B U F . O F D ) \r \t \t \t \t
0012640 I N S T R I N G P _ ( 006 002 f
0012660 e t c h 006 001 ( L I N E B U F F
0012700 E R I N S T R I N G P ) 006 002
0012720 o f 006 001 \ L I N E B U F . O F
0012740 D ] \r \t T M P S T A
0012760 T E B U F F E R S T A T E (
0013000 \ I N F I L L B U F F E R T )
0013020 ) \r ( 006 002 D
0013040 E C L A R E 006 001 ( S P E C V A
0013060 R S . T ) ) \r
0013100 [ C O N D \r \t ( (
0013120 A N D C O N T R O L T O N (
0013140 E Q F I L L T Y P E R E A D
0013160 C . F T ) ) \r \t ( S
0013200 E T Q C ( 006 002 J G E T K E Y
0013220 006 001 ) ) \r \t ( \ E C
0013240 H O C H A R C ) \r \t
0013260 ( \ B O U T \ L I N E B U F
0013300 . O F D C ) \r \t (
0013320 R E T U R N ( \ C L O S E L I
0013340 N E ] \r ( J
0013360 R E S E T L I N E ) \r
0013400 ( 006 002 r e p l a c e 006
0013420 001 S T A T E 006 002 o f 006 001 (
0013440 C A R C H A R S ) 006 002 w i t
0013460 h 006 001 S T A T E )
0013500 006 003 ( * T C L A S S
0013520 i s t e r m i n a l s y n t
0013540 a x c l a s s , R S N X i
0013560 s r e a d - t a b l e 006 001 \r
0013600 \t \t \t \t \t \t \t 006 003 c o
0013620 d e ) 006 001 \r N E X T
0013640 ( S E T Q C ( 006 002 J G E T K
0013660 E Y 006 001 ) ) \r
0013700 [ S E L E C T C ( 006 002 f e t
0013720 c h 006 001 T E R M C L A S S 006
0013740 002 o f 006 001 ( \ S Y N C O D E
0013760 \ P R I M T E R M S A C ) ) \r
0014000 \t \t ( C H A R D E L E T E
0014020 . T C ( A N D ( 006 002 J C H D
0014040 E L 006 001 T ) \r \t \t \t \t
0014060 ( J S H O W S T A T E ) )
0014100 ) \r \t \t [ L I N E D E L E
0014120 T E . T C ( C O N D \r \t \t \t \t
0014140 ( ( 006 002 J C H D E L 006 001
0014160 T ) \r \t \t \t \t ( 006
0014200 002 w h i l e 006 001 ( A N D ( S
0014220 E T Q C ( 006 002 J P E E K B A
0014240 C K 006 001 ) ) \r \t \t \t \t \t \t (
0014260 O R ( C D R C ) \r \t \t \t \t \t
0014300 \t ( N E Q ( \ S Y
0014320 N C O D E \ P R I M T E R M S
0014340 A ( C A R C ) ) \r \t \t \t \t \t
0014360 \t \t E O L . T C ) ) ) \r \t
0014400 \t \t \t \t 006 002 d o 006 001 ( 006 002 J
0014420 C H D E L 006 001 ) ) \r \t \t \t \t
0014440 ( J S H O W S T A T E ]
0014460 \r \t \t [ W O R D D E L E T
0014500 E . T C ( C O N D \r \t \t \t \t
0014520 ( ( S E T Q C ( 006 002 J
0014540 C H D E L 006 001 T ) ) \r \t \t \t \t
0014560 [ 006 002 w h i l e 006 001
0014600 ( A N D ( 006 002 W O R D S E P
0014620 R P 006 001 C ) \r \t \t \t \t \t \t
0014640 ( S E T Q C ( 006 002 J C H D E
0014660 L 006 001 ] \r \t \t \t \t [
0014700 C O N D \r \t \t \t \t \t ( ( 006 002 W O
0014720 R D C H A R P 006 001 C ) \r \t \t \t
0014740 \t \t ( 006 002 w h i l e 006 001 (
0014760 A N D ( S E T Q C ( 006 002 J
0015000 P E E K B A C K 006 001 ) ) \r \t \t \t
0015020 \t \t \t ( 006 002 W O R D
0015040 C H A R P 006 001 C ) ) \r \t \t \t \t
0015060 \t 006 002 d o 006 001 ( 006 002
0015100 J C H D E L 006 001 ] \r \t \t \t \t
0015120 ( J S H O W S T A T E ]
0015140 \r \t \t ( C T R L V . T C
0015160 ( 006 002 . B U F B O U T . 006 001 (
0015200 L I S T ( 006 002 G E T V C O D E
0015220 006 001 C ) ) \r \t \t \t \t \t T ) ) \r
0015240 \t \t ( E O L . T C ( 006 002
0015260 J A D D C H A R 006 001 C ) \r \t \t
0015300 \t ( G O E X I T ) ) \r \t
0015320 \t ( R E T Y P E . T C (
0015340 \ E C H O C H A R ( C H A R C
0015360 O D E E O L ) ) \r \t \t \t
0015400 ( 006 002 f o r 006 001 X 006 002
0015420 i n 006 001 ( R E V E R S E C H
0015440 A R S ) \r \t \t \t \t 006 002 d o 006 001
0015460 ( 006 002 r e p l a c e 006 001 X P
0015500 O S 006 002 o f 006 001 X 006 002 w i
0015520 t h 006 001 ( D S P X P O S I T I
0015540 O N N I L ( T T Y D I S P L
0015560 A Y S T R E A M ) ) ) \r \t \t \t \t
0015600 ( 006 002 f o r 006 001 Y 006
0015620 002 i n 006 001 ( 006 002 f e t c h 006 001
0015640 C O D E S 006 002 o f 006 001 X )
0015660 006 002 d o 006 001 ( \ E C H O C H
0015700 A R Y ) ) ) \r \t \t \t
0015720 ( G O N E X T ) ) \r \t \t
0015740 ( C O N D \r \t \t ( (
0015760 S E T Q T M P ( F A S S O C
0016000 C S P E C I A L K E Y S ) )
0016020 \r \t \t ( E V A L
0016040 ( C A D R T M P ) ) ) \r \t \t
0016060 ( T [ C O N D \r \t \t \t
0016100 ( ( A N D ( I G E Q C
0016120 ( C H A R C O D E a ) ) \r \t \t
0016140 \t \t ( I L E Q C ( C H A R C
0016160 O D E z ) ) ) \r \t \t \t
0016200 ( S E T Q C ( I D I F F E R
0016220 E N C E C 3 2 ] \r \t \t \t ( C
0016240 O N D \r \t \t \t ( J M O D E F
0016260 L A G ( J R O M A C H A R C
0016300 ) ) \r \t \t \t ( T ( 006 002 J A
0016320 D D C H A R 006 001 C ) ) ) \r \t \t
0016340 \t ( A N D ( E Q F I L L T Y
0016360 P E R E A D C . F T ) \r \t \t \t
0016400 ( G O N E X T ) ) \r
0016420 \t \t \t ( C O N D \r \t \t \t ( (
0016440 E Q E S C A P E . R C ( S E
0016460 T Q R S N X ( \ S Y N C O D
0016500 E R T B L S A C ) ) ) \r \t \t
0016520 \t ( C O N D \r \t \t \t
0016540 ( [ E Q C T R L V . T
0016560 C ( 006 002 f e t c h 006 001 T E R
0016600 M C L A S S 006 002 o f 006 001 ( \
0016620 S Y N C O D E \ P R I M T E R
0016640 M S A ( S E T Q C \r \t \t \t \t
0016660 \t \t \t \t \t ( 006 002 J G E T
0016700 K E Y 006 001 ] \r \t \t \t \t ( S E T Q
0016720 C ( 006 002 G E T V C O D E 006 001
0016740 C ) ) ) \r \t \t \t (
0016760 T ( \ E C H O C H A R C ) )
0017000 ) \r \t \t \t ( N C O N C 1
0017020 ( 006 002 f e t c h 006 001 C O D E
0017040 S 006 002 o f 006 001 ( C A R C H
0017060 A R S ) ) \r \t \t \t \t C )
0017100 \r \t \t \t ( G O N E X T
0017120 ) ) ) \r \t \t \t ( S E L E C T C
0017140 F I L L T Y P E \r \t \t \t \t [ R
0017160 A T O M / R S T R I N G . F T
0017200 ( C O N D \r \t \t \t \t \t \t
0017220 ( ( A N D C O N T R O L T O
0017240 N ( 006 002 f e t c h 006 001 S T O
0017260 P A T O M 006 002 o f 006 001 R S N
0017300 X ) ) \r \t \t \t \t \t \t
0017320 ( G O E X I T ] \r \t \t \t \t
0017340 [ R E A D . F T ( C O N D \r \t
0017360 \t \t \t \t ( [ A N D C O
0017400 N T R O L T O N ( Z E R O P
0017420 ( 006 002 f e t c h 006 001 ( C H R
0017440 L B R K C O U N T ) \r \t \t \t \t \t
0017460 \t \t \t 006 002 o f 006 001
0017500 ( C A R C H A R S ) ) ) \r \t
0017520 \t \t \t \t \t ( Z E R O P ( 006
0017540 002 f e t c h 006 001 ( C H R L P
0017560 A R C O U N T ) 006 002 o f 006 001
0017600 ( C A R C H A R S ) ) ) \r \t \t
0017620 \t \t \t \t ( 006 002 f e t c h 006 001
0017640 S T O P A T O M 006 002 o f 006 001
0017660 R S N X ) \r \t \t \t \t \t \t (
0017700 S E L E C T C R S N X \r \t \t \t
0017720 \t \t \t \t ( ( L I S T L E
0017740 F T P A R E N . R C L E F T B
0017760 R A C K E T . R C ) \r \t \t \t \t \t
0020000 \t \t N I L ) \r \t \t \t \t
0020020 \t \t \t ( S T R I N G D E L
0020040 I M . R C ( 006 002 f e t c h 006 001
0020060 ( C H R I N S T R I N G P )
0020100 \r \t \t \t \t \t \t \t \t \t
0020120 006 002 o f 006 001 ( C A R C H A R
0020140 S ) ) ) \r \t \t \t \t \t \t \t (
0020160 N O T ( 006 002 f e t c h 006 001 (
0020200 C H R I N S T R I N G P ) \r \t
0020220 \t \t \t \t \t \t \t 006 002 o f 006 001
0020240 ( C A R C H A R S ] \r
0020260
*
0020340 006 003 ( * R
0020360 E A D i s r e a d i n g a
0020400 n a t o m . R e t u r n w
0020420 h e n a t o m e n d s , b
0020440 u t 006 001 \r \t \t \t \t \t \t \t
0020460 006 003 a l s o o b e y b r
0020500 a c k e t / p a r e n e x c e
0020520 p t i o n n o t e d o n p
0020540 a g e 1 4 . 3 3 o f 006 001 \r \t
0020560 \t \t \t \t \t \t 006 003 m a n
0020600 u a l . ) 006 001 \r \t \t \t \t \t
0020620 ( G O E X I T ) ) ) \r \t
0020640 \t \t \t \t ( C O N D \r \t \t \t \t
0020660 \t ( ( 006 002 I N C R 006 001
0020700 R S N X ) \r \r
0020720 006 003 ( * P a r e n s b a l
0020740 a n c e - - t h r o w t h e
0020760 c a r r i a g e i f t h e
0021000 c l o s i n g p a r e n o r
0021020 b r a c k e t c h a r a c t
0021040 e r w a s n o t a C R ,
0021060 a n d i f F L G a r g u
0021100 m e n t 006 001 \r \t 006 003 o f
0021120 R E A D i s N I L . ( W e
0021140 k n o w w e a r e u n d
0021160 e r a R E A D c a l l b
0021200 e c a u s e o f F I L L T Y
0021220 P E ) ) 006 001 \r \r \r \t \t \t \t \t
0021240 ( A N D ( N E Q C
0021260 ( C H A R C O D E E O L ) ) \r
0021300 \t \t \t \t \t \t ( N O T F L
0021320 G ) \r \t \t \t \t \t \t ( \ E C
0021340 H O C H A R ( C H A R C O D E
0021360 E O L ) ) ) \r \t \t \t \t \t
0021400 ( G O E X I T ) ) \r \t \t
0021420 \t \t \t ( ( E Q I M M E
0021440 D I A T E . R M W ( 006 002 f e t
0021460 c h 006 001 W A K E U P 006 002 o f
0021500 006 001 R S N X ) ) \r
0021520
*
0021600 006 003 ( * I m m e
0021620 d i a t e r e a d - m a c r o
0021640 ) 006 001 \r \t \t \t \t \t (
0021660 G O E X I T ] \r \t \t \t \t ( S
0021700 H O U L D N T ] \r
0021720 ( G O N E X T ) \r
0021740 E X I T ( 006 002 f o r 006 001
0021760 X 006 002 i n 006 001 ( R E V E R S
0022000 E C H A R S ) 006 002 d o 006 001
0022020 ( 006 002 f o r 006 001 C 006 002 i n 006
0022040 001 ( 006 002 f e t c h 006 001 C O D
0022060 E S 006 002 o f 006 001 X ) 006 002 d
0022100 o 006 001 ( \ B O U T \ L I N E
0022120 B U F . O F D C ) ) ) \r
0022140 ( 006 002 w i t h 006 001
0022160 C H R ( C A R C H A R S )
0022200 \r \t \t ( 006 002 r e p l a c e 006 001
0022220 ( L I N E B U F F E R L P A R
0022240 C O U N T ) 006 002 o f 006 001 \ L
0022260 I N E B U F . O F D 006 002 w i t
0022300 h 006 001 L P A R C O U N T ) \r \t
0022320 \t ( 006 002 r e p l a c e 006 001 ( L
0022340 I N E B U F F E R L B R K C O
0022360 U N T ) 006 002 o f 006 001 \ L I N
0022400 E B U F . O F D 006 002 w i t h 006
0022420 001 L B R K C O U N T ) \r \t \t (
0022440 006 002 r e p l a c e 006 001 ( L I N
0022460 E B U F F E R I N S T R I N G
0022500 P ) 006 002 o f 006 001 \ L I N E B
0022520 U F . O F D 006 002 w i t h 006 001
0022540 I N S T R I N G P ) ) \r
0022560 ( \ C L O S E L I N
0022600 E ] ) \r \r ( 006 004 J G E T K E Y 006
0022620 001 \r [ L A M B D A N I L
0022640
*
0022700 006
0022720 003 ( * l m m " 1 - A P R -
0022740 8 2 1 4 : 4 7 " ) 006 001 \r
0022760 ( C O N D \r ( J P
0023000 E N D I N G C H A R ( P R O G
0023020 1 J P E N D I N G C H A R (
0023040 S E T Q J P E N D I N G C H A
0023060 R N I L ) ) ) \r (
0023100 T ( \ G E T K E Y ] ) \r \r ( 006
0023120 004 J M A K E P R E S S 006 001 \r
0023140 [ L A M B D A ( F I L E P F
0023160 I L E F O N T S H E A D I N
0023200 G T A B S ) \r ( 006 002 D
0023220 E C L A R E 006 001 ( G L O B A L
0023240 V A R S P R E S S T A B S T O
0023260 P S ) )
0023300 006 003 ( * r m
0023320 k : " 5 - A U G - 8 3 1 2
0023340 : 0 5 " ) 006 001 \r ( R E S
0023360 E T L S T \r ( P R O
0023400 G [ R E G I O N I N S T R M
0023420 I N M T A B S ( F A ( F
0023440 O N T M A P A R R A Y F O N T
0023460 S ( Q U O T E P R E S S ] \r
0023500
*
0023560 006 003 (
0023600 * F A i s a n a r r a y
0023620 o f f o n t - d e s c r i p
0023640 t o r s ) 006 001 \r \t [ R E
0023660 S E T S A V E [ S E T Q I N
0023700 ( O P E N F I L E F I L E
0023720 ( Q U O T E I N P U T ) \r \t \t
0023740 \t \t \t ( Q U O T E O L D )
0023760 \r \t \t \t \t \t 8 \r \t \t \t \t \t
0024000 ( Q U O T E ( ( S E Q U E N
0024020 T I A L T ] \r \t \t
0024040 ( Q U O T E ( P R O G N (
0024060 C L O S E F ? O L D V A L U E
0024100 ] \r \t [ S E T Q R E G
0024120 I O N ( P r e s s O u t F i l
0024140 e ( O R P F I L E ( P A C
0024160 K F I L E N A M E ( Q U O T E
0024200 E X T E N S I O N ) \r \t \t \t \t
0024220 \t \t \t ( Q U O T E
0024240 P R E S S ) \r \t \t \t \t \t \t \t
0024260 ( Q U O T E B O D
0024300 Y ) \r \t \t \t \t \t \t \t
0024320 I N ) ) \r \t \t \t \t
0024340 ( N E Q H E A D I N G T )
0024360 \r \t \t \t \t ( E L T
0024400 F A 1 ) \r \t \t \t \t
0024420 1 \r \t \t \t \t (
0024440 O R H E A D I N G ( C O N C
0024460 A T I N " " ( G
0024500 E T F I L E I N F O I N ( Q
0024520 U O T E \r \t \t \t \t \t \t \t \t \t \t
0024540 C R E A T I O N D A T
0024560 E ] \r \t ( S E T Q I N
0024600 S T R M ( \ G E T O F D I N
0024620 ( Q U O T E I N P U T ) ) )
0024640 \r \t ( 006 002 r e p l a c e
0024660 006 001 ( S T R E A M E N D O F
0024700 S T R E A M O P ) 006 002 o f 006 001
0024720 I N S T R M 006 002 w i t h 006 001
0024740 ( F U N C T I O N Z E R O )
0024760 ) \r
0025000
*
0025040 006
0025060 003 ( * M a k e \ B I N r e
0025100 t u r n 0 o n E O S ) 006 001
0025120 \r \t [ 006 002 b i n d 006 001
0025140 C F C ( C C N T _ 0 ) \r
0025160 \t \t ( M A X F O N T _ ( A
0025200 R R A Y S I Z E F A ) ) \r \t
0025220 006 002 d o 006 001 \r \t \t (
0025240 S E T Q C ( \ B I N I N S
0025260 T R M ) ) \r \t \t ( C O N D \r \t \t
0025300 ( ( \ C H A R S H I F T P
0025320 C ) \r \t \t ( S H O W . P
0025340 R E S S C C N T ) \r \t \t
0025360 ( P r e s s F o n t ( P R O
0025400 G 1 C P R E S S F O N T ( \
0025420 B O U T P R E S S O U T S T R
0025440 M ( 006 002 J P R E S S C H A R 006
0025460 001 ( L O G A N D C 1 2 7 )
0025500 \r \t \t \t \t \t \t \t \t \t \t ( L O G
0025520 A N D \r \t \t \t \t \t \t \t \t \t \t
0025540 ( \ B I N I N S T R M ) \r \t
0025560 \t \t \t \t \t \t \t \t \t 1 2 7 )
0025600 \r \t \t \t \t \t \t \t \t \t \t C P R E
0025620 S S F O N T ) ) \r \t \t \t \t
0025640 ( S H O W . P R E S S 1
0025660 ) ) ) \r \t \t ( S E T Q
0025700 C C N T 0 ) ) \r \t \t ( [ A
0025720 N D ( I G R E A T E R P C
0025740 ( C O N S T A N T ( A P P L Y
0025760 ( F U N C T I O N M A X ) \r
0026000 \t \t \t \t \t \t ( C H A
0026020 R C O D E ( N U L L ^ F C
0026040 R ^ L T A B ] \r \t \t
0026060 ( \ B O U T P R E S S O U T S
0026100 T R M C ) \r \t \t ( 006 002
0026120 a d d 006 001 C C N T 1 ) ) \r \t
0026140 \t ( T ( S E L C H A R Q
0026160 C \r \t \t \t [ ^ F
0026200
0026220 006 003 ( * F
0026240 o n t s h i f t ) 006 001 \r \t \t \t
0026260 \t ( S H O W . P R E S S
0026300 C C N T ) \r \t \t \t \t ( S E
0026320 T Q C C N T 0 ) \r \t \t \t \t
0026340 ( S E L C H A R Q ( S E T
0026360 Q F C ( \ B I N I N S T R
0026400 M ) ) \r \t \t \t \t \t [ ^
0026420 T 006 003
0026440 ( * t a b t o a b s o l u
0026460 t e p o s . ) 006 001 \r \t \t \t \t \t
0026500 \t ( C O N D \r \t \t \t \t \t \t
0026520 ( ( \ E O F P I N S T R M )
0026540 \r \t \t \t \t \t \t ( \ B O
0026560 U T P R E S S O U T S T R M
0026600 ( C H A R C O D E ^ F ) ) \r \t
0026620 \t \t \t \t \t ( \ B O U T
0026640 P R E S S O U T S T R M ( C
0026660 H A R C O D E ^ T ) ) \r \t \t \t
0026700 \t \t \t ( 006 002 a d d 006 001
0026720 C C N T 2 ) ) \r \t \t \t \t \t \t
0026740 ( T [ O R M T A B S
0026760 ( S E T Q M T A B S ( 006 002 f
0027000 o r 006 001 T A B \r \t \t \t \t \t \t \t
0027020 \t \t 006 002 i n 006 001
0027040 ( O R T A B S \r \t \t \t \t \t \t
0027060 \t \t \t \t P R E S S T A B
0027100 S T O P S ) \r \t \t \t \t \t \t \t \t \t
0027120 006 002 c o l l e c t
0027140 006 001 ( m i l l s T o M i c a s
0027160 \r \t \t \t \t \t \t \t \t \t \t \t T A B
0027200 ] \r \t \t \t \t \t \t ( S
0027220 E T Q F C ( O R [ C A R
0027240 ( N T H M T A B S ( S E T Q
0027260 F C \r \t \t \t \t \t \t \t \t \t
0027300 ( \ B I N I N S T R M
0027320 ] \r \t \t \t \t \t \t \t \t ( E R
0027340 R O R \r \t \t \t \t \t \t \t \t "
0027360 U n d e f i n e d a b s o l u
0027400 t e t a b n u m b e r " \r \t
0027420 \t \t \t \t \t \t \t \t F C ) ) ) \r
0027440 \t \t \t \t \t \t ( S E T
0027460 X . P R E S S ( S E T Q P R
0027500 E S S P O S I T I O N F C ] \r
0027520 \t \t \t \t \t [ N U L L
0027540 ( \ B O U T P R E S S O U T S
0027560 T R M ( C H A R C O D E ^ F
0027600 ) ) \r \t \t \t \t \t \t ( C O N
0027620 D \r \t \t \t \t \t \t ( ( \
0027640 E O F P I N S T R M ) \r
0027660
*
0027740 006 003 ( * E
0027760 O S a f t e r ^ F ) 006 001 \r \t
0030000 \t \t \t \t \t ( S E T
0030020 Q C C N T 1 ) ) \r \t \t \t \t \t
0030040 \t ( T ( \ B O U T
0030060 P R E S S O U T S T R M F C )
0030100 \r \t \t \t \t \t \t \t ( S E T Q C C
0030120 N T 2 ] \r \t \t \t \t \t
0030140 ( C O N D \r \t \t \t \t \t
0030160 ( ( I G E Q M A X F O N T
0030200 F C ) \r \t \t \t \t \t \t ( P r e
0030220 s s F o n t ( E L T F A F
0030240 C ) ) ) \r \t \t \t \t \t
0030260 ( T ( \ B O U T P R E S S
0030300 O U T S T R M ( C H A R C O D
0030320 E ^ F ) ) \r \t \t \t \t \t \t (
0030340 \ B O U T P R E S S O U T S T
0030360 R M F C ) \r \t \t \t \t \t \t (
0030400 S E T Q C C N T 2 ] \r \t \t \t
0030420 ( C R ( S H O W
0030440 . P R E S S C C N T ) \r \t \t \t
0030460 \t ( S E T Q C C N T 0
0030500 ) \r \t \t \t \t ( P r e s s N
0030520 e w L i n e R E G I O N ) ) \r
0030540 \t \t \t ( ^ L ( S
0030560 H O W . P R E S S C C N T ) \r
0030600 \t \t \t \t ( S E T Q C C N
0030620 T 0 ) \r \t \t \t \t ( P r e
0030640 s s F o n t ( P R O G 1 C P
0030660 R E S S F O N T ( P r e s s C
0030700 l o s e P a g e ) \r \t \t \t \t \t \t
0030720 ( P r e s s S t a r t
0030740 P a g e ) ) ) \r \t \t \t \t (
0030760 P r e s s N e w P a g e R E G
0031000 I O N ) ) \r \t \t \t
0031020 ( T A B ( F R P T Q 8 ( \
0031040 B O U T P R E S S O U T S T R
0031060 M ( C H A R C O D E S P A C
0031100 E ) ) ) \r \t \t \t \t ( 006 002
0031120 a d d 006 001 C C N T 8 ) ) \r \t
0031140 \t \t [ N U L L (
0031160 C O N D \r \t \t \t \t
0031200 ( ( \ E O F P I N S T R M )
0031220 006 003 ( * Z e r o
0031240 b y t e m a r k s p o s s i
0031260 b l e E O S ) 006 001 \r \t \t \t \t \t
0031300 ( S H O W . P R E S S C C N
0031320 T ) \r \t \t \t \t \t ( R E T U R N
0031340 ) ) \r \t \t \t \t ( T
0031360 ( \ B O U T P R E S S O U T
0031400 S T R M C ) \r \t \t \t \t \t (
0031420 006 002 a d d 006 001 C C N T 1 ] \r
0031440 \t \t \t ( P R O G N
0031460 ( \ B O U T P R E S S O U T
0031500 S T R M C ) \r \t \t \t \t
0031520 ( 006 002 a d d 006 001 C C N T
0031540 1 ] \r \t ( R E T U R N
0031560 ( L I S T ( C L O S E F I N
0031600 ) \r \t \t \t ( P r e s s C l o
0031620 s e I N ] ) \r \r ( 006 004 J P E E
0031640 K B A C K 006 001 \r [ L A M B D
0031660 A N I L
0031700 006 003 ( *
0031720 l m m " 2 3 - M A R - 8 2 2
0031740 2 : 0 8 " ) 006 001 \r ( 006 002
0031760 f o r 006 001 X 006 002 i n 006 001 C
0032000 H A R S 006 002 w h e n 006 001 ( 006
0032020 002 f e t c h 006 001 C O D E S 006
0032040 002 o f 006 001 X ) 006 002 d o 006 001
0032060 ( R E T U R N ( 006 002 f e t c h
0032100 006 001 C O D E S 006 002 o f 006 001
0032120 X ] ) \r \r ( 006 004 J P E E K K E Y
0032140 006 001 \r [ L A M B D A N I L
0032160
*
0032240 006 003 ( * l m m " 1 - A P R
0032260 - 8 2 1 4 : 4 7 " ) 006 001 \r
0032300 ( O R J P E N D I N G C H
0032320 A R ( S E T Q J P E N D I N
0032340 G C H A R ( \ G E T K E Y ] )
0032360 \r \r ( 006 004 J P R E S S C H A R 006
0032400 001 \r [ L A M B D A ( N S C
0032420 S E T N S C H A R F O N T 0
0032440 ) 006 003 ( * @ n E D "
0032460 2 4 - M A R - 8 2 1 2 : 1 6 "
0032500 ) 006 001 \r ( P R O G ( (
0032520 S I Z E ( 006 002 f e t c h 006 001
0032540 F O N T S I Z E 006 002 o f 006 001
0032560 F O N T 0 ) ) ) \r
0032600 ( R E T U R N ( C O N D
0032620 \r \t \t ( ( E Q N S C S
0032640 E T 3 6 ) \r
0032660
0032700 006 003 ( * H
0032720 I R A G A N A ) 006 001 \r \t \t
0032740 ( P r e s s F o n t ( C
0032760 O N D \r \t \t \t \t ( ( I G R
0033000 E A T E R P S I Z E 1 1 ) \r
0033020 \t \t \t \t K A N A 1 2 )
0033040 \r \t \t \t \t ( T K A N A 1
0033060 0 ) ) ) \r \t \t ( I D
0033100 I F F E R E N C E N S C H A R
0033120 3 2 ) ) \r \t \t ( ( E Q
0033140 N S C S E T 3 7 ) \r
0033160
0033200 006
0033220 003 ( * K A T A K A N A ) 006 001 \r
0033240 \t \t ( P r e s s F o
0033260 n t ( C O N D \r \t \t \t \t
0033300 ( ( I G R E A T E R P S I Z E
0033320 1 1 ) \r \t \t \t \t K A
0033340 N A 1 2 ) \r \t \t \t \t ( T
0033360 K A N A 1 0 ) ) ) \r \t \t
0033400 ( I P L U S N S C H A R
0033420 8 3 ) ) \r \t \t ( T ( S
0033440 E T Q N S C H A R ( I P L U
0033460 S ( I T I M E S 9 4 ( I D
0033500 I F F E R E N C E N S C S E T
0033520 4 8 ) ) \r \t \t \t \t \t N S
0033540 C H A R - 3 3 ) ) \r \t \t
0033560 ( P r e s s F o n t (
0033600 E L T ( C O N D \r \t \t \t \t \t
0033620 ( ( I G R E A T E R P S I Z E
0033640 1 1 ) \r \t \t \t \t \t K A N
0033660 J I 1 2 ) \r \t \t \t \t \t ( T K
0033700 A N J I 1 0 ) ) \r \t \t \t \t
0033720 ( L R S H N S C H A R
0033740 8 ) ) ) \r \t \t (
0033760 L O G A N D N S C H A R 2 5
0034000 5 ] ) \r \r ( 006 004 J S H O W K A N
0034020 J I 006 001 \r [ L A M B D A (
0034040 C O D E D S P )
0034060
*
0034120 006 003 ( * 316 353 314 332 " 2 7 -
0034140 J A N - 8 3 0 9 : 5 6 " ) 006 001
0034160 \r ( D S P F O N T ( 006
0034200 002 \ C H A R S E T F O N T 006 001
0034220 ( L R S H C O D E 8 ) \r \t \t
0034240 \t ( D S P F O N T N I L
0034260 D S P ) ) \r \t D S P
0034300 ) \r ( P R I N 3 ( C H
0034320 A R A C T E R ( L O G A N D
0034340 C O D E 1 2 7 ) ) \r \t D
0034360 S P ] ) \r \r ( 006 004 J S T R I N G
0034400 W I D T H 006 001 \r [ L A M B D
0034420 A ( S T R F O N T F L G
0034440 R D T B L )
0034460
0034500 006 003 ( * r m k : "
0034520 2 2 - S E P - 8 3 1 1 : 1 7 "
0034540 ) 006 001 \r
0034560
*
0034640 006 003 ( * R e t u r n s t h
0034660 e w i d t h o f S T R a
0034700 c c o r d i n g t o F O N T
0034720 ) 006 001 \r ( P R O G ( S
0034740 T R M W I D T H S B A S E W
0034760 0 ) \r ( 006 002
0035000 D E C L A R E 006 001 ( S P E C V
0035020 A R S W I D T H S B A S E W
0035040 0 F O N T ) )
0035060 006 003 ( * U s e d i n
0035100 \ M A P C H A R S ) 006 001 \r
0035120 [ S E T Q W I
0035140 D T H S B A S E ( C O N D \r \t
0035160 ( ( 006 002 t y p e ? 006
0035200 001 F O N T D E S C R I P T O R
0035220 F O N T ) \r \t \t ( 006 002 f e t c
0035240 h 006 001 ( A R R A Y P B A S E
0035260 ) 006 002 o f 006 001 ( 006 002 f f e t
0035300 c h 006 001 \ S F W i d t h s 006
0035320 002 o f 006 001 F O N T ) ) ) \r \t
0035340 ( ( S E T Q S T R M
0035360 ( D I S P L A Y S T R E A M P
0035400 ( \ O U T S T R E A M A R G
0035420 F O N T T ) ) ) \r \t \t ( 006 002 f
0035440 f e t c h 006 001 ( \ D I S P L A
0035460 Y D A T A D D W I D T H S C A
0035500 C H E ) 006 002 o f 006 001 ( 006 002 f
0035520 e t c h 006 001 I M A G E D A T A
0035540 006 002 o f 006 001 S T R M ) ) ) \r
0035560 \t ( T ( 006 002 f e t
0035600 c h 006 001 ( A R R A Y P B A S
0035620 E ) 006 002 o f 006 001 ( 006 002 f e t
0035640 c h 006 001 ( F O N T D E S C R I
0035660 P T O R \ S F W i d t h s ) \r
0035700 \t \t \t \t \t 006 002 o f 006 001
0035720 ( O R ( D E F A U L T F O N T
0035740 ( O R F O N T ( Q U O T E
0035760 D I S P L A Y ) ) \r \t \t \t \t \t
0036000 \t \t \t N I L T ) \r \t \t \t \t \t \t
0036020 ( F O N T C R E A T E F
0036040 O N T ] \r (
0036060 R E T U R N ( S E L E C T C
0036100 ( N T Y P X S T R ) \r \t \t \t
0036120 [ \ L I T A T O M ( C O N
0036140 D \r \t \t \t \t [ F L
0036160 G ( 006 002 f o r 006 001 C ( S A
0036200 _ ( 006 002 f e t c h 006 001 R E A
0036220 D S A 006 002 o f 006 001 ( \ G T R
0036240 E A D T A B L E R D T B L ) )
0036260 ) \r \t \t \t \t \t 006 002
0036300 i n a t o m 006 001 S T R \r \t \t \t
0036320 \t \t 006 002 s u m 006 001
0036340 ( . C H A R S H I F T . C
0036360 ( C O N D \r \t \t \t \t \t \t \t \t
0036400 ( ( 006 002 f e t c h 006 001 ( R E A
0036420 D C O D E E S C Q U O T E ) \r
0036440 \t \t \t \t \t \t \t \t 006 002
0036460 o f 006 001 ( \ S Y N C O D E S
0036500 A C ) ) \r \t \t \t \t \t \t \t \t
0036520 ( I P L U S ( \ F G E T W
0036540 I D T H W I D T H S B A S E \r
0036560 \t \t \t \t \t \t \t \t \t \t
0036600 ( C H A R C O D E \r \t \t \t \t \t
0036620 \t \t \t \t \t \t % % ) ) \r \t \t \t \t
0036640 \t \t \t \t \t ( \ F G E T W I
0036660 D T H W I D T H S B A S E C
0036700 ) ) ) \r \t \t \t \t \t \t \t \t ( T
0036720 ( \ F G E T W I D T H W I D
0036740 T H S B A S E C ] \r \t \t \t \t
0036760 ( T ( 006 002 f o r 006
0037000 001 C 006 002 i n a t o m 006 001 S
0037020 T R 006 002 s u m 006 001 ( . C H A
0037040 R S H I F T . C ( \ F G E T
0037060 W I D T H W I D T H S B A S E
0037100 \r \t \t \t \t \t \t \t \t \t \t \t
0037120 C ] \r \t \t \t [ \ S T R I N
0037140 G P \r \t \t \t ( C O N D
0037160 \r \t \t \t [ F L G
0037200 ( I P L U S ( U N F O L D (
0037220 \ F G E T W I D T H W I D T H
0037240 S B A S E ( C H A R C O D E
0037260 % " ) ) \r \t \t \t \t \t \t 2 )
0037300 \r \t \t \t \t \t ( 006 002 f o r 006
0037320 001 C 006 002 i n s t r i n g 006 001
0037340 S T R \r \t \t \t \t \t
0037360 006 002 s u m 006 001 ( . C H A R S H
0037400 I F T . C ( S E L C H A R Q
0037420 \r \t \t \t \t \t \t \t \t C \r \t \t \t \t
0037440 \t \t \t \t ( ( % " % % ) \r \t \t
0037460 \t \t \t \t \t \t ( I P L U S
0037500 ( \ F G E T W I D T H W I D T
0037520 H S B A S E \r \t \t \t \t \t \t \t \t \t
0037540 \t ( C H A R C O D E
0037560 \r \t \t \t \t \t \t \t \t \t \t \t % % ) )
0037600 \r \t \t \t \t \t \t \t \t \t ( \ F G
0037620 E T W I D T H W I D T H S B A
0037640 S E C ) ) ) \r \t \t \t \t \t \t \t \t
0037660 ( \ F G E T W I D T H W I D
0037700 T H S B A S E C ] \r \t \t \t
0037720 ( T ( 006 002 f o r 006 001
0037740 C 006 002 i n s t r i n g 006 001
0037760 S T R 006 002 s u m 006 001 ( . C H
0040000 A R S H I F T . C ( \ F G E
0040020 T W I D T H W I D T H S B A S
0040040 E C ] \r \t \t \t ( P R O G
0040060 ( ( S 0 ) ) \r \t \t \t
0040100 ( 006 002 D E C L A R E 006
0040120 001 ( S P E C V A R S S ) ) \r
0040140 \t \t \t ( \ M A
0040160 P C H A R S [ F U N C T I O N
0040200 ( L A M B D A ( C ) \r \t \t \t
0040220 \t \t \t ( 006 002 a d d 006 001 S ( .
0040240 C H A R S H I F T . C ( \ F
0040260 G E T W I D T H W I D T H S B
0040300 A S E C ] \r \t \t \t \t \t
0040320 S T R F L G R D T B L ) \r \t
0040340 \t \t ( R E T U
0040360 R N S ] ) \r \r ( 006 004 W O R D C
0040400 H A R P 006 001 \r [ L A M B D A
0040420 ( C )
0040440
*
0040500 006 003 ( * l m m " 1 2
0040520 - A P R - 8 2 1 6 : 3 2 " ) 006
0040540 001 \r ( A N D C ( O R
0040560 ( C D R C ) \r \t
0040600 ( A N D ( E Q O T H E R .
0040620 R C ( \ S Y N C O D E R T B
0040640 L S A ( C A R C ) ) ) \r \t \t
0040660 ( N E Q W O R D S E P
0040700 R . T C ( \ S Y N C O D E \
0040720 P R I M T E R M S A ( C A R
0040740 C ] ) \r \r ( 006 004 W O R D S E P R
0040760 P 006 001 \r [ L A M B D A ( C
0041000 )
0041020 006 003 ( * @ n E D
0041040 " 2 4 - M A R - 8 2 1 2 : 5
0041060 5 " ) 006 001 \r ( N O T (
0041100 006 002 W O R D C H A R P 006 001 C ]
0041120 ) \r \r ( 006 004 \ C H A R S E T F O
0041140 N T 006 001 \r [ L A M B D A (
0041160 C O D E F O N T 0 )
0041200
*
0041240 006 003 ( * l m m " 1 5 - A
0041260 P R - 8 2 1 8 : 1 6 " ) 006 001 \r
0041300 ( S E T Q C O D E (
0041320 \ C H A R S E T C O D E ) ) \r
0041340 ( 006 002 f o r 006 001 X 006
0041360 002 i n 006 001 B I G J F O N T S
0041400 006 002 b i n d 006 001 ( H T _ ( F
0041420 O N T H E I G H T F O N T 0 )
0041440 ) 006 002 d o 006 001 [ C O N D \r \t
0041460 \t \t \t \t \t \t ( [ A N D (
0041500 I G R E A T E R P H T ( C A
0041520 R X ) ) \r \t \t \t \t \t \t \t \t (
0041540 S E T Q X ( A S S O C C O
0041560 D E ( C D R X ] \r \t \t \t \t \t
0041600 \t \t ( R E T U R N (
0041620 C A D R X ] \r 006
0041640 002 f i n a l l y 006 001 ( R E T U
0041660 R N ( O R ( F O N T P ( E
0041700 L T J D I S P L A Y F O N T S
0041720 C O D E ) ) \r \t \t \t F O
0041740 N T 0 ] ) \r \r ( 006 004 J E R A S E
0041760 C H A R S 006 001 \r [ L A M B D
0042000 A ( F N )
0042020 006 003 ( *
0042040 l m m " 2 9 - M A R - 8 2 2
0042060 2 : 0 5 " ) 006 001 \r ( 006 002
0042100 w h i l e 006 001 [ A N D ( C D
0042120 R C H A R S ) \r \t \t ( A P P L
0042140 Y * F N ( 006 002 f e t c h 006 001
0042160 S T A T E 006 002 o f 006 001 ( C
0042200 A R C H A R S ] \r
0042220 006 002 d o 006 001 ( 006 002 J C H D E
0042240 L 006 001 ] ) \r \r ( 006 004 \ R E A D C
0042260 U F O N T F I L E 006 001 \r [ L
0042300 A M B D A ( F I L E F A M I
0042320 L Y S I Z E F A C E )
0042340
0042360 006 003 ( * l m
0042400 m " 9 - A P R - 8 2 1 3 :
0042420 3 5 " ) 006 001 \r ( P R O G
0042440 [ F D N U M B C O D E S R
0042460 W B I T M A P O F F S E T S
0042500 H E I G H T W W H W I D
0042520 T H S F O N T D E S C C S N
0042540 C H A R W I D B U F F E R
0042560 O F F S E T C N \r \t
0042600 ( O F D ( \ G E T O F D
0042620 ( O P E N F I L E F I L E (
0042640 Q U O T E I N P U T ) \r \t \t \t
0042660 \t ( Q U O T E O L
0042700 D ] \r ( S E
0042720 T Q H ( \ W I N O F D ) )
0042740 \r ( S E T Q
0042760 W W ( \ W I N O F D ) ) \r
0043000 ( S E T Q
0043020 N U M B C O D E S ( I Q U O T
0043040 I E N T ( I D I F F E R E N C
0043060 E ( G E T E O F P T R O F D
0043100 ) \r \t \t \t \t \t \t ( G E T F I
0043120 L E P T R O F D ) ) \r \t \t \t \t
0043140 ( U N F O L D ( I P
0043160 L U S 2 ( I T I M E S H
0043200 W W ) ) \r \t \t \t \t \t B
0043220 Y T E S P E R W O R D ) ) ) \r
0043240 ( S E T Q B
0043260 I T M A P ( B I T M A P C R E
0043300 A T E ( U N F O L D ( I T I
0043320 M E S W W N U M B C O D E S
0043340 ) \r \t \t \t \t \t B I T S
0043360 P E R W O R D ) \r \t \t \t \t
0043400 H ) ) \r
0043420 ( S E T Q B U F F E R ( B I
0043440 T M A P C R E A T E ( U N F O
0043460 L D W W B I T S P E R W O R
0043500 D ) \r \t \t \t \t H ) ) \r
0043520 ( S E T Q
0043540 O F F S E T 0 ) \r
0043560 ( 006 002 w h i l e 006 001 (
0043600 N O T ( E O F P O F D ) ) \r
0043620 \t 006 002 d o 006 001 ( S E
0043640 T Q C H A R ( \ W I N O F
0043660 D ) ) \r \t \t ( S E T Q W I D
0043700 ( \ W I N O F D ) ) \r \t \t ( S
0043720 E T Q C N ( L R S H C H A
0043740 R 8 ) ) \r \t \t ( S E T Q C H
0043760 A R ( L O G A N D C H A R
0044000 2 5 5 ) ) \r \t \t [ C O N D \r \t \t
0044020 ( [ N O T ( S E T Q F O
0044040 N T D E S C ( C A D R ( A S
0044060 S O C C N F D ] \r \t \t
0044100 ( S E T Q F O N T D E S C \r
0044120 \t \t ( 006 002 c r e a t
0044140 e 006 001 F O N T D E S C R I P T
0044160 O R \r \t \t \t F O N T
0044200 F A M I L Y _ F A M I L Y \r
0044220 \t \t \t F O N T S I Z
0044240 E _ S I Z E \r \t \t \t
0044260 F O N T F A C E _ F A C
0044300 E \r \t \t \t F O N T D
0044320 E V I C E _ ( Q U O T E D I
0044340 S P L A Y ) ) ) \r \t \t (
0044360 006 002 r e p l a c e 006 001 C H A R
0044400 A C T E R B I T M A P 006 002 o f
0044420 006 001 F O N T D E S C 006 002 w i
0044440 t h 006 001 B I T M A P ) \r \t \t
0044460 ( 006 002 r e p l a c e 006 001
0044500 \ S F D e s c e n t 006 002 o f 006
0044520 001 F O N T D E S C 006 002 w i t
0044540 h 006 001 ( I D I F F E R E N C E
0044560 H S I Z E ) ) \r \t \t
0044600 ( 006 002 r e p l a c e 006 001 \ S F
0044620 A s c e n t 006 002 o f 006 001 F O
0044640 N T D E S C 006 002 w i t h 006 001
0044660 H ) \r \t \t ( 006 002 r e p l
0044700 a c e 006 001 \ S F H e i g h t
0044720 006 002 o f 006 001 F O N T D E S C
0044740 006 002 w i t h 006 001 ( I D I F F E
0044760 R E N C E ( 006 002 f e t c h 006 001
0045000 \ S F A s c e n t 006 002 o f 006
0045020 001 F O N T D E S C ) \r \t \t \t \t
0045040 \t \t \t \t ( 006 002 f e t c
0045060 h 006 001 \ S F D e s c e n t 006
0045100 002 o f 006 001 F O N T D E S C ) )
0045120 ) \r \t \t ( 006 002 r e p l a
0045140 c e 006 001 F I R S T C H A R 006
0045160 002 o f 006 001 F O N T D E S C 006
0045200 002 w i t h 006 001 0 ) \r \t \t
0045220 ( 006 002 r e p l a c e 006 001 L A
0045240 S T C H A R 006 002 o f 006 001 F O
0045260 N T D E S C 006 002 w i t h 006 001
0045300 \ M A X C H A R ) \r \t \t
0045320 ( 006 002 r e p l a c e 006 001 \ S F
0045340 O f f s e t s 006 002 o f 006 001 F
0045360 O N T D E S C 006 002 w i t h 006 001
0045400 ( A R R A Y ( I P L U S 2
0045420 \ M A X C H A R ) \r \t \t \t \t \t
0045440 \t \t \t ( Q U O T E S M A L L P
0045460 O S P ) \r \t \t \t \t \t \t \t \t 0 0
0045500 ) ) \r \t \t ( 006 002 r e p l
0045520 a c e 006 001 \ S F W i d t h s
0045540 006 002 o f 006 001 F O N T D E S C
0045560 006 002 w i t h 006 001 ( A R R A Y
0045600 ( I P L U S 2 \ M A X C H A
0045620 R ) \r \t \t \t \t \t \t \t
0045640 ( Q U O T E S M A L L P O S
0045660 P ) \r \t \t \t \t \t \t \t
0045700 0 0 ) ) \r \t \t ( 006 002
0045720 p u s h 006 001 F D ( L I S T
0045740 C N F O N T D E S C ] \r \t \t (
0045760 S E T A ( 006 002 f e t c h 006 001
0046000 \ S F O f f s e t s 006 002 o f 006
0046020 001 F O N T D E S C ) \r \t \t
0046040 C H A R O F F S E T )
0046060 \r \t \t ( S E T A ( 006 002 f e t c
0046100 h 006 001 \ S F W i d t h s 006 002
0046120 o f 006 001 F O N T D E S C ) \r \t
0046140 \t C H A R W I D )
0046160 \r \t \t ( B I N S O F D ( 006 002
0046200 f e t c h 006 001 B I T M A P B A
0046220 S E 006 002 o f 006 001 B U F F E R
0046240 ) \r \t \t 0 \r \t \t
0046260 ( L L S H ( I T I M E
0046300 S W W H ) \r \t \t \t 1
0046320 ) ) \r \t \t ( B I T B L T B U F
0046340 F E R 0 0 B I T M A P O
0046360 F F S E T 0 W I D H N I
0046400 L ( Q U O T E R E P L A C E
0046420 ) ) \r \t \t ( 006 002 a d d 006 001 O F
0046440 F S E T W I D ) ) \r
0046460 ( R E T U R N ( P R
0046500 O G 1 F D ( C L O S E F O
0046520 F D ] ) \r ) \r ( D E C L A R E :
0046540 \r ( D E C L A R E : E V A L
0046560 @ C O M P I L E ( G L O B A L
0046600 V A R S F O N T 0 A R R A Y )
0046620 ) \r ( S E T U P H A S H A R R A
0046640 Y ( Q U O T E F O N T 0 A R
0046660 R A Y ) \r \t \t N I L ) \r D O N T
0046700 C O P Y \r [ D E C L A R E :
0046720 E V A L @ C O M P I L E \r \r (
0046740 H A S H L I N K 006 002 D S T R E
0046760 A M 006 001 ( F O N T 0 F O N T
0047000 0 A R R A Y ) ) \r \r ( H A S H L
0047020 I N K 006 002 B U F F E R 006 001 (
0047040 J L I N E B U F S T A T E ) ) \r
0047060 \r ( R E C O R D 006 002 C H R 006 001
0047100 ( C O D E S X P O S S T A
0047120 T E L P A R C O U N T L B R
0047140 K C O U N T I N S T R I N G P
0047160 ) ) \r ] \r ( D E C L A R E : E
0047200 V A L @ C O M P I L E ( G L O
0047220 B A L V A R S F O N T 0 A R R
0047240 A Y ) ) \r ( S E T U P H A S H A
0047260 R R A Y ( Q U O T E F O N T
0047300 0 A R R A Y ) \r \t \t N I L ) \r \r
0047320 ( D E C L A R E : E V A L @ C
0047340 O M P I L E \r \r ( P U T P R O
0047360 P S 006 002 \ C H A R S H I F T P
0047400 M A C R O 006 001 ( ( C H A R C
0047420 O D E ) \r \t \t \t ( I G
0047440 R E A T E R P C H A R C O D E
0047460 1 2 7 ) ) ) \r \r ( P U T P R O
0047500 P S 006 002 \ C H A R B I T S M
0047520 A C R O 006 001 ( ( C O D E ) \r \t
0047540 \t \t ( L O G A N D C O D
0047560 E 1 2 7 ) ) ) \r \r ( P U T P R
0047600 O P S 006 002 \ C H A R S E T M
0047620 A C R O 006 001 ( ( C O D E ) \r \t
0047640 \t \t ( L O G A N D C O D E
0047660 1 2 7 ) ) ) \r \r ( P U T P R O
0047700 P S 006 002 . C H A R S H I F T .
0047720 M A C R O 006 001 ( ( C E L S
0047740 E ) \r \t \t \t ( C O N D
0047760 \r \t \t \t ( W 0 (
0050000 P R O G 1 ( \ F G E T W I D T
0050020 H W I D T H S B A S E ( \ C
0050040 H A R B I T S C ) ) \r \t \t \t \t
0050060 \t ( S E T Q W I D T H S B
0050100 A S E W 0 ) \r \t \t \t \t \t (
0050120 S E T Q W 0 ) ) ) \r \t \t \t
0050140 ( ( \ C H A R S H I F
0050160 T P C ) \r \t \t \t \t ( S E T Q
0050200 W 0 W I D T H S B A S E ) \r
0050220 \t \t \t \t [ S E T Q W I D T H
0050240 S B A S E ( 006 002 f e t c h 006 001
0050260 ( A R R A Y P B A S E ) \r \t
0050300 \t \t \t \t \t 006 002 o f 006 001
0050320 ( 006 002 f f e t c h 006 001 \ S F
0050340 W i d t h s 006 002 o f 006 001 ( \
0050360 C H A R S E T F O N T C F O
0050400 N T ] \r \t \t \t \t 0 ) \r \t \t \t
0050420 ( T E L S E ) ) )
0050440 ) \r ) \r ) \r ( D E C L A R E :
0050460 D O E V A L @ C O M P I L E D
0050500 O N T C O P Y \r \r ( A D D T O V
0050520 A R G L O B A L V A R S S P
0050540 E C I A L K E Y S ) \r ) \r \r ( A
0050560 D D T O V A R 006 002 S P E C I A
0050600 L K E Y S 006 001 ) \r ( D E C L A
0050620 R E : E V A L @ C O M P I L E
0050640 D O N T C O P Y \r ( F I L E
0050660 S L O A D ( L O A D C O M P )
0050700 \r \t P R E S S A T E R M
0050720 ) \r ) \r ( D E C L A R E : D O
0050740 E V A L @ C O M P I L E D O N
0050760 T C O P Y \r \r ( A D D T O V A R
0051000 G L O B A L V A R S J F N S
0051020 ) \r ) \r ( D E C L A R E : F I
0051040 R S T \r \r ( R P A Q Q 006 002 J
0051060 F N S 006 001 ( ( \ D S P P R I N
0051100 T C H A R N O N J \ D S P P R
0051120 I N T C H A R J D S P P R I N
0051140 T C H A R ) \r \t ( S T
0051160 R I N G W I D T H N O N J \ S
0051200 T R I N G W I D T H J S T R I
0051220 N G W I D T H ) \r \t (
0051240 M A K E P R E S S N O N J \ M
0051260 A K E P R E S S J M A K E P R
0051300 E S S ) \r \t ( \ F I L
0051320 L B U F F E R N O N J \ F I L
0051340 L B U F F E R J F I L L B U F
0051360 F E R ) ) ) \r \r ( f o r X i
0051400 n J F N S d o ( M O V D ?
0051420 ( C A R X ) \r \t \t \t ( C A
0051440 D R X ) ) ) \r ) \r ( D E F I N
0051460 E Q \r \r ( 006 004 J I N 006 001 \r [
0051500 L A M B D A ( I N S T A L L F
0051520 L G )
0051540 006 003 ( * l m m " 2 4 - M A R
0051560 - 8 2 0 9 : 4 6 " ) 006 001 \r
0051600 ( C O N D \r ( I
0051620 N S T A L L F L G ( J L I S P
0051640 I N I T ) ) ) \r ( 006 002 f
0051660 o r 006 001 X 006 002 i n 006 001 J F
0051700 N S 006 002 d o 006 001 ( M O V D
0051720 ( C O N D \r \t \t \t (
0051740 I N S T A L L F L G ( C A D D
0051760 R X ) ) \r \t \t \t (
0052000 T ( C A D R X ) ) ) \r \t \t \t
0052020 ( C A R X ) ) ) \r
0052040 ( N O T I N S T A L L F L
0052060 G ] ) \r ) \r \r ( R P A Q Q 006 002
0052100 J P E N D I N G C H A R 006 001 N
0052120 I L ) \r \r ( R P A Q Q 006 002 \ I
0052140 N F I L L B U F F E R 006 001 N I
0052160 L ) \r ( P U T P R O P S J L I
0052200 S P C O P Y R I G H T ( " X
0052220 e r o x C o r p o r a t i o n
0052240 " 1 9 8 2 1 9 8 3 ) ) \r ( D
0052260 E C L A R E : D O N T C O P Y
0052300 \r ( F I L E M A P ( N I L
0052320 ( 9 8 3 1 9 7 9 8 ( . B U
0052340 F B O U T . 9 9 3 . 1 3 0
0052360 7 ) ( D U M M Y P R E S S F O
0052400 N T 1 3 0 9 . 1 6 4 8 )
0052420 ( G E T V C O D E 1 6 5 0 .
0052440 1 9 3 7 ) ( \r I N C R 1 9
0052460 3 9 . 3 2 3 1 ) ( J A D D
0052500 C H A R 3 2 3 3 . 3 4 6 7
0052520 ) ( J C H D E L 3 4 6 9 .
0052540 4 3 0 0 ) ( J D S P P R I N
0052560 T C H A R 4 3 0 2 . 4 9 3
0052600 9 ) ( J F I L L B U F F E R \r
0052620 4 9 4 1 . 9 6 0 3 ) ( J
0052640 G E T K E Y 9 6 0 5 . 9 8
0052660 0 4 ) ( J M A K E P R E S S
0052700 9 8 0 6 . 1 3 2 0 7 ) ( J
0052720 P E E K B A C K 1 3 2 0 9 .
0052740 1 3 3 9 5 ) ( J P E E K K E
0052760 Y \r 1 3 3 9 7 . 1 3 5 5 2
0053000 ) ( J P R E S S C H A R 1 3
0053020 5 5 4 . 1 4 3 3 9 ) ( J S
0053040 H O W K A N J I 1 4 3 4 1 .
0053060 1 4 5 8 0 ) ( J S T R I N G
0053100 W I D T H 1 4 5 8 2 . 1 6
0053120 6 3 0 ) ( \r W O R D C H A R P
0053140 1 6 6 3 2 . 1 6 8 6 7 )
0053160 ( W O R D S E P R P 1 6 8 6 9
0053200 . 1 6 9 7 7 ) ( \ C H A R
0053220 S E T F O N T 1 6 9 7 9 .
0053240 1 7 3 8 1 ) ( J E R A S E C H
0053260 A R S 1 7 3 8 3 . \r 1 7 5
0053300 7 3 ) ( \ R E A D C U F O N T
0053320 F I L E 1 7 5 7 5 . 1 9 7
0053340 9 6 ) ) ( 2 1 2 9 0 2 1 5 5
0053360 7 ( J I N 2 1 3 0 0 . 2
0053400 1 5 5 5 ) ) ) ) ) \r S T O P \r
0053417