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