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