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