$ 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