$ od -c -N 50000 [phylum]<LISP>KOTO>Lispusers>FASTBITMAPBIT.DCOM!1
0000000 ( F I L E C R E A T E D " 3 0
0000020 - A u g - 8 5 1 8 : 2 0 : 0 1
0000040 " ( " c o m p i l e d o n
0000060 " { D S K } < L I S P F I L E
0000100 S > M A T T > F A S T B I T M A
0000120 P B I T . ; 4 ) \r " 1 9 - M a
0000140 r - 8 5 1 4 : 3 4 : 1 7 " r
0000160 e c o m p i l e d c h a n g e
0000200 s : F B I T M A P B I T i n
0000220 " I N T E R L I S P - D 1 9
0000240 - M a r - 8 5 . . . " d a t
0000260 e d \r " 1 9 - M a r - 8 5 1
0000300 4 : 3 9 : 3 7 " ) \r ( F I L E C
0000320 R E A T E D " 3 0 - A u g - 8
0000340 5 1 8 : 1 9 : 3 4 " { D S K
0000360 } < L I S P F I L E S > M A T T
0000400 > F A S T B I T M A P B I T . ;
0000420 4 2 8 9 5 c h a n g e s t
0000440 o : ( M A C R O S \r F B I T
0000460 M A P B I T ) ( F N S F B I
0000500 T M A P B I T ) p r e v i o u
0000520 s d a t e : " 1 - J u n -
0000540 8 4 1 2 : 3 1 : 1 2 " { D S
0000560 K } < L I S P F I L E S > M A T
0000600 T > F A S T B I T M A P B I T .
0000620 ; 3 \r ) \r F B I T M A P B I T
0000640 D 1 \r ( L ( 3 n e w v a l u
0000660 e 2 y 1 x 0 b i t m
0000700 a p ) ) \0 v 004 \0 \0 004 @ 006 \0 \0 311
0000720 \0 ` \0 \0 A l 017 345 \n \0 \0 021 " 003 @ 006
0000740 \0 \0 310 003 k 331 B 331 @ 006 \0 \0 310 002 332 A
0000760 342 342 342 342 330 [ H K 320 310 \0 Z d I 345 d
0001000 j 360 252 d 005 003 262 034 d \t \0 \0 262 026 C 265
0001020 004 j 020 k 360 262 374 H K 320 J I 344 315 \0 277
0001040 260 361 C 265 004 k 020 j 360 252 C 005 003 262 370 C
0001060 \t \0 \0 262 362 H K 320 J I 346 315 \0 277 260 347
0001100 \0 ( 1 4 7 Q \ F Z E R O P 1
0001120 0 0 Q \ F Z E R O P 1 7 Q
0001140 \ W O R D E L T ) \r ( 4 0 Q B
0001160 I T M A P 2 6 Q B I T M A P
0001200 1 0 Q B I T M A S K A R R A
0001220 Y 3 B I T M A P ) \r ( ) \r (
0001240 P R E T T Y C O M P R I N T F
0001260 A S T B I T M A P B I T C O M S
0001300 ) \r ( R P A Q Q F A S T B I T
0001320 M A P B I T C O M S ( ( M A C
0001340 R O S F B I T M A P B I T )
0001360 ( F N S F B I T M A P B I T )
0001400 ( A D D V A R S ( G L O B A
0001420 L V A R S B I T M A S K A R R
0001440 A Y ) ) ) ) \r ( P U T P R O P S
0001460 F B I T M A P B I T D M A C
0001500 R O ( L A M B D A ( b i t m
0001520 a p x y n e w v a l u e )
0001540 ( * D o n ' t f o r g e t
0001560 t o k e e p t h e E X P
0001600 R c o d e t h e \r s a m e
0001620 a s t h i s c o d e , s
0001640 o i t w i l l c o m p i l
0001660 e a s t h e s a m e t h
0001700 i n g ) ( D E C L A R E ( L
0001720 O C A L V A R S b i t m a p
0001740 x y n e w v a l u e \r b m
0001760 . b a s e o l d w o r d o l
0002000 d v a l u e b m a s k w o r
0002020 d i n d e x ) ) ( P R O G (
0002040 ( b m . b a s e ( f e t c h
0002060 B I T M A P B A S E o f b i
0002100 t m a p ) ) o l d w o r d \r
0002120 o l d v a l u e ( b m a s k
0002140 ( \ W O R D E L T B I T M A S
0002160 K A R R A Y ( L O G A N D 1
0002200 5 x ) ) ) w o r d i n d e x
0002220 ) ( S E T Q w o r d i n d e
0002240 x ( I P L U S ( I T I M E S
0002260 ( \r I D I F F E R E N C E (
0002300 S U B 1 ( f e t c h B I T M
0002320 A P H E I G H T o f b i t m
0002340 a p ) ) y ) ( f e t c h B
0002360 I T M A P R A S T E R W I D T H
0002400 o f b i t m a p ) ) ( L R
0002420 S H x 4 ) ) ) \r ( S E T Q
0002440 o l d w o r d ( \ G E T B A
0002460 S E b m . b a s e w o r d i
0002500 n d e x ) ) ( S E T Q o l d
0002520 v a l u e ( L O G A N D o l
0002540 d w o r d b m a s k ) ) ( C
0002560 O N D ( ( Z E R O P \r o l d
0002600 v a l u e ) ( C O N D ( n e
0002620 w v a l u e ( C O N D ( ( E
0002640 Q n e w v a l u e 1 ) ( \
0002660 P U T B A S E b m . b a s e
0002700 w o r d i n d e x ( L O G O R
0002720 o l d w o r d b m a s k ) )
0002740 ) ) ) \r ) ( R E T U R N 0 )
0002760 ) ( T ( C O N D ( n e w v
0003000 a l u e ( C O N D ( ( Z E R
0003020 O P n e w v a l u e ) ( \ P
0003040 U T B A S E b m . b a s e w
0003060 o r d i n d e x ( L O G X O R
0003100 o l d w o r d \r b m a s k )
0003120 ) ) ) ) ) ( R E T U R N 1 )
0003140 ) ) ) ) ) \r ( A D D T O V A R
0003160 G L O B A L V A R S B I T M A
0003200 S K A R R A Y ) \r ( P U T P R O
0003220 P S F A S T B I T M A P B I T
0003240 C O P Y R I G H T ( " M a t
0003260 t H e f f r o n " 1 9 8 4
0003300 1 9 8 5 ) ) \r N I L \r
0003313