(FILECREATED "31-Mar-86 16:10:14" ("compiled on " {ERIS}KOTO>PRESSFROMNS.;17) "12-Nov-85 14:59:23" recompiled exprs: \SETSPACE.PRESS in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "31-Mar-86 16:09:38" {ERIS}KOTO>PRESSFROMNS.;17 49130 changes to: (VARS PRESSFROMNSCOMS ASCIIFROM0ARRAY ASCIIFROM38ARRAY ASCIIFROM39ARRAY ASCIIFROM239ARRAY) (FNS \PRESS.COERCEFONT \COERCEFONT \CREATEPRESSFONT \ENTITYSTART.PRESS \SMASHPRESSFONTS GETCHARPRESSTRANSLATION PRESS.NSARRAY PUTCHARPRESSTRANSLATION \DSPFONT.PRESS \DSPSPACEFACTOR.PRESS \DSPFONT.PRESSFONT \CREATECHARSET.PRESS \STRINGWIDTH.PRESS \CHARWIDTH.PRESS \OUTCHARFN.PRESS \NSTOASCIIARRAY \NSTOASCIITRANSLATION PRESSFONT? \PRESS.CONVERT.NSCHARACTER) (RECORDS PRESSDATA) previous date: " 5-Mar-86 10:36:56" {ERIS}KOTO>PRESSFROMNS.;9) \SMASHPRESSFONTS D1 (P 0 F) Dgdddg 1dH X HHHh jH h(72Q \CREATECHARSET 27Q FONTCREATE 14Q FONTSAVAILABLE) (55Q FONTDESCRIPTOR 47Q FONTDESCRIPTOR 43Q FONTDESCRIPTOR 33Q FONTDESCRIPTOR 10Q PRESS 2 *) () GETCHARPRESSTRANSLATION D1 (P 2 CSINFO P 1 TR P 0 FONTDESC I 1 FONT I 0 CHARCODE) W@ @dn@dl@ b Ag !H(@@H d@lYdIh(76Q \CREATECHARSET 52Q \COERCEFONTDESC 42Q \ILLEGAL.ARG 34Q CHCON1 3 CHARCODEP) (102Q CHARSETINFO 47Q PRESS) () PRESS.NSARRAY D1 (P 7 i P 5 asciiArray P 4 item P 2 array P 1 max P 0 min I 2 ASCIIARRAY I 1 FAMILY I 0 CHARSET F 10Q ASCIITONSTRANSLATIONS) x@nHlԹnhdj BAohW!KJ\ ];ljON.HMO(MO(IJMO(n LOh*Ok_K[(137Q REMAINDER 65Q EVAL 25Q ARRAY) NIL ( 37Q (ASCIIARRAY)) PUTCHARPRESSTRANSLATION D1 (P 6 \INTERRUPTABLE P 5 TR P 4 CHAR8CODE P 3 CSINFO P 0 FONTDESC I 2 NEWTRANSLATION I 1 FONT I 0 CHARCODE) @ @@dl@ b Ag !H(@@H @lBhH KLMKLM MKK M  KK M  HdHK YIHHK ZJB(267Q MAX 242Q MAX 216Q MAX 170Q MAX 105Q \NSTOASCIITRANSLATION 67Q \CREATECHARSET 43Q \COERCEFONTDESC 33Q \ILLEGAL.ARG 25Q CHCON1 3 CHARCODEP) (257Q FONTDESCRIPTOR 253Q FONTDESCRIPTOR 232Q FONTDESCRIPTOR 226Q FONTDESCRIPTOR 203Q CHARSETINFO 177Q CHARSETINFO 156Q CHARSETINFO 152Q CHARSETINFO 40Q PRESS) () \DSPFONT.PRESS D1 (P 2 FDENTRY P 1 OLDFONT P 0 PRDATA I 1 FONT I 0 PRSTREAM) X@(!H8YAJdAgi IA b5HA8Hh:@H2A(jA HmA@ I(124Q \FIXLINELENGTH.PRESS 104Q \SETSPACE.PRESS 101Q FIXR 71Q \CREATECHARSET 34Q FONTCOPY 25Q \COERCEFONTDESC) (113Q FONTDESCRIPTOR 21Q PRESS) () \DSPSPACEFACTOR.PRESS D1 (P 0 PRDATA I 1 FACTOR I 0 STREAM) 5@(H2A)@ HA2@AH8Y(jI (61Q \SETSPACE.PRESS 56Q FIXR 46Q \CREATECHARSET 17Q SHOW.PRESS) NIL () \ENTITYSTART.PRESS D1 (P 0 PRDATA I 0 PRSTREAM) c@(AHh4Hh8H@0@kI%Hd[0KkJ'H@0@kL)@HH h(137Q SETXY.PRESS) (132Q PRESSDATA 124Q PRESSDATA 106Q FDEV 101Q STREAM 63Q FDEV 56Q STREAM 50Q PRESSDATA 32Q FDEV 25Q STREAM 3 STREAM) () \SETSPACE.PRESS D1 (P 1 ELSTREAM P 0 PRDATA I 1 S I 0 PRSTREAM) N@(1AH4h@ @(YAndAn`ػZK!JKIl!IA!IAl!HA4h(24Q SHOW.PRESS) (35Q PRESSDATA 30Q STREAM 3 STREAM) () \STARTPAGE.PRESS D1 (P 3 SPACEFACTOR P 2 HFONT P 1 CFONT P 0 PRDATA I 0 PRSTREAM) @(AH8Y@ HoH2Hk2H@J @HH!J H@ @ @Hn o@ HH"k\"L@ @ @ HK2@HH!I @I h(226Q \DSPFONT.PRESS 220Q SETXY.PRESS 170Q NEWLINE.PRESS 163Q NEWLINE.PRESS 156Q PRIN3 130Q PRIN3 117Q SETX.PRESS 103Q SHOW.PRESS 76Q PRIN3 66Q SETXY.PRESS 44Q \DSPFONT.PRESS 15Q \ENTITYSTART.PRESS) (212Q FONTDESCRIPTOR 141Q PRESSDATA 135Q PRESSDATA 60Q FONTDESCRIPTOR) ( 124Q "Page ") \PRESS.COERCEFONT D1 (P 0 pressFont I 1 FAMILY I 0 FONT) AA@g @g g@@gg A AAgg @A` L@gAgggi @gAgggg A` Ah`Y@HhIH(161Q FONTCOPY 132Q FONTCOPY 105Q FONTP 67Q FONTCOPY 51Q FONTP 44Q FONTCOPY 23Q FONTPROP 11Q FONTPROP) (205Q \PRESS.COERCEDFONTS 201Q \PRESS.COERCEDFONTS 170Q \PRESS.COERCEDFONTS 155Q PRESS 152Q DEVICE 147Q STANDARD 144Q FACE 140Q FAMILY 125Q NOERROR 122Q PRESS 117Q DEVICE 113Q FAMILY 75Q \PRESS.COERCEDFONTS 64Q PRESS 61Q DEVICE 41Q PRESS 36Q DEVICE 26Q PRESS 20Q DEVICE 6 FAMILY) () \DSPFONT.PRESSFONT D1 (P 2 LFONT P 1 FDENTRY P 0 PRDATA I 1 PRFONT I 0 PRSTREAM) F@(!@ @A YdH H8@ @ @J HI HAHIlp!h(57Q \DSPFONT.PRESS 51Q \ENTITYSTART.PRESS 44Q \ENTITYEND.PRESS 16Q \DEFINEFONT.PRESS 11Q SHOW.PRESS) NIL () \CREATEPRESSFONTA0001 D1 (NAME ERRORSET L (0 NIL) P 34Q XLATEDNAME P 33Q XLATEDNAME P 32Q F P 15Q WIDTHSY P 14Q TEM P 13Q LASTCHAR P 12Q FIRSTCHAR P 11Q RELFLAG P 10Q FIXEDFLAGS P 7 STRMCACHE P 6 WSTRM P 5 FD P 4 NSMICASIZE P 3 PRESSMICASIZE P 2 WIDTHS F 35Q PSIZE F 36Q FAMILY F 37Q FACE F 40Q RESETVARSLST F 41Q ROTATION F 42Q DEVICE F 43Q RESETY) zngjd W:n lHW:n o `dWDdW<dW:dW>W> HdIdWBdo"ni HdI(@`!WWBg` _6MO6O2d6(O _WWBg`O8 _8hh*O2_4hO2_4O2_2O4 O4gi ^coO4ggl ^hW@c@N Nggg ^ NO_MNKL _[O6MO6MW<iF gNd hhhW@c@Nj O_MO8O hi2^j MNKL _MO8MW<iO_Oj OO _Nd MN N dnnknMjN N dnnkMN N dnnknMN N dnnkMJ M_M_OnMMdnnkKnnMMKnMMdnnkKnnMMKnMMMN _N OllJN N _OOjOd OKn_OO_ _O OtJO O*O k_ JOOOkN OO_$_"O$O"JdO$(nO$j*O$k_$O*OO_(_&O(O&JO(JO((Kn*O(k_(OkkDN N _MOOdjd OKnہOMdMh McFiMngjd _OOOOkN OO_,_*O,O*OdO,(nO,j*O,k_,OOO_0_.O0O.OO0OO0(Kn*O0k_0(2040Q AIN 2014Q ARRAY 1732Q \FZEROP 1536Q AIN 1444Q \FZEROP 743Q SETFILEPTR 737Q \FIXPIN 727Q \FZEROP 646Q \FINDFONT 636Q SETFILEPTR 571Q SETFILEPTR 546Q GETFILEPTR 534Q RANDACCESSP 471Q \FINDFONT 452Q COPYBYTES 446Q OPENSTREAM 427Q RANDACCESSP 411Q OPENSTREAM 365Q \GETSTREAM 352Q INFILEP 300Q \COERCEFONT 251Q DREVERSE 212Q \COERCEFONT 142Q \ALLOCBLOCK 102Q \FACECODE 41Q FIXR 12Q ARRAY) (2007Q SMALLPOSP 2001Q FONTDESCRIPTOR 1710Q FONTDESCRIPTOR 1352Q FONTDESCRIPTOR 1344Q FONTDESCRIPTOR 1340Q FONTDESCRIPTOR 1321Q FONTDESCRIPTOR 1315Q FONTDESCRIPTOR 1256Q FONTDESCRIPTOR 1252Q FONTDESCRIPTOR 1233Q FONTDESCRIPTOR 1227Q FONTDESCRIPTOR 1170Q FONTDESCRIPTOR 1164Q FONTDESCRIPTOR 1147Q FONTDESCRIPTOR 1136Q FONTDESCRIPTOR 1126Q FONTDESCRIPTOR 1075Q FONTDESCRIPTOR 1040Q FONTDESCRIPTOR 1005Q FONTDESCRIPTOR 750Q FONTDESCRIPTOR 667Q FONTDESCRIPTOR 656Q FONTDESCRIPTOR 604Q FONTDESCRIPTOR 541Q SETFILEPTR 520Q FONTDESCRIPTOR 507Q FONTDESCRIPTOR 443Q NEW 440Q BOTH 435Q {NODIRCORE} 404Q OLD 401Q INPUT 361Q INPUT 272Q MISSINGFONTCOERCIONS 267Q PRESS 221Q FONTDESCRIPTOR 206Q FONTCOERCIONS 203Q PRESS 165Q PRESSFONTWIDTHSFILES 44Q FONTDESCRIPTORTYPE# 5 SMALLPOSP) ( 374Q (PROGN (CLOSEF? OLDVALUE)) 130Q 35.27778 35Q 72.0) \CREATEPRESSFONT D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 4 DEVICE I 3 ROTATION I 2 FACE I 1 PSIZE I 0 FAMILY F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q \CREATEPRESSFONTA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (\CREATEPRESSFONTA0001)) \CREATECHARSET.PRESS D1 (P 17Q pressFont P 16Q translation P 15Q i P 13Q X P 5 CSETZEROTRANSLATIONS P 4 descent P 3 ascent P 2 translationArray P 1 widths P 0 CSETTRANSLATIONARRAY I 6 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 20Q PRESSFONTFAMILIES) KE ngjd nhdj jde EjFg W ]=lj_ONJOFO*Ok_Md JOO@F *alj OO+JOHHO(@ Fg Oh@F *Ok_(lj OOJOHdO(@F *Ok_lj"OO6JO(__IOO O(*KO  LO  Ok_`I_dOdhI_dOJ_dOdjdK dL (402Q MAX 367Q MAX 277Q \NSTOASCIITRANSLATION 227Q \NSTOASCIITRANSLATION 215Q FONTPROP 143Q \NSTOASCIITRANSLATION 52Q FONTPROP 27Q ARRAY 16Q ARRAY 3 \NSTOASCIIARRAY) (417Q CHARSETINFOTYPE# 212Q FAMILY 47Q FAMILY 11Q SMALLPOSP) () \COERCEFONT D1 (P 10Q NEWFONTNAME P 7 FACECONSTRAINT P 6 SIZECONSTRAINT P 5 FAMCONSTRAINT P 4 REALSPEC P 3 USERSPEC P 2 NEWCSINFO P 1 TRANSL I 7 CREATEFLG I 6 BUTNOT I 5 COERCELIST I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) DEHhY[XKdK]@MHKK^-AN(N7NdgANhgANhiKK_BOI\HXdLL@LLALLBCDh_FOGOhdddi O(252Q FONTCREATE) (110Q > 71Q <) () \STRINGWIDTH.PRESS D1 (I 2 RDTBL I 1 STRING I 0 STREAM) A@(8B@(4 (16Q \STRINGWIDTH.GENERIC) NIL () \CHARWIDTH.PRESS D1 (I 1 CHARCODE I 0 STREAM) /Al @(4@(8H(AAH Al(43Q \CREATECHARSET) NIL () \OUTCHARFN.PRESS D1 (P 10Q \INTERRUPTABLE P 6 TRANSLATION P 5 PRCHARCODE P 4 CLIPPINGREGION P 3 NEWXPOS P 2 XPOS P 1 PRDATA P 0 CHARSET I 1 CHARCODE I 0 PRSTREAM)  Adl @ @jjl @h@ @ Adl @j@ @(bHI:6I8(H HI8 _IOIO 12)) (SYMBOL 12)))) (ADDTOVAR MISSINGFONTCOERCIONS (PRESS (MODERN HELVETICA) (CLASSIC TIMESROMAN) (LOGOTYPE LOGO) ( TERMINAL GACHA) (MODERN FRUTIGER) (CLASSIC CENTURY))) (/DECLAREDATATYPE (QUOTE PRESSDATA) (QUOTE (POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER WORD WORD WORD WORD WORD BYTE BYTE FIXP FIXP FIXP FIXP FLAG FLAG POINTER POINTER POINTER POINTER POINTER FLAG POINTER POINTER POINTER POINTER)) (QUOTE ((PRESSDATA 0 POINTER) (PRESSDATA 2 POINTER) (PRESSDATA 4 POINTER) (PRESSDATA 6 POINTER) (PRESSDATA 8 POINTER) (PRESSDATA 10 POINTER) (PRESSDATA 12 POINTER) (PRESSDATA 14 POINTER) ( PRESSDATA 16 POINTER) (PRESSDATA 18 POINTER) (PRESSDATA 20 POINTER) (PRESSDATA 22 POINTER) (PRESSDATA 24 POINTER) (PRESSDATA 26 POINTER) (PRESSDATA 28 POINTER) (PRESSDATA 30 (BITS . 15)) (PRESSDATA 31 ( BITS . 15)) (PRESSDATA 32 (BITS . 15)) (PRESSDATA 33 (BITS . 15)) (PRESSDATA 34 (BITS . 15)) ( PRESSDATA 28 (BITS . 7)) (PRESSDATA 26 (BITS . 7)) (PRESSDATA 35 FIXP) (PRESSDATA 37 FIXP) (PRESSDATA 39 FIXP) (PRESSDATA 41 FIXP) (PRESSDATA 24 (FLAGBITS . 0)) (PRESSDATA 24 (FLAGBITS . 16)) (PRESSDATA 44 POINTER) (PRESSDATA 46 POINTER) (PRESSDATA 48 POINTER) (PRESSDATA 50 POINTER) (PRESSDATA 52 POINTER ) (PRESSDATA 52 (FLAGBITS . 0)) (PRESSDATA 54 POINTER) (PRESSDATA 56 POINTER) (PRESSDATA 58 POINTER) ( PRESSDATA 60 POINTER))) (QUOTE 62)) (RPAQ? PRESSFONTFAMILIES (QUOTE ((GACHA) (TIMESROMAN) (HELVETICA) (SYMBOL) (MATH) (HIPPO) (CYRILLIC))) ) (RPAQ? NSTOASCIITRANSLATIONS) (ADDTOVAR NSTOASCIITRANSLATIONS (0 ASCIIFROM0ARRAY) (38 ASCIIFROM38ARRAY) (39 ASCIIFROM39ARRAY) (239 ASCIIFROM239ARRAY)) (READVARS ASCIIFROM0ARRAY ASCIIFROM38ARRAY ASCIIFROM39ARRAY ASCIIFROM239ARRAY) ({Y256 POINTER 0 {R163 NIL} (SYMBOL 126) (SYMBOL 127) NIL NIL (SYMBOL 120) NIL 96 NIL NIL (SYMBOL 55) (SYMBOL 34) (SYMBOL 33) (SYMBOL 35) NIL (SYMBOL 6) NIL NIL (SYMBOL 2) NIL (SYMBOL 123) NIL (SYMBOL 13) 39 {R25 NIL} (SYMBOL 125) {R44 NIL} } {Y256 POINTER 0 (HIPPO 118) {R64 NIL} (HIPPO 65) (HIPPO 66) NIL (HIPPO 71) (HIPPO 68) (HIPPO 69) NIL NIL (HIPPO 90) (HIPPO 72) (HIPPO 81) (HIPPO 73) (HIPPO 75) ( HIPPO 76) (HIPPO 77) (HIPPO 78) (HIPPO 67) (HIPPO 79) (HIPPO 80) NIL (HIPPO 82) (HIPPO 83) NIL (HIPPO 84) (HIPPO 85) (HIPPO 70) (HIPPO 88) (HIPPO 89) (HIPPO 87) NIL NIL NIL (HIPPO 97) (HIPPO 98) NIL ( HIPPO 103) (HIPPO 100) (HIPPO 101) NIL NIL (HIPPO 122) (HIPPO 104) (HIPPO 113) (HIPPO 105) (HIPPO 107) (HIPPO 108) (HIPPO 109) (HIPPO 110) (HIPPO 99) (HIPPO 111) (HIPPO 112) NIL (HIPPO 114) (HIPPO 115) ( HIPPO 106) (HIPPO 116) (HIPPO 117) (HIPPO 102) (HIPPO 120) (HIPPO 121) (HIPPO 119) {R130 NIL} } {Y256 POINTER 0 (CYRILLIC 127) {R32 NIL} (CYRILLIC 65) (CYRILLIC 66) (CYRILLIC 86) (CYRILLIC 71) (CYRILLIC 68) (CYRILLIC 69) (CYRILLIC 36) (CYRILLIC 87) (CYRILLIC 90) (CYRILLIC 73) (CYRILLIC 74) (CYRILLIC 75) (CYRILLIC 76) (CYRILLIC 77) (CYRILLIC 78) (CYRILLIC 79) (CYRILLIC 80) (CYRILLIC 82) (CYRILLIC 83) ( CYRILLIC 84) (CYRILLIC 85) (CYRILLIC 70) (CYRILLIC 81) (CYRILLIC 126) (CYRILLIC 42) (CYRILLIC 123) ( CYRILLIC 125) (CYRILLIC 94) (CYRILLIC 88) (CYRILLIC 67) (CYRILLIC 64) (CYRILLIC 89) (CYRILLIC 72) {R15 NIL} (CYRILLIC 97) (CYRILLIC 98) (CYRILLIC 118) (CYRILLIC 103) (CYRILLIC 100) (CYRILLIC 101) ( CYRILLIC 52) (CYRILLIC 119) (CYRILLIC 122) (CYRILLIC 105) (CYRILLIC 106) (CYRILLIC 107) (CYRILLIC 108) (CYRILLIC 109) (CYRILLIC 110) (CYRILLIC 111) (CYRILLIC 112) (CYRILLIC 114) (CYRILLIC 115) (CYRILLIC 116) (CYRILLIC 117) (CYRILLIC 102) (CYRILLIC 113) (CYRILLIC 54) (CYRILLIC 56) (CYRILLIC 91) (CYRILLIC 93) (CYRILLIC 95) (CYRILLIC 120) (CYRILLIC 143) (CYRILLIC 50) (CYRILLIC 121) (CYRILLIC 104) {R12 NIL} (CYRILLIC 99) {R129 NIL} } {Y256 POINTER 0 {R36 NIL} (TIMESROMAN 155) (TIMESROMAN 156) {R6 NIL} ( TIMESROMAN 152) (TIMESROMAN 153) NIL (TIMESROMAN 159) (MATH 33) (MATH 70) (SYMBOL 104) (SYMBOL 105) NIL NIL (SYMBOL 96) (SYMBOL 97) (MATH 113) NIL (SYMBOL 109) (SYMBOL 108) (MATH 116) (MATH 118) (MATH 115) (MATH 117) (MATH 64) NIL (SYMBOL 37) (SYMBOL 38) {R4 NIL} (MATH 109) NIL (MATH 66) (MATH 78) ( MATH 44) (SYMBOL 40) (SYMBOL 44) (SYMBOL 41) (MATH 126) (MATH 81) (SYMBOL 36) (MATH 98) NIL NIL ( SYMBOL 92) (SYMBOL 91) (SYMBOL 19) (SYMBOL 18) (SYMBOL 27) (SYMBOL 26) NIL NIL (MATH 75) (MATH 72) NIL (MATH 79) (SYMBOL 8) (SYMBOL 9) (MATH 54) (SYMBOL 11) (TIMESROMAN 183) (SYMBOL 5) (MATH 104) NIL ( SYMBOL 58) NIL (SYMBOL 54) NIL NIL (MATH 22) (SYMBOL 16) (MATH 80) (SYMBOL 17) (SYMBOL 29) NIL (SYMBOL 115) (MATH 7) (SYMBOL 39) NIL (SYMBOL 25) (MATH 19) (MATH 1) (SYMBOL 112) (SYMBOL 7) {R41 NIL} ( SYMBOL 59) {R6 NIL} (MATH 82) NIL (SYMBOL 100) (SYMBOL 101) (SYMBOL 98) (SYMBOL 99) (SYMBOL 57) ( SYMBOL 56) (SYMBOL 94) (SYMBOL 95) (MATH 90) (MATH 68) (MATH 100) {R69 NIL} }) (\SMASHPRESSFONTS) (PUTPROPS PRESSFROMNS COPYRIGHT ("Xerox Corporation" 1986)) NIL