$ od -c -N 50000 [eris]<LispCore>busmaster>NOBOX.DCOM!1
0000000 ( F I L E C R E A T E D " 2 9
0000020 - J a n - 8 5 1 7 : 3 2 : 3 6
0000040 " ( " c o m p i l e d o n
0000060 " { E R I S } < L I S P U S E
0000100 R S > N O B O X . ; 5 ) " 2 0
0000120 - D e c - 8 4 1 2 : 0 7 : 2 2
0000140 " \r t c o m p l ' d i n "
0000160 I N T E R L I S P - D 2 0 - D
0000200 e c - 8 4 . . . " d a t e d
0000220 " 2 0 - D e c - 8 4 1 2 : 1
0000240 6 : 5 7 " ) \r ( F I L E C R E A
0000260 T E D " 2 9 - J a n - 8 5 1
0000300 7 : 3 2 : 1 8 " { E R I S } <
0000320 L I S P U S E R S > N O B O X .
0000340 ; 5 5 8 9 3 c h a n g e s
0000360 t o : ( R E C O R D S I B O
0000400 X F B O X ) ( \r M A C R O S
0000420 I B O X F B O X ) ( F N S
0000440 I B O X ) p r e v i o u s
0000460 d a t e : " 2 9 - J a n - 8 5
0000500 1 5 : 5 4 : 3 5 " { E R I S
0000520 } < L I S P U S E R S > N O B O
0000540 X . ; 4 ) \r I B O X D 1 \r ( I
0000560 0 I V A L ) \0 020 \0 \0 \0 001 l
0000600 002 \t \0 \0 d @ 265 003 j \n \0 \0 277 020 \0 (
0000620 1 4 Q \ P U T F I X P 4 \
0000640 C R E A T E C E L L ) \r N I L \r
0000660 ( ) \r F B O X D 1 \r ( I 0
0000700 F V A L ) \0 023 \0 \0 \0 001 l 003 \t \0
0000720 \0 d @ 265 006 o \0 \0 \0 \n \0 \0 277 020 \0 (
0000740 1 7 Q P u t F l o a t 4 \
0000760 C R E A T E C E L L ) \r N I L \r
0001000 ( 1 4 Q 0 . 0 ) \r N B O X
0001020 D 1 \r ( I 0 N V A L ) \0 035
0001040 \0 \0 \0 001 @ 005 003 233 l 003 \t \0 \0 d @ \n
0001060 \0 \0 277 020 l 002 \t \0 \0 d @ \n \0 \0 277 020
0001100 \0 ( 3 1 Q \ P U T F I X P 2
0001120 4 Q \ C R E A T E C E L L 1
0001140 5 Q P u t F l o a t 1 0 Q
0001160 \ C R E A T E C E L L ) \r N I L
0001200 \r ( ) \r ( P R E T T Y C O M P R
0001220 I N T N O B O X C O M S ) \r (
0001240 R P A Q Q N O B O X C O M S
0001260 ( ( * u s e o f t h i s
0001300 p a c k a g e i s n o t r
0001320 e c o m m e n d e d f o r i
0001340 n t e r l i s p - d . i t i
0001360 s s u p p l i e d f o r \r
0001400 c o m p a t i b i l i t y w i
0001420 t h o l d c o d e ) ( F N
0001440 S I B O X F B O X N B O X
0001460 ) ( P ( M O V D ? ( Q U O
0001500 T E L I S T ) ( Q U O T E
0001520 L B O X ) ) ( M O V D ? ( Q
0001540 U O T E \r C O N S ) ( Q U O
0001560 T E C B O X ) ) ) ( D E C L
0001600 A R E : E V A L @ C O M P I L
0001620 E ( R E C O R D S F B O X
0001640 I B O X ) ( M A C R O S I B
0001660 O X F B O X N B O X ) ( M
0001700 A C R O S C B O X \r L B O X
0001720 ) ( I . S . O P R S s c r a
0001740 t c h c o l l e c t ) ( A D D
0001760 V A R S ( S Y S L O C A L V A
0002000 R S $ $ S C C O N S $ $ S C
0002020 P T R ) ( I N V I S I B L E V
0002040 A R S $ $ S C C O N S \r $ $
0002060 S C P T R ) ) ) ) ) \r ( M O V D
0002100 ? ( Q U O T E L I S T ) (
0002120 Q U O T E L B O X ) ) \r ( M O
0002140 V D ? ( Q U O T E C O N S )
0002160 ( Q U O T E C B O X ) ) \r (
0002200 D E C L A R E : E V A L @ C O
0002220 M P I L E ( B L O C K R E C O
0002240 R D F B O X ( ( F F L O A
0002260 T I N G ) ) ( C R E A T E (
0002300 S E L E C T Q ( S Y S T E M T
0002320 Y P E ) ( ( T E N E X T O P
0002340 S - 2 0 ) \r ( F P L U S 0 .
0002360 0 ) ) ( D ( \ C R E A T E C
0002400 E L L ( C O N S T A N T \ F
0002420 L O A T P ) ) ) ( H E L P "
0002440 F B O X C R E A T E N O T
0002460 D E F I N E D F O R S Y S T
0002500 E M T Y P E " ( \r S Y S T E
0002520 M T Y P E ) ) ) ) ) ( B L O C
0002540 K R E C O R D I B O X ( ( I
0002560 I N T E G E R ) ) ( C R E A
0002600 T E ( S E L E C T Q ( S Y S
0002620 T E M T Y P E ) ( ( T E N E X
0002640 T O P S - 2 0 ) ( I P L U S
0002660 \r 1 0 0 0 0 0 ) ) ( D ( \
0002700 C R E A T E C E L L ( C O N S
0002720 T A N T \ F I X P ) ) ) ( H
0002740 E L P " I B O X C R E A T E
0002760 N O T D E F I N E D F O R
0003000 S Y S T E M T Y P E " ( \r
0003020 S Y S T E M T Y P E ) ) ) ) ) )
0003040 \r ( D E C L A R E : E V A L @
0003060 C O M P I L E ( P U T P R O P
0003100 S I B O X 1 0 M A C R O (
0003120 A R G S ( C O N D ( ( C A R
0003140 A R G S ) ( L I S T ( Q U
0003160 O T E A S S E M B L E ) N I
0003200 L ( L I S T \r ( Q U O T E
0003220 C Q ) ( L I S T ( Q U O T E
0003240 V A G ) ( L I S T ( Q U O
0003260 T E F I X ) ( C A R A R G
0003300 S ) ) ) ) ( Q U O T E ( M O
0003320 V E 2 , 1 ) ) ( L I S T
0003340 ( Q U O T E C Q ) ( \r c r
0003360 e a t e I B O X ) ) ( Q U O
0003400 T E ( M O V E M 2 , 0
0003420 ( 1 ) ) ) ) ) ( T ( Q U O T
0003440 E ( c r e a t e I B O X ) )
0003460 ) ) ) ) ( P U T P R O P S I
0003500 B O X D M A C R O ( A R G S
0003520 ( \r C O N D ( A R G S ( A
0003540 P P E N D ( Q U O T E ( c r
0003560 e a t e I B O X s m a s h i
0003600 n g ( L O A D T I M E C O N S
0003620 T A N T ( \ C R E A T E C E L
0003640 L ( C O N S T A N T \ F I X
0003660 P ) ) ) I _ ) \r ) A R G S
0003700 ) ) ( T ( Q U O T E ( L O
0003720 A D T I M E C O N S T A N T (
0003740 \ C R E A T E C E L L ( C O N
0003760 S T A N T \ F I X P ) ) ) ) )
0004000 ) ) ) ( P U T P R O P S F B
0004020 O X 1 0 M A C R O ( A R G S
0004040 \r ( C O N D ( ( C A R A R
0004060 G S ) ( L I S T ( Q U O T E
0004100 A S S E M B L E ) N I L (
0004120 L I S T ( Q U O T E C Q )
0004140 ( L I S T ( Q U O T E V A G
0004160 ) ( L I S T ( Q U O T E F
0004200 L O A T ) ( \r C A R A R G S
0004220 ) ) ) ) ( Q U O T E ( M O V
0004240 E 2 , 1 ) ) ( L I S T
0004260 ( Q U O T E C Q ) ( c r e a
0004300 t e F B O X ) ) ( Q U O T E
0004320 ( M O V E M 2 , 0 ( 1
0004340 ) ) ) ) ) ( T ( \r Q U O T E
0004360 ( c r e a t e F B O X ) ) )
0004400 ) ) ) ( P U T P R O P S F B
0004420 O X D M A C R O ( A R G S
0004440 ( C O N D ( A R G S ( A P P
0004460 E N D ( Q U O T E ( c r e a
0004500 t e F B O X s m a s h i n g
0004520 \r ( L O A D T I M E C O N S T
0004540 A N T ( \ C R E A T E C E L L
0004560 ( C O N S T A N T \ F L O A
0004600 T P ) ) ) F _ ) ) A R G S
0004620 ) ) ( T ( Q U O T E ( L O
0004640 A D T I M E C O N S T A N T (
0004660 \r \ C R E A T E C E L L ( C O
0004700 N S T A N T \ F L O A T P ) )
0004720 ) ) ) ) ) ) ( P U T P R O P S
0004740 N B O X 1 0 M A C R O ( A
0004760 R G S ( S U B P A I R ( Q U
0005000 O T E ( N V A L F B O X ) )
0005020 ( L I S T \r ( C A R A R G
0005040 S ) ( c r e a t e F B O X )
0005060 ) ( Q U O T E ( A S S E M B
0005100 L E N I L ( C Q N V A L )
0005120 ( C Q ( C O N D ( ( F L O
0005140 A T P ( A C ) ) ( A S S E M
0005160 B L E N I L ( M O V E \r 2
0005200 , 0 ( 1 ) ) ( C Q F B
0005220 O X ) ( M O V E M 2 , 0
0005240 ( 1 ) ) ) ) ( T ( I B O X
0005260 ( A C ) ) ) ) ) ) ) ) ) ) (
0005300 P U T P R O P S N B O X D M
0005320 A C R O ( O P E N L A M B D A
0005340 ( \r N V A L ) ( C O N D (
0005360 ( F L O A T P N V A L ) ( F
0005400 B O X N V A L ) ) ( T ( I
0005420 B O X N V A L ) ) ) ) ) ) \r (
0005440 D E C L A R E : E V A L @ C O
0005460 M P I L E ( P U T P R O P S
0005500 C B O X M A C R O ( ( X Y
0005520 ) ( F R P L N O D E ( C O N
0005540 S T A N T ( C O N S ) ) X
0005560 Y ) ) ) ( P U T P R O P S C
0005600 B O X \r D M A C R O ( = .
0005620 C O N S ) ) ( P U T P R O P
0005640 S L B O X M A C R O ( A R
0005660 G L I S T ( P R O G ( N I L
0005700 I S T ( F O R M ( Q U O T E
0005720 $ X $ ) ) ) ( M A P A R G
0005740 L I S T ( \r F U N C T I O N
0005760 ( L A M B D A ( A R G ) ( S
0006000 E T Q N I L I S T ( C O N S
0006020 N I L N I L I S T ) ) ( S
0006040 E T Q F O R M ( L I S T (
0006060 Q U O T E F R P L A C A ) F
0006100 O R M ( C A R A R G ) \r ) )
0006120 ( A N D ( C D R A R G )
0006140 ( S E T Q F O R M ( L I S T
0006160 ( Q U O T E C D R ) F O R
0006200 M ) ) ) ) ) ) ( R E T U R N
0006220 ( L I S T ( L I S T ( Q U O
0006240 T E L A M B D A ) ( Q U O T
0006260 E ( \r $ X $ ) ) ( Q U O T E
0006300 ( D E C L A R E ( L O C A L
0006320 V A R S $ X $ ) ) ) F O R M
0006340 ( Q U O T E $ X $ ) ) ( K
0006360 W O T E N I L I S T ) ) ) ) )
0006400 ) ( P U T P R O P S L B O X
0006420 D M A C R O ( = \r . L I
0006440 S T ) ) ) \r ( D E C L A R E :
0006460 E V A L @ C O M P I L E ( I .
0006500 S . O P R ( Q U O T E s c r
0006520 a t c h c o l l e c t ) ( Q U
0006540 O T E ( S E T Q $ $ S C P T
0006560 R ( F R P L A C A ( O R (
0006600 C D R $ $ S C P T R ) \r ( C
0006620 D R ( F R P L A C D $ $ S C
0006640 P T R ( C A R ( F R P L A C
0006660 A $ $ S C C O N S ( C O N S
0006700 ) ) ) ) ) ) B O D Y ) ) ) (
0006720 Q U O T E ( B I N D $ $ S C
0006740 P T R $ $ S C C O N S _ (
0006760 \r C O N S T A N T ( C O N S )
0007000 ) F I R S T ( S E T Q $ $
0007020 S C P T R $ $ S C C O N S )
0007040 F I N A L L Y ( S E T Q $ $
0007060 V A L ( A N D ( N E Q $ $
0007100 S C P T R $ $ S C C O N S )
0007120 ( P R O G 1 \r ( C D R $ $ S
0007140 C C O N S ) ( C O N D ( ( C
0007160 D R $ $ S C P T R ) ( F R P
0007200 L A C D $ $ S C C O N S ( P
0007220 R O G 1 ( C D R $ $ S C P T
0007240 R ) ( F R P L A C D $ $ S C
0007260 P T R N I L ) ( \r F R P L A
0007300 C D ( P R O G 1 ( C A R $
0007320 $ S C C O N S ) ( F R P L A C
0007340 A $ $ S C C O N S $ $ S C P
0007360 T R ) ) ( C D R $ $ S C C O
0007400 N S ) ) ) ) ) ) ) ) ) ) ) ) ) \r
0007420 ( A D D T O V A R S Y S L O C
0007440 A L V A R S $ $ S C C O N S
0007460 $ $ S C P T R ) \r ( A D D T O V
0007500 A R I N V I S I B L E V A R S
0007520 $ $ S C C O N S $ $ S C P T
0007540 R ) \r ( P U T P R O P S N O B
0007560 O X C O P Y R I G H T ( " X
0007600 e r o x C o r p o r a t i o n
0007620 " 1 9 8 3 1 9 8 4 1 9 8 5
0007640 ) ) \r N I L \r
0007647