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