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