$ od -c -N 50000 [phylum]<JLisp>LOADJDEMO!18
0000000 ( F I L E C R E A T E D " 2 9
0000020 - J u n - 8 4 1 0 : 2 2 : 1 0
0000040 " 006 004 { P H Y L U M } < J L I
0000060 S P > L O A D J D E M O . ; 1 8
0000100 006 001 1 6 5 8 \r \r
0000120 c h a n g e s t o : (
0000140 F N S L O A D J D E M O ) \r \r
0000160 p r e v i o u s d
0000200 a t e : " 2 8 - J u n - 8 4
0000220 1 9 : 5 9 : 1 7 " { P H Y L U
0000240 M } < J L I S P > L O A D J D E
0000260 M O . ; 1 7 ) \r \r \r ( * C o p
0000300 y r i g h t ( c ) 1 9 8 3 ,
0000320 1 9 8 4 b y X e r o x C
0000340 o r p o r a t i o n . A l l
0000360 r i g h t s r e s e r v e d .
0000400 ) \r \r ( P R E T T Y C O M P R I
0000420 N T L O A D J D E M O C O M S
0000440 ) \r \r ( R P A Q Q 006 002 L O A D
0000460 J D E M O C O M S 006 001 ( ( F N
0000500 S L O A D J D E M O ) ) ) \r (
0000520 D E F I N E Q \r \r ( 006 004 L O A D
0000540 J D E M O 006 001 \r [ L A M B D
0000560 A ( S M A L L )
0000600
*
0000640 006 003 ( * r m k : "
0000660 2 9 - J u n - 8 4 1 0 : 2 2 "
0000700 ) 006 001 \r ( M E T A S H I
0000720 F T N I L ) \r ( F I L
0000740 E S L O A D ( 006 002 F R O M 006 001
0000760 L I S P U S E R S ) \r \t
0001000 B I G B I T M A P F N
0001020 S ( 006 002 F R O M 006 001 J L I S
0001040 P ) \r \t J L I S P
0001060 J G P ( S O U R C E ) \r \t
0001100 T A K D E M O ) \r
0001120 ( S E L E C T Q S M A L
0001140 L \r \t ( C O R E ( C
0001160 O P Y F I L E ( F I N D F I L
0001200 E D I C T F I L E S O U R C E
0001220 T D I C T F I L E D I R S )
0001240 \r \t \t \t ( P A C K F I
0001260 L E N A M E ( Q U O T E D I
0001300 R E C T O R Y ) \r \t \t \t \t \t
0001320 ( Q U O T E { C O R E } ) \r
0001340 \t \t \t \t \t ( Q U O T E B
0001360 O D Y ) \r \t \t \t \t \t D I C
0001400 T F I L E S O U R C E ) ) ) \r \t
0001420 N I L ) \r ( C
0001440 O P Y F I L E ( F I N D F I L
0001460 E I N F D I C T S O U R C E
0001500 T D I C T F I L E D I R S ) \r
0001520 \t ( P A C K F I L E
0001540 N A M E ( Q U O T E D I R E
0001560 C T O R Y ) \r \t \t \t ( Q
0001600 U O T E { C O R E } ) \r \t \t \t
0001620 ( Q U O T E B O D Y )
0001640 \r \t \t \t I N F D I C T S
0001660 O U R C E ) )
0001700 006 003 ( * T h
0001720 i s i s s m a l l , k e e
0001740 p i t i n c o r e ) 006 001 \r
0001760 ( J L I S P I N I T (
0002000 Q U O T E ( T ) ) )
0002020
0002040 006 003 (
0002060 * F o r s o m e r e a s o
0002100 n , \ R E A D C U F O N T F I
0002120 L E n o l o n g e r w o r
0002140 k s , s o 006 001 \r \t \t \t \t \t \t
0002160 \t 006 003 t h i s i s
0002200 s k i p p e d ) 006 001 \r (
0002220 A N D N I L ( S E L E C T Q
0002240 S M A L L \r \t \t (
0002260 N I L ( A D D T O V A R B I
0002300 G J F O N T N A M E S ( 1 6
0002320 { I B I S } < J F O N T > 1 6 X
0002340 1 6 > J I S K A N A M 1 6 . C U
0002360 \r \t \t \t \t \t \t {
0002400 I B I S } < J F O N T > 1 6 X 1
0002420 6 > J I S P A R T 1 K A N J I M
0002440 1 6 . C U ) ) \r \t \t \t ( R
0002460 E A D B I G J F O N T S ) ) \r \t
0002500 \t N I L ) ) \r
0002520 ( J I N T ) \r ( C O
0002540 N D \r ( ( N O T S
0002560 M A L L ) \r \t [ C O N D \r \t
0002600 ( ( O P E N W P L O G O W ) \r
0002620 \t ( C L O S E W L O G
0002640 O W ) \r \t ( S E T Q L
0002660 O G O W ( L O G O W ( Q U O
0002700 T E 245 244 245 363 245 277 - 245 352 245 271 245 327
0002720 - D ) \r \t \t \t ( Q
0002740 U O T E ( 5 9 9 . 5 6 1 ]
0002760 \r \t ( N E W F O N T ( Q U O T
0003000 E B I G ) ) \r \t ( N E W F O N
0003020 T ( Q U O T E S T A N D A R
0003040 D ] ) \r ) \r ( P U T P R O P S
0003060 L O A D J D E M O C O P Y R I
0003100 G H T ( " X e r o x C o r p
0003120 o r a t i o n " 1 9 8 3 1 9
0003140 8 4 ) ) \r ( D E C L A R E : D
0003160 O N T C O P Y \r ( F I L E M
0003200 A P ( N I L ( 3 3 5 1 5 7
0003220 3 ( L O A D J D E M O 3 4 5
0003240 . 1 5 7 1 ) ) ) ) ) \r S T O
0003260 P \r
0003262