(FILECREATED "30-Jun-86 16:52:11" ("compiled on " {ERIS}SOURCES>HARDCOPY.;110) "23-Jun-86 18:04:30" recompiled changes: PRINTER.SCRATCH.FILE in "Xerox Lisp 23-Jun-86 ..." dated "23-Jun-86 18:17:41") (FILECREATED "30-Jun-86 16:48:03" {ERIS}SOURCES>HARDCOPY.;110 127029 changes to: (VARS HARDCOPYCOMS) (FNS PRINTER.SCRATCH.FILE) previous date: "24-Jun-86 10:44:28" {ERIS}SOURCES>HARDCOPY.;109) HARDCOPY.SOMEHOW D1 (P 1 IMAGESTR P 0 HARDCOPYFN I 3 IMAGETYPE I 2 PRINTERTYPE I 1 FILE I 0 WINDOW) 5@g H@AhddB gACµB @IlHI (62Q CLOSEF? 44Q OPENIMAGESTREAM 30Q HARDCOPYW 14Q ALLOW.BUTTON.EVENTS 6 GETWINDOWUSERPROP) (33Q knows 3 HARDCOPYFN) () HARDCOPYIMAGEW D1 (I 0 W) @ (3 HARDCOPY.SOMEHOW) NIL () HARDCOPYIMAGEW.TOFILE D1 (P 0 FILE&TYPE I 0 W) H´ @HH(20Q HARDCOPY.SOMEHOW 2 GetImageFile) NIL () HARDCOPYIMAGEW.TOPRINTER D1 (P 0 PRINTERCHOICE I 0 W) !H´@gH H g (36Q HARDCOPY.SOMEHOW 32Q PRINTERPROP 24Q PRINTERTYPE 20Q PACK* 2 GetPrinterName) (27Q CANPRINT 14Q {LPT}) () HARDCOPYREGION.TOFILE D1 (P 1 REGION P 0 FILE&TYPE) )H´ o YIHhddH h(45Q HARDCOPYW 31Q CLRPROMPT 25Q GETREGION 22Q PROMPTPRINT 13Q SPAWN.MOUSE 2 GetImageFile) NIL ( 17Q "Select a region") HARDCOPYREGION.TOPRINTER D1 (P 1 REGION P 0 PRINTERCHOICE) 0H´'o YIgH hddH h(54Q HARDCOPYW 50Q PRINTERTYPE 41Q PACK* 31Q CLRPROMPT 25Q GETREGION 22Q PROMPTPRINT 13Q SPAWN.MOUSE 2 GetPrinterName) (35Q {LPT}) ( 17Q "Select a region") \STRINGWIDTH.HCPYDISPLAYAUXA0005 D1 (I 1 CC I 0 DUMMY F 0 CSET F 1 S F 2 FONT F 3 WIDTHSBASE F 4 SPACEWIDTH) 5QAl ð’T°)PAãð’S°Aãc¿RÉ(PàÐÉµPR ÉcAlÿåÐÈÔc(44Q \CREATECHARSET) NIL () \STRINGWIDTH.HCPYDISPLAYAUX D1 (P 33Q CSET P 32Q WIDTHSBASE P 31Q S P 24Q C P 22Q CSET P 21Q WIDTHSBASE P 20Q ESCWIDTH P 17Q ESC P 16Q TOTAL P 12Q CSET P 11Q WIDTHSBASE P 10Q C P 0 CSVECTOR I 3 SPACEWIDTH I 2 RDTBL I 1 FONT I 0 STR) ÙAÉ(A@dlð¢±Ó¿j@jc NÁÉ_Ê_¿NÁÊ jðhð_¿MkØ]Oñ³QO–OMÐÈƒOMÂ_¿OOOãð³Oã_¿AÉ(OàÐÉµOA É_¿Ol ð‘C‰OOlÿåÐÈÔ_¿°ªOB²P@BhABÊºYÉ(JãàÐÉµJãI ÉJlÿåÐÈABÊ‡¼[É(LãàÐÉµLãK ÉLlÿåÐÈ €jØlð¢±äjAB²@AÉ(ÉµjA ÉÈ"à_¿BÊ_¿AÉ(OãàÐÉµ OãA ÉOlÿåÐÈ_ ¿@QO&ÈkÙ_,¿O&É_.¿O,O&ÈØ_*¿O&ÊCjð‘h€i_0¿O,kØ_,O*ñ³dO0—O.O,ÐÈ„O.O,Â_(ãO$ð³O(ã_$¿AÉ(O$àÐÉµO$A É_"¿OO(l ð’C°O"O(lÿåÐÈBžO(l"ð¥O(Oð’O €jØÔ_¿°•Oj!g@BdO2(724Q \MAPPNAME 621Q \CREATECHARSET 436Q \CREATECHARSET 371Q \CREATECHARSET 333Q \SYMBOL.ESCAPE.COUNT 316Q \CREATECHARSET 253Q \CREATECHARSET 153Q \CREATECHARSET) (716Q \STRINGWIDTH.HCPYDISPLAYAUXA0005 405Q READTABLEP 271Q READTABLEP 226Q READTABLEP) () COPY.WINDOW.TO.BITMAP D1 (P 10Q SOFTCURSORUP P 7 DISPINTERRUPT P 6 BITMAP P 5 HEIGHT P 4 WIDTH P 3 BOTTOM P 2 LEFT P 1 SCREEN P 0 REGION I 0 WINDOW F 11Q \SOFTCURSORP F 12Q \SOFTCURSORUPP F 13Q \CURSORDESTINATION F 14Q \SCREENBITMAPS) ž @ ¢±Žp@ ÉX@ É2YHZH[H\H]LM@ ^ W²%W´ h@ Wð_²`È_¿`jÍ¿¿@`ðh@ W”@ ¿I JKNjdLM ¿Oš¿`OÍN@ É (233Q BITMAPCOPY 226Q \INSUREWINDOW 210Q \SOFTCURSORUPCURRENT 201Q BKBITBLT 166Q SCREENBITMAP 161Q \TOTOPWDS 151Q DSPDESTINATION 135Q \SOFTCURSORDOWN 104Q DSPDESTINATION 63Q BITMAPCREATE 60Q BITSPERPIXEL 25Q \INSUREWINDOW 16Q \INSUREWINDOW 3 OPENWP) (214Q \EM.DISPINTERRUPT 142Q \TOPWDS 126Q \EM.DISPINTERRUPT 116Q \EM.DISPINTERRUPT) () MakeMenuOfPrinters D1 (I 0 MENUTITLE) ~``AHµPIogghohh HdI¿d@¿dg ¿dg¿jdnÿdhHdI ¿£H¼h„H¼H¸Ld‘»Jµ KhZ¹°”K&º°(50Q \APPEND2) (102Q DEFAULTMENUHELDFN 73Q CLRPROMPT 30Q OTHER 25Q QUOTE 6 DEFAULTPRINTINGHOST 2 MENUTYPE#) ( 37Q "You will be prompted for a printer" 22Q "Other...") MakeMenuOfImageTypes D1 (P 5 IMAGETYPENAME P 4 IMAGETYPE I 0 MENUTITLE F 6 \DISPLAYSTREAMTYPES) ƒ``QHµ6IHdI¿d@¿dg ¿dg¿jdnÿdhHdI ¿¼gL².LdV³&]i Mdždiðª3µ gMhh»Jµ KhZY¿HX°K&Z°÷(130Q L-CASE) (146Q QUOTE 106Q OPENSTREAM 51Q DEFAULTMENUHELDFN 42Q CLRPROMPT 6 IMAGESTREAMTYPES 2 MENUTYPE#) () GetNewPrinterFromUser D1 (I 0 PROMPTSTRING) @ (3 PopUpWindowAndGetAtom) NIL () PopUpWindowAndGetAtomA0001 D1 (NAME ERRORSET P 4 RESPONSE P 3 PROMPTW P 2 WIDTH P 0 FONT F 5 RESETVARSLST F 6 PROMPTSTRING F 7 CANDIDATE F 10Q RESETY) Šg` hhUc ¿VH lAH l(ÚØ ``JÙ¹dIñ‘¿I`JHÈ hdigKhK hUc ¿VWhKhdo Ld’ ci(200Q PACK* 167Q PROMPTFORWORD 140Q OPENW 122Q CREATEW 114Q CREATEREGION 111Q HEIGHTIFWINDOW 52Q WIDTHIFWINDOW 43Q CHARWIDTH 35Q STRINGWIDTH 25Q DEFAULTFONT 10Q TTY.PROCESS) (130Q CLOSEW 104Q FONTDESCRIPTOR 77Q LASTMOUSEY 63Q SCREENWIDTH 60Q LASTMOUSEX 5 \RUNNING.PROCESS 2 TTY.PROCESS) ( 163Q (15Q)) PopUpWindowAndGetAtom D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 1 CANDIDATE I 0 PROMPTSTRING F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q PopUpWindowAndGetAtomA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (PopUpWindowAndGetAtomA0001)) NewPrinter D1 (P 1 ENTRY I 1 PRIMARY? I 0 PRINTER) G`HµA²-@`°/Yd‘@ ²A´#Id` ¿°HX°Ñ`@h h(100Q \APPEND2 53Q REMOVE 36Q STRING-EQUAL) (103Q DEFAULTPRINTINGHOST 72Q DEFAULTPRINTINGHOST 57Q DEFAULTPRINTINGHOST 50Q DEFAULTPRINTINGHOST 20Q DEFAULTPRINTINGHOST 2 DEFAULTPRINTINGHOST) () GetPrinterName D1 (P 1 DEFAULTPRINTER P 0 PRINTERCHOICE) yo !Hdgð˜¿o X²YHYð³QHI´J`µB`do¿do¿dk¿di¿dg ¿dg¿jdnÿdhºdJ ¿ H(165Q NewPrinter 162Q MENU 42Q FetchDefaultPrinter 33Q GetNewPrinterFromUser 11Q MENU 6 MakeMenuOfPrinters) (157Q ChangeDefaultPrinter 130Q DEFAULTMENUHELDFN 121Q CLRPROMPT 62Q MENUTYPE# 55Q ChangeDefaultPrinter 21Q OTHER) ( 100Q (("Yes" T "Yes, make this the new default printer") ("No" NIL "No, don't change it")) 70Q "Make this the new default?" 30Q "Printer (CR to abort): " 3 "Which printer?") GetImageFile D1 (P 4 EXTENSIONFORTYPE P 3 EXTENSIONSUPPLIED P 2 FILETYPEMENU P 1 PRINTFILETYPE P 0 FILE) *Po Xd´o ZH Y“HIJ Y³÷h(43Q MENU 31Q PRINTFILETYPE.FROM.EXTENSION 24Q MakeMenuOfImageTypes 11Q PopUpWindowAndGetAtom) NIL ( 21Q "File type?" 6 "File name (CR to abort): ") FetchDefaultPrinter D1 NIL d‘(2 DEFAULTPRINTER) NIL () ExtensionForPrintFileType D1 (I 0 TYPE) g@`NIL (6 PRINTFILETYPES 2 EXTENSION) () PRINTFILETYPE.FROM.EXTENSION D1 (P 2 TYPE P 1 EXT I 0 FILE) ,`@g HµhºIgJ’JHX°è(14Q U-CASE 11Q FILENAMEFIELD) (33Q EXTENSION 6 EXTENSION 2 PRINTFILETYPES) () DEFAULTPRINTER D1 NIL `dNIL (2 DEFAULTPRINTINGHOST) () CAN.PRINT.DIRECTLY D1 (I 1 FILETYPE I 0 PRINTERTYPE) A@g (7 PRINTERPROP) (4 CANPRINT) () CONVERT.FILE.TO.TYPE.FOR.PRINTERA0002 D1 (I 0 SCRATCH) @ @ (7 DELFILE 3 CLOSEF?) NIL () CONVERT.FILE.TO.TYPE.FOR.PRINTER D1 (P 4 CONVERTER P 3 CANPRINT P 0 SCRATCH I 4 PRINTOPTIONS I 3 HEADING I 2 PRINTERTYPE I 1 FILETYPE I 0 FILE F 5 RESETVARSLST) Aµgb@B gg Bg A'µ-Bg !Jµ;hµoAoBo @ ¹@HhClI¿gHhhhUc H[g A'\µ½JZ°´(165Q PRINTFILEPROP 121Q ERROR 116Q FULLNAME 112Q CONCAT 55Q PRINTERPROP 42Q PRINTERPROP 30Q CLOSEF 25Q OPENFILE 14Q PRINTER.SCRATCH.FILE) (162Q CONVERSION 137Q CONVERT.FILE.TO.TYPE.FOR.PRINTERA0002 52Q CANPRINT 37Q CONVERSION 22Q NEW 17Q OUTPUT 5 TEXT) ( 106Q " printer" 101Q " for a " 74Q "Can't convert a ") EMPRESS D1 (I 5 PRINTOPTIONS I 4 #SIDES I 3 HEADING I 2 HOST I 1 #COPIES I 0 FILE) /@BC´ gChA´ gAhD´ gDhE (54Q SEND.FILE.TO.PRINTER 51Q \NCONC2 46Q \NCONC2 43Q \NCONC2) (33Q #SIDES 21Q #COPIES 7 HEADING) () HARDCOPYW D1 (P 10Q X P 6 HOST P 4 FULLFILE P 3 REGION P 2 SCREENREGION P 1 BITMAP P 0 PRINTHOST I 6 HARDCOPYTITLE I 5 PRINTERTYPE I 4 ROTATION I 3 SCALEFACTOR I 2 HOST I 1 FILE I 0 WINDOW/BITMAP/REGION) ¼ PB¸@ –@ Y°8@d`ð”d’Y°+l ²@…d3•µùi¿h•¹@ŠZ ¹J[¿E²QH²EH ð’±…HoE °ãA³s`MdX³foE °É£M¾h„M¾M½EN ð²ÝNµÝi°ÚHµ‚±è`µ Aµo °—i b ³"Ao °…Oµ‚±ÃX b ¿C³Kµ‚±šIÈIÈEHbµxAµEICKDFµo ¼B¢A³ZgEg gHd‘hgLhggFµohhhAhð´ggLhhhgg¿A´Lb¿Cb¿°K±ÿm b ¿±ÿN¦O_¿hˆO_¿O_¿O b g ¢±ÿO¸±ÿ!(660Q PRINTERPROP 650Q PRINTERTYPE 610Q PRINTERTYPE 551Q ADD.PROCESS 437Q PRINTERPROP 417Q PRINTER.BITMAPFILE 377Q PRINTER.SCRATCH.FILE 364Q PRINTER.BITMAPSCALE 325Q PRINTERTYPE 321Q DEFAULTPRINTER 301Q ERROR 265Q PRINTFILETYPE 257Q ERROR 220Q PRINTERTYPE 175Q ERROR 143Q ERROR 140Q CONCAT 122Q PRINTERTYPE 102Q SCREENBITMAP 75Q GETSCREENREGION 67Q SCREENBITMAP 42Q EQLENGTH 15Q COPY.WINDOW.TO.BITMAP 10Q WINDOWP) (655Q BITMAPSCALE 546Q HARDCOPYW 543Q NAME 525Q QUOTE 522Q DELFILE 470Q DOCUMENT.NAME 465Q QUOTE 456Q QUOTE 442Q QUOTE 434Q SEND 430Q PROGN 355Q BITMAP 347Q BITMAP 243Q DEFAULTPRINTINGHOST 153Q DEFAULTPRINTINGHOST 26Q BITMAPTYPE#) ( 477Q "Window Image" 413Q "Window Image" 276Q "Can't tell what kind of print file to produce -- PRINTERTYPE, DEFAULTPRINTERTYPE, DEFAULTPRINTINGHOST all NIL" 254Q "Can't tell where to send window image -- HOST, DEFAULTPRINTINGHOST are NIL" 171Q "Can't find a printing host in DEFAULTPRINTINGHOST that is of type " 134Q "not of printer type ") LISTFILES1 D1 (I 1 PRINTOPTIONS I 0 FILE) @hA(5 SEND.FILE.TO.PRINTER) NIL () PRINTER.BITMAPFILE D1 (I 6 TITLE I 5 ROTATION I 4 REGION I 3 SCALEFACTOR I 2 BITMAP I 1 PRINTERTYPE I 0 FILE) Ag (11Q EVAL 6 PRINTERPROP) (3 BITMAPFILE) () PRINTER.BITMAPSCALE D1 (I 3 HOST I 2 PRINTERTYPE I 1 HEIGHT I 0 WIDTH) Bg µk@AClH(6 PRINTERPROP) (3 BITMAPSCALE) () PRINTER.SCRATCH.FILE D1 (L (0 FULLFILE)) gNIL (2 {SCRATCH}PRINTER-SCRATCH-FILE) () PRINTERPROP D1 (P 1 X I 1 PROP I 0 PRINTERTYPE) *`1Hµh¹@I»ZKð¦KšJK–AIHX°àNIL (2 PRINTERTYPES) () PRINTERSTATUS D1 (P 0 STATUSFN I 0 PRINTER) @ g H´@kH(11Q PRINTERPROP 3 PRINTERTYPE) (6 STATUS) () PRINTERTYPE D1 (P 10Q PRINTER P 6 FN P 5 TYPE P 0 ACTUALHOST I 0 HOST) ± @—@dgð•¿b²7@A`[µh²H¼HLºYJð¦J™IJ•L³ìi°çK°ÞoH @µ`gµ"`1LµhµOµ+hµ`½gM^µL\°Ø_¿@kO²ñM°Ë_µ O_°É@ ²óO°À(250Q STRING-EQUAL 144Q DEFAULTPRINTER 105Q ERROR 14Q DEFAULTPRINTER) (171Q HOSTNAMEP 163Q DEFAULTPRINTERTYPE 126Q PRINTERTYPES 120Q PRINTERTYPE 114Q DEFAULTPRINTERTYPE 31Q PRINTERTYPES 6 LPT) ( 101Q "Unrecognized printer ") PRINTFILEPROP D1 (P 1 X I 1 PROP I 0 PRINTFILETYPE) *`1Hµh¹@I»ZKð¦KšJK–AIHX°àNIL (2 PRINTFILETYPES) () PRINTFILETYPEA0001A0002 D1 (NAME ERRORSET L (0 NIL) F 1 TYPE F 2 FILE) gQRkHhNIL (2 TEST) () PRINTFILETYPEA0001 D1 (NAME ERRORSET L (0 NIL) P 1 TYPE F 2 FILE F 3 RESETVARSLST F 4 RESETY) YR–R c€Rg ³Rg c¿gRhhhSc¿R ´`Hµhci¹o “I°îHX°å(114Q PRINTFILETYPEA0001A0002 61Q RANDACCESSP 32Q OPENFILE 21Q OPENP 7 MKATOM) (66Q PRINTFILETYPES 40Q CLOSEF 27Q INPUT 16Q INPUT) ( 111Q (PRINTFILETYPEA0001A0002)) PRINTFILETYPE D1 (P 3 RESETZ P 2 RESETY P 1 LISPXHIST P 0 TYPE I 1 DONTOPEN I 0 FILE F 4 LISPXHIST F 5 RESETVARSLST) S@ ”@ @g Hdgð³&µ@ µ/A³+T!Uog ™hŠ`²áHg[ K“Jh(114Q ERROR! 107Q RESETRESTORE 65Q PRINTFILETYPEA0001 41Q PRINTFILETYPE.FROM.EXTENSION 20Q GETFILEINFO 10Q IMAGESTREAMTYPE 3 IMAGESTREAMP) (103Q ERROR 73Q PRINTFILETYPES 62Q INTERNAL 30Q TEXT 15Q TYPE) ( 57Q (PRINTFILETYPEA0001)) SEND.FILE.TO.PRINTERA0001A0002 D1 (I 0 FL) @ @ (7 DELFILE 3 CLOSEF?) NIL () SEND.FILE.TO.PRINTERA0001 D1 (NAME ERRORSET P 7 X P 4 PFILE P 3 PRINTERTYPE P 2 FILETYPE P 1 STRM P 0 FULLFILE F 10Q HOST F 11Q PRINTOPTIONS F 12Q FILE F 13Q RESETVARSLST F 14Q RESETY) %`Wg'“g‚gWgglYhhhWc¿W X\ Z¿Wµ"WN_µ#hcµ`³5oH °Ý [J ²°p o •O°ÐO°ÄIJK°FJ²8`µoNd¤²&°<¥N_¿h†N_¿N¾O [J ²ÞOc°ÛIJc [Wg'W ¼Kg µoK W ½Wd‘LWogHh lM\µH‹i ¿i ¿hci(434Q LISPXTERPRI 427Q LISPXPRIN1 407Q \APPEND2 404Q \APPEND2 353Q ERROR 346Q CONCAT 334Q PRINTERPROP 324Q CONVERT.FILE.TO.TYPE.FOR.PRINTER 307Q PRINTERTYPE 302Q DEFAULTPRINTER 265Q CAN.PRINT.DIRECTLY 260Q PRINTERTYPE 162Q MEMB 153Q U-CASE 143Q CAN.PRINT.DIRECTLY 136Q PRINTERTYPE 131Q ERROR 65Q PRINTFILETYPE 60Q FULLNAME 35Q OPENSTREAM) (375Q DOCUMENT.NAME 331Q SEND 315Q HEADING 212Q DEFAULTPRINTINGHOST 117Q DEFAULTPRINTINGHOST 30Q OLD 25Q INPUT 20Q CLOSEF? 14Q SEND.FILE.TO.PRINTERA0001A0002 7 DELETE) ( 372Q (#COPIES 1) 342Q "Don't know how to send to a " 220Q (NIL) 157Q (HOST SERVER) 125Q "DEFAULTPRINTINGHOST and HOST arg are NIL; don't know where to print ") SEND.FILE.TO.PRINTER D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 2 PRINTOPTIONS I 1 HOST I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q SEND.FILE.TO.PRINTERA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (SEND.FILE.TO.PRINTERA0001)) PRINTERDEVICEA0001 D1 (P 5 POS2 P 4 POS P 3 NAME P 1 PRINTOPTIONS P 0 SDEV I 0 STREAM F 6 RESETSTATE) —@É@g V³r@g ²i@ jñ²a@ @ @HÉgð§HÉ°2@Éµ@!oK \´oKLkØ]´KLkØMkÙoIo @ HÉº@HilJ(206Q \CORE.CLOSEFILE 201Q SEND.FILE.TO.PRINTER 176Q \APPEND2 173Q \APPEND2 156Q SUBATOM 141Q STRPOS 123Q STRPOS 53Q \SETACCESS 47Q \CORE.CLOSEFILE 37Q GETEOFPTR 31Q OPENP 14Q STREAMPROP) (212Q FDEV 103Q STREAM 73Q FDEV 65Q LPT 60Q FDEV 26Q OUTPUT 11Q PRINTOPTIONS 3 STREAM) ( 170Q (HEADING T) 163Q (DELETE T) 132Q "." 117Q "}") PRINTERDEVICE D1 (P 0 DEV I 0 NAME) @ Hg@H @(24Q \DEFINEDEVICE 3 \CREATECOREDEVICE) (15Q PRINTERDEVICEA0001 12Q FDEV) () TEXTTOIMAGEFILEA0001 D1 (NAME ERRORSET P 6 FONTARRAY P 5 MAXFONT P 4 INEOLC P 3 INPUT-FILENAME P 2 OUTCHARFN P 1 INPUT-STREAM P 0 IMAGESTREAM F 7 RESETVARSLST F 10Q FONTS F 11Q HEADING F 12Q OPTIONS F 13Q TABS F 14Q FILE F 15Q IMAGEFILE F 16Q IMAGETYPE F 17Q RESETY) ¾ poWgglo YhWc¿I »oWµghghgK WWiðhð´gWµKoIg hWg'hð´g`hgKgWgWhW XhWc¿IHWW¿I H hci(264Q CLOSEF 260Q CLOSEF 253Q COPY.TEXT.TO.IMAGE 230Q OPENIMAGESTREAM 225Q \APPEND2 222Q \APPEND2 217Q \APPEND2 137Q CONCAT 134Q GETFILEINFO 77Q PACKFILENAME 46Q FULLNAME 30Q OPENSTREAM) (201Q FONTS 174Q TABS 170Q DOCUMENT.NAME 162Q TEXTDEFAULTPAGEREGION 157Q REGION 147Q REGION 131Q CREATIONDATE 114Q HEADING 72Q BODY 66Q VERSION 62Q EXTENSION 16Q OLD 13Q INPUT) ( 125Q " " 53Q (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))) 24Q ((SEQUENTIAL T)) 6 (PROGN (CLOSEF? OLDVALUE))) TEXTTOIMAGEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST I 6 OPTIONS I 5 TABS I 4 HEADING I 3 FONTS I 2 IMAGETYPE I 1 IMAGEFILE I 0 FILE F 3 LISPXHIST F 4 RESETVARSLST) "S!Tog ‘h‚gZ J“I(35Q ERROR! 30Q RESETRESTORE 16Q TEXTTOIMAGEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TEXTTOIMAGEFILEA0001)) COPY.TEXT.TO.IMAGEA0011 D1 (NAME ERRORSET F 0 IMAGESTREAM) l P lÖjPi(15Q RELMOVETO 5 CHARWIDTH) NIL () COPY.TEXT.TO.IMAGE D1 (P 33Q SCSET P 32Q CHAR P 31Q SCSET P 30Q CHAR P 27Q SCSET P 26Q CHAR P 25Q SHIFTEDCHARSET P 24Q RIGHTMAR P 23Q INEOLC P 22Q INSTRM P 21Q MAXFONT P 20Q FONTARRAY P 2 FC P 1 C P 0 IMAGESTREAM I 3 TABS I 2 FONTS I 1 IMAGESTREAM I 0 INFILE) Ag ñB O @g O$g hH O$g"O$Ê2á_*¿O$ O,lÿð²/O$d _,lÿð¢O,O$ jð’lÿ„O$ _.Ï2¿O$ _,¿O.á_*O*_.nÿð–O,áO$ ‰O,d–´O.O,äYlÿåjð—O$ ‘hO(hH O(ñ”H ¿Idl ñ¿HÉ »HIlK±ÿxlð¢±|O$ O0lÿð²/O$d _0lÿð¢O0O$ jð’lÿ„O$ _2Ï2¿O$ _0¿O2á_*O*_2nÿð–O0áO$ ‰O0d–´O2O0äZdlð¢±´¿O$ O4lÿð²/O$d _4lÿð¢O4O$ jð’lÿ„O$ _6Ï2¿O$ _4¿O6á_*O*_6nÿð–O4áO$ ‰O4d–´O6O4äZjð²:HÉ ¼HllL¿HÉ ½HllM¿O$ÉÉ4¾O$kN’±þòHÉ _¿HJlO±þ~Cµ`J µ oJ ZH ±þajð²4HÉ _¿HllO¿O$ÉÉ4_¿O$kO’±þŸHÉ _¿HJlO±þ+JO"ñ®JjðªO J(H ±þHÉ _¿HllO¿HÉ _¿HIlO±ýøIdl ð²E¿O&dgð—¿H ±ýàgð´#O$i l ð´ O$ ¿H ±ýÄH H ±ý¹H H ±ý®l ð²o ’±ýŸHÉ _¿HIlO±ýŽIdl ð²"¿O&gð´ H ±ýwH H ¿H ±ýgjð²O$ ’±ý¾HÉ _¿HIlO±ýJHÉ _¿HIlO±ý:(1351Q EOFP 1335Q DSPXPOSITION 1330Q TERPRI 1324Q DSPXPOSITION 1315Q TERPRI 1245Q COPY.TEXT.TO.IMAGEA0011 1226Q DSPXPOSITION 1222Q DSPLEFTMARGIN 1213Q DSPXPOSITION 1207Q DSPLEFTMARGIN 1200Q TERPRI 1163Q \PEEKBIN 1144Q TERPRI 1055Q DSPFONT 743Q DSPXPOSITION 736Q ERROR 723Q NTH 536Q \NSIN.24BITENCODING.ERROR 376Q \NSIN.24BITENCODING.ERROR 272Q TERPRI 262Q DSPXPOSITION 247Q EOFP 155Q \NSIN.24BITENCODING.ERROR 62Q DSPRIGHTMARGIN 52Q GETFILEINFO 37Q GETSTREAM 25Q ARRAYSIZE 15Q FONTMAPARRAY 6 GETSTREAM) (1306Q LF 1152Q CRLF 1135Q CR 717Q TEXTDEFAULTTABS 72Q ZERO 47Q EOL 34Q INPUT 3 OUTPUT) ( 1242Q (COPY.TEXT.TO.IMAGEA0011) 732Q "Undefined absolute tab number") \BLTSHADE.GENERICPRINTER D1 (P 3 BMHEIGHT P 2 BMWIDTH P 1 SCRATCHBM P 0 FINALREGION I 10Q SHADESCALE I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) ‚ @BCDEhA X´fG™HG Xd¡HGë Zjð³PJµFHGë [jð³4Kµ*JK Y@Ijdhdg IjdAHHhdgF h ²Õh ²¹h(174Q \FZEROP 165Q \FZEROP 160Q BKBITBLT 135Q \BLTSHADE.BITMAP 117Q BITMAPCREATE 100Q FIXR 53Q FIXR 35Q INTERSECTREGIONS 21Q INTERSECTREGIONS 16Q DSPCLIPPINGREGION 11Q CREATEREGION) (153Q INPUT 131Q REPLACE) () MAKEHARDCOPYSTREAM D1 (P 0 DS I 1 IMAGETYPE I 0 DISPLAYSTREAM) m@ µ@ –@ É‰@µ‚ H`&HgAµg Hg.Hg hH H jH jH hH H H(151Q DSPRIGHTMARGIN 145Q DSPRIGHTMARGIN 140Q DSPYPOSITION 133Q DSPXPOSITION 126Q DSPFONT 122Q DSPFONT 73Q STREAMPROP 67Q PRINTERPROP 61Q PRINTERTYPE 33Q \ILLEGAL.ARG 27Q DSPCREATE 16Q \INSUREWINDOW 11Q WINDOWP 3 DISPLAYSTREAMP) (113Q \HDCPYDSPPRINTCHAR 110Q STREAM 102Q \HDCPYDSPPRINTCHAR 77Q STREAM 64Q CANPRINT 53Q HARDCOPYIMAGETYPE 45Q \HDCPYDISPLAYIMAGEOPS 42Q STREAM) () UNMAKEHARDCOPYSTREAM D1 (P 0 DS I 0 DISPLAYSTREAM) J@ µ@ –@ Éƒ@ gH ¡HH`&HghHg.Hg H(64Q STREAMPROP 37Q IMAGESTREAMTYPE 25Q \ILLEGAL.ARG 16Q \INSUREWINDOW 11Q WINDOWP 3 DISPLAYSTREAMP) (104Q \DSPPRINTCHAR 101Q STREAM 73Q \DSPPRINTCHAR 70Q STREAM 60Q HARDCOPYIMAGETYPE 52Q \DISPLAYIMAGEOPS 47Q STREAM 33Q HARDCOPY) () HARDCOPYSTREAMTYPE D1 (P 0 STREAM I 0 IMAGESTREAM) @giXd•g (23Q STREAMPROP 12Q \GETSTREAM) (20Q HARDCOPYIMAGETYPE 6 OUTPUT) () \CHARWIDTH.HDCPYDISPLAY D1 (I 1 CHARCODE I 0 STREAM) 9@É(Éhdd@g HÉ(AãàÐÉµAãH ÉAlÿåÐÈlØl#Û(46Q \CREATECHARSET 22Q FONTCREATE 16Q STREAMPROP) (13Q HARDCOPYIMAGETYPE) () \DSPFONT.HDCPYDISPLAY D1 (P 7 I P 5 OLDWIDTH P 4 W P 3 CSINFO P 2 SCALE P 1 FD P 0 DD I 1 FONT I 0 HDCPYDSTREAM) ¯@A A¢±¦@É(Ahdd@g HIg IÉ(@Ê2àÐÉµ @Ê2I "HjIÈJ× Ù¿Jo —KÉ°>l ¼KÉ½oJëºlÿjONó³LOÐMOÐÈJê Í¿OkÔ_°äL0(233Q FIXR 161Q \ALLOCBLOCK 143Q EQP 127Q FIXR 107Q \CREATECHARSET 54Q FONTPROP 36Q FONTCREATE 32Q STREAMPROP 4 \DSPFONT.DISPLAY) (166Q CHARSETINFO 150Q CHARSETINFO 120Q FONTDESCRIPTOR 100Q STREAM 63Q STREAM 51Q SCALE 45Q \DISPLAYDATA 27Q HARDCOPYIMAGETYPE 15Q STREAM) ( 175Q 35.27778 140Q 35.27778) \DSPRIGHTMARGIN.HDCPYDISPLAY D1 (I 1 XPOSITION I 0 DISPLAYSTREAM) @A A²@É(AoêjØ<¿(4 \DSPRIGHTMARGIN.DISPLAY) (20Q \DISPLAYDATA 13Q STREAM) ( 25Q 35.27778) \DSPXPOSITION.HDCPYDISPLAY D1 (I 1 XPOSITION I 0 HARDCOPYSTREAM) @A A”@ ¿(12Q \HDCPYDISPLAY.FIX.XPOS 4 \DSPXPOSITION.DISPLAY) NIL () \DSPYPOSITION.HDCPYDISPLAY D1 (I 1 YPOSITION I 0 HARDCOPYSTREAM) @A A”@ ¿(12Q \HDCPYDISPLAY.FIX.YPOS 4 \DSPYPOSITION.DISPLAY) NIL () \STRINGWIDTH.HDCPYDISPLAY D1 (P 0 HARDCOPYFD I 2 RDTBL I 1 STR I 0 STREAM) 4@É(Éhdd@g AHBHÉ(ÉµjH ÉÈ lØl#Û(53Q \STRINGWIDTH.GENERIC 44Q \CREATECHARSET 22Q FONTCREATE 16Q STREAMPROP) (13Q HARDCOPYIMAGETYPE) () \HDCPYBLTCHAR D1 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 11Q \SOFTCURSORP F 12Q \SOFTCURSORUPP F 13Q \CURSORDESTINATION F 14Q \SCREENBITMAPS) @lÿåBdÉ>@ãð§@ãA¿BÉ•@A BÉ¼BÉ8BÉ0HÐÈØ]BÉ<ñžLBÉñ˜l A ¿°ÞBM8¿BLkØMlØl#Û¾dNñ¡¿N¿LBÉØ\BÉHÐÈØZBÈ#Yñ‘IºLBÈ"Yñ‘L€I»JKñ´‚±BÉ*YÈ jð³rh__¿W²%W´ hA Wð_²`È_¿`jÍ¿¿A`ðhA W”A ¿IKÍ¿IJKÙÍ¿IBÉHÐÈKØLÙÍ¿Ijv¿Oš¿`OÍih(373Q \SOFTCURSORUPCURRENT 325Q \TOTOPWDS 315Q DSPDESTINATION 301Q \SOFTCURSORDOWN 250Q DSPDESTINATION 100Q \DSPPRINTCR/LF 36Q \SLOWHDCPYBLTCHAR 24Q \CHANGECHARSET.HDCPYDISPLAY) (377Q \EM.DISPINTERRUPT 306Q \TOPWDS 272Q \EM.DISPINTERRUPT 262Q \EM.DISPINTERRUPT 217Q PILOTBBT) () \HDCPYDISPLAY.FIX.XPOS D1 (L (0 HARDCOPYSTREAM)) @É(HHÉoêjØ8hNIL (20Q \DISPLAYDATA 14Q \DISPLAYDATA 3 STREAM) ( 26Q 35.27778) \HDCPYDISPLAY.FIX.YPOS D1 (L (0 HARDCOPYSTREAM)) @É(HHÉoêjØ:hNIL (20Q \DISPLAYDATA 14Q \DISPLAYDATA 3 STREAM) ( 26Q 35.27778) \HDCPYDISPLAYINIT D1 NIL @`` do¿dg¿dg¿dg¿dg¿dg2¿dg4¿(10Q NCREATE2) (75Q \HDCPYDISPLAYIMAGEOPS 67Q \CHARWIDTH.HDCPYDISPLAY 60Q \STRINGWIDTH.HDCPYDISPLAY 51Q \DSPYPOSITION.HDCPYDISPLAY 42Q \DSPXPOSITION.HDCPYDISPLAY 33Q \DSPRIGHTMARGIN.HDCPYDISPLAY 24Q \DSPFONT.HDCPYDISPLAY 5 \DISPLAYIMAGEOPS 2 IMAGEOPSTYPE#) ( 15Q (HARDCOPY DISPLAY)) \HDCPYDSPPRINTCHAR D1 (P 6 TABWIDTH P 5 SPACEWIDTH P 4 CC P 0 DD I 1 CHARCODE I 0 STREAM F 7 \PRIMTERMSA) ”@É(1`”@ ¿Alÿñ²WÉ€šAWÉ€µjƒWAÂlådlð²J¿A@@ÈLlñžl#@H¿Llå¼k€jl Lñžl^@H¿Ll@ä¼k€jL@H¿kØØÔÍhdlð¢±½¿Adl ð«dl ð¦dl ðž¿A@ @jÍjlð²l$@H@@ÈkÔYÍIAdlð²¿gð—o @ l ð²Cl @ Mààà^dHÉHÉÙN Ù^H HÉñ–l @ ¿@@ÈNMÛÔÍhA@H@@ÈkÔZÍJdjð²C¿Adl ð’±ÿMdl ð’±ÿEdl ð’±ÿ;djðœ¿lA@ @ j@H@@ÈkÔ[ÍKlð³ž(621Q SHOULDNT 570Q \HDCPYBLTCHAR 561Q DSPBACKUP 555Q CHARWIDTH 462Q \HDCPYBLTCHAR 431Q \DSPPRINTCR/LF 416Q \DISPLAYSTREAMINCRXPOSITION 410Q IMOD 361Q CHARWIDTH 345Q FLASHWINDOW 342Q WFROMDS 335Q PLAYTUNE 321Q MACHINETYPE 265Q \HDCPYBLTCHAR 240Q \DSPPRINTCR/LF 170Q \HDCPYBLTCHAR 151Q \HDCPYBLTCHAR 124Q \HDCPYBLTCHAR 20Q \CARET.DOWN) (600Q STREAM 574Q STREAM 472Q STREAM 466Q STREAM 442Q STREAM 436Q STREAM 376Q \DISPLAYDATA 324Q DANDELION 275Q STREAM 271Q STREAM 244Q STREAM 106Q STREAM 102Q STREAM 45Q CHARTABLE 34Q CHARTABLE 13Q \CARET.UP 3 STREAM) ( 332Q ((1560Q . 4704Q))) \SLOWHDCPYBLTCHAR D1 (P 20Q CSINFO P 17Q HEIGHTMOVED P 16Q YPOS P 15Q SOFTCURSORUP P 14Q DISPINTERRUPT P 13Q SOURCEBIT P 12Q WIDTH P 11Q DESTBIT P 10Q PILOTBBT P 7 RIGHT P 6 LEFT P 5 NEWX P 4 CURX P 2 ROTATION P 1 DD P 0 CHAR8CODE I 1 DISPLAYSTREAM I 0 CHARCODE F 21Q \SOFTCURSORP F 22Q \SOFTCURSORUPP F 23Q \CURSORDESTINATION F 24Q \SCREENBITMAPS) ü@lÿåAÉ("IÉÈZdjð¢±?IÉqLIÉHÐÈØ]IÉñ²l A ¿IÉ\IÉHÐÈØ½IM¿LIÉØ¼IÈ"dLñ¡¿L¾IÈ#MIÉØ»dKñ‘¿K_¿IÉ*_¿ONñ¢±ÖOÈ jð’±ÌN_¿ONÙ_¿IÉHÐÈNØLÙ_¿IÉÈdkð³?dlð²¿Oàà_¿Oàà_¿Oàà_°"lð²Oààà_¿Oààà_¿Oààà_‚¿ W"²%W$´ hA W&ð_²`È_¿`jÍ¿¿A`ðhA W(”A ¿OOÍ¿OOÍ¿OOÍ¿Ojv¿O›¿`OÍ¿±©0IÉ_¿IÉHÐÈ_¿IÉÉ(@ãàÐÉµ @ãIÉ _ ¿JdlZð²7¿AOOØ ¿O ÉjIÉHÐÈAIÉO È ÙkØOO È O ÈØO °Anð²4AOOÙ ¿O ÉjIÉHÐÈAIÉO ÈÙAÉO È O ÈØO †o h(770Q ERROR 760Q BKBITBLT 710Q \DSPYPOSITION.DISPLAY 667Q BKBITBLT 616Q \DSPYPOSITION.DISPLAY 572Q \CREATECHARSET 504Q \SOFTCURSORUPCURRENT 443Q \TOTOPWDS 433Q DSPDESTINATION 417Q \SOFTCURSORDOWN 366Q DSPDESTINATION 345Q SHOULDNT 62Q \DSPPRINTCR/LF) (510Q \EM.DISPINTERRUPT 424Q \TOPWDS 410Q \EM.DISPINTERRUPT 400Q \EM.DISPINTERRUPT 140Q \DISPLAYDATA 112Q \DISPLAYDATA) ( 765Q "Not implemented to rotate by other than 0, 90 or 270") \CHANGECHARSET.HDCPYDISPLAY D1 (P 6 I P 4 OLDWIDTH P 3 W P 2 CSINFO P 1 SCALE P 0 FD I 2 HDCPYDSTREAM I 1 CHARSET I 0 DISPLAYDATA) @A @ÉhddBg @Hg HÉ(AàÐÉµAH "JÉ¼Io ’L°2l »oIë¹lÿjNMó³KNÐLNÐÈIê Í¿NkÔ^°èK0h(155Q FIXR 115Q \ALLOCBLOCK 104Q EQP 62Q \CREATECHARSET 43Q FONTPROP 25Q FONTCREATE 21Q STREAMPROP 4 \CHANGECHARSET.DISPLAY) (71Q CHARSETINFO 40Q SCALE 34Q \DISPLAYDATA 16Q HARDCOPYIMAGETYPE) ( 122Q 35.27778 101Q 35.27778) MAKEHARDCOPYMODESTREAM D1 (P 0 DS I 1 IMAGETYPE I 0 DISPLAYSTREAM) ¢@ µ@ –@ É‰@µ‚ Aµg bdgð˜¿H`‹gð™H`&¿HgAHg.Hg hH H jH jH HghH hH d¦H oê H H(236Q DSPRIGHTMARGIN 232Q FIXR 217Q DSPCLIPPINGREGION 211Q DSPRIGHTMARGIN 204Q STREAMPROP 201Q DSPRIGHTMARGIN 170Q DSPYPOSITION 163Q DSPXPOSITION 156Q DSPFONT 152Q DSPFONT 123Q STREAMPROP 52Q PRINTERPROP 44Q PRINTERTYPE 33Q \ILLEGAL.ARG 27Q DSPCREATE 16Q \INSUREWINDOW 11Q WINDOWP 3 DISPLAYSTREAMP) (174Q DSPRIGHTMARGIN 143Q \HCPYMODEDSPPRINTCHAR 140Q STREAM 132Q \HCPYMODEDSPPRINTCHAR 127Q STREAM 117Q HARDCOPYIMAGETYPE 110Q \HCPYMODEDISPLAYIMAGEOPS.INTERPRESS 105Q STREAM 77Q INTERPRESS 73Q \HCPYMODEDISPLAYIMAGEOPS.PRESS 70Q STREAM 61Q PRESS 47Q CANPRINT) ( 226Q 35.27778) UNMAKEHARDCOPYMODESTREAM D1 (P 0 DS I 0 DISPLAYSTREAM) h@ µ@ –@ Éƒ@ gH ²DH`&HghHg.Hg jH jH @g d¦H hHH(144Q DSPRIGHTMARGIN 134Q DSPCLIPPINGREGION 126Q STREAMPROP 117Q DSPYPOSITION 112Q DSPXPOSITION 63Q STREAMPROP 37Q IMAGESTREAMTYPE 25Q \ILLEGAL.ARG 16Q \INSUREWINDOW 11Q WINDOWP 3 DISPLAYSTREAMP) (123Q DSPRIGHTMARGIN 103Q \DSPPRINTCHAR 100Q STREAM 72Q \DSPPRINTCHAR 67Q STREAM 57Q HARDCOPYIMAGETYPE 51Q \DISPLAYIMAGEOPS 46Q STREAM 33Q HARDCOPY) () \BLTSHADE.HCPYMODE D1 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) @AB C DEFG (25Q \BLTSHADE.1BITDISPLAY 21Q \DASHINGCONVERT.HCPYMODE 11Q \MICASTOPTS 5 \MICASTOPTS) NIL () \BITBLT.HCPYMODE D1 (I 15Q CLIPPEDSOURCEBOTTOM I 14Q CLIPPEDSOURCELEFT I 13Q CLIPPINGREGION I 12Q TEXTURE I 11Q OPERATION I 10Q SOURCETYPE I 7 HEIGHT I 6 WIDTH I 5 DESTINATIONBOTTOM I 4 DESTINATIONLEFT I 3 DESTSTRM I 2 SOURCEBOTTOM I 1 SOURCELEFT I 0 SOURCEBITMAP) $@ABCD E FGGGGG GG (41Q \BITBLT.1BITDISPLAY 31Q \DASHINGCONVERT.HCPYMODE 13Q \MICASTOPTS 7 \MICASTOPTS) NIL () \BRUSHCONVERT.HCPYMODE D1 (P 3 BB I 0 BRUSH) '@´#@@°d[d3’ ¸IµHhZH&¹µèJ(23Q \MICASTOPTS) NIL () \CHANGECHARSET.HCPYMODE D1 (P 5 \INTERRUPTABLE P 3 BM P 2 CSDINFO P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) ã@É*@ÉÉ(AàÐÉµ A@É @ÉggÉ(AàÐÉµA@Égg #@IÉ¿@IÉ¿@IÉ0¿@A>¿IÉ»HKÈàààànÿÿåÍ¿@ÉgJÉgJÈ gJÈgJÈ JÈØh ¿@È'IÈ ð—@È@IÈð§@I ¿°KÉKÈ@ÉBÚÐ¼HLÒÍ¿HLÓÍh(277Q \SFFixY.HCPYMODE 72Q \CREATECHARSET 67Q FONTCOPY 41Q FONTCOPY 25Q \CREATECHARSET) (333Q PILOTBBT 322Q PILOTBBT 233Q CHARSETINFO 225Q CHARSETINFO 221Q HEIGHT 214Q CHARSETINFO 210Q DESCENT 203Q CHARSETINFO 177Q ASCENT 172Q CHARSETINFO 166Q WIDTHS 163Q FONTDESCRIPTOR 64Q DISPLAY 61Q DEVICE 36Q DISPLAY 33Q DEVICE) () \DASHINGCONVERT.HCPYMODE D1 (I 0 DASHING) 0@°d ¸IµHhZH&¹µíJ(12Q \MICASTOPTS) NIL () \CHARWIDTH.HCPYMODE D1 (L (1 CHARCODE 0 STREAM)) @É(É0AÐÈNIL (3 STREAM) () \DRAWLINE.HCPYMODE D1 (I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 STREAM) )@A B C D E kHñ¡H€kFG (46Q \DRAWLINE.DISPLAY 24Q \MICASTOPTS 20Q \MICASTOPTS 14Q \MICASTOPTS 10Q \MICASTOPTS 4 \MICASTOPTS) NIL () \DRAWCURVE.HCPYMODE D1 (P 3 KNOT I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 STREAM) 5@@A°d[ K ¸IµHhZH&¹µåJBC D (62Q \DRAWCURVE.DISPLAY 56Q \DASHINGCONVERT.HCPYMODE 52Q \BRUSHCONVERT.HCPYMODE 22Q \MICASTOPTS 15Q \MICASTOPTS) NIL () \DRAWCIRCLE.HCPYMODE D1 (I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) @A B C D E (30Q \DRAWCIRCLE.DISPLAY 24Q \DASHINGCONVERT.HCPYMODE 20Q \BRUSHCONVERT.HCPYMODE 14Q \MICASTOPTS 10Q \MICASTOPTS 4 \MICASTOPTS) NIL () \DRAWELLIPSE.HCPYMODE D1 (I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) !@A B C D EF G (36Q \DRAWELLIPSE.DISPLAY 32Q \DASHINGCONVERT.HCPYMODE 25Q \BRUSHCONVERT.HCPYMODE 20Q \MICASTOPTS 14Q \MICASTOPTS 10Q \MICASTOPTS 4 \MICASTOPTS) NIL () \DSPFONT.HCPYMODE D1 (P 3 \INTERRUPTABLE P 2 OLDFONT P 1 XFONT P 0 DD I 1 FONT I 0 HDCPYDSTREAM) a@É(!HÉZA²NA@É&É,iµ HÉA YJð³0HI¿HjIÈÙ¿HIÉ(ÉµjI ÉÈ ÍA¿@H (135Q \SFFixFont 121Q \CREATECHARSET 53Q FONTCOPY 42Q \COERCEFONTDESC) (76Q FONTDESCRIPTOR 34Q IMAGEOPS 27Q STREAM 14Q \DISPLAYDATA 3 STREAM) () \DSPLEFTMARGIN.HCPYMODE D1 (I 1 XPOSITION I 0 DISPLAYSTREAM) @Ad—oë (16Q \DSPRIGHTMARGIN.DISPLAY 13Q FIXR) NIL ( 7 35.27778) \DSPLINEFEED.HCPYMODE D1 (P 0 DD I 1 DELTAY I 0 DISPLAYSTREAM) @É(HÉAŸAd3–¿HA¿ ¿(34Q \ILLEGAL.ARG) (3 STREAM) () \DSPRIGHTMARGIN.HCPYMODE D1 (I 1 XPOSITION I 0 DISPLAYSTREAM) ,@É(É<@Ad—oë ¿Aœ@É(A<¿(31Q \DSPRIGHTMARGIN.DISPLAY 26Q FIXR) (45Q \DISPLAYDATA 40Q STREAM 10Q \DISPLAYDATA 3 STREAM) ( 22Q 35.27778) \DSPXPOSITION.HCPYMODE D1 (I 1 XPOSITION I 0 HARDCOPYSTREAM) ,@É(É@Ad—oë ¿Aœ@É(A¿(31Q \DSPXPOSITION.DISPLAY 26Q FIXR) (45Q \DISPLAYDATA 40Q STREAM 10Q \DISPLAYDATA 3 STREAM) ( 22Q 35.27778) \DSPYPOSITION.HCPYMODE D1 (P 1 \INTERRUPTABLE P 0 DD I 1 YPOSITION I 0 HARDCOPYSTREAM) )@É(HÉA²Ad3ž¿HAH ¿ ¿(45Q \ILLEGAL.ARG 40Q \INVALIDATEDISPLAYCACHE) (3 STREAM) () \MOVETO.HCPYMODE D1 (I 2 Y I 1 X I 0 STREAM) @A @B (11Q \DSPYPOSITION.HCPYMODE 4 \DSPXPOSITION.HCPYMODE) NIL () \FONTCREATE.HCPYMODE.PRESS D1 (P 4 HFONT P 0 DFONT I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 5 \DEFAULTCHARSET) ‡@ABCg 1@ABCg º`J ni ¹dI(¿HÉ(UàÐÉµUH »LgLgKÉgKÈ gKÈgKÈ KÈØh L(77Q \CREATECHARSET 47Q \ALLOCBLOCK 40Q NCREATE2 30Q FONTCREATE 12Q FONTCREATE) (165Q CHARSETINFO 157Q CHARSETINFO 153Q HEIGHT 146Q CHARSETINFO 142Q DESCENT 135Q CHARSETINFO 131Q ASCENT 124Q CHARSETINFO 120Q WIDTHS 115Q FONTDESCRIPTOR 107Q PRESSDISPLAY 104Q FONTDESCRIPTOR 34Q FONTDESCRIPTORTYPE# 24Q PRESS 6 DISPLAY) () \CREATECHARSET.HCPYMODE.PRESS D1 (P 4 CSHINFO P 3 CSDINFO P 2 HFONT P 0 DFONT I 6 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) n@ABCg @ABCg HÉ(EàÐÉµEH JÉ(EàÐÉµEJ `L YKÉIKÉIKÉI(106Q NCREATE2 74Q \CREATECHARSET 52Q \CREATECHARSET 30Q FONTCREATE 12Q FONTCREATE) (146Q CHARSETINFO 142Q CHARSETINFO 132Q CHARSETINFO 126Q CHARSETINFO 116Q CHARSETINFO 112Q CHARSETINFO 102Q CHARSETINFOTYPE# 24Q PRESS 6 DISPLAY) () \FONTCREATE.HCPYMODE.INTERPRESS D1 (P 4 HFONT P 0 DFONT I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 5 \DEFAULTCHARSET) ‡@ABCg 1@ABCg º`J ni ¹dI(¿HÉ(UàÐÉµUH »LgLgKÉgKÈ gKÈgKÈ KÈØh L(77Q \CREATECHARSET 47Q \ALLOCBLOCK 40Q NCREATE2 30Q FONTCREATE 12Q FONTCREATE) (165Q CHARSETINFO 157Q CHARSETINFO 153Q HEIGHT 146Q CHARSETINFO 142Q DESCENT 135Q CHARSETINFO 131Q ASCENT 124Q CHARSETINFO 120Q WIDTHS 115Q FONTDESCRIPTOR 107Q INTERPRESSDISPLAY 104Q FONTDESCRIPTOR 34Q FONTDESCRIPTORTYPE# 24Q INTERPRESS 6 DISPLAY) () \CREATECHARSET.HCPYMODE.INTERPRESS D1 (P 4 CSHINFO P 3 CSDINFO P 2 HFONT P 0 DFONT I 6 FONTDESC I 5 CHARSET I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY) n@ABCg @ABCg HÉ(EàÐÉµEH JÉ(EàÐÉµEJ `L YKÉIKÉIKÉI(106Q NCREATE2 74Q \CREATECHARSET 52Q \CREATECHARSET 30Q FONTCREATE 12Q FONTCREATE) (146Q CHARSETINFO 142Q CHARSETINFO 132Q CHARSETINFO 126Q CHARSETINFO 116Q CHARSETINFO 112Q CHARSETINFO 102Q CHARSETINFOTYPE# 24Q INTERPRESS 6 DISPLAY) () \STRINGWIDTH.HCPYMODE D1 (P 0 WIDTHSBASE I 2 RDTBL I 1 STR I 0 STREAM) A@É(É0XBHÈ lØl#Û(20Q \STRINGWIDTH.GENERIC) NIL () \HCPYMODEBLTCHAR D1 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 10Q \SOFTCURSORP F 11Q \SOFTCURSORUPP F 12Q \CURSORDESTINATION F 13Q \SCREENBITMAPS) ó@lÿåqBdÉ>@ãð¦@ã ¿BÉ•@A BÉoë ¼BÉBÉHÐÈØ]BÉ<ñžLBÉñ˜l A ¿°¾BM¿LBÉØ\BÉ0HÐÈØZBÈ#Yñ‘IºLBÈ"Yñ‘L€I»JKñ´|BÉ*YÈ jð³nh^_¿W²#W´ hA Wð_²`È¾`jÍ¿¿A`ðhA W”A ¿IKÍ¿IJKÙÍ¿IBÉHÐÈKØLÙÍ¿Ijv¿O™¿`NÍih(346Q \SOFTCURSORUPCURRENT 300Q \TOTOPWDS 270Q DSPDESTINATION 254Q \SOFTCURSORDOWN 225Q DSPDESTINATION 107Q \DSPPRINTCR/LF 51Q FIXR 35Q \SLOWHCPYMODEBLTCHAR 23Q \CHANGECHARSET.HCPYMODE) (352Q \EM.DISPINTERRUPT 261Q \TOPWDS 245Q \EM.DISPINTERRUPT 237Q \EM.DISPINTERRUPT 175Q PILOTBBT) ( 45Q 35.27778) \HCPYMODEDISPLAYINITA0019 D1 NIL oNIL NIL ( 3 35.27778) \HCPYMODEDISPLAYINITA0021 D1 (I 0 STREAM) @ @ (7 CLEARW 3 PAGEFULLFN) NIL () \HCPYMODEDISPLAYINITA0041 D1 NIL oNIL NIL ( 3 35.27778) \HCPYMODEDISPLAYINITA0043 D1 (I 0 STREAM) @ @ (7 CLEARW 3 PAGEFULLFN) NIL () \HCPYMODEDISPLAYINIT D1 NIL 4`` do¿dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg ¿dg2¿dg4¿dg,¿dg"¿dg¿`` do¿dg¿dg¿dg ¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg¿dg ¿dg2¿dg4¿dg,¿dg"¿dg¿(241Q NCREATE2 10Q NCREATE2) (461Q \HCPYMODEDISPLAYIMAGEOPS.INTERPRESS 453Q \HCPYMODEDISPLAYINITA0043 444Q \HCPYMODEDISPLAYINITA0041 435Q INTERPRESSDISPLAY 426Q \CHARWIDTH.HCPYMODE 417Q \STRINGWIDTH.HCPYMODE 410Q \MOVETO.HCPYMODE 401Q \DSPYPOSITION.HCPYMODE 372Q \DSPXPOSITION.HCPYMODE 363Q \BITBLT.HCPYMODE 354Q \BLTSHADE.HCPYMODE 345Q \FILLCIRCLE.HCPYMODE 336Q \DRAWELLIPSE.HCPYMODE 327Q \DRAWCIRCLE.HCPYMODE 320Q \DRAWCURVE.HCPYMODE 311Q \DRAWLINE.HCPYMODE 302Q \DSPLINEFEED.HCPYMODE 273Q \DSPLEFTMARGIN.HCPYMODE 264Q \DSPRIGHTMARGIN.HCPYMODE 255Q \DSPFONT.HCPYMODE 236Q \DISPLAYIMAGEOPS 233Q IMAGEOPSTYPE# 230Q \HCPYMODEDISPLAYIMAGEOPS.PRESS 222Q \HCPYMODEDISPLAYINITA0021 213Q \HCPYMODEDISPLAYINITA0019 204Q PRESSDISPLAY 175Q \CHARWIDTH.HCPYMODE 166Q \STRINGWIDTH.HCPYMODE 157Q \MOVETO.HCPYMODE 150Q \DSPYPOSITION.HCPYMODE 141Q \DSPXPOSITION.HCPYMODE 132Q \BITBLT.HCPYMODE 123Q \BLTSHADE.HCPYMODE 114Q \FILLCIRCLE.HCPYMODE 105Q \DRAWELLIPSE.HCPYMODE 76Q \DRAWCIRCLE.HCPYMODE 67Q \DRAWCURVE.HCPYMODE 60Q \DRAWLINE.HCPYMODE 51Q \DSPLINEFEED.HCPYMODE 42Q \DSPLEFTMARGIN.HCPYMODE 33Q \DSPRIGHTMARGIN.HCPYMODE 24Q \DSPFONT.HCPYMODE 5 \DISPLAYIMAGEOPS 2 IMAGEOPSTYPE#) ( 246Q (HARDCOPY DISPLAY) 15Q (HARDCOPY DISPLAY)) \HCPYMODEDSPPRINTCHAR D1 (P 6 TABWIDTH P 5 SPACEWIDTH P 4 CC P 0 DD I 1 CHARCODE I 0 STREAM F 7 \PRIMTERMSA) ”@É(1`”@ ¿Alÿñ²WÉ€šAWÉ€µjƒWAÂlådlð²J¿A@@ÈLlñžl#@H¿Llå¼k€jl Lñžl^@H¿Ll@ä¼k€jL@H¿kØØÔÍhdlð¢±½¿Adl ð«dl ð¦dl ðž¿A@ @jÍjlð²l$@H@@ÈkÔYÍIAdlð²¿gð—o @ l ð²Cl @ Mààà^dHÉHÉÙN Ù^H HÉñ–l @ ¿@@ÈNMÛÔÍhA@H@@ÈkÔZÍJdjð²C¿Adl ð’±ÿMdl ð’±ÿEdl ð’±ÿ;djðœ¿lA@ @ j@H@@ÈkÔ[ÍKlð³ž(621Q SHOULDNT 570Q \HCPYMODEBLTCHAR 561Q DSPBACKUP 555Q CHARWIDTH 462Q \HCPYMODEBLTCHAR 431Q \DSPPRINTCR/LF 416Q \DISPLAYSTREAMINCRXPOSITION 410Q IMOD 361Q CHARWIDTH 345Q FLASHWINDOW 342Q WFROMDS 335Q PLAYTUNE 321Q MACHINETYPE 265Q \HCPYMODEBLTCHAR 240Q \DSPPRINTCR/LF 170Q \HCPYMODEBLTCHAR 151Q \HCPYMODEBLTCHAR 124Q \HCPYMODEBLTCHAR 20Q \CARET.DOWN) (600Q STREAM 574Q STREAM 472Q STREAM 466Q STREAM 442Q STREAM 436Q STREAM 376Q \DISPLAYDATA 324Q DANDELION 275Q STREAM 271Q STREAM 244Q STREAM 106Q STREAM 102Q STREAM 45Q CHARTABLE 34Q CHARTABLE 13Q \CARET.UP 3 STREAM) ( 332Q ((1560Q . 4704Q))) \SLOWHCPYMODEBLTCHAR D1 (P 20Q CSINFO P 17Q HEIGHTMOVED P 16Q YPOS P 15Q SOFTCURSORUP P 14Q DISPINTERRUPT P 13Q SOURCEBIT P 12Q WIDTH P 11Q DESTBIT P 10Q PILOTBBT P 7 RIGHT P 6 LEFT P 5 NEWX P 4 CURX P 2 ROTATION P 1 DD P 0 CHAR8CODE I 1 DISPLAYSTREAM I 0 CHARCODE F 21Q \SOFTCURSORP F 22Q \SOFTCURSORUPP F 23Q \CURSORDESTINATION F 24Q \SCREENBITMAPS) ü@lÿåAÉ("IÉÈZdjð¢±?IÉqLIÉHÐÈØ]IÉñ²l A ¿IÉ\IÉHÐÈØ½IM¿LIÉØ¼IÈ"dLñ¡¿L¾IÈ#MIÉØ»dKñ‘¿K_¿IÉ*_¿ONñ¢±ÖOÈ jð’±ÌN_¿ONÙ_¿IÉHÐÈNØLÙ_¿IÉÈdkð³?dlð²¿Oàà_¿Oàà_¿Oàà_°"lð²Oààà_¿Oààà_¿Oààà_‚¿ W"²%W$´ hA W&ð_²`È_¿`jÍ¿¿A`ðhA W(”A ¿OOÍ¿OOÍ¿OOÍ¿Ojv¿O›¿`OÍ¿±©0IÉ_¿IÉHÐÈ_¿IÉÉ(@ãàÐÉµ @ãIÉ _ ¿JdlZð²7¿AOOØ ¿O ÉjIÉHÐÈAIÉO È ÙkØOO È O ÈØO °Anð²4AOOÙ ¿O ÉjIÉHÐÈAIÉO ÈÙAÉO È O ÈØO †o h(770Q ERROR 760Q BKBITBLT 710Q \DSPYPOSITION.DISPLAY 667Q BKBITBLT 616Q \DSPYPOSITION.DISPLAY 572Q \CREATECHARSET 504Q \SOFTCURSORUPCURRENT 443Q \TOTOPWDS 433Q DSPDESTINATION 417Q \SOFTCURSORDOWN 366Q DSPDESTINATION 345Q SHOULDNT 62Q \DSPPRINTCR/LF) (510Q \EM.DISPINTERRUPT 424Q \TOPWDS 410Q \EM.DISPINTERRUPT 400Q \EM.DISPINTERRUPT 140Q \DISPLAYDATA 112Q \DISPLAYDATA) ( 765Q "Not implemented to rotate by other than 0, 90 or 270") \SFFixY.HCPYMODE D1 (P 5 BM P 4 CHARTOP P 3 TOP P 2 Y P 1 FONT P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) È@É*@É@É @ÉØƒ JIÉ g'Ø\@É]ÉMÈMÈ@È%dLñ‘¿Ldjñ¡¿j[ÙÚÐ¾HNÒÍ¿HNÓÍ¿AÉ]ÉMÈ@LKÙdjñ¡¿jdnÿÿñ“¿nÿÿ_B¿OÚÐ_¿HOÒÍ¿HOÓÍ¿HKJ@IÉ g'_Í@¿OÙ@È$_¿dOñ¢¿OÙdjñ¡¿jÍ h(13Q \MICASTOPTS) (244Q DESCENT 237Q FONTDESCRIPTOR 221Q PILOTBBT 207Q PILOTBBT 125Q PILOTBBT 114Q PILOTBBT 62Q BITMAP 51Q BITMAP 37Q ASCENT 32Q FONTDESCRIPTOR 17Q \DISPLAYDATA) () (PRETTYCOMPRINT HARDCOPYCOMS) (RPAQQ HARDCOPYCOMS ((COMS (* exported functionality) (FNS HARDCOPY.SOMEHOW HARDCOPYIMAGEW HARDCOPYIMAGEW.TOFILE HARDCOPYIMAGEW.TOPRINTER HARDCOPYREGION.TOFILE HARDCOPYREGION.TOPRINTER \STRINGWIDTH.HCPYDISPLAYAUX COPY.WINDOW.TO.BITMAP) (* user interface jazz) (INITVARS ( ChangeDefaultPrinter)) (FNS MakeMenuOfPrinters MakeMenuOfImageTypes GetNewPrinterFromUser PopUpWindowAndGetAtom NewPrinter GetPrinterName GetImageFile FetchDefaultPrinter) (* filename diddlers ) (FNS ExtensionForPrintFileType PRINTFILETYPE.FROM.EXTENSION)) (COMS (* Interface for PRINTERS and IMAGEFILES) (FNS DEFAULTPRINTER CAN.PRINT.DIRECTLY CONVERT.FILE.TO.TYPE.FOR.PRINTER EMPRESS HARDCOPYW LISTFILES1 PRINTER.BITMAPFILE PRINTER.BITMAPSCALE PRINTER.SCRATCH.FILE PRINTERPROP PRINTERSTATUS PRINTERTYPE PRINTFILEPROP PRINTFILETYPE SEND.FILE.TO.PRINTER) (FNS PRINTERDEVICE) (DECLARE: DONTEVAL@LOAD DOCOPY (P (PRINTERDEVICE (QUOTE LPT)))) (P (* for backward compatibility) (MOVD? (QUOTE NILL) (QUOTE PRINTERMODE))) (INITVARS (DEFAULTPRINTINGHOST) (DEFAULTPRINTERTYPE (QUOTE PRESS)) ( EMPRESS.SCRATCH) (EMPRESS#SIDES T)) (GLOBALVARS DEFAULTPRINTINGHOST DEFAULTPRINTERTYPE EMPRESS#SIDES PRINTERTYPES PRINTFILETYPES)) (COMS (* Converting text files to imagestreams) (INITVARS ( TEXTDEFAULTTABS (LIST 20320)) (TEXTDEFAULTPAGEREGION (CREATEREGION 2794 1905 18415 24765))) (* TEXTDEFAULTTABS Hack, mica equivalent of 8 inches) (GLOBALVARS TEXTDEFAULTTABS TEXTDEFAULTPAGEREGION) (FNS TEXTTOIMAGEFILE COPY.TEXT.TO.IMAGE)) (COMS (FNS \BLTSHADE.GENERICPRINTER) (* hack for printers that can't really BLTSHADE)) (COMS (* stuff to support hardcopy streams on the display.) (FNS MAKEHARDCOPYSTREAM UNMAKEHARDCOPYSTREAM HARDCOPYSTREAMTYPE \CHARWIDTH.HDCPYDISPLAY \DSPFONT.HDCPYDISPLAY \DSPRIGHTMARGIN.HDCPYDISPLAY \DSPXPOSITION.HDCPYDISPLAY \DSPYPOSITION.HDCPYDISPLAY \STRINGWIDTH.HDCPYDISPLAY \HDCPYBLTCHAR \HDCPYDISPLAY.FIX.XPOS \HDCPYDISPLAY.FIX.YPOS \HDCPYDISPLAYINIT \HDCPYDSPPRINTCHAR \SLOWHDCPYBLTCHAR \CHANGECHARSET.HDCPYDISPLAY) (DECLARE: DONTCOPY DOEVAL@COMPILE (EXPORT (CONSTANTS (MICASPERPT ( FQUOTIENT 2540 72)) (IHALFMICASPERPT 17) (IMICASPERPT 35)))) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( \HDCPYDISPLAYINIT)))) (COMS (* Stuff to support MICA-unit hardcopy streams on the display) (FNS MAKEHARDCOPYMODESTREAM UNMAKEHARDCOPYMODESTREAM \BLTSHADE.HCPYMODE \BITBLT.HCPYMODE \BRUSHCONVERT.HCPYMODE \CHANGECHARSET.HCPYMODE \DASHINGCONVERT.HCPYMODE \CHARWIDTH.HCPYMODE \DRAWLINE.HCPYMODE \DRAWCURVE.HCPYMODE \DRAWCIRCLE.HCPYMODE \DRAWELLIPSE.HCPYMODE \DSPFONT.HCPYMODE \DSPLEFTMARGIN.HCPYMODE \DSPLINEFEED.HCPYMODE \DSPRIGHTMARGIN.HCPYMODE \DSPXPOSITION.HCPYMODE \DSPYPOSITION.HCPYMODE \MOVETO.HCPYMODE \FONTCREATE.HCPYMODE.PRESS \CREATECHARSET.HCPYMODE.PRESS \FONTCREATE.HCPYMODE.INTERPRESS \CREATECHARSET.HCPYMODE.INTERPRESS \STRINGWIDTH.HCPYMODE \HCPYMODEBLTCHAR \HCPYMODEDISPLAYINIT \HCPYMODEDSPPRINTCHAR \SLOWHCPYMODEBLTCHAR \SFFixY.HCPYMODE) ( ADDVARS (IMAGESTREAMTYPES (PRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE.PRESS) (CREATECHARSET \CREATECHARSET.HCPYMODE.PRESS)) (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE.INTERPRESS) ( CREATECHARSET \CREATECHARSET.HCPYMODE.INTERPRESS)))) (DECLARE: DONTEVAL@LOAD DOCOPY (P ( \HCPYMODEDISPLAYINIT)))))) (RPAQ? ChangeDefaultPrinter) (PRINTERDEVICE (QUOTE LPT)) (MOVD? (QUOTE NILL) (QUOTE PRINTERMODE)) (RPAQ? DEFAULTPRINTINGHOST) (RPAQ? DEFAULTPRINTERTYPE (QUOTE PRESS)) (RPAQ? EMPRESS.SCRATCH) (RPAQ? EMPRESS#SIDES T) (RPAQ? TEXTDEFAULTTABS (LIST 20320)) (RPAQ? TEXTDEFAULTPAGEREGION (CREATEREGION 2794 1905 18415 24765)) (\HDCPYDISPLAYINIT) (ADDTOVAR IMAGESTREAMTYPES (PRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE.PRESS) (CREATECHARSET \CREATECHARSET.HCPYMODE.PRESS)) (INTERPRESSDISPLAY (FONTCREATE \FONTCREATE.HCPYMODE.INTERPRESS) ( CREATECHARSET \CREATECHARSET.HCPYMODE.INTERPRESS))) (\HCPYMODEDISPLAYINIT) (PUTPROPS HARDCOPY COPYRIGHT ("Xerox Corporation" 1984 1985 1986)) NIL