$ od -c -N 50000 [phylum]<JLisp>JLISP.DCOM!6
0000000 ( F I L E C R E A T E D " 2 2
0000020 - S E P - 8 3 1 1 : 1 8 : 3 3
0000040 " ( " c o m p i l e d o n
0000060 " { P H Y L U M } < J L I S P
0000100 > J L I S P . ; 7 ) " 2 0 - S
0000120 E P - 8 3 1 9 : 2 7 : 0 0 "
0000140 \r r e c o m p i l e d c h a n
0000160 g e s : J S T R I N G W I D T
0000200 H i n W O R K d a t e d
0000220 " 2 0 - S E P - 8 3 1 9 : 3 8
0000240 : 1 3 " ) \r ( F I L E C R E A T
0000260 E D " 2 2 - S E P - 8 3 1 1
0000300 : 1 7 : 3 5 " { P H Y L U M }
0000320 < J L I S P > J L I S P . ; 7
0000340 2 1 6 9 9 c h a n g e s t o
0000360 : ( F N S J S T R I N G W I
0000400 D T H ) \r p r e v i o u s d
0000420 a t e : " 5 - A U G - 8 3
0000440 1 2 : 2 3 : 1 4 " { P H Y L U
0000460 M } < J L I S P > J L I S P . ;
0000500 6 ) \r ( R P A Q Q J F N S (
0000520 ( \ D S P P R I N T C H A R N
0000540 O N J \ D S P P R I N T C H A R
0000560 J D S P P R I N T C H A R )
0000600 ( S T R I N G W I D T H N O N
0000620 J \ S T R I N G W I D T H \r J
0000640 S T R I N G W I D T H ) ( M A
0000660 K E P R E S S N O N J \ M A K
0000700 E P R E S S J M A K E P R E S
0000720 S ) ( \ F I L L B U F F E R
0000740 N O N J \ F I L L B U F F E R
0000760 J F I L L B U F F E R ) ) ) \r (
0001000 f o r X i n J F N S d o
0001020 ( M O V D ? ( C A R X )
0001040 ( C A D R X ) ) ) \r . B U F B
0001060 O U T . D 1 \r ( L ( 1 F L
0001100 G 0 C H ) F 1 C H A R
0001120 S F 2 T t y D i s p l a y
0001140 S t r e a m F 3 S T A T E
0001160 ) \0 S 001 003 \0 002 021 020 \0 h R \n \0 \0
0001200 270 @ H S Q 001 002 002 002 001 Q 001 002 002 002 002
0001220 001 Q 001 002 002 002 002 002 001 Q 001 002 002 002 002 002
0001240 002 032 032 032 032 032 032 022 Q 032 c 002 A 263 033 `
0001260 \0 \0 224 R \t \0 \0 277 i 027 \0 \0 @ 206 d 001
0001300 \t \0 \0 277 002 003 265 370 h 020 \0 ( 1 1 2 Q
0001320 \ E C H O C H A R 7 6 Q \
0001340 S H O W C A R E T 7 D S P X
0001360 P O S I T I O N ) \r ( 1 0 3 Q
0001400 \ C A R E T D O W N 7 1 Q \
0001420 C A R E T F L G ) \r N I L \r D U
0001440 M M Y P R E S S F O N T D 1 \r
0001460 ( L ( 1 P S I Z E 0 F A
0001500 M I L Y ) ) \0 036 001 \0 \0 002 g \0 \0
0001520 A h d g \0 \0 \r 005 \0 \0 021 001 \0 ` \0 \0
0001540 H \n \0 \0 d @ 024 004 277 020 \0 ( 2 6 Q
0001560 N C R E A T E 2 1 4 Q F O N
0001600 T C R E A T E ) \r ( 2 2 Q 004 003
0001620 F O N T D E S C R I P T O R T Y
0001640 P E # 1 0 Q P R E S S 2
0001660 G A C H A ) \r N I L \r G E T V C
0001700 O D E D 1 \r ( L ( 0 C ) )
0001720 \0 * \0 \0 \0 001 @ \t \0 \0 \b \0 \0 b \0
0001740 \t \0 \0 l A @ 361 246 @ d l Z 361 233 277 l
0001760 a @ 361 251 @ d l z 361 244 l 037 345 020 @ 020
0002000 \0 ( 1 3 Q \ E C H O C H A R
0002020 6 \ G E T K E Y 3 \ E C H
0002040 O C H A R ) \r N I L \r N I L \r I
0002060 N C R D 1 \r ( L ( 0 R S N
0002100 X ) F 0 C H A R S ) \0 260
0002120 \0 001 \0 001 @ l q 360 262 026 P 001 002 002 002 002
0002140 002 P 001 002 002 002 002 002 001 h 360 030 h 020 P 001
0002160 002 002 002 002 002 001 263 [ @ d l r 360 262 032 277
0002200 P 001 002 002 002 002 001 j 360 264 \r P 001 002 002 002
0002220 d 001 k 330 030 h 020 l s 360 262 % P 001 002 002
0002240 002 002 001 j 360 264 ] P 001 002 002 002 001 j 360 265
0002260 S P 001 002 002 002 d 001 k 331 030 001 j 360 020 @
0002300 d l t 360 235 277 P 001 002 002 002 002 d 001 k 330
0002320 030 h 020 l u 360 264 , P d 001 002 002 002 002 001
0002340 j 360 227 001 002 002 002 j 030 001 020 001 002 002 002 002
0002360 d 001 k 331 030 001 j 360 264 \n P 001 002 002 002 001
0002400 j 360 020 \0 N I L \r N I L \r N I L \r
0002420 J A D D C H A R D 1 \r ( L (
0002440 1 F L G 0 C H A R ) ) \0
0002460 \0 \0 \0 002 l 200 @ 361 226 @ h 032 \t \0 \0
0002500 020 @ 343 l 200 344 @ l 177 345 l 200 344 h 032 032
0002520 \t \0 \0 020 \0 ( 3 5 Q . B U F B O
0002540 U T . 1 2 Q . B U F B O U T
0002560 . ) \r N I L \r N I L \r J C H D E
0002600 L D 1 \r ( L ( 0 E M P T Y
0002620 ) F 0 C H A R S F 1
0002640 T t y D i s p l a y S t r e a m
0002660 F 2 S T A T E ) \0 X \0 003
0002700 \0 001 P d 001 001 243 d 002 263 036 002 262 h Q
0002720 \n \0 \0 P 001 002 001 331 Q \n \0 \0 277 P 001 P
0002740 002 c \0 277 001 260 + 002 c \0 260 331 @ 264 # l
0002760 \a l 9 361 225 ` \0 \0 m 375 215 l 0 l \a 361
0003000 242 m 327 205 ` \0 \0 l \a 320 i \n \0 \0 277 h
0003020 P 001 002 002 001 c 004 277 020 \0 ( 1 1 3 Q
0003040 P R I N 3 3 1 Q D S P B A C
0003060 K U P 2 0 Q D S P X P O S I
0003100 T I O N ) \r ( 1 0 4 Q \ O n e
0003120 C h a r A t o m B a s e 6 5 Q
0003140 \ O n e C h a r A t o m B a s
0003160 e ) \r N I L \r J D S P P R I N T
0003200 C H A R D 1 \r ( L ( 1 C H
0003220 A R C O D E 0 S T R E A M )
0003240 ) \0 I 002 \0 \0 002 @ \t \0 \0 021 021 001 H
0003260 ` \0 \0 035 Y 262 031 A l 177 345 H \n \0 \0 I
0003300 H \n \0 \0 H h ` \0 \0 \v \0 \0 k 020 A l
0003320 177 361 262 030 H A h H \n \0 \0 \n \0 \0 H \n
0003340 \0 \0 ` \0 \0 \v \0 \0 j 020 @ A \n \0 \0 020
0003360 \0 ( 1 0 6 Q N O N J \ D S P P
0003400 R I N T C H A R 7 7 Q P U T
0003420 H A S H 7 1 Q D S P F O N T
0003440 6 5 Q \ C H A R S E T F O N
0003460 T 6 2 Q D S P F O N T 4 3
0003500 Q P U T H A S H 3 3 Q D S
0003520 P F O N T 2 6 Q B L T C H A
0003540 R 3 O U T P U T D S P ) \r (
0003560 7 4 Q F O N T 0 A R R A Y 4
0003600 0 Q F O N T 0 A R R A Y 1 2
0003620 Q F O N T 0 A R R A Y ) \r N I
0003640 L \r J F I L L B U F F E R D 1
0003660 \r ( L ( 0 F I L L T Y P E )
0003700 P 1 3 Q C P 1 2 Q X
0003720 P 1 1 Q B U F F E R S T A
0003740 T E P 1 0 Q S T A T E P
0003760 7 T M P P 6 R S N X
0004000 P 5 T C L A S S P 4 C
0004020 P 3 \ I N F I L L B U F F
0004040 E R P 2 C H A R S P 1
0004060 C O N T R O L T O N P 0
0004100 R T B L S A F 1 4 Q \ L I
0004120 N E B U F . O F D F 1 5 Q
0004140 \ P R I M T E R M S A F 1 6
0004160 Q # C U R R E N T R D T B L #
0004200 F 1 7 Q \ P R I M T E R M
0004220 T A B L E F 2 0 Q F L G
0004240 F 2 1 Q T t y D i s p l a y
0004260 S t r e a m F 2 2 Q J M O
0004300 D E F L A G ) 002 w \f \a \0 001 \b \0
0004320 \0 @ l 002 360 h 360 264 006 W 034 311 \0 W 036 312
0004340 016 \0 j 360 h 360 h d d W 030 310 026 W 030 310
0004360 027 W 030 311 022 h 032 032 032 032 032 032 h 032 i 021
0004400 d \t I 262 033 @ l 002 360 262 025 \b \0 \0 \ \t
0004420 \0 \0 277 W 030 L \n \0 \0 277 \b \0 \0 020 \b \0
0004440 \0 277 J 001 002 002 O 020 030 277 \b \0 \0 274 W 032
0004460 L 302 l \a 345 d l 002 360 233 277 i \t \0 \0 262
0004500 353 \b \0 \0 260 345 d l 003 360 262 % 277 i \t \0
0004520 \0 262 331 \b \0 \0 \ 265 \a \b \0 \0 260 315 002 250
0004540 W 032 L 001 302 k 360 263 362 \b \0 \0 277 260 346 d
0004560 l 006 360 262 0 277 i \t \0 \0 \ 262 257 L \t \0
0004600 \0 225 \b \0 \0 \ 265 370 L \t \0 \0 225 \b \0 \0
0004620 \ 265 \a \b \0 \0 260 223 \t \0 \0 262 370 \b \0 \0
0004640 277 260 354 d l 005 360 235 277 L \t \0 \0 h 032 i
0004660 \n \0 \0 261 377 v d k 360 230 277 L \t \0 \0 277
0004700 261 001 & l 004 360 262 5 l \r \t \0 \0 277 J \t
0004720 \0 \0 260 # d 001 021 001 \n O 024 002 h W " \n
0004740 \0 \0 030 277 O 024 001 206 d 001 \t \0 \0 277 002 003
0004760 265 370 h 023 002 003 265 336 261 377 2 L ` \0 \0 \n
0005000 \0 \0 _ 016 265 031 l a L 361 251 L l z 361 244
0005020 L l 331 274 W $ 234 L \t \0 \0 213 002 001 \t
0005040 \0 \0 261 377 \a L \t \0 \0 277 @ l 002 360 222 261
0005060 376 373 H L 302 ^ l F 360 262 ' W 032 \b \0 \0
0005100 \ 302 l \a 345 l 005 360 225 L \t \0 \0 \ 203 L
0005120 \t \0 \0 277 J 001 001 L h 032 \n \0 \0 261 376 314
0005140 @ d k 360 262 024 277 I 242 261 376 301 N l 345
0005160 j 360 222 261 376 267 260 p j 360 262 r I 262 G J
0005200 001 002 002 002 002 001 j 360 262 < J 001 002 002 002 001
0005220 j 360 262 2 N d l 345 j 360 263 * l r 360
0005240 246 N d l t 360 223 277 h 260 031 l q 360 230 J
0005260 001 002 002 002 002 002 001 211 J 001 002 002 002 002 002 001
0005300 h 360 263 $ N \t \0 \0 262 023 L l \r 360 263 030
0005320 W 263 024 l \r \t \0 \0 277 212 N l \n 345 l
0005340 \n 360 242 261 376 G J \t \0 \0 260 % \b \0 \0 261
0005360 376 : d 001 021 001 \n O 024 001 215 d 001 021 001 \v
0005400 W 030 O 026 \n \0 \0 023 002 003 265 361 h 023 002 003
0005420 265 342 W 030 006 \0 \0 J 001 002 002 002 001 315 026 277
0005440 W 030 006 \0 \0 J 001 002 002 002 002 001 315 027 277 W
0005460 030 006 \0 \0 J 001 002 002 002 002 002 001 024 022 277 \b
0005500 \0 \0 h 020 \0 ( 1 1 6 3 Q \ C L O
0005520 S E L I N E 1 0 7 0 Q \ B O
0005540 U T 1 0 4 0 Q S H O U L D N
0005560 T 1 0 3 3 Q R E V E R S E
0005600 1 0 1 2 Q \ E C H O C H A R
0005620 7 7 1 Q I N C R 6 1 6 Q \
0005640 N C O N C 2 6 0 4 Q \ E C H
0005660 O C H A R 5 7 6 Q G E T V C
0005700 O D E 5 6 1 Q J G E T K E Y
0005720 5 3 2 Q J A D D C H A R 5
0005740 2 3 Q E V A L 5 1 5 Q J R
0005760 O M A C H A R 4 6 3 Q F A S
0006000 S O C 4 3 6 Q \ E C H O C H
0006020 A R 4 2 3 Q D S P X P O S I
0006040 T I O N 4 0 3 Q R E V E R S
0006060 E 3 7 6 Q \ E C H O C H A R
0006100 3 6 0 Q J A D D C H A R 3
0006120 4 4 Q . B U F B O U T . 3 3
0006140 6 Q G E T V C O D E 3 2 1 Q
0006160 J C H D E L 3 1 4 Q W O R
0006200 D C H A R P 3 0 7 Q J S H O
0006220 W S T A T E 3 0 1 Q J P E E
0006240 K B A C K 2 7 5 Q W O R D C
0006260 H A R P 2 6 6 Q J C H D E L
0006300 2 6 2 Q W O R D S E P R P
0006320 2 5 3 Q J C H D E L 2 3 5 Q
0006340 J C H D E L 2 1 5 Q J S H
0006360 O W S T A T E 2 0 7 Q J P E
0006400 E K B A C K 2 0 2 Q J C H D
0006420 E L 1 6 5 Q J S H O W S T A
0006440 T E 1 6 0 Q J C H D E L 1
0006460 3 6 Q J G E T K E Y 1 2 2 Q
0006500 J R E S E T L I N E 1 1 6 Q
0006520 \ C L O S E L I N E 1 1 2 Q
0006540 \ B O U T 1 0 3 Q \ E C H
0006560 O C H A R 7 7 Q J G E T K E
0006600 Y 2 \ R E S E T L I N E ) \r
0006620 ( 1 1 4 5 Q S T R E A M 1 1
0006640 2 6 Q S T R E A M 1 1 1 0 Q
0006660 S T R E A M 4 6 0 Q S P E
0006700 C I A L K E Y S ) \r N I L \r J G
0006720 E T K E Y D 1 \r ( F 0 J P
0006740 E N D I N G C H A R ) \0 \r \0 001
0006760 \0 \0 P 265 006 \b \0 \0 020 h c \0 277 020 \0 (
0007000 5 \ G E T K E Y ) \r N I L \r N
0007020 I L \r J M A K E P R E S S A 0 0
0007040 2 1 D 1 \r ( N A M E E R R O
0007060 R S E T L ( 2 E R R O R S
0007100 E T . W 1 E R R O R S E T .
0007120 V 0 E R R O R S E T . U )
0007140 F 1 7 Q R E S E T V A R S L
0007160 S T F 2 0 Q H E A D I N G
0007200 F 2 1 Q F O N T S F 2
0007220 2 Q F I L E F 2 3 Q R E
0007240 S E T Y F 2 4 Q P F I L E
0007260 F 2 5 Q T A B S ) 002 r 017
0007300 \a \0 003 W " g \0 \0 \n \0 \0 021 q \a o \0
0007320 \0 \0 W $ g \0 \0 g \0 \0 l \b o \0 \0 \0
0007340 \r 005 \0 \0 [ h 032 032 W 036 032 c 036 277 W (
0007360 265 017 g \0 \0 g \0 \0 g \0 \0 K \f \0 \0 W
0007400 i 360 h 360 H k ( k W 265 021 K o \0
0007420 \0 \0 K g \0 \0 \n \0 \0 \v \0 \0 \r 005 \0 \0
0007440 271 K g \0 \0 \n \0 \0 Z 006 \0 \0 g \0 \0 024
0007460 " 277 j H \t \0 \0 021 " \v J _ 024 d l
0007500 177 361 262 2 277 O 020 \t \0 \0 277 ` \0 \0 ` \0
0007520 \0 O 024 l 177 345 J l 177 345 ` \0 \0 \v \0
0007540 \0 \n \0 \0 277 k \t \0 \0 277 \t \0 \0 277 j _
0007560 020 277 260 310 l \r 361 262 024 ` \0 \0 O 024 \n \0
0007600 \0 277 O 020 k 330 _ 020 277 260 261 O 024 d l 006
0007620 360 242 261 \0 354 277 O 020 \t \0 \0 277 j _ 020 277
0007640 J _ 026 d l 024 360 262 { 277 J 311 006 311 4
0007660 275 J k M 016 262 037 ` \0 \0 l 006 \n \0 \0 277
0007700 ` \0 \0 l 024 \n \0 \0 277 O 020 l 002 330 _ 020
0007720 277 261 377 i L 265 / 021 0 016 W * 265 ! ` \0
0007740 \0 260 034 d 001 \t \0 \0 _ 030 277 O 032 265 \t O
0007760 030 h 032 _ 034 202 O 030 & _ 032 277 002 003 265 345
0010000 O 034 022 \ J _ 026 \n \0 \0 001 265 \v o \0
0010020 \0 \0 O 026 \n \0 \0 _ 026 027 \0 \0 \t \0 \0 277
0010040 261 377 032 j 360 262 . ` \0 \0 l 006 \n \0 \0 277
0010060 J 311 006 311 4 276 J k N 016 226 k _ 020 277 261
0010100 376 373 ` \0 \0 O 026 \n \0 \0 277 l 002 _ 020 277
0010120 261 376 352 O 026 O 022 361 252 H O 026 ( \t \0 \0
0010140 277 261 376 331 ` \0 \0 l 006 \n \0 \0 277 ` \0 \0
0010160 O 026 \n \0 \0 277 l 002 _ 020 277 261 376 277 l \r
0010200 360 262 024 O 020 \t \0 \0 277 j _ 020 277 I \t \0
0010220 \0 277 261 376 250 O 024 d l \f 360 262 $ 277 O 020
0010240 \t \0 \0 277 j _ 020 277 ` \0 \0 \b \0 \0 277 \b
0010260 \0 \0 277 \t \0 \0 277 I \t \0 \0 277 261 376 ~ l
0010300 \t 360 262 ! l \b d j 361 234 ` \0 \0 l \n
0010320 \0 \0 277 k 331 260 361 277 O 020 l \b 330 _ 020 277
0010340 261 376 Z O 024 j 360 262 : J 311 006 311 4 _ 016
0010360 277 J k O 016 016 262 030 O 020 \t \0 \0 023 K \t
0010400 \0 \0 K \t \0 \0 h 032 032 022 c & i 020 ` \0
0010420 \0 O 024 \n \0 \0 277 O 020 k 330 _ 020 277 261 376
0010440 034 ` \0 \0 O 024 \n \0 \0 277 O 020 k 330 _ 020
0010460 277 261 376 \t \0 ( 1 1 4 5 Q \ B O U
0010500 T 1 1 2 2 Q \ B O U T 1 1
0010520 0 2 Q P r e s s C l o s e 1
0010540 0 7 6 Q C L O S E F 1 0 7 1
0010560 Q S H O W . P R E S S 1 0 1
0010600 6 Q \ B O U T 7 6 7 Q P r
0010620 e s s N e w P a g e 7 6 2 Q
0010640 P r e s s F o n t 7 5 6 Q P
0010660 r e s s S t a r t P a g e 7 5
0010700 2 Q P r e s s C l o s e P a g
0010720 e 7 3 7 Q S H O W . P R E S
0010740 S 7 1 5 Q P r e s s N e w L
0010760 i n e 7 0 4 Q S H O W . P R
0011000 E S S 6 6 1 Q \ B O U T 6
0011020 5 0 Q \ B O U T 6 3 4 Q P
0011040 r e s s F o n t 6 0 6 Q \ B
0011060 O U T 5 5 3 Q \ B O U T 5
0011100 3 3 Q S E T X . P R E S S 5
0011120 2 3 Q E R R O R 5 0 7 Q N
0011140 T H 4 4 4 Q m i l l s T o M
0011160 i c a s 4 0 4 Q \ B O U T
0011200 3 7 3 Q \ B O U T 3 2 7 Q
0011220 S H O W . P R E S S 2 7 5 Q
0011240 \ B O U T 2 5 1 Q P r e s s
0011260 F o n t 2 4 5 Q S H O W . P
0011300 R E S S 2 4 0 Q \ B O U T
0011320 2 3 5 Q J P R E S S C H A R
0011340 2 0 6 Q S H O W . P R E S S
0011360 1 6 3 Q A R R A Y S I Z E 1
0011400 4 4 Q \ G E T S T R E A M 1
0011420 3 4 Q P r e s s O u t F i l e
0011440 1 3 0 Q C O N C A T 1 2 5
0011460 Q G E T F I L E I N F O 7 3
0011500 Q P A C K F I L E N A M E 4
0011520 0 Q O P E N F I L E 7 F O
0011540 N T M A P A R R A Y ) \r ( 1 1 4
0011560 0 Q P R E S S O U T S T R M
0011600 1 1 1 5 Q P R E S S O U T S T
0011620 R M 1 0 1 1 Q P R E S S O U
0011640 T S T R M 7 4 7 Q C P R E S
0011660 S F O N T 6 5 4 Q P R E S S
0011700 O U T S T R M 6 4 3 Q P R E
0011720 S S O U T S T R M 6 0 1 Q P
0011740 R E S S O U T S T R M 5 4 6 Q
0011760 P R E S S O U T S T R M 5 3
0012000 0 Q P R E S S P O S I T I O N
0012020 4 3 5 Q P R E S S T A B S T
0012040 O P S 3 7 7 Q P R E S S O U
0012060 T S T R M 3 6 6 Q P R E S S
0012100 O U T S T R M 2 7 0 Q P R E
0012120 S S O U T S T R M 2 3 2 Q C
0012140 P R E S S F O N T 2 1 5 Q P
0012160 R E S S O U T S T R M 2 1 2 Q
0012200 C P R E S S F O N T 1 5 3 Q
0012220 Z E R O 1 5 0 Q S T R E A
0012240 M 1 4 1 Q I N P U T 1 2 2
0012260 Q C R E A T I O N D A T E 6
0012300 7 Q B O D Y 6 4 Q P R E S
0012320 S 6 1 Q E X T E N S I O N
0012340 2 6 Q O L D 2 3 Q I N P U
0012360 T 4 P R E S S ) \r ( 5 1 6 Q
0012400 " U n d e f i n e d a b s o
0012420 l u t e t a b n u m b e r "
0012440 1 1 6 Q " " 3 4
0012460 Q ( ( S E Q U E N T I A L T
0012500 ) ) 1 6 Q ( P R O G N ( C
0012520 L O S E F ? O L D V A L U E )
0012540 ) ) \r J M A K E P R E S S D 1
0012560 \r ( P 1 R E S E T Y P 0
0012600 L I S P X H I S T I 4 T
0012620 A B S I 3 H E A D I N G
0012640 I 2 F O N T S I 1 P F
0012660 I L E I 0 F I L E F 3
0012700 L I S P X H I S T F 4 R
0012720 E S E T V A R S L S T ) \0 " 003
0012740 002 \0 005 S 021 ! 002 T o \0 \0 \0 g \0 \0 \n
0012760 \0 \0 221 h 202 g \0 \0 Z \n \0 \0 J 223 \b \0
0013000 \0 020 I 020 \0 ( 3 5 Q E R R O R !
0013020 3 0 Q R E S E T R E S T O R
0013040 E 1 6 Q J M A K E P R E S S
0013060 A 0 0 2 1 ) \r ( 2 4 Q E R R O
0013100 R 1 3 Q I N T E R N A L ) \r
0013120 ( 1 0 Q ( D U M M Y . F O R .
0013140 E R R O R S E T ) ) \r J P E E K
0013160 B A C K D 1 \r ( F 1 C H A
0013200 R S ) \0 027 001 001 \0 \0 Q 021 001 \0 H 003
0013220 265 004 h 020 001 d 001 245 277 H 002 X 260 363 001 020
0013240 \0 N I L \r N I L \r N I L \r J P E
0013260 E K K E Y D 1 \r ( F 0 J P
0013300 E N D I N G C H A R ) \0 \n \0 001
0013320 \0 \0 P 265 \a \b \0 \0 c \0 020 \0 ( 5 \
0013340 G E T K E Y ) \r N I L \r N I L \r
0013360 J P R E S S C H A R D 1 \r ( L
0013400 ( 2 F O N T 0 1 N S C H
0013420 A R 0 N S C S E T ) F 1
0013440 K A N A 1 2 F 2 K A N A
0013460 1 0 F 3 K A N J I 1 2 F
0013500 4 K A N J I 1 0 ) \0 T 001 004
0013520 \0 003 B 311 006 021 001 \0 @ d l $ 360 262 023 277
0013540 H l \v 361 221 Q 200 R \t \0 \0 A l 331 020
0013560 l % 360 237 H l \v 361 221 Q 200 R \t \0 \0 A
0013600 l S 330 020 @ l 0 331 l ^ 332 A l ! 331 330
0013620 b 002 H l \v 361 221 S 200 T A 343 ( \t \0 \0
0013640 A l 377 345 020 \0 ( 1 1 5 Q P r e s
0013660 s F o n t 5 4 Q P r e s s F
0013700 o n t 3 0 Q P r e s s F o n
0013720 t ) \r N I L \r N I L \r J S H O W
0013740 K A N J I D 1 \r ( L ( 1 D
0013760 S P 0 C O D E ) ) \0 033 \0 \0
0014000 \0 002 @ 343 h A \n \0 \0 \n \0 \0 A \n \0 \0
0014020 @ l 177 345 \t \0 \0 A \n \0 \0 020 \0 ( 3 0
0014040 Q P R I N 3 2 4 Q C H A R
0014060 A C T E R 1 5 Q D S P F O N
0014100 T 1 1 Q \ C H A R S E T F O
0014120 N T 6 D S P F O N T ) \r N I
0014140 L \r N I L \r J S T R I N G W I D
0014160 T H A 0 0 3 5 D 1 \r ( I 0
0014200 C F 0 W I D T H S B A S E
0014220 F 1 W 0 F 2 S F
0014240 3 F O N T ) \0 8 \0 004 \0 001 R Q
0014260 262 024 P @ l 177 345 320 310 \0 Q c \0 277 h c
0014300 002 277 260 037 @ l 177 361 262 024 P c 002 277 @ S
0014320 \n \0 \0 311 \n 311 \0 c \0 277 j 204 P @ 320 310
0014340 \0 330 c 004 020 \0 ( 4 4 Q \ C H A R
0014360 S E T F O N T ) \r N I L \r N I L
0014400 \r J S T R I N G W I D T H D 1
0014420 \r ( P 1 3 Q S P 7 C
0014440 P 3 S A P 2 W 0 P
0014460 1 W I D T H S B A S E P 0
0014500 S T R M I 3 R D T B L
0014520 I 2 F L G I 1 F O N T
0014540 I 0 S T R F 1 4 Q \
0014560 P R I M R E A D T A B L E ) 002
0014600 = \f 001 \0 004 021 0 002 A d 004 ` \0 \0 360 263
0014620 g \0 \0 i \v \0 \0 \t \0 \0 X 265 / A 265
0014640 005 g \0 \0 h i \v \0 \0 265 006 A \t \0 \0 311
0014660 \n 311 \0 Y @ 004 d l 004 360 242 261 001 003 277 B
0014700 242 261 \0 230 C 265 \f W 030 260 023 311 ( 311 020 260
0014720 344 i 360 223 ` \0 \0 203 C 006 \0 \0 311 \0 k @
0014740 j 021 4 \t ` \0 \0 @ 323 340 320 311 \0 _ 020 277
0014760 ` \0 \0 @ 323 340 320 311 \0 312 \0 \a _ 022 277 L
0015000 O 022 361 263 T O 020 L d k 330 274 302 _ 016 277
0015020 N J 236 I O 016 l 177 345 320 310 \0 J 271 h 272
0015040 260 3 O 016 l 177 361 237 I 272 O 016 A \n \0 \0
0015060 311 \n 311 \0 271 j 260 035 K O 016 302 l @ 345 j
0015100 360 252 I 310 % I O 016 320 310 \0 330 205 I O 016
0015120 320 310 \0 330 276 260 252 N 020 k @ j 021 3 \t `
0015140 \0 \0 @ 323 340 320 311 \0 _ 020 277 ` \0 \0 @ 323
0015160 340 320 311 \0 312 \0 \a _ 022 277 L O 022 361 263 >
0015200 O 020 L d k 330 274 302 _ 016 277 N J 236 I O
0015220 016 l 177 345 320 310 \0 J 271 h 272 260 035 O 016 l
0015240 177 361 236 I 272 O 016 A \n \0 \0 311 \n 311 \0 271
0015260 j 205 I O 016 320 310 \0 330 276 260 300 N 020 l \a
0015300 360 242 261 \0 357 B 242 261 \0 206 I 310 " 340 @ j
0015320 021 B \n M 310 003 _ 022 277 M 311 \0 _ 024 277 O
0015340 022 M 310 002 k 331 330 _ 020 277 O 022 O 020 361 263
0015360 Z O 024 O 022 d k 330 _ 022 277 302 _ 016 277 N
0015400 J 236 I O 016 l 177 345 320 310 \0 J 271 h 272 260
0015420 6 O 016 d l 177 361 262 023 277 I 272 O 016 A \n
0015440 \0 \0 311 \n 311 \0 271 j 260 035 l " 360 245 O 016
0015460 l % 360 232 I 310 % I O 016 320 310 \0 330 205 I
0015500 O 016 320 310 \0 330 276 260 243 N 022 330 020 @ j 021
0015520 B \n M 310 003 _ 022 277 M 311 \0 _ 024 277 O 022
0015540 M 310 002 k 331 330 _ 020 277 O 022 O 020 361 263 A
0015560 O 024 O 022 d k 330 _ 022 277 302 _ 016 277 N J
0015600 236 I O 016 l 177 345 320 310 \0 J 271 h 272 260 035
0015620 O 016 l 177 361 236 I 272 O 016 A \n \0 \0 311 \n
0015640 311 \0 271 j 205 I O 016 320 310 \0 330 276 260 274 N
0015660 020 j 021 001 \v g \0 \0 @ B C \f \0 \0 O 026
0015700 020 \0 ( 1 0 7 0 Q \ M A P C H A
0015720 R S 1 0 3 0 Q \ C H A R S E
0015740 T F O N T 6 3 4 Q \ C H A R
0015760 S E T F O N T 4 4 5 Q \ C H
0016000 A R S E T F O N T 2 5 2 Q \
0016020 C H A R S E T F O N T 5 1 Q
0016040 F O N T C R E A T E 4 3 Q D
0016060 E F A U L T F O N T 2 5 Q D
0016100 I S P L A Y S T R E A M P 2 2
0016120 Q \ G E T S T R E A M ) \r ( 1
0016140 0 6 2 Q J S T R I N G W I D T
0016160 H A 0 0 3 5 3 5 0 Q \ P N P
0016200 S P A C E 3 3 4 Q \ P N P S
0016220 P A C E 1 5 5 Q \ P N P S P
0016240 A C E 1 4 1 Q \ P N P S P A
0016260 C E 1 2 6 Q R E A D T A B L
0016300 E P 1 2 1 Q \ S Y S R E A D
0016320 T A B L E 3 6 Q D I S P L A
0016340 Y 1 6 Q O U T P U T 1 0 Q
0016360 004 003 F O N T D E S C R I P T O
0016400 R T Y P E # ) \r N I L \r W O R D
0016420 C H A R P D 1 \r ( L ( 0 C
0016440 ) F 0 R T B L S A F 1
0016460 \ P R I M T E R M S A ) \0 032
0016500 \0 002 \0 001 @ d 262 026 002 265 023 P @ 001 302 j
0016520 360 264 \v Q @ 001 302 l \a 360 h 360 020 \0 N I
0016540 L \r N I L \r N I L \r W O R D S E
0016560 P R P D 1 \r ( L ( 0 C ) )
0016600 \0 \b \0 \0 \0 001 @ \t \0 \0 h 360 020 \0 (
0016620 3 W O R D C H A R P ) \r N I L
0016640 \r N I L \r \ C H A R S E T F O N
0016660 T D 1 \r ( L ( 1 F O N T 0
0016700 0 C O D E ) F 3 B I G
0016720 J F O N T S F 4 J D I S P
0016740 L A Y F O N T S ) \0 6 003 002 \0 002
0016760 @ l 177 345 b \0 S A 006 \0 \0 310 024 021 022 002
0017000 H 003 265 \f T @ ( \t \0 \0 265 003 A 020 001 272
0017020 I J 001 361 227 @ J 002 \n \0 \0 265 \a H 002 X
0017040 260 341 002 001 020 \0 ( 5 2 Q A S S O C
0017060 3 1 Q F O N T P ) \r ( 1 2 Q
0017100 F O N T D E S C R I P T O R )
0017120 \r N I L \r J E R A S E C H A R S
0017140 D 1 \r ( L ( 0 F N ) F
0017160 0 C H A R S ) \0 027 \0 001 \0 001 P
0017200 002 264 \r P 001 002 002 001 k @ 017 016 241 h 020 \b
0017220 \0 \0 277 260 354 \0 ( 2 2 Q J C H D E
0017240 L ) \r N I L \r N I L \r \ R E A D
0017260 C U F O N T F I L E D 1 \r ( L
0017300 ( 3 F A C E 2 S I Z E
0017320 1 F A M I L Y 0 F I L E )
0017340 ) 001 F \f \0 \0 004 @ g \0 \0 g \0 \0 \v
0017360 \0 \0 \t \0 \0 021 261 \v H 341 H 330 ] H
0017400 341 H 330 \ H \t \0 \0 H \t \0 \0 331 M
0017420 L 332 l 002 330 340 333 Z L J 332 340 340 340 340 M
0017440 \n \0 \0 [ L 340 340 340 340 M \n \0 \0 _ 022 j
0017460 _ 024 H d \t \0 \0 227 277 I H \t \0 \0 277 020
0017500 341 H 330 _ 016 277 H 341 H 330 _ 020
0017520 277 O 016 343 _ 026 277 O 016 l 377 345 _ 016 277 O
0017540 026 I \n \0 \0 002 001 ^ 265 003 202 261 \0 204 ` \0
0017560 \0 037 d A 024 004 277 d B 024 006 277 d C 024 \b
0017600 277 d g \0 \0 024 \0 277 ^ 006 \0 \0 K 024 002 277
0017620 N 006 \0 \0 M B 331 315 023 277 N 006 \0 \0 M 315
0017640 022 277 N 006 \0 \0 N 310 022 N 310 023 331 315 024 277
0017660 N 006 \0 \0 j 315 020 277 N 006 \0 \0 l 377 315 021
0017700 277 N 006 \0 \0 n 001 001 g \0 \0 j d \f \0 \0
0017720 024 \f 277 N 006 \0 \0 n 001 001 g \0 \0 j d \f
0017740 \0 \0 024 \n 277 O 026 N h 032 032 I 032 271 N 311
0017760 \f O 016 O 024 * 277 N 311 \n O 016 O 020 * 277
0020000 H O 022 311 \0 j L M 332 340 \f \0 \0 277 O 022
0020020 j d K O 024 j O 020 M h g \0 \0 \r \n \0
0020040 \0 277 O 024 O 020 330 _ 024 277 261 377 \b \0 ( 4
0020060 7 0 Q B K B I T B L T 4 4 4
0020100 Q B I N S 3 7 1 Q A R R A
0020120 Y 3 4 7 Q A R R A Y 1 7 4
0020140 Q A S S O C 1 2 5 Q C L O
0020160 S E F 1 1 6 Q E O F P 1 0
0020200 4 Q B I T M A P C R E A T E
0020220 7 2 Q B I T M A P C R E A T E
0020240 4 5 Q G E T F I L E P T R
0020260 4 1 Q G E T E O F P T R 1 4
0020300 Q \ G E T S T R E A M 1 1 Q
0020320 O P E N F I L E ) \r ( 4 6 4 Q
0020340 R E P L A C E 3 6 4 Q S M
0020360 A L L P O S P 3 5 6 Q F O N
0020400 T D E S C R I P T O R 3 4 2 Q
0020420 S M A L L P O S P 3 3 4 Q
0020440 F O N T D E S C R I P T O R 3
0020460 2 3 Q F O N T D E S C R I P T
0020500 O R 3 1 3 Q F O N T D E S C
0020520 R I P T O R 2 7 5 Q F O N T
0020540 D E S C R I P T O R 2 6 5 Q
0020560 F O N T D E S C R I P T O R 2
0020600 5 3 Q F O N T D E S C R I P T
0020620 O R 2 4 3 Q F O N T D E S C
0020640 R I P T O R 2 3 4 Q D I S P
0020660 L A Y 2 1 0 Q 004 003 F O N T D
0020700 E S C R I P T O R T Y P E # 6
0020720 O L D 3 I N P U T ) \r N I
0020740 L \r J I N D 1 \r ( L ( 0 I
0020760 N S T A L L F L G ) ) \0 ' 001 \0
0021000 \0 001 @ 223 \b \0 \0 277 ` \0 \0 260 026 d 001 021
0021020 001 \0 @ 222 H 002 200 H 002 001 H 001 \n \0 \0 023
0021040 002 003 265 353 @ h 360 020 \0 ( 3 4 Q M O
0021060 V D 4 J L I S P I N I T ) \r
0021100 ( 1 0 Q J F N S ) \r N I L \r (
0021120 P R E T T Y C O M P R I N T J
0021140 L I S P C O M S ) \r ( R P A Q Q
0021160 J L I S P C O M S ( ( F N S
0021200 . B U F B O U T . D U M M Y
0021220 P R E S S F O N T G E T V C O
0021240 D E I N C R J A D D C H A R
0021260 J C H D E L J D S P P R I N
0021300 T C H A R \r J F I L L B U F F
0021320 E R J G E T K E Y J M A K E
0021340 P R E S S J P E E K B A C K
0021360 J P E E K K E Y J P R E S S C
0021400 H A R J S H O W K A N J I J
0021420 S T R I N G W I D T H W O R D
0021440 C H A R P \r W O R D S E P R P
0021460 \ C H A R S E T F O N T J E
0021500 R A S E C H A R S \ R E A D C
0021520 U F O N T F I L E ) ( D E C L
0021540 A R E : ( I N I T R E C O R D
0021560 S D S T R E A M ) D O N T C
0021600 O P Y ( R E C O R D S \r D S
0021620 T R E A M B U F F E R C H R
0021640 ) ( M A C R O S \ C H A R S
0021660 H I F T P \ C H A R B I T S
0021700 \ C H A R S E T . C H A R S H
0021720 I F T . ) ) ( C O M S ( G L
0021740 O B A L V A R S S P E C I A L
0021760 K E Y S \r ) ( A D D V A R S
0022000 ( S P E C I A L K E Y S ) ) )
0022020 ( D E C L A R E : E V A L @ C
0022040 O M P I L E D O N T C O P Y
0022060 ( F I L E S ( L O A D C O M P
0022100 ) P R E S S A T E R M ) )
0022120 ( C O M S ( \r G L O B A L V A
0022140 R S J F N S ) ( D E C L A R
0022160 E : F I R S T ( V A R S J
0022200 F N S ) ( P ( f o r X i
0022220 n J F N S d o ( M O V D ?
0022240 ( C A R X ) ( C A D R X
0022260 ) ) ) ) ) ( F N S J I N \r )
0022300 ) ( V A R S ( J P E N D I N
0022320 G C H A R ) ) ( V A R S ( \
0022340 I N F I L L B U F F E R ) ) ) )
0022360 \r ( D E C L A R E : E V A L @
0022400 C O M P I L E ( G L O B A L V
0022420 A R S F O N T 0 A R R A Y ) )
0022440 \r ( S E T U P H A S H A R R A Y
0022460 ( Q U O T E F O N T 0 A R R
0022500 A Y ) N I L ) \r ( A D D T O V
0022520 A R S P E C I A L K E Y S ) \r
0022540 ( R P A Q Q J P E N D I N G C
0022560 H A R N I L ) \r ( R P A Q Q
0022600 \ I N F I L L B U F F E R N I
0022620 L ) \r ( P U T P R O P S J L I
0022640 S P C O P Y R I G H T ( " X
0022660 e r o x C o r p o r a t i o n
0022700 " 1 9 8 2 1 9 8 3 ) ) \r N I
0022720 L \r
0022722