$ od -c -N 50000 [eris]<LispCore>LIBRARY>HRULE.DCOM!4 0000000 ( F I L E C R E A T E D " 1 7 0000020 - O c t - 8 5 1 1 : 4 4 : 5 6 0000040 " ( " c o m p i l e d o n 0000060 " { E R I S } < T E D I T > I 0000100 M A G E O B J S > H R U L E . ; 0000120 8 ) \r " 1 2 - O c t - 8 5 1 0000140 3 : 5 1 : 5 4 " r e c o m p i 0000160 l e d c h a n g e s : H R U 0000200 L E . D I S P L A Y F N i n 0000220 " I N T E R L I S P - D 1 2 - 0000240 O c t - 8 5 . . . " d a t e 0000260 d \r " 1 2 - O c t - 8 5 1 4 0000300 : 3 6 : 5 5 " ) \r ( F I L E C R 0000320 E A T E D " 1 7 - O c t - 8 5 0000340 1 1 : 3 9 : 2 5 " { E R I S 0000360 } < T E D I T > I M A G E O B J 0000400 S > H R U L E . ; 8 6 7 7 1 0000420 c h a n g e s t o : ( F N S 0000440 \r H R U L E . D I S P L A Y F 0000460 N ) p r e v i o u s d a t e 0000500 : " 2 6 - S e p - 8 5 1 0 : 0000520 5 0 : 4 9 " { E R I S } < T E 0000540 D I T > I M A G E O B J S > H R 0000560 U L E . ; 7 ) \r H R U L E . C R 0000600 E A T E D 1 \r ( P 0 H R U 0000620 L E I 0 W I D T H F 1 0000640 H R U L E . I M A G E F N S 0000660 F 2 H R U L E . D E F A U L 0000700 T . W I D T H F 3 t e x t 0000720 o b j ) \0 F 001 003 \0 001 h Q \n \0 \0 0000740 021 001 \0 @ 265 \f H g \0 \0 R \v \0 \0 H 020 0000760 3 020 263 $ @ 003 265 027 S o \0 \0 \0 @ \n \0 0001000 \0 i \v \0 \0 h 020 d 001 3 020 225 002 003 265 371 0001020 i 201 277 h 262 344 H g \0 \0 @ \v \0 \0 H 020 0001040 \0 ( 1 0 2 Q I M A G E O B J P 0001060 R O P 5 1 Q T E D I T . P R 0001100 O M P T P R I N T 4 5 Q C O 0001120 N C A T 2 2 Q I M A G E O B 0001140 J P R O P 4 I M A G E O B J 0001160 C R E A T E ) \r ( 7 6 Q R U L 0001200 E . W I D T H 1 6 Q R U L E 0001220 . W I D T H ) \r ( 4 1 Q " N 0001240 o n - n u m e r i c w i d t h 0001260 s n o t d e s i r a b l e : 0001300 " ) \r H R U L E . D I S P L A 0001320 Y F N D 1 \r ( P 1 0 Q T H 0001340 I C K N E S S P 6 R U L I 0001360 N G P 5 Y P 4 X P 0001400 3 S C A L E P 2 W I D 0001420 T H S P 0 R U L E W I D T 0001440 H I 1 I M A G E . S T R E 0001460 A M I 0 H R U L E F 1 0001500 1 Q W I D T H ) \0 305 \t 001 \0 002 0001520 @ g \0 \0 \n \0 \0 021 021 001 H d 003 222 \t \0 0001540 \0 021 001 002 h A \n \0 \0 021 001 003 h A \n \0 0001560 \0 021 001 004 h A \n \0 \0 021 001 005 J 003 h 360 0001600 265 \f J \t \0 \0 k 345 j 360 h 360 J 021 022 \b 0001620 O 016 d 240 020 003 246 O 016 _ 020 277 h 210 O 016 0001640 001 _ 020 277 O 016 002 _ 016 277 K O 020 352 \t \0 0001660 \0 271 k I 361 241 I 200 k c 022 277 N 262 K A 0001700 \t \0 \0 g \0 \0 360 262 ! h j d A L M @ 0001720 g \0 \0 \n \0 \0 001 W 022 g \0 \0 g \0 \0 n 0001740 377 377 \r \v \0 \0 260 ! L M W 022 342 330 L @ 0001760 g \0 \0 \n \0 \0 001 330 M W 022 342 330 W 022 g 0002000 \0 \0 A \r \a \0 \0 277 M W 022 324 275 N h 360 0002020 276 261 377 177 \0 ( 2 6 6 Q D R A W L 0002040 I N E 2 4 5 Q I M A G E O B 0002060 J P R O P 2 2 5 Q B K B I T 0002100 B L T 2 0 5 Q I M A G E O B 0002120 J P R O P 1 6 2 Q I M A G E 0002140 S T R E A M T Y P E 1 4 0 Q 0002160 F I X R 6 5 Q F L E N G T H 0002200 5 0 Q D S P Y P O S I T I O 0002220 N 4 0 Q D S P X P O S I T I 0002240 O N 3 0 Q D S P S C A L E 0002260 2 0 Q R E V E R S E 6 I M 0002300 A G E O B J P R O P ) \r ( 2 6 1 0002320 Q P A I N T 2 4 2 Q B O U 0002340 N D B O X 2 1 6 Q P A I N T 0002360 2 1 3 Q T E X T U R E 2 0 0002400 2 Q B O U N D B O X 1 6 5 Q 0002420 D I S P L A Y 3 R U L E . 0002440 W I D T H ) \r ( ) \r H R U L E . 0002460 G E T F N D 1 \r ( I 1 T E 0002500 X T S T R E A M I 0 I N P 0002520 U T . S T R E A M ) \0 \t \0 \0 \0 0002540 002 @ \t \0 \0 \t \0 \0 020 \0 ( 6 H R U 0002560 L E . C R E A T E 3 R E A D 0002600 ) \r N I L \r ( ) \r H R U L E . I 0002620 M A G E B O X F N D 1 \r ( P 0002640 5 T H I C K N E S S P 1 0002660 W I D T H S P 0 S C A L E 0002700 I 3 R I G H T . M A R G I 0002720 N I 2 C U R R E N T . X 0002740 I 1 I M A G E . S T R E A M 0002760 I 0 H R U L E ) \0 J 006 \0 0003000 \0 004 h A \n \0 \0 @ g \0 \0 \n \0 \0 021 022 0003020 002 C B 331 d j 361 241 277 j I j 021 022 005 K 0003040 265 \f L 022 j d h 032 032 032 032 020 003 243 K 275 0003060 h 204 K 001 275 K 002 273 L H M 352 \t \0 \0 272 0003100 k J 361 241 J 200 k 324 274 260 326 \0 ( 7 4 Q 0003120 F I X R 1 3 Q I M A G E O 0003140 B J P R O P 4 D S P S C A L 0003160 E ) \r ( 1 0 Q R U L E . W I D 0003200 T H ) \r ( ) \r H R U L E . P U T 0003220 F N D 1 \r ( I 1 O U T P U 0003240 T . S T R E A M I 0 H R U 0003260 L E ) \0 \r \0 \0 \0 002 @ g \0 \0 \n \0 0003300 \0 A \n \0 \0 020 \0 ( 1 2 Q P R I N 0003320 T 6 I M A G E O B J P R O P 0003340 ) \r ( 3 R U L E . W I D T H ) 0003360 \r ( ) \r H R U L E . C O P Y F N 0003400 D 1 \r ( I 2 T O S T R E A 0003420 M I 1 F R O M S T R E A M 0003440 I 0 I M A G E O B J ) \0 0003460 \r \0 \0 \0 003 @ g \0 \0 \n \0 \0 B \n \0 \0 0003500 020 \0 ( 1 2 Q H R U L E . C R E 0003520 A T E 6 I M A G E O B J P R 0003540 O P ) \r ( 3 R U L E . W I D T 0003560 H ) \r ( ) \r H R U L E . W H E N 0003600 O P E R A T E D O N F N D 1 \r 0003620 ( L ( 3 C 2 C 1 B 0003640 0 A ) ) \0 005 \0 \0 \0 004 g \0 \0 020 0003660 \0 N I L \r ( 2 D U M M Y ) \r ( 0003700 ) \r ( P R E T T Y C O M P R I N 0003720 T H R U L E C O M S ) \r ( R P 0003740 A Q Q H R U L E C O M S ( ( 0003760 F N S * H R U L E F N S ) 0004000 ( I N I T V A R S ( H R U L E 0004020 . D E F A U L T . W I D T H 2 0004040 ) ) ( V A R S ( H R U L E F 0004060 N S ( Q U O T E ( \r H R U L 0004100 E . C R E A T E H R U L E . D 0004120 I S P L A Y F N H R U L E . G 0004140 E T F N H R U L E . I M A G E 0004160 B O X F N H R U L E . P U T F 0004200 N H R U L E . C O P Y F N \r 0004220 H R U L E . W H E N O P E R A T 0004240 E D O N F N ) ) ) ( H R U L E 0004260 . I M A G E F N S ( I M A G E 0004300 F N S C R E A T E ( F U N C T 0004320 I O N H R U L E . D I S P L A 0004340 Y F N ) ( F U N C T I O N \r 0004360 H R U L E . I M A G E B O X F N 0004400 ) ( F U N C T I O N H R U L 0004420 E . P U T F N ) ( F U N C T I 0004440 O N H R U L E . G E T F N ) 0004460 ( F U N C T I O N H R U L E . 0004500 C O P Y F N ) ( F U N C T I O 0004520 N N I L L \r ) ( F U N C T I 0004540 O N N I L L ) ( F U N C T I * 0004660 O N \r H R U L E . W H E N O P 0004700 E R A T E D O N F N ) ( F U N 0004720 C T I O N N I L L ) ) ) ) ) ) 0004740 \r ( R P A Q Q H R U L E F N S 0004760 ( H R U L E . C R E A T E H 0005000 R U L E . D I S P L A Y F N H 0005020 R U L E . G E T F N H R U L E 0005040 . I M A G E B O X F N H R U L 0005060 E . P U T F N H R U L E . C O 0005100 P Y F N \r H R U L E . W H E N 0005120 O P E R A T E D O N F N ) ) \r ( 0005140 R P A Q ? H R U L E . D E F A 0005160 U L T . W I D T H 2 ) \r ( R P 0005200 A Q Q H R U L E F N S ( H R 0005220 U L E . C R E A T E H R U L E 0005240 . D I S P L A Y F N H R U L E 0005260 . G E T F N H R U L E . I M A 0005300 G E B O X F N H R U L E . P U 0005320 T F N H R U L E . C O P Y F N 0005340 \r H R U L E . W H E N O P E R 0005360 A T E D O N F N ) ) \r ( R P A Q 0005400 H R U L E . I M A G E F N S 0005420 ( I M A G E F N S C R E A T E 0005440 ( F U N C T I O N H R U L E . 0005460 D I S P L A Y F N ) ( F U N C 0005500 T I O N H R U L E . I M A G E 0005520 B O X F N ) ( F U N C T I O N 0005540 \r H R U L E . P U T F N ) ( 0005560 F U N C T I O N H R U L E . G 0005600 E T F N ) ( F U N C T I O N 0005620 H R U L E . C O P Y F N ) ( F 0005640 U N C T I O N N I L L ) ( F * 0005700 U N C T I O N \r N I L L ) ( 0005720 F U N C T I O N N I L L ) ( * 0006000 F U N C T I O N H R U L E . W 0006020 H E N O P E R A T E D O N F N ) 0006040 ( F U N C T I O N N I L L \r 0006060 ) ) ) \r ( P U T P R O P S H R 0006100 U L E C O P Y R I G H T ( " 0006120 X e r o x C o r p o r a t i o 0006140 n " 1 9 8 5 ) ) \r N I L \r 0006156