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