(FILECREATED "15-Aug-87 16:01:53" ("compiled on " {QV}1.3KNEXT>RHTPATCH287.;5) "12-Nov-85 14:59:23" recompiled changes: HPRINT HPRINT1 HCOPYALL HCOPYALL1 HPRINTEND in "LOOPS/KOTO 20-Jul-87 ..." dated "20-Jul-87 19:10:39") (FILECREATED "15-Aug-87 16:01:45" {QV}1.3KNEXT>RHTPATCH287.;5 14217 changes to: (MACROS HPRINTSTRING) (VARS RHTPATCH287COMS) (RESOURCES HPRINTHARRAY) (FNS HPRINT HPRINT1 HCOPYALL HCOPYALL1 HPRINTEND) previous date: "14-Aug-87 12:12:42" {QV}1.3KNEXT>RHTPATCH287.;2) HPRINTA0001 D1 (NAME ERRORSET P 4 HPRINTHARRAY P 3 SIZE P 2 BACKREFS P 1 U P 0 CELLCOUNT F 5 RESETVARSLST F 6 FILE F 7 EXPR F 10Q UNCIRCULAR F 11Q RESETY F 12Q HPRINT.SCRATCH) jW"gl hhUc gV hhUc g` hhUc WWhdi  ,` ld W L Lthc W ghhhUc ghhhUc `Ald W L L  VjK hcih(355Q TERPRI 351Q COPYBYTES 343Q INPUT 340Q INFILE 335Q CLOSEF 332Q OUTPUT 326Q GETFILEPTR 323Q OUTPUT 312Q CLRHASH 305Q HPRINTEND 301Q HPRINT1 271Q HASHARRAY 243Q OUTPUT 221Q OUTPUT 212Q OUTFILE 202Q OUTPUT 160Q CLRHASH 153Q HPRINTEND 147Q HPRINT1 137Q HASHARRAY 123Q RANDACCESSP 120Q OUTPUT 112Q HPRINT1 65Q SETREADTABLE 42Q OUTPUT 32Q HPINITRDTBL 15Q RADIX) (367Q \HPRINTHARRAY.GLOBALRESOURCE 317Q \HPRINTHARRAY.GLOBALRESOURCE 262Q \HPRINTHARRAY.GLOBALRESOURCE 240Q CLOSEF 216Q DELFILE 174Q \HPRINTHARRAY.GLOBALRESOURCE 165Q \HPRINTHARRAY.GLOBALRESOURCE 130Q \HPRINTHARRAY.GLOBALRESOURCE 62Q HPRINTRDTBL 57Q SETREADTABLE 36Q OUTPUT 10Q RADIX) () HPRINT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 3 DATATYPESEEN I 2 UNCIRCULAR I 1 FILE I 0 EXPR F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q HPRINTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (HPRINTA0001)) HPRINT1A0002 D1 (L (1 K 0 V) F 0 VALS) APcNIL NIL () HPRINT1 D1 (P 30Q Y P 27Q PR P 26Q PROP P 22Q I P 20Q SIZ P 17Q VALS P 16Q RPTLAST P 15Q RPTCNT P 14Q I P 12Q TYP P 11Q INDEX P 10Q RPTLAST P 7 RPTCNT P 6 SIZE P 5 CN P 3 SIZE P 2 TYPE P 1 HERE P 0 LASTSEEN I 3 NOSPFLG I 2 NOMACROSFLG I 1 CDRFLG I 0 X F 31Q DATATYPESEEN F 32Q HPRINTHARRAY F 33Q CELLCOUNT F 34Q U F 35Q BACKREFS F 36Q FILE F 37Q \MAXTHINCHAR) FP@ ZgJgA@!o @ W8h@W4XSAo g  kYW6Mjj Ml ]H@HIhW:c:W4 hdIHA@o W8)k @Adj م W4 W6kc6Ck @9A@ @ihbbbbo @hdi @i o B+J`Y#gW< I@Wj OdO1ox_,@ O,g O, O,@ O*_*@ Ohg Oh@ O Ok_dO.hg O.h@ ZO. J g go @ g Jdgo o @ g  YaW2io J k $o J k JW2JI W2c2jhhJ dO0@ o@ (2103Q HPERR 2072Q RPTEND 2062Q RPTPRINT 2057Q FETCHFIELD 2043Q GETDESCRIPTORS 2021Q PRIN2 2006Q SPACES 2001Q PRIN2 1774Q PRIN1 1763Q SPACES 1756Q PRIN2 1751Q PRIN1 1731Q GETFIELDSPECS 1725Q PRIN1 1717Q PRINTBITMAP 1713Q PRIN1 1704Q PRIN1 1663Q PRIN1 1655Q PRIN2 1652Q LOC 1646Q PRIN1 1630Q PRIN1 1622Q PRIN2 1611Q HPRINSP 1604Q HPRINSP 1574Q DELETECONTROL 1565Q DELETECONTROL 1536Q HPRINSP 1530Q HPRINSP 1525Q ECHOCHAR 1513Q ECHOCHAR 1502Q ECHOCHAR 1466Q HPRINSP 1463Q GETSYNTAX 1454Q HPRINSP 1445Q GETSYNTAX 1435Q GETSYNTAX 1363Q HPRINSP 1350Q GETDELETECONTROL 1340Q HPRINSP 1322Q GETRAISE 1315Q HPRINSP 1306Q GETECHOMODE 1301Q HPRINSP 1272Q GETCONTROL 1266Q PRIN1 1243Q RPTEND 1233Q RPTPRINT 1230Q GETSYNTAX 1150Q GETSYNTAX 1140Q GETSYNTAX 1132Q PRIN2 1106Q PRIN1 1052Q HPRINTSP 1043Q HPRINTSP 1033Q PRIN1 1021Q SPACES 1015Q PRIN2 1012Q FLENGTH 1005Q MAPHASH 776Q SPACES 772Q PRIN2 764Q HARRAYPROP 752Q HARRAYSIZE 746Q PRIN1 715Q RPTEND 700Q RPTPRINT 675Q ELTD 646Q EQP 616Q RPTPRINT 601Q SPACES 575Q PRIN2 570Q SPACES 564Q PRIN2 557Q ARRAYTYP 553Q SPACES 547Q PRIN2 543Q PRIN1 531Q ARRAYORIG 521Q ARRAYSIZE 504Q PRIN2 445Q PRIN1 423Q PRIN1 377Q PRIN1 370Q HPRINT1 362Q HPRINT1 352Q PRIN1 321Q HPRINT1 304Q SPACES 266Q PUTHASH 261Q GETFILEPTR 256Q OUTPUT 251Q GETFILEPTR 246Q OUTPUT 233Q SPACES 222Q PRIN1 174Q PUTHASH 136Q PRIN3 133Q FCHARACTER 113Q GETFILEPTR 110Q OUTPUT 105Q PRIN1 76Q PRIN1 47Q PRIN2 43Q PRIN1 6 TYPENAME) (1722Q } 1671Q BITMAP 1660Q } 1634Q VAG 1625Q } 1562Q ORIG 1510Q ORIG 1442Q ORIG 1360Q NOECHO 1353Q NOECHO 1344Q ECHO 1312Q ECHOMODE 1276Q CONTROL 1251Q TERMTABLEP 1145Q ORIG 1065Q READTABLEP 1030Q } 1002Q HPRINT1A0002 761Q OVERFLOW 724Q HARRAYP 510Q ARRAYP 475Q FIXP 466Q FLOATP 460Q STRINGP 442Q } 416Q { 407Q HPRINTMACROS 102Q { 20Q LITATOM 12Q SMALLP) ( 2077Q "cannot print this item" 1771Q "{$" 1746Q "{~" 1710Q "READBITMAP)" 1701Q "{(" 1643Q "{#" 1424Q (DELETELINE 1STCHDEL NTHCHDEL POSTCHDEL EMPTYCHDEL) 1370Q (CTRLV RETYPE LINEDELETE CHARDELETE EOL) 1263Q "{T" 1103Q "{D" 743Q "{H" 540Q "{Y" 374Q ")" 347Q "(" 217Q " . " 73Q " . " 40Q " . ") HCOPYALL D1 (P 0 HPRINTHARRAY I 0 X) $`ld @ H Hh(25Q CLRHASH 20Q HCOPYALL1 11Q HASHARRAY) (37Q \HPRINTHARRAY.GLOBALRESOURCE 31Q \HPRINTHARRAY.GLOBALRESOURCE 2 \HPRINTHARRAY.GLOBALRESOURCE) () HCOPYALL1A0004 D1 (I 1 Y I 0 X F 0 NEW) A @ P (13Q PUTHASH 7 HCOPYALL1 3 HCOPYALL1) NIL () HCOPYALL1 D1 (P 12Q FIELD P 11Q NH P 10Q ORIG P 7 TYP P 6 SIZE P 2 NEW P 1 SEEN P 0 TYPE I 0 X F 13Q HPRINTHARRAY) Q @dlHdA !@ X`@@W%Hdg!@hhW @ @ KLdMg@d W Hdg@dW g@djW HdgA@ @ @ @NOhO ZW NdjJO@O( *Ok_kٰJg$@d @g ZW J @g JHdg@ g@d W Hdg@  Y@H ZW Id OJO@ J(510Q REPLACEFIELD 505Q HCOPYALL1 502Q FETCHFIELD 461Q PUTHASH 453Q NCREATE 441Q GETDESCRIPTORS 435Q COPYTERMTABLE 420Q PUTHASH 413Q BITMAPCOPY 400Q COPYREADTABLE 362Q MAPHASH 347Q PUTHASH 341Q HASHARRAY 336Q HARRAYPROP 327Q HARRAYSIZE 275Q HCOPYALL1 255Q PUTHASH 247Q ARRAY 232Q ARRAYORIG 226Q ARRAYTYP 222Q ARRAYSIZE 204Q PUTHASH 165Q PUTHASH 142Q PUTHASH 135Q CONCAT 110Q HCOPYALL1 103Q HCOPYALL1 76Q PUTHASH 32Q TYPENAME 23Q TYPENAME) (426Q TERMTABLEP 404Q BITMAP 371Q READTABLEP 357Q HCOPYALL1A0004 333Q OVERFLOW 317Q HARRAYP 212Q ARRAYP 171Q FIXP 160Q FLOATP 150Q FLOATP 126Q STRINGP 61Q LISTP 36Q DONTCOPYDATATYPES) () HPRINTENDA0001 D1 (I 1 Y I 0 X) @ A (11Q ABS 4 ABS) NIL () HPRINTEND D1 (P 4 Z P 3 X P 2 I P 0 HERE F 5 BACKREFS) q Ug UkI H hK k jKgg K dL J g IJkԺ(141Q PRIN3 132Q PRIN3 125Q SETFILEPTR 121Q OUTPUT 107Q DREVERSE 101Q PRIN3 61Q SETFILEPTR 54Q ABS 47Q OUTPUT 40Q SETFILEPTR 34Q OUTPUT 17Q SORT 5 GETFILEPTR 2 OUTPUT) (136Q } 76Q ^ 72Q ` 14Q HPRINTENDA0001) () (PRETTYCOMPRINT RHTPATCH287COMS) (RPAQQ RHTPATCH287COMS ((* * This fixes a bug in HPRINT whereby two HPRINTs starting nearly simultaneously could clobber one another because they were sharing the HPRINTHASHARRAY globalvar. Now HPRINTHASHARRAY is a RESOURCE.) (* * New stuff for KOTOSYSTEMPATCHES) (RESOURCES HPRINTHARRAY) (MACROS HPRINTSTRING) (FNS HPRINT HPRINT1 HCOPYALL HCOPYALL1 HPRINTEND))) (PUTDEF (QUOTE HPRINTHARRAY) (QUOTE RESOURCES) (QUOTE (NEW (HASHARRAY 100)))) (PUTPROPS HPRINTSTRING MACRO (X (LIST (QUOTE PRIN1) (KWOTE (CONCAT (CHARACTER HPBAKCHAR) (CAR X)))))) (PUTPROPS RHTPATCH287 COPYRIGHT ("Xerox Corporation" 1987)) NIL