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