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