$ od -c -N 50000 [phylum]<JLisp>JLISTFILES.DCOM!1
0000000 ( F I L E C R E A T E D " 1 2
0000020 - A U G - 8 4 1 3 : 1 3 : 0 5
0000040 " ( " c o m p i l e d o n
0000060 " { A T S U G I } < J L I S P
0000100 > U E D A > J L I S T F I L E S
0000120 . ; 1 3 ) \r " 1 2 - O C T - 8
0000140 3 1 3 : 5 2 : 2 8 " t c o m
0000160 p l % ' d i n W O R K d a
0000200 t e d " 1 4 - N O V - 8 3 1
0000220 7 : 0 3 : 1 2 " ) \r ( F I L E C
0000240 R E A T E D " 1 2 - A U G - 8
0000260 4 1 3 : 1 2 : 0 4 " { A T S
0000300 U G I } < J L I S P > U E D A >
0000320 J L I S T F I L E S . ; 1 3 4
0000340 9 2 5 c h a n g e s t o :
0000360 ( A D V I C E \r M A K E I N T
0000400 E R P R E S S ) ( V A R S J
0000420 L I S T F I L E S C O M S ) (
0000440 F N S P o s t I P ) p r e v
0000460 i o u s d a t e : " 6 - A
0000500 U G - 8 4 1 5 : 4 0 : 4 0 "
0000520 \r { A T S U G I } < J L I S P >
0000540 U E D A > J L I S T F I L E S .
0000560 ; 9 ) \r C o n t a i n J C h a r
0000600 p A 0 0 1 8 D 1 \r ( I 0 X
0000620 ) \0 \f \0 \0 \0 001 @ \t \0 \0 g \0 \0 \t
0000640 \0 \0 020 \0 ( 1 1 Q R E T F R O M
0000660 3 C L O S E F ) \r ( 6 C o
0000700 n t a i n J C h a r p ) \r N I L
0000720 \r C o n t a i n J C h a r p D
0000740 1 \r ( P 0 C H I 0 F I
0000760 L E ) \0 3 001 \0 \0 001 021 020 \0 @ g \0
0001000 \0 \n \0 \0 b \0 \t \0 \0 b \0 g \0 \0 g \0
0001020 \0 \v \0 \0 277 H \t \0 \0 l 200 345 j 360 226 @
0001040 \t \0 \0 X 260 362 @ \t \0 \0 i 020 \0 ( 5 7
0001060 Q C L O S E F 5 0 Q R E A
0001100 D C 3 6 Q C H C O N 1 3 1
0001120 Q W H E N C L O S E 1 6 Q
0001140 G E T S T R E A M 1 1 Q O P
0001160 E N F I L E ) \r ( 2 6 Q C o n
0001200 t a i n J C h a r p A 0 0 1 8
0001220 2 3 Q E O F 6 I N P U T )
0001240 \r N I L \r E n c o d e C E S A 0
0001260 0 1 9 D 1 \r ( I 0 X F
0001300 0 C E S F I L E ) \0 021 \0 001 \0
0001320 001 @ \t \0 \0 P \t \0 \0 g \0 \0 P \n \0 \0
0001340 020 \0 ( 1 6 Q R E T F R O M 7
0001360 C L O S E F 3 C L O S E F
0001400 ) \r ( 1 2 Q E n c o d e C E S
0001420 ) \r N I L \r E n c o d e C E S
0001440 D 1 \r ( P 2 C H P 1 S
0001460 T A T E P 0 C H S E T I
0001500 1 C E S F I L E I 0 J
0001520 I S F I L E ) \0 316 003 \0 \0 002 j \t
0001540 \0 \0 g \0 \0 021 022 002 @ g \0 \0 \n \0 \0 b
0001560 \0 277 A g \0 \0 \n \0 \0 b 002 277 @ g \0 \0
0001600 g \0 \0 \v \0 \0 277 @ \t \0 \0 272 I g \0 \0
0001620 360 262 A J \t \0 \0 l 200 345 j 360 257 J \t \0
0001640 \0 l 177 345 \t \0 \0 A \n \0 \0 260 l 377 \t
0001660 \0 \0 A \n \0 \0 277 j \t \0 \0 A \n \0 \0 277
0001700 J A \n \0 \0 277 j \t \0 \0 X 277 g \0 \0 Y
0001720 260 266 J \t \0 \0 l 200 345 j 360 263 ( J H 360
0001740 263 035 l 377 \t \0 \0 A \n \0 \0 277 J \t \0 \0
0001760 l 177 345 \t \0 \0 A \n \0 \0 277 J 270 g \0 \0
0002000 Y 260 205 H j \t \0 \0 360 263 032 l 377 \t \0 \0
0002020 A \n \0 \0 277 j \t \0 \0 A \n \0 \0 277 j \t
0002040 \0 \0 270 J A \n \0 \0 261 377 ^ \0 ( 3 1 1
0002060 Q P R I N 1 3 0 3 Q C H A
0002100 R A C T E R 2 7 6 Q P R I N
0002120 1 2 7 2 Q C H A R A C T E R
0002140 2 6 5 Q P R I N 1 2 6 1 Q
0002160 C H A R A C T E R 2 5 1 Q
0002200 C H A R A C T E R 2 3 3 Q P
0002220 R I N 1 2 2 7 Q C H A R A C
0002240 T E R 2 2 1 Q C H C O N 1
0002260 2 1 4 Q P R I N 1 2 1 0 Q
0002300 C H A R A C T E R 1 6 7 Q C
0002320 H C O N 1 1 5 3 Q C H A R A
0002340 C T E R 1 4 6 Q P R I N 1
0002360 1 4 0 Q P R I N 1 1 3 4 Q
0002400 C H A R A C T E R 1 2 7 Q P
0002420 R I N 1 1 2 3 Q C H A R A C
0002440 T E R 1 1 4 Q P R I N 1 1
0002460 1 0 Q C H A R A C T E R 1 0
0002500 2 Q C H C O N 1 7 0 Q C H
0002520 C O N 1 5 4 Q R E A D C 4
0002540 7 Q W H E N C L O S E 3 2 Q
0002560 O P E N F I L E 2 0 Q O P
0002600 E N F I L E 3 C H A R A C T
0002620 E R ) \r ( 2 4 1 Q J 2 1 6 0
0002640 Q R E S E T 6 1 Q J 2 4
0002660 4 Q E n c o d e C E S A 0 0 1
0002700 9 4 1 Q E O F 2 7 Q O U
0002720 T P U T 1 5 Q I N P U T 6
0002740 R E S E T ) \r N I L \r P o s t
0002760 I P A 0 0 2 0 D 1 \r ( I 0
0003000 X F 0 I P F I L E ) \0 \r
0003020 \0 001 \0 001 @ \t \0 \0 g \0 \0 P \n \0 \0 020
0003040 \0 ( 1 2 Q R E T F R O M 3
0003060 C L O S E F ) \r ( 6 P o s t I
0003100 P ) \r N I L \r P o s t I P D 1
0003120 \r ( P 1 0 Q C H P 7 F
0003140 I L E P T R P 6 F F P
0003160 5 M I R E A L P 4 M A R
0003200 E A L P 3 M I D U M M Y
0003220 P 2 M A D U M M Y P 1
0003240 K A N A P 0 C H S E T I
0003260 0 I P F I L E ) \0 231 \t \0 \0
0003300 001 j \t \0 \0 l $ \t \0 \0 l 255 \t \0 \0 l
0003320 254 \t \0 \0 l ^ \t \0 \0 l _ \t \0 \0 l 377
0003340 \t \0 \0 j 021 030 \b @ g \0 \0 \n \0 \0 b \0
0003360 g \0 \0 g \0 \0 \v \0 \0 277 @ O 016 \n \0 \0
0003400 277 @ \t \0 \0 _ 020 277 H d I 360 262 027 277 O
0003420 020 J 360 235 @ O 016 \n \0 \0 277 L @ \n \0 \0
0003440 260 0 H I 360 262 030 O 020 d K 360 262 023 277 @
0003460 O 016 \n \0 \0 277 M @ \n \0 \0 260 025 O 020 N
0003500 360 236 O 016 k 330 _ 016 277 @ \t \0 \0 _ 020 X
0003520 277 O 016 k 330 _ 016 260 242 \0 ( 2 1 3 Q
0003540 R E A D C 1 7 1 Q P R I N 1
0003560 1 6 3 Q S E T F I L E P T R
0003600 1 3 6 Q P R I N 1 1 3 0 Q
0003620 S E T F I L E P T R 1 0 3 Q
0003640 R E A D C 7 6 Q S E T F I
0003660 L E P T R 6 7 Q W H E N C L
0003700 O S E 5 4 Q O P E N F I L E
0003720 4 1 Q C H A R A C T E R 3
0003740 4 Q C H A R A C T E R 2 7 Q
0003760 C H A R A C T E R 2 2 Q C
0004000 H A R A C T E R 1 5 Q C H A
0004020 R A C T E R 1 0 Q C H A R A
0004040 C T E R 3 C H A R A C T E R
0004060 ) \r ( 6 4 Q P o s t I P A 0 0
0004100 2 0 6 1 Q E O F 5 1 Q B
0004120 O T H ) \r N I L \r ( P R E T T Y
0004140 C O M P R I N T J L I S T F I
0004160 L E S C O M S ) \r ( R P A Q Q
0004200 J L I S T F I L E S C O M S (
0004220 ( F N S C o n t a i n J C h a
0004240 r p E n c o d e C E S P o s
0004260 t I P ) ( A L I S T S ( F O
0004300 N T D E F S J P R I N T ) )
0004320 ( V A R S \r D E F A U L T F O
0004340 N T P R O F I L E ) ( M A C R
0004360 O S J C H A R P J I S I F Y
0004400 ) ( A D V I S E M A K E I N
0004420 T E R P R E S S ) ) ) \r ( A D D
0004440 T O V A R F O N T D E F S (
0004460 J P R I N T ( F O N T C H A N
0004500 G E F L G . A L L ) ( F I
0004520 L E L I N E L E N G T H . 9
0004540 0 ) ( C O M M E N T L I N E L
0004560 E N G T H 1 1 6 . 1 2 6 )
0004600 ( \r F I R S T C O L . 6 0
0004620 ) ( P R E T T Y L C O M .
0004640 2 5 ) ( F O N T P R O F I L E
0004660 ( D E F A U L T F O N T 1
0004700 ( G A C H A 1 0 ) ( G A C H
0004720 A 8 ) ( M O D E R N 8 M
0004740 R R ) ) ( \r B O L D F O N T
0004760 2 ( H E L V E T I C A 1 0
0005000 B R R ) ( H E L V E T I C A
0005020 8 B R R ) ( M O D E R N 8
0005040 M R R ) ) ( L I T T L E F O
0005060 N T 3 ( H E L V E T I C A
0005100 8 ) ( H E L V E T I C A \r 6
0005120 M I R ) ( C L A S S I C 8
0005140 M R R ) ) ( B I G F O N T
0005160 4 ( H E L V E T I C A 1 2
0005200 B R R ) ( H E L V E T I C A
0005220 1 0 B R R ) ( M O D E R N
0005240 1 0 M R R ) ) ( U S E R F O
0005260 N T \r B O L D F O N T ) ( C
0005300 O M M E N T F O N T L I T T L
0005320 E F O N T ) ( L A M B D A F O
0005340 N T B I G F O N T ) ( S Y S
0005360 T E M F O N T ) ( C L I S P F
0005400 O N T B O L D F O N T ) ( C
0005420 H A N G E F O N T ) \r ( P R E
0005440 T T Y C O M F O N T B O L D F
0005460 O N T ) ( F O N T 1 D E F A
0005500 U L T F O N T ) ( F O N T 2
0005520 B O L D F O N T ) ( F O N T 3
0005540 L I T T L E F O N T ) ( F O
0005560 N T 4 B I G F O N T ) ( \r F
0005600 O N T 5 5 ( H E L V E T I C
0005620 A 1 0 B I R ) ( H E L V E
0005640 T I C A 8 B I R ) ( M O D
0005660 E R N 8 M R R ) ) ( F O N
0005700 T 6 6 ( H E L V E T I C A
0005720 1 0 B R R ) ( H E L V E T I
0005740 C A 8 \r B R R ) ( M O D E
0005760 R N 8 M R R ) ) ( F O N T
0006000 7 7 ( G A C H A 1 0 ) (
0006020 G A C H A 8 ) ( M O D E R N
0006040 8 M R R ) ) ) ( F O N T E
0006060 S C A P E C H A R . % 006 ) )
0006100 ) \r ( R P A Q Q D E F A U L T
0006120 F O N T P R O F I L E S T A N
0006140 D A R D ) \r ( P U T P R O P S
0006160 J C H A R P M A C R O ( ( C
0006200 H ) ( N O T ( Z E R O P (
0006220 L O G A N D ( C H C O N 1 C
0006240 H ) 1 2 8 ) ) ) ) ) \r ( P U T
0006260 P R O P S J I S I F Y M A C
0006300 R O ( ( C H ) ( C H A R A C
0006320 T E R ( L O G A N D ( C H C
0006340 O N 1 C H ) 1 2 7 ) ) ) ) \r
0006360 ( P U T P R O P S M A K E I N
0006400 T E R P R E S S R E A D V I C
0006420 E ( N I L ( A R O U N D N
0006440 I L ( C O N D ( ( C o n t a
0006460 i n J C h a r p F I L E ) (
0006500 R E S E T L S T ( R E S E T S
0006520 A V E \r N I L ( L I S T (
0006540 Q U O T E F O N T S E T ) D
0006560 E F A U L T F O N T P R O F I L
0006600 E ) ) ( S E T Q F I L E (
0006620 E n c o d e C E S F I L E (
0006640 Q U O T E { C O R E } J P R I
0006660 N T . S C R A T C H ) \r ) ) (
0006700 F O N T S E T ( Q U O T E J
0006720 P R I N T ) ) ( S E T Q ! V
0006740 A L U E * ) ( L I S T ( C
0006760 A R ! V A L U E ) ( P o s t
0007000 I P ( C A D R ! V A L U E )
0007020 ) ) ) ) ( T * ) ) ) ) ) \r (
0007040 R E A D V I S E M A K E I N T
0007060 E R P R E S S ) \r ( P U T P R O
0007100 P S J L I S T F I L E S C O
0007120 P Y R I G H T ( " F u j i X
0007140 e r o x C o . L t d . -
0007160 A l l r i g h t s r e v e r
0007200 v e d . " 1 9 8 4 ) ) \r N I L
0007220 \r
0007221