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