(FILECREATED " 6-Aug-84 02:33:41" ("compiled on " {FLOPPY}NEWBOXFTIMES.;1) " 1-Aug-84 17:04:49" tcompl%'d in "INTERLISP-D 2-Aug-84 ..." dated " 2-Aug-84 10:31:19") (FILECREATED " 6-Aug-84 02:33:21" {FLOPPY}NEWBOXFTIMES.;1 12198 changes to: (FNS NEW\BOXFPLUSDIF NEW\BOXFTIMES2) previous date: " 5-Aug-84 02:55:43" {ERIS}WORK>NEWBOXFTIMES.;13) (MOVD? (QUOTE \BOXFTIMES2) (QUOTE OLD\BOXFTIMES2)) (MOVD? (QUOTE \BOXFQUOTIENT) (QUOTE OLD\BOXFQUOTIENT)) (MOVD? (QUOTE \FDIFFERENCE.UFN) (QUOTE OLD\FDIFFERENCE.UFN)) (MOVD? (QUOTE \BOXFPLUSDIF) (QUOTE OLD\BOXFPLUSDIF)) (MOVD? (QUOTE SIN) (QUOTE OLDSIN)) (MOVD? (QUOTE COS) (QUOTE OLDCOS)) COERCETOFLOATARRAY D1 (P 2 RESULT P 1 I I 0 A) W@ dgdgdgdg9@ @ k@ @ gh@ IHJI@I(*IkYJ(74Q ARRAY 71Q ARRAYORIG 61Q ARRAYSIZE 55Q ARRAYORIG 46Q ARRAYORIG 42Q ARRAYSIZE 3 ARRAYTYP) (113Q FLOATP 64Q FLOATP 32Q BIT 24Q FIXP 16Q SMALLPOSP 7 BYTE) () NEW\BOXFPLUSDIF D1 (P 4 XFLOAT P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 2 SUBTRACT I 1 Y I 0 X)  p@7A@A  @\A ghA XA kNMH g@ ZA3@ YJdgh@ XI@ k@ A OOgH gA [@ YA @ A o@Ah JKIgh@ XJ@KAJKKIHHOJ@O(O*Ok_HNLAN(*Nk^,(304Q ARRAY 301Q ARRAYORIG 261Q ERROR 243Q ARRAYORIG 237Q ARRAYORIG 231Q ARRAYSIZE 224Q ARRAYSIZE 215Q COERCETOFLOATARRAY 204Q ARRAYTYP 161Q ARRAYORIG 152Q ARRAYORIG 144Q ARRAY 141Q ARRAYORIG 124Q ARRAYSIZE 110Q COERCETOFLOATARRAY 77Q ARRAYTYP 60Q ARRAYSIZE 53Q ARRAY 50Q ARRAYORIG 40Q ARRAYSIZE 25Q NUMARRAYTYP 21Q OLD\BOXFPLUSDIF) (335Q ARRAYP 327Q ARRAYP 321Q ARRAYP 274Q FLOATP 207Q FLOATP 165Q FLOATP 134Q FLOATP 102Q FLOATP 43Q FLOATP 33Q FLOATP) ( 251Q "NONCONFORMABLE ARRAYS") NEW\BOXFQUOTIENT D1 (P 12Q XFLOAT P 11Q I P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 2 BOX I 1 Y I 0 X) F@DA @AB  A ghA XA A kA @ OOH g@ ZA3@ YJdgh@ XI@ k@ A OOvH gA [@ YA @ A o@Ah JKIgh@ XJ@KAI@ k@ MLHMJM(KM(*Mk]HHOJ@O(O*Ok_rA k_ONHOOAO(*Ok_Ok_(434Q ARRAYSIZE 346Q ARRAYORIG 337Q ARRAYORIG 321Q ARRAY 316Q ARRAYORIG 276Q ERROR 260Q ARRAYORIG 254Q ARRAYORIG 246Q ARRAYSIZE 241Q ARRAYSIZE 232Q COERCETOFLOATARRAY 221Q ARRAYTYP 176Q ARRAYORIG 167Q ARRAYORIG 161Q ARRAY 156Q ARRAYORIG 141Q ARRAYSIZE 125Q COERCETOFLOATARRAY 114Q ARRAYTYP 67Q ARRAYORIG 60Q ARRAYORIG 54Q ARRAYSIZE 47Q ARRAY 44Q ARRAYORIG 34Q ARRAYSIZE 26Q NUMARRAYTYP 22Q OLD\BOXFQUOTIENT) (311Q FLOATP 224Q FLOATP 202Q FLOATP 151Q FLOATP 117Q FLOATP 73Q FLOATP 37Q FLOATP) ( 266Q "NONCONFORMABLE ARRAYS") NEW\BOXFTIMES2 D1 (P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 2 BOX I 1 Y I 0 X) @@BA @AB  A YA g@A XdAHIH g@ ZA1@ YJdgA@ X@HHIH gA [@ YA @ A o@Ah J@KAJKIgh@ XIH(337Q ARRAY 334Q ARRAYORIG 272Q ERROR 254Q ARRAYORIG 250Q ARRAYORIG 242Q ARRAYSIZE 235Q ARRAYSIZE 226Q COERCETOFLOATARRAY 215Q ARRAYTYP 162Q ARRAY 157Q ARRAYORIG 137Q ARRAYSIZE 123Q COERCETOFLOATARRAY 112Q ARRAYTYP 57Q ARRAY 54Q ARRAYORIG 41Q ARRAYSIZE 34Q ARRAYSIZE 26Q NUMARRAYTYP 22Q OLD\BOXFTIMES2) (343Q ARRAYP 327Q FLOATP 313Q ARRAYP 302Q ARRAYP 220Q FLOATP 203Q ARRAYP 175Q ARRAYP 167Q ARRAYP 153Q FLOATP 147Q FLOATP 115Q FLOATP 100Q ARRAYP 72Q ARRAYP 64Q ARRAYP 50Q FLOATP 44Q FLOATP) ( 262Q "NONCONFORMABLE ARRAYS") NEW\FDIFFERENCE.UFN D1 (P 12Q XFLOAT P 11Q I P 3 COERCEDY P 2 COERCEDX P 1 SIZE P 0 RESULT I 1 Y I 0 X) F@DA @Ai  A ghA XA A kA @ OOH g@ ZA3@ YJdgh@ XI@ k@ A OOvH gA [@ YA @ A o@Ah JKIgh@ XJ@KAI@ k@ MLHMJM(KM(*Mk]HHOJ@O(O*Ok_rA k_ONHOOAO(*Ok_Ok_(434Q ARRAYSIZE 346Q ARRAYORIG 337Q ARRAYORIG 321Q ARRAY 316Q ARRAYORIG 276Q ERROR 260Q ARRAYORIG 254Q ARRAYORIG 246Q ARRAYSIZE 241Q ARRAYSIZE 232Q COERCETOFLOATARRAY 221Q ARRAYTYP 176Q ARRAYORIG 167Q ARRAYORIG 161Q ARRAY 156Q ARRAYORIG 141Q ARRAYSIZE 125Q COERCETOFLOATARRAY 114Q ARRAYTYP 67Q ARRAYORIG 60Q ARRAYORIG 54Q ARRAYSIZE 47Q ARRAY 44Q ARRAYORIG 34Q ARRAYSIZE 26Q NUMARRAYTYP 22Q OLD\BOXFPLUSDIF) (311Q FLOATP 224Q FLOATP 202Q FLOATP 151Q FLOATP 117Q FLOATP 73Q FLOATP 37Q FLOATP) ( 266Q "NONCONFORMABLE ARRAYS") GENVEC D1 (P 6 SF P 5 DBY P 4 ROW P 3 I P 1 GV P 0 N I 3 ORIG I 2 BY I 1 END I 0 INITIAL)  A@bkbBA@kmbA@BkXkHo @AB6CHkـHCkHghC B@MKJLKNMK*Kk[LCHkـHCk@HghC  OOOOO*OB_Ok_O(203Q ARRAY 116Q ARRAY 54Q ERROR) (176Q FIXP 122Q FLOATP 111Q FLOATP) ( 51Q "Inconsistent increment and bounds") NEWCOS D1 (P 3 I P 1 RESULT P 0 SIZE I 1 RADIANSFLG I 0 X) H@d> 8@ Hg YH@ k@ KJIK@K(A *Kk[I@A (105Q OLDCOS 66Q OLDCOS 45Q ARRAYORIG 36Q ARRAYORIG 30Q ARRAY 16Q ARRAYSIZE 10Q NUMARRAYTYP) (25Q FLOATP) () NEWSIN D1 (P 3 I P 1 RESULT P 0 SIZE I 1 RADIANSFLG I 0 X) H@d> 8@ Hg YH@ k@ KJIK@K(A *Kk[I@A (105Q OLDSIN 66Q OLDSIN 45Q ARRAYORIG 36Q ARRAYORIG 30Q ARRAY 16Q ARRAYSIZE 10Q NUMARRAYTYP) (25Q FLOATP) () NUMARRAYTYP D1 (I 0 A) (@ dgdgdgdgdgi(3 ARRAYTYP) (41Q BIT 33Q FIXP 25Q SMALLPOSP 16Q BYTE 7 FLOATP) () (PRETTYCOMPRINT NEWBOXFTIMESCOMS) (RPAQQ NEWBOXFTIMESCOMS ((DECLARE: EVAL@LOAD DOCOPY FIRST (P (MOVD? (QUOTE \BOXFTIMES2) (QUOTE OLD\BOXFTIMES2)) (MOVD? (QUOTE \BOXFQUOTIENT) (QUOTE OLD\BOXFQUOTIENT)) (MOVD? (QUOTE \FDIFFERENCE.UFN ) (QUOTE OLD\FDIFFERENCE.UFN)) (MOVD? (QUOTE \BOXFPLUSDIF) (QUOTE OLD\BOXFPLUSDIF)) (MOVD? (QUOTE SIN) (QUOTE OLDSIN)) (MOVD? (QUOTE COS) (QUOTE OLDCOS)))) (FNS COERCETOFLOATARRAY NEW\BOXFPLUSDIF NEW\BOXFQUOTIENT NEW\BOXFTIMES2 NEW\FDIFFERENCE.UFN GENVEC NEWCOS NEWSIN NUMARRAYTYP) (DECLARE: DONTEVAL@LOAD DOCOPY (P (MOVD (QUOTE NEW\BOXFTIMES2) (QUOTE \BOXFTIMES2)) (MOVD (QUOTE NEW\BOXFQUOTIENT) (QUOTE \BOXFQUOTIENT)) (MOVD (QUOTE NEW\FDIFFERENCE.UFN) (QUOTE \FDIFFERENCE.UFN)) ( MOVD (QUOTE NEW\BOXFPLUSDIF) (QUOTE \BOXFPLUSDIF)) (MOVD (QUOTE NEWSIN) (QUOTE SIN)) (MOVD (QUOTE NEWCOS) (QUOTE COS)))))) (MOVD (QUOTE NEW\BOXFTIMES2) (QUOTE \BOXFTIMES2)) (MOVD (QUOTE NEW\BOXFQUOTIENT) (QUOTE \BOXFQUOTIENT)) (MOVD (QUOTE NEW\FDIFFERENCE.UFN) (QUOTE \FDIFFERENCE.UFN)) (MOVD (QUOTE NEW\BOXFPLUSDIF) (QUOTE \BOXFPLUSDIF)) (MOVD (QUOTE NEWSIN) (QUOTE SIN)) (MOVD (QUOTE NEWCOS) (QUOTE COS)) (PUTPROPS NEWBOXFTIMES COPYRIGHT ("Xerox Corporation" 1984)) NIL