(FILECREATED "12-Mar-85 20:52:59" ("compiled on " {ERIS}SOURCES>HARDCOPY.;58) "12-Mar-85 08:12:45" recompiled changes: HARDCOPY.SOMEHOW HARDCOPYREGION.TOFILE HARDCOPYREGION.TOPRINTER MakeMenuOfPrinters CanonicalPrinterList NewPrinter NewDefaultPrinter GetPrinterName in "INTERLISP-D 12-Mar-85 ..." dated "12-Mar-85 08:24:13") (FILECREATED "12-Mar-85 20:50:49" {ERIS}SOURCES>HARDCOPY.;58 93275 changes to: (FNS GetPrinterName HARDCOPY.SOMEHOW HARDCOPYREGION.TOPRINTER HARDCOPYREGION.TOFILE NewDefaultPrinter MakeMenuOfPrinters CanonicalPrinterList NewPrinter) (VARS HARDCOPYCOMS) previous date: "12-Mar-85 14:30:16" {ERIS}SOURCES>HARDCOPY.;57) HARDCOPY.SOMEHOW D1 (P 1 IMAGESTR P 0 HARDCOPYFN I 2 TYPE I 1 FILE I 0 WINDOW) 2@g H@AhddB gAB @IlHI (57Q CLOSEF 41Q OPENIMAGESTREAM 30Q HARDCOPYW 14Q SPAWN.MOUSE 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 (27Q HARDCOPY.SOMEHOW 24Q PRINTERTYPE 20Q PACK* 2 GetPrinterName) (14Q {LPT}) () HARDCOPYREGION.TOFILE D1 (P 1 FILE&TYPE P 0 REGION) IHIhddI (32Q HARDCOPYW 16Q SPAWN.MOUSE 5 GetImageFile 2 GETREGION) NIL () HARDCOPYREGION.TOPRINTER D1 (P 1 PRINTERCHOICE P 0 REGION) $IHgI hddI (41Q HARDCOPYW 35Q PRINTERTYPE 26Q PACK* 16Q SPAWN.MOUSE 5 GetPrinterName 2 GETREGION) (22Q {LPT}) () MakeMenuOfPrinters D1 (P 3 PRINTER I 0 MENUTITLE) {@`d[i IHhZH&J`` ogghohh HdId@dg dgjdndhHdI (107Q \APPEND2 55Q CanonicalPrinterList 16Q L-CASE) (141Q DEFAULTMENUHELDFN 132Q CLRPROMPT 67Q OTHER 64Q QUOTE 52Q DEFAULTPRINTINGHOST 46Q MENUTYPE# 43Q DEFAULTPRINTINGHOST 5 DEFAULTPRINTINGHOST) ( 76Q "You will be prompted for a printer" 61Q "Other...") CanonicalPrinterList D1 (L (0 PRINTERS)) )@l@h0@ddIHhZH&JNIL NIL () MakeMenuOfImageTypes D1 (P 5 IMAGETYPENAME P 4 IMAGETYPE I 0 MENUTITLE) ``QH6IHdId@dg dgjdndhHdI gL :Ldg0]i Mddidd gMhhJ KhZYHXK&Z(134Q L-CASE 113Q ASSOC) (164Q QUOTE 123Q DISPLAY 106Q OPENSTREAM 51Q DEFAULTMENUHELDFN 42Q CLRPROMPT 6 IMAGESTREAMTYPES 2 MENUTYPE#) () GetNewPrinterFromUser D1 (I 0 PROMPTSTRING) @ (3 PopUpWindowAndGetAtom) NIL () PopUpWindowAndGetAtomA0001 D1 (NAME ERRORSET F 0 PROMPTW F 1 RESETVARSLST F 2 RESETY F 3 PROMPTSTRING F 4 CANDIDATE) "gPhP hQcSThP ci(34Q PACK* 31Q PROMPTFORWORD 12Q OPENW) (2 CLOSEW) () PopUpWindowAndGetAtom D1 (P 5 RESETZ P 4 RESETY P 3 LISPXHIST P 2 PROMPTW P 1 WIDTH P 0 FONT I 1 CANDIDATE I 0 PROMPTSTRING F 6 LISPXHIST F 7 RESETVARSLST) Z@H lAH l(``I H hdi V!Wog hg] ML(125Q ERROR! 120Q RESETRESTORE 106Q PopUpWindowAndGetAtomA0001 63Q CREATEW 55Q CREATEREGION 52Q HEIGHTIFWINDOW 41Q WIDTHIFWINDOW 20Q CHARWIDTH 12Q STRINGWIDTH 2 DEFAULTFONT) (114Q ERROR 103Q INTERNAL 45Q FONTDESCRIPTOR 35Q LASTMOUSEY 32Q LASTMOUSEX) ( 100Q (PopUpWindowAndGetAtomA0001)) NewPrinter D1 (P 0 PRINTERNAME I 0 PRINTER) @i H` `Hh h(30Q \APPEND2 16Q MEMBER 4 L-CASE) (33Q DEFAULTPRINTINGHOST 22Q DEFAULTPRINTINGHOST 13Q DEFAULTPRINTINGHOST) () NewDefaultPrinter D1 (P 0 PRINTERNAME I 0 NEWPRINTER) -@i H`Hd` oH ` h(50Q TERPRI 42Q PROMPTPRINT 26Q DREMOVE 4 L-CASE) (45Q PROMPTWINDOW 32Q DEFAULTPRINTINGHOST 23Q DEFAULTPRINTINGHOST 13Q DEFAULTPRINTINGHOST) ( 36Q "Default printer is now ") GetPrinterName D1 (P 2 DEFAULTPRINTER P 1 PRINTERCHOICE P 0 PRINTERMENU) o 1Z``>`dododkdg dgjdndhdK H Yddgo YIdJJ` I I I(203Q NewPrinter 176Q NewDefaultPrinter 171Q MENU 147Q GetNewPrinterFromUser 127Q MENU 14Q FetchDefaultPrinter 6 MakeMenuOfPrinters) (166Q ChangeDefaultPrinter 135Q OTHER 122Q ChangeDefaultPrinter 73Q DEFAULTMENUHELDFN 64Q CLRPROMPT 32Q MENUTYPE# 24Q MENUTYPE# 20Q ChangeDefaultPrinter) ( 144Q "Printer (CR to abort): " 50Q (("Yes" T "Yes, make this the new default printer") ("No" NIL "No, don't change it")) 40Q "Make this the new default?" 3 "Which printer?") GetImageFile D1 (P 4 EXTENSIONFORTYPE P 3 EXTENSIONSUPPLIED P 2 FILETYPEMENU P 1 PRINTFILETYPE P 0 FILE) )o AHo ZH YHIJ Yh(42Q MENU 30Q PRINTFILETYPE.FROM.EXTENSION 23Q MakeMenuOfImageTypes 6 PopUpWindowAndGetAtom) NIL ( 20Q "File type?" 3 "File name (CR to abort): ") FetchDefaultPrinter D1 NIL `dNIL (2 DEFAULTPRINTINGHOST) () ExtensionForPrintFileType D1 (I 0 TYPE) g@`  (15Q ASSOC 11Q ASSOC) (6 PRINTFILETYPES 2 EXTENSION) () PRINTFILETYPE.FROM.EXTENSION D1 (P 2 TYPE P 1 EXT I 0 FILE F 3 PRINTFILETYPES) /S@ g HhIgJ JHX(41Q ASSOC 15Q U-CASE 12Q FILENAMEFIELD 4 FULLNAME) (34Q EXTENSION 7 EXTENSION) () 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) yAgb@B Bg A -Bg !J;hoAoBo @ @HhClIgHhhhUc H[g A \JZ(157Q LISTGET 153Q PRINTFILEPROP 107Q ERROR 104Q FULLNAME 100Q CONCAT 43Q PRINTERPROP 32Q LISTGET 26Q PRINTERPROP 14Q PRINTER.SCRATCH.FILE) (150Q CONVERSION 125Q CONVERT.FILE.TO.TYPE.FOR.PRINTERA0002 40Q CANPRINT 23Q CONVERSION 5 TEXT) ( 74Q " printer" 67Q " for a " 62Q "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 6 X P 4 HOST P 2 REGION P 1 PRINTHOST P 0 BITMAP I 5 PRINTERTYPE I 4 ROTATION I 3 SCALEFACTOR I 2 HOST I 1 FILE I 0 WINDOW/BITMAP/REGION F 7 FULLFILE F 10Q DEFAULTPRINTINGHOST) `B@ @ @ @ >@ h4@d`dh&l @dddih@ZEPIEI IoE AsWKdYgoE KhKKEL LiIW A o i b $Ao MWdY b CJHHEI bjAEHCJDo cBAgEg gIdhgWhoAhggWhhhgg ADhbCbJ{ b \MhMMN b g +N:W(655Q PRINTERPROP 645Q PRINTERTYPE 617Q PRINTERTYPE 560Q ADD.PROCESS 465Q PRINTERPROP 441Q PRINTER.BITMAPFILE 424Q PRINTER.SCRATCH.FILE 411Q PRINTER.BITMAPSCALE 352Q PRINTERTYPE 324Q ERROR 310Q PRINTFILETYPE 302Q ERROR 244Q PRINTERTYPE 221Q ERROR 170Q ERROR 165Q CONCAT 147Q PRINTERTYPE 132Q GETREGION 73Q EQLENGTH 42Q \INSUREWINDOW 32Q \INSUREWINDOW 25Q TOTOPW 20Q OPENWP 12Q WINDOWP) (652Q BITMAPSCALE 555Q HARDCOPYW 552Q NAME 533Q QUOTE 530Q DELFILE 504Q QUOTE 470Q QUOTE 462Q SEND 456Q PROGN 402Q BITMAP 374Q BITMAP 56Q BITMAPTYPE# 2 ScreenBitMap) ( 515Q ((QUOTE (DOCUMENT.NAME "Window Image"))) 435Q "Window Image" 321Q "Can't tell what kind of print file to produce -- PRINTERTYPE, DEFAULTPRINTERTYPE, DEFAULTPRINTINGHOST all NIL" 277Q "Can't tell where to send window image -- HOST, DEFAULTPRINTINGHOST are NIL" 215Q "Can't find a printing host in DEFAULTPRINTINGHOST that is of type " 161Q "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 (I 0 FULLFILE F 0 EMPRESS.SCRATCH) &@ Pd@g jPPg(24Q GETFILEINFO) (43Q {CORE}EMPRESS.SCRATCH 21Q SIZE) () PRINTERPROP D1 (P 1 X I 1 PROP I 0 PRINTERTYPE F 4 PRINTERTYPES) *T1Hh@IZKKJKAI HX(40Q ASSOC) NIL () PRINTERSTATUS D1 (P 0 STATUSFN I 0 PRINTER) @ g H@kH(11Q PRINTERPROP 3 PRINTERTYPE) (6 STATUS) () PRINTERTYPE D1 (I 0 HOST F 0 DEFAULTPRINTINGHOST F 1 DEFAULTPRINTERTYPE) 0@@dgPdb@@Qgo@ g(50Q STRPOS) (55Q INTERPRESS 35Q PRINTERTYPE 6 LPT) ( 44Q ":") PRINTFILEPROP D1 (P 1 X I 1 PROP I 0 PRINTFILETYPE F 4 PRINTFILETYPES) *T1Hh@IZKKJKAI HX(40Q ASSOC) NIL () PRINTFILETYPEA0001 D1 (NAME ERRORSET L (0 NIL) F 1 TYPE F 2 FILE) gQ RkHh(7 ASSOC) (2 TEST) () PRINTFILETYPE D1 (P 2 TYPE P 0 TYPE I 1 DONTOPEN I 0 FILE) ]@ @ @g Hdg-"A@ @ `Ih@ ` Ho JIY(120Q PRINTFILETYPEA0001 103Q ASSOC 74Q PRINTFILETYPE.FROM.EXTENSION 51Q RANDACCESSP 44Q OPENP 20Q GETFILEINFO 10Q IMAGESTREAMTYPE 3 IMAGESTREAMP) (100Q PRINTFILETYPES 55Q PRINTFILETYPES 30Q TEXT 15Q TYPE) ( 115Q (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 DEFAULTPRINTINGHOST F 13Q FILE F 14Q RESETVARSLST F 15Q RESETY) *`Wg ggWggl YhhhWcW X\ ZW!WN_"hcW5oH [J t o OOIJKHJ7WoNd&AN_hN_NO [J OcIJWdc [Wg W Kg oK W WdLWogHh lM\Hi i hci(441Q LISPXTERPRI 434Q LISPXPRIN1 414Q \APPEND2 411Q \APPEND2 360Q ERROR 353Q CONCAT 341Q PRINTERPROP 331Q CONVERT.FILE.TO.TYPE.FOR.PRINTER 323Q LISTGET 312Q PRINTERTYPE 265Q CAN.PRINT.DIRECTLY 260Q PRINTERTYPE 163Q MEMB 154Q U-CASE 144Q CAN.PRINT.DIRECTLY 137Q PRINTERTYPE 132Q ERROR 67Q PRINTFILETYPE 62Q FULLNAME 37Q OPENSTREAM 12Q LISTGET) (402Q DOCUMENT.NAME 336Q SEND 320Q HEADING 32Q OLD 27Q INPUT 22Q CLOSEF? 16Q SEND.FILE.TO.PRINTERA0001A0002 7 DELETE) ( 377Q (#COPIES 1) 347Q "Don't know how to send to a " 220Q (NIL) 160Q (HOST SERVER) 126Q "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 hgZ JI(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 Vr@g i@ ja@ @ @HgH2@@!oK \oKLk ] KLkMk 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 INFILE P 2 OUTCHARFN P 1 INSTRM P 0 IMAGESTREAM F 7 RESETVARSLST F 10Q HEADING F 11Q FILE F 12Q RESETY F 13Q IMAGEFILE F 14Q IMAGETYPE F 15Q TABS F 16Q FONTS) poWgglo [hWcoWghghgK WWihgWKoKg hgKgWh XhWcKHW K H hci(213Q CLOSEF 207Q CLOSEF 202Q COPY.TEXT.TO.IMAGE 161Q OPENIMAGESTREAM 156Q \APPEND2 132Q CONCAT 127Q GETFILEINFO 72Q PACKFILENAME 30Q OPENFILE) (144Q TABS 140Q DOCUMENT.NAME 124Q CREATIONDATE 107Q HEADING 65Q BODY 61Q VERSION 55Q EXTENSION 16Q OLD 13Q INPUT) ( 120Q " " 46Q (AND RESETSTATE (DELFILE (CLOSEF? OLDVALUE))) 24Q ((SEQUENTIAL T)) 6 (PROGN (CLOSEF? OLDVALUE))) TEXTTOIMAGEFILE D1 (P 2 RESETZ P 1 RESETY P 0 LISPXHIST 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 hgZ JI(35Q ERROR! 30Q RESETRESTORE 16Q TEXTTOIMAGEFILEA0001) (24Q ERROR 13Q INTERNAL) ( 10Q (TEXTTOIMAGEFILEA0001)) COPY.TEXT.TO.IMAGEA0011 D1 (NAME ERRORSET F 0 IMAGESTREAM) l P ljP i(15Q RELMOVETO 5 CHARWIDTH) NIL () COPY.TEXT.TO.IMAGE D1 (P 23Q INEOLC P 22Q INSTRM P 21Q MAXFONT P 20Q FONTARRAY P 2 FC P 1 C P 0 IMAGESTREAM I 2 FONTS I 1 IMAGESTREAM I 0 INFILE F 24Q TABS F 25Q TEXTDEFAULTTABS) !Ag B O @g O$g O$g"O$ Yhl H HIlKIdlO$ ZdlnO$ ZjGH HllLH HllMO$4O$kNH _HJlOW(W*J  oJ ZH gjAH _HllOO$4_O$kO>H _HJlO$JO"JjO J(H H _HllOH _HIlOl HO&dgH g%O$i l O$ H H H H H Idl "o H _HIlOwl #O&g H bH H H QIjO$ IH _HIlO/H _HIlO(763Q EOFP 745Q DSPXPOSITION 740Q TERPRI 734Q DSPXPOSITION 724Q TERPRI 653Q COPY.TEXT.TO.IMAGEA0011 630Q DSPXPOSITION 624Q DSPLEFTMARGIN 614Q DSPXPOSITION 610Q DSPLEFTMARGIN 600Q TERPRI 563Q \PEEKBIN 543Q TERPRI 447Q DSPFONT 317Q DSPXPOSITION 312Q ERROR 277Q NTH 52Q GETFILEINFO 37Q GETSTREAM 25Q ARRAYSIZE 15Q FONTMAPARRAY 6 GETSTREAM) (1017Q STREAM 773Q STREAM 715Q LF 663Q STREAM 552Q CRLF 534Q CR 501Q STREAM 457Q STREAM 406Q STREAM 363Q FDEV 356Q STREAM 333Q STREAM 246Q STREAM 230Q FDEV 223Q STREAM 203Q STREAM 164Q STREAM 107Q STREAM 65Q ZERO 62Q STREAM 47Q EOL 34Q INPUT 3 OUTPUT) ( 650Q (COPY.TEXT.TO.IMAGEA0011) 306Q "Undefined absolute tab number") \BLTSHADE.GENERICPRINTER D1 (P 1 SCRATCHBM P 0 SCALE 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) D hA HGDHjHGEHj @Ijdhdg IjdABCDEgFhG (101Q BKBITBLT 56Q \BLTSHADE.BITMAP 36Q BITMAPCREATE 4 DSPSCALE) (71Q INPUT 52Q REPLACE) () MAKEHARDCOPYSTREAM D1 (P 0 DS I 1 IMAGETYPE I 0 DISPLAYSTREAM) f@ @ @ @ H`&HgA Hg.Hg hH H jH jH hH H H(142Q DSPRIGHTMARGIN 136Q DSPRIGHTMARGIN 131Q DSPYPOSITION 124Q DSPXPOSITION 117Q DSPFONT 113Q DSPFONT 64Q STREAMPROP 61Q PRINTERTYPE 33Q \ILLEGAL.ARG 27Q DSPCREATE 16Q \INSUREWINDOW 11Q WINDOWP 3 DISPLAYSTREAMP) (104Q \HDCPYDSPPRINTCHAR 101Q STREAM 73Q \HDCPYDSPPRINTCHAR 70Q STREAM 53Q HARDCOPYIMAGETYPE 45Q \HDCPYDISPLAYIMAGEOPS 42Q STREAM) () UNMAKEHARDCOPYSTREAM D1 (P 0 DS I 0 DISPLAYSTREAM) J@ @ @ @ gH HH`&Hgh Hg.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) @gi Xdg (23Q STREAMPROP 12Q \GETSTREAM) (20Q HARDCOPYIMAGETYPE 6 OUTPUT) () \CHARWIDTH.HDCPYDISPLAY D1 (L (1 CHARCODE 0 STREAM)) @(0All#NIL (3 STREAM) () \DSPFONT.HDCPYDISPLAY D1 (P 5 I P 3 W P 2 SCALE P 1 FD P 0 DD I 1 FONT I 0 HDCPYDSTREAM) @A A@(Ahdd@g HIg Jo I ?I oJK K mK MLKMKM(J *Mk]K0(163Q FIXR 141Q ARRAYORIG 131Q ARRAYORIG 125Q ARRAYSIZE 111Q COPYARRAY 67Q EQP 54Q FONTPROP 36Q FONTCREATE 32Q STREAMPROP 4 \DSPFONT.DISPLAY) (201Q ARRAYP 104Q FONTDESCRIPTOR 74Q FONTDESCRIPTOR 51Q SCALE 45Q \DISPLAYDATA 27Q HARDCOPYIMAGETYPE 15Q STREAM) ( 116Q 35.27778 64Q 35.27778) \DSPRIGHTMARGIN.HDCPYDISPLAY D1 (I 1 XPOSITION I 0 DISPLAYSTREAM) @A A@(Aoj<(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 WIDTHSBASE I 2 RDTBL I 1 STR I 0 STREAM) A@(0XBH ll#(20Q \STRINGWIDTH.GENERIC) NIL () \HDCPYBLTCHAR D1 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) P 6 \INTERRUPTABLE) `Bd@A BB8B0@\B