(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "24-Sep-2023 16:20:16" ("compiled on " {WMEDLEY}HARDCOPY.;13) "24-Sep-2023 15:27:49" tcompl'd in "FULL 24-Sep-2023 ..." dated "24-Sep-2023 15:27:56") (FILECREATED "24-Sep-2023 15:25:20" {WMEDLEY}HARDCOPY.;13 105614 :EDIT-BY rmk :CHANGES-TO ( FNS CONVERT.FILE.TO.TYPE.FOR.PRINTER) :PREVIOUS-DATE "14-Sep-2023 22:58:42" {WMEDLEY}HARDCOPY.;12) HARDCOPY.SOMEHOWA0001 :D8 (NAME SI::*UNWIND-PROTECT* I 0 SI::*CLEANUP-FORMS* F 0 WINDOW F 1 IMAGESTREAM F 2 HARDCOPYFN F 3 A0782) PQlR hc$(11 \MVLIST) NIL () HARDCOPY.SOMEHOWA0002 :D8 (F 0 IMAGESTREAM F 1 A0782) PgQ (11 CL:CLOSE) (5 :ABORT) () HARDCOPY.SOMEHOW :D8 (P 3 A0782 P 2 IMAGESTREAM P 1 HEADING P 0 HARDCOPYFN I 3 IMAGETYPE I 2 PRINTERTYPE I 1 FILE I 0 WINDOW) @g H@AhddB L ]j3M'LLddi3 gLhhJKhZ: oK&&(219 \FZEROP 167 NCHARS 153 CONCAT 52 \APPEND2) (195 QUOTE 91 DEFAULTMENUHELDFN 82 CLRPROMPT 73 PRINTERS.WHENSELECTEDFN 33 OTHER 28 QUOTE 10 DEFAULTPRINTINGHOST 4 |MENUTYPE#|) ( 226 "(Default printer)" 144 " " 41 "You will be prompted for a printer" 23 "Other...") PRINTERS.WHENSELECTEDFN :D8 (P 1 DEFAULTPRINTER P 0 PRINTERCHOICE I 2 BUTTON I 1 MENU I 0 ITEM) @!HdgXtHYjHIaBgX`L`dododkdi dg dgjdndhdJ  H(139 NewPrinter 134 MENU 31 FetchDefaultPrinter 22 GetNewPrinterFromUser) (129 ChangeDefaultPrinter 104 DEFAULTMENUHELDFN 95 CLRPROMPT 60 |MENUTYPE#| 53 ChangeDefaultPrinter 45 MIDDLE 14 OTHER) ( 76 (("Yes" T "Yes, make this the new default printer") ("No" NIL "No, don't change it")) 67 "Make this the new default?") MakeMenuOfImageTypes :D8 (P 5 IMAGETYPENAME P 4 IMAGETYPE I 0 MENUTITLE F 6 \DISPLAYSTREAMTYPES) ``QH:IHdId@dg dgjdndhHdI gL3LdV+]i Mddi3 gMhhJ KhZYHXK&Z(100 L-CASE) (117 QUOTE 80 OPENSTREAM 49 DEFAULTMENUHELDFN 40 CLRPROMPT 10 IMAGESTREAMTYPES 4 |MENUTYPE#|) () GetNewPrinterFromUser :D8 (I 0 PROMPTSTRING) @o (12 PopUpWindowAndGetList) NIL ( 7 "Printer (CR to abort): ") PopUpWindowAndGetAtomA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 RESPONSE P 3 PROMPTW P 2 WIDTH P 0 FONT I 0 SI::*CLEANUP-FORMS* F 5 SI::*RESETFORMS* F 6 PROMPTSTRING F 7 CANDIDATE) g` hhUc VH Wl(lAH ``JٹdII`JH hdi gKhK hUc VWhKhdo Ld H l lAH ر{(188 CHARWIDTH 178 STRINGWIDTH 171 PACK* 160 PROMPTFORWORD 135 OPENW 117 CREATEW 109 CREATEREGION 104 HEIGHTIFWINDOW 63 WIDTHIFWINDOW 56 CHARWIDTH 38 STRINGWIDTH 28 DEFAULTFONT 14 TTY.PROCESS) (125 CLOSEW 97 FONTDESCRIPTOR 90 LASTMOUSEY 76 SCREENWIDTH 71 LASTMOUSEX 9 \RUNNING.PROCESS 4 TTY.PROCESS) ( 154 (13)) PopUpWindowAndGetAtom :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 CANDIDATE I 0 PROMPTSTRING F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 PopUpWindowAndGetAtomA0001) (8 SI::RESETUNWIND) () PopUpWindowAndGetListA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 3 PROMPTW P 2 WIDTH P 0 FONT I 0 SI::*CLEANUP-FORMS* F 4 SI::*RESETFORMS* F 5 PROMPTSTRING F 6 CANDIDATE F 7 TTYINWORDRDTBL) g` hhTcUH l(lAH ``JٹdII`JlH hdi gK hhTcgKhhdTcUVhohddW d(171 TTYIN 126 TTYDISPLAYSTREAM 112 CREATEW 104 CREATEREGION 99 HEIGHTIFWINDOW 55 WIDTHIFWINDOW 48 CHARWIDTH 38 STRINGWIDTH 28 DEFAULTFONT 14 TTY.PROCESS) (140 CLOSEW 120 TTYDISPLAYSTREAM 91 FONTDESCRIPTOR 82 LASTMOUSEY 68 SCREENWIDTH 63 LASTMOUSEX 9 \RUNNING.PROCESS 4 TTY.PROCESS) ( 160 (NORAISE READ)) PopUpWindowAndGetList :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 1 CANDIDATE I 0 PROMPTSTRING F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 PopUpWindowAndGetListA0001) (8 SI::RESETUNWIND) () NewPrinter :D8 (P 2 ENTRY P 1 MEMBER? P 0 PRINTER-NAME I 1 NEW-DEFAULT? I 0 PRINTER) h``h@dH`go I@AJd` I` J&`(94 LAST 72 REMOVE 49 CL:MEMBER) (101 DEFAULTPRINTINGHOST 89 DEFAULTPRINTINGHOST 78 DEFAULTPRINTINGHOST 67 DEFAULTPRINTINGHOST 39 :TEST 34 DEFAULTPRINTINGHOST 18 DEFAULTPRINTINGHOST 11 DEFAULTPRINTINGHOST 4 DEFAULTPRINTINGHOST) ( 44 (LAMBDA (PRINTER ENTRY) (STRING-EQUAL PRINTER (CL:IF (LISTP ENTRY) (CADR ENTRY) ENTRY)))) GetPrinterName :D8 NIL o (14 MENU 9 MakeMenuOfPrinters) NIL ( 4 "Which printer?") GetImageFile :D8 (P 2 FILETYPEMENU P 1 PRINTFILETYPE P 0 FILE I 0 W) @o@g ghg@g H@g ;@g @g`ddhlK Xd8d X/@gH o ZH YHIJ Yh(178 MENU 166 PRINTFILETYPE.FROM.EXTENSION 159 MakeMenuOfImageTypes 149 PUTWINDOWPROP 134 OUTFILEP 124 PopUpWindowAndGetAtom 96 PRINTERTYPE 85 DEFAULTPRINTER 73 GETWINDOWUSERPROP 60 GETWINDOWUSERPROP 47 PACKFILENAME 42 GETWINDOWUSERPROP 18 GETWINDOWUSERPROP) (143 HARDCOPYFILE 101 PRINTFILETYPES 80 EXTENSION 68 HARDCOPYFILEFN 55 HARDCOPYFILEFN 37 HARDCOPYFILE 31 BODY 25 VERSION 13 HARDCOPYFILE) ( 154 "File type?" 7 "File name (Clear to abort): ") FetchDefaultPrinter :D8 NIL d(4 DEFAULTPRINTER) NIL () ExtensionForPrintFileType :D8 (I 0 TYPE) g@`NIL (10 PRINTFILETYPES 4 EXTENSION) () PRINTFILETYPE.FROM.EXTENSION :D8 (P 2 TYPE P 1 EXT I 0 FILE) 6`@g HhIgJJHX(20 U-CASE 15 FILENAMEFIELD) (37 EXTENSION 10 EXTENSION 4 PRINTFILETYPES) () DEFAULTPRINTER :D8 NIL `dNIL (4 DEFAULTPRINTINGHOST) () CAN.PRINT.DIRECTLY :D8 (I 1 FILETYPE I 0 PRINTERTYPE) A@g (11 PRINTERPROP) (6 CANPRINT) () CONVERT.FILE.TO.TYPE.FOR.PRINTERA0002 :D8 (I 0 SCRATCH) @ @ (11 DELFILE 5 CLOSEF?) NIL () CONVERT.FILE.TO.TYPE.FOR.PRINTER :D8 (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 SI::*RESETFORMS*) Agb@B gg Bg A':Bg !JNh$oAoBo @ @HDg'ChDlIgHhhdUc H[g A'\JZ(160 PRINTFILEPROP 110 ERROR 105 FULLNAME 99 CONCAT 65 PRINTERPROP 50 PRINTERPROP 36 CLOSEF 31 OPENSTREAM 16 PRINTER.SCRATCH.FILE) (155 CONVERSION 134 CONVERT.FILE.TO.TYPE.FOR.PRINTERA0002 119 FONTS 60 CANPRINT 45 CONVERSION 26 NEW 21 OUTPUT 7 TEXT) ( 93 " printer" 87 " for a " 81 "Can't convert a ") EMPRESS :D8 (I 5 PRINTOPTIONS I 4 %#SIDES I 3 HEADING I 2 HOST I 1 %#COPIES I 0 FILE) =@BC gChA gAhD gDhE (58 SEND.FILE.TO.PRINTER 53 \NCONC2 48 \NCONC2 43 \NCONC2) (33 %#SIDES 21 %#COPIES 9 HEADING) () HARDCOPYW :D8 (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@ @ YA@@dY4@l @d3ih@Z J[E^HEH kHoE AU`MdXEoE MhMMEN NiH`X b C)KIIEH bAEICKDFo BA~gEg gHdhgLhggAhgFohhhAhggLhhhgg ALbCbXK=Ao i b Ao (468 ERROR 451 PRINTFILETYPE 442 ERROR 400 ADD.PROCESS 296 PRINTERPROP 274 PRINTER.BITMAPFILE 255 PRINTER.SCRATCH.FILE 238 PRINTER.BITMAPSCALE 202 PRINTERTYPE 196 DEFAULTPRINTER 170 PRINTERTYPE 149 ERROR 117 ERROR 112 CONCAT 97 PRINTERTYPE 79 SCREENBITMAP 72 GETSCREENREGION 64 SCREENBITMAP 41 EQLENGTH 17 COPY.WINDOW.TO.BITMAP 10 WINDOWP) (395 HARDCOPYW 390 NAME 374 QUOTE 369 DELFILE 338 DOCUMENT.NAME 330 DELETE 325 QUOTE 316 QUOTE 301 QUOTE 291 SEND 285 PROGN 229 BITMAP 221 BITMAP 187 DEFAULTPRINTINGHOST 127 DEFAULTPRINTINGHOST 26 BITMAP) ( 463 "Can't tell what kind of print file to produce -- PRINTERTYPE, DEFAULTPRINTERTYPE, DEFAULTPRINTINGHOST all NIL" 437 "Can't tell where to send window image -- HOST, DEFAULTPRINTINGHOST are NIL" 346 "Window Image" 268 "Window Image" 143 "Can't find a printing host in DEFAULTPRINTINGHOST that is of type " 106 "not of printer type ") LISTFILES1 :D8 (I 1 PRINTOPTIONS I 0 FILE) @hA (7 SEND.FILE.TO.PRINTER) NIL () PRINTER.BITMAPFILE :D8 (I 6 TITLE I 5 ROTATION I 4 REGION I 3 SCALEFACTOR I 2 BITMAP I 1 PRINTERTYPE I 0 FILE) Ag (15 EVAL 10 PRINTERPROP) (5 BITMAPFILE) () PRINTER.BITMAPSCALE :D8 (I 3 HOST I 2 PRINTERTYPE I 1 HEIGHT I 0 WIDTH) Bg k@AClH(10 PRINTERPROP) (5 BITMAPSCALE) () PRINTER.SCRATCH.FILE :D8 (L (0 FULLFILE)) gNIL (4 {SCRATCH}PRINTER-SCRATCH-FILE) () PRINTERPROP :D8 (P 1 X I 1 PROP I 0 PRINTERTYPE) ,`1Hh@IZKKJKAIHXNIL (4 PRINTERTYPES) () PRINTERSTATUS :D8 (P 0 STATUSFN I 0 PRINTER) @ g H@kH(15 PRINTERPROP 5 PRINTERTYPE) (10 STATUS) () PRINTERTYPE :D8 (P 8 PRINTER P 6 FN P 5 TYPE P 0 TYPE I 0 HOST) / @@dgb<@A`[hHHLYJJIJLiKoH @` g ^@ @bg G`1L@@A B@A BB8B0H]B<LBl A BM8BLkMll#۾dNNLB\BHZB#YILB"YLIJKB*Y jh__W-W hA W_`_`jA`hA WA IKIJKIBHKLIjvO`Oih(279 \SOFTCURSORUPCURRENT 239 \TOTOPWDS 229 DSPDESTINATION 212 \SOFTCURSORDOWN 181 DSPDESTINATION 71 \DSPPRINTCR/LF 34 \SLOWHDCPYBLTCHAR 22 \CHANGECHARSET.HDCPYDISPLAY) (285 \EM.DISPINTERRUPT 219 \TOPWDS 203 \EM.DISPINTERRUPT 193 \EM.DISPINTERRUPT 152 PILOTBBT) () \HDCPYDISPLAY.FIX.XPOS :D8 (P 0 DD I 0 HARDCOPYSTREAM) &@0HHoj8hNIL (22 \DISPLAYDATA 16 \DISPLAYDATA 5 STREAM) ( 29 35.27778) \HDCPYDISPLAY.FIX.YPOS :D8 (P 0 DD I 0 HARDCOPYSTREAM) &@0HHoj:hNIL (22 \DISPLAYDATA 16 \DISPLAYDATA 5 STREAM) ( 29 35.27778) \HDCPYDISPLAYINIT :D8 NIL U`` dodgdg dgdgdg2dg4(14 NCREATE2) (82 \HDCPYDISPLAYIMAGEOPS 74 \CHARWIDTH.HDCPYDISPLAY 65 \STRINGWIDTH.HDCPYDISPLAY 56 \DSPYPOSITION.HDCPYDISPLAY 47 \DSPXPOSITION.HDCPYDISPLAY 38 \DSPRIGHTMARGIN.HDCPYDISPLAY 29 \DSPFONT.HDCPYDISPLAY 9 \DISPLAYIMAGEOPS 4 |IMAGEOPSTYPE#|) ( 20 (HARDCOPY DISPLAY)) \HDCPYDSPPRINTCHAR :D8 (P 6 TABWIDTH P 5 SPACEWIDTH P 4 CC P 0 DD I 1 CHARCODE I 0 STREAM F 7 \PRIMTERMSA) @01`@ Al WɀAWɀ jWAldlVA@@Lll#@H Llkjl Ll^@H Ll@kjL@H khdlAdl dl dl A@ @jjl l$@H @@kYIAdl&go @ l Ql @ M^dHHN ^H Hl @ @@NMhA@H @@kZJdjNAdl $dl dl djlA@ @ j@H @@k[Kl(483 SHOULDNT 452 \HDCPYBLTCHAR 443 DSPBACKUP 437 CHARWIDTH 371 \HDCPYBLTCHAR 340 \DSPPRINTCR/LF 327 \DISPLAYSTREAMINCRXPOSITION 319 IMOD 292 CHARWIDTH 278 FLASHWINDOW 273 WFROMDS 266 PLAYTUNE 249 MACHINETYPE 215 \HDCPYBLTCHAR 190 \DSPPRINTCR/LF 148 \HDCPYBLTCHAR 130 \HDCPYBLTCHAR 106 \HDCPYBLTCHAR 55 GETHASH 22 \CARET.DOWN) (464 STREAM 458 STREAM 383 STREAM 377 STREAM 353 STREAM 347 STREAM 307 \DISPLAYDATA 254 DANDELION 227 STREAM 221 STREAM 196 STREAM 89 STREAM 83 STREAM 48 CHARTABLE 36 CHARTABLE 15 \CARET.UP 5 STREAM) ( 261 ((880 . 2500))) \SLOWHDCPYBLTCHAR :D8 (P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 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 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) %@lA0"I ZdjZIq LIH]Il A I\IHؽIMLIؼI"dLLI#MIػdKK_I*_ONO jN_ON_IHNL_IdkAdlO_O_O_$lO_O_O_ W"-W$ hA W&_`_`jA`hA W(A OOOOOOOjvO`O0I_IH_I @ @I h _ JdlZ;AOO O jIHAIO kOO O O Hn8AOO O jIHAIO IO O O o h(545 ERROR 534 BKBITBLT 492 \DSPYPOSITION.DISPLAY 473 BKBITBLT 430 \DSPYPOSITION.DISPLAY 408 \CREATECHARSET 349 \SOFTCURSORUPCURRENT 314 \TOTOPWDS 304 DSPDESTINATION 287 \SOFTCURSORDOWN 256 DSPDESTINATION 237 SHOULDNT 52 \DSPPRINTCR/LF) (355 \EM.DISPINTERRUPT 294 \TOPWDS 278 \EM.DISPINTERRUPT 268 \EM.DISPINTERRUPT 102 \DISPLAYDATA 78 \DISPLAYDATA) ( 540 "Not implemented to rotate by other than 0, 90 or 270") \CHANGECHARSET.HDCPYDISPLAY :D8 (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 HA AHh "JIo L=llk oIljNMKNLNI Nk^K0h(142 FIXR 107 \ALLOCBLOCK 90 EQP 67 \CREATECHARSET 49 FONTPROP 29 FONTCREATE 23 STREAMPROP 6 \CHANGECHARSET.DISPLAY) (76 CHARSETINFO 44 SCALE 38 \DISPLAYDATA 18 HARDCOPYIMAGETYPE) ( 113 35.27778 85 35.27778) MAKEHARDCOPYMODESTREAM :D8 (P 0 DS I 1 IMAGETYPE I 0 DISPLAYSTREAM) @ @ @ @ Ag bdgH`gH`.HgA Hg&Hg(hH H jH jH HghH hH dH o H kH H(229 DSPSPACEFACTOR 222 DSPRIGHTMARGIN 216 FIXR 202 DSPCLIPPINGREGION 194 DSPRIGHTMARGIN 187 STREAMPROP 182 DSPRIGHTMARGIN 169 DSPYPOSITION 162 DSPXPOSITION 155 DSPFONT 149 DSPFONT 116 STREAMPROP 58 PRINTERPROP 48 PRINTERTYPE 37 \ILLEGAL.ARG 31 DSPCREATE 20 \INSUREWINDOW 13 WINDOWP 5 DISPLAYSTREAMP) (175 DSPRIGHTMARGIN 140 \HCPYMODEDSPPRINTCHAR 135 STREAM 127 \HCPYMODEDSPPRINTCHAR 122 STREAM 110 HARDCOPYIMAGETYPE 101 \HCPYMODEDISPLAYIMAGEOPS.INTERPRESS 96 STREAM 88 INTERPRESS 81 \HCPYMODEDISPLAYIMAGEOPS.PRESS 76 STREAM 67 PRESS 53 CANPRINT) ( 210 35.27778) UNMAKEHARDCOPYMODESTREAM :D8 (P 0 DS I 0 DISPLAYSTREAM) @ @ @ @ gH `H`.Hgh Hg&Hg(jH jH @g dH hH H(140 DSPRIGHTMARGIN 130 DSPCLIPPINGREGION 122 STREAMPROP 111 DSPYPOSITION 104 DSPXPOSITION 71 STREAMPROP 43 IMAGESTREAMTYPE 29 \ILLEGAL.ARG 20 \INSUREWINDOW 13 WINDOWP 5 DISPLAYSTREAMP) (117 DSPRIGHTMARGIN 95 \DSPPRINTCHAR 90 STREAM 82 \DSPPRINTCHAR 77 STREAM 65 HARDCOPYIMAGETYPE 57 \DISPLAYIMAGEOPS 52 STREAM 37 HARDCOPY) () \BLTSHADE.HCPYMODE :D8 (I 7 CLIPPINGREGION I 6 OPERATION I 5 HEIGHT I 4 WIDTH I 3 DESTINATIONBOTTOM I 2 DESTINATIONLEFT I 1 STREAM I 0 TEXTURE) "@ABoCoDEFG (31 \BLTSHADE.DISPLAY 25 \DASHINGCONVERT.HCPYMODE) NIL ( 14 35.27778 7 35.27778) \BITBLT.HCPYMODE :D8 (I 13 CLIPPEDSOURCEBOTTOM I 12 CLIPPEDSOURCELEFT I 11 CLIPPINGREGION I 10 TEXTURE I 9 OPERATION I 8 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) .@ABCDoEoFGGGGG GG (43 \BITBLT.DISPLAY 33 \DASHINGCONVERT.HCPYMODE) NIL ( 16 35.27778 9 35.27778) \BRUSHCONVERT.HCPYMODE :D8 (L (0 BRUSH)) )@%0@dd3o׸IHhZH&JNIL NIL ( 20 35.27778) \CHANGECHARSET.HCPYMODE :D8 (P 5 \INTERRUPTABLE P 3 BM P 2 CSDINFO P 1 CSINFO P 0 PBT I 1 CHARSET I 0 DISPLAYDATA) @*@ A A@ h @ gg AA@ gg h #@I@I@I0@A>IHKn@ gJgJ gJ gJ J h@'I @@I @I #KK@BмHLHLh(231 \SFFixY.HCPYMODE 76 \CREATECHARSET 70 FONTCOPY 42 FONTCOPY 24 \CREATECHARSET) (263 PILOTBBT 252 PILOTBBT 193 CHARSETINFO 185 CHARSETINFO 179 HEIGHT 172 CHARSETINFO 166 DESCENT 159 CHARSETINFO 153 ASCENT 146 CHARSETINFO 140 WIDTHS 135 FONTDESCRIPTOR 65 DISPLAY 60 DEVICE 37 DISPLAY 32 DEVICE) () \DASHINGCONVERT.HCPYMODE :D8 (L (0 DASHING)) !0@do׸IHhZH&JNIL NIL ( 12 35.27778) \CHARWIDTH.HCPYMODE :D8 (I 1 CHARCODE I 0 STREAM) @00ANIL (5 STREAM) () \DRAWLINE.HCPYMODE :D8 (I 7 COLOR I 6 OPERATION I 5 WIDTH I 4 Y2 I 3 X2 I 2 Y1 I 1 X1 I 0 STREAM) :@AoBoCoDoEokHHkFG (55 \DRAWLINE.DISPLAY) NIL ( 34 35.27778 27 35.27778 20 35.27778 13 35.27778 6 35.27778) \DRAWCURVE.HCPYMODE :D8 (I 4 DASHING I 3 BRUSH I 2 CLOSED I 1 KNOTS I 0 STREAM) A@@A"d[oKoIHhZH&JBC D (62 \DRAWCURVE.DISPLAY 56 \DASHINGCONVERT.HCPYMODE 50 \BRUSHCONVERT.HCPYMODE) NIL ( 23 35.27778 15 35.27778) \DRAWCIRCLE.HCPYMODE :D8 (I 5 DASHING I 4 BRUSH I 3 RADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) *@AoBoCoD E (39 \DRAWCIRCLE.DISPLAY 33 \DASHINGCONVERT.HCPYMODE 27 \BRUSHCONVERT.HCPYMODE) NIL ( 20 35.27778 13 35.27778 6 35.27778) \DRAWELLIPSE.HCPYMODE :D8 (I 7 DASHING I 6 BRUSH I 5 ORIENTATION I 4 SEMIMAJORRADIUS I 3 SEMIMINORRADIUS I 2 CENTERY I 1 CENTERX I 0 STREAM) 3@AoBoCoDoEF G (48 \DRAWELLIPSE.DISPLAY 42 \DASHINGCONVERT.HCPYMODE 35 \BRUSHCONVERT.HCPYMODE) NIL ( 27 35.27778 20 35.27778 13 35.27778 6 35.27778) \DSPFONT.HCPYMODE :D8 (P 3 \INTERRUPTABLE P 2 OLDFONT P 1 XFONT P 0 DD I 1 FONT I 0 HDCPYDSTREAM) @0!H ZAiA@.,i H A YJCHI HjI Hd8kI jIh A@H (124 \SFFixFont 114 FIXR 104 \CREATECHARSET 55 FONTCOPY 44 \COERCEFONTDESC) (76 FONTDESCRIPTOR 36 IMAGEOPS 29 STREAM 16 \DISPLAYDATA 5 STREAM) () \DSPLEFTMARGIN.HCPYMODE :D8 (I 1 XPOSITION I 0 DISPLAYSTREAM) @Ado (19 \DSPRIGHTMARGIN.DISPLAY 14 FIXR) NIL ( 8 35.27778) \DSPLINEFEED.HCPYMODE :D8 (I 1 DELTAY I 0 DISPLAYSTREAM) #@0AAd3@0A (31 \ILLEGAL.ARG) (5 STREAM) () \DSPRIGHTMARGIN.HCPYMODE :D8 (I 1 XPOSITION I 0 DISPLAYSTREAM) :@0<@Ado A@0A<(34 \DSPRIGHTMARGIN.DISPLAY 29 FIXR) (51 \DISPLAYDATA 44 STREAM 12 \DISPLAYDATA 5 STREAM) ( 23 35.27778) \DSPSPACEFACTOR.HCPYMODE :D8 (P 0 DDATA I 1 FACTOR I 0 DISPLAYSTREAM) L@0H8Ad3-HA8HAl H A (72 \ILLEGAL.ARG 63 FIXR 57 CHARWIDTH) (50 \DISPLAYDATA 41 \DISPLAYDATA 31 \DISPLAYDATA 16 \DISPLAYDATA 5 STREAM) () \DSPXPOSITION.HCPYMODE :D8 (I 1 XPOSITION I 0 HARDCOPYSTREAM) :@0@Ado A@0A(34 \DSPXPOSITION.DISPLAY 29 FIXR) (51 \DISPLAYDATA 44 STREAM 12 \DISPLAYDATA 5 STREAM) ( 23 35.27778) \DSPYPOSITION.HCPYMODE :D8 (P 2 \INTERRUPTABLE P 1 OLD-POS P 0 DD I 1 YPOSITION I 0 HARDCOPYSTREAM) 7@0HA$Ad3HAHn>Hn' I(51 \ILLEGAL.ARG) (5 STREAM) () \MOVETO.HCPYMODE :D8 (I 2 Y I 1 X I 0 STREAM) @A @B (13 \DSPYPOSITION.HCPYMODE 6 \DSPXPOSITION.HCPYMODE) NIL () \FONTCREATE.HCPYMODE.PRESS :D8 (P 4 CS0DINFO P 3 HFONT P 0 DFONT I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 5 \DEFAULTCHARSET) @ABCg !@ABCg `J lki dIHU UHh KgKgLgL gL gL L hK(81 \CREATECHARSET 54 \ALLOCBLOCK 44 NCREATE2 32 FONTCREATE 14 FONTCREATE) (162 CHARSETINFO 154 CHARSETINFO 148 HEIGHT 141 CHARSETINFO 135 DESCENT 128 CHARSETINFO 122 ASCENT 115 CHARSETINFO 109 WIDTHS 104 FONTDESCRIPTOR 95 PRESSDISPLAY 90 FONTDESCRIPTOR 38 |FONTDESCRIPTORTYPE#| 26 PRESS 8 DISPLAY) () \CREATECHARSET.HCPYMODE.PRESS :D8 (P 4 CSINFO P 3 CSHINFO P 2 CSDINFO P 1 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) @ABCg @ABCg HE EHh IE EIh `K LJLJLJL(88 NCREATE2 74 \CREATECHARSET 53 \CREATECHARSET 32 FONTCREATE 14 FONTCREATE) (137 CHARSETINFO 131 CHARSETINFO 120 CHARSETINFO 114 CHARSETINFO 103 CHARSETINFO 97 CHARSETINFO 82 |CHARSETINFOTYPE#| 26 PRESS 8 DISPLAY) () \FONTCREATE.HCPYMODE.INTERPRESS :D8 (P 4 CS0DINFO P 3 HFONT P 0 DFONT I 4 DEVICE I 3 ROTATION I 2 FACE I 1 SIZE I 0 FAMILY F 5 \DEFAULTCHARSET) @ABCg !@ABCg `J lki dIHU UHh KgKgLgL gL gL L hK(81 \CREATECHARSET 54 \ALLOCBLOCK 44 NCREATE2 32 FONTCREATE 14 FONTCREATE) (162 CHARSETINFO 154 CHARSETINFO 148 HEIGHT 141 CHARSETINFO 135 DESCENT 128 CHARSETINFO 122 ASCENT 115 CHARSETINFO 109 WIDTHS 104 FONTDESCRIPTOR 95 INTERPRESSDISPLAY 90 FONTDESCRIPTOR 38 |FONTDESCRIPTORTYPE#| 26 INTERPRESS 8 DISPLAY) () \CREATECHARSET.HCPYMODE.INTERPRESS :D8 (P 4 CSINFO P 3 CSHINFO P 2 CSDINFO P 1 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) @ABCg @ABCg HE EHh IE EIh `K LJLJLJL(88 NCREATE2 74 \CREATECHARSET 53 \CREATECHARSET 32 FONTCREATE 14 FONTCREATE) (137 CHARSETINFO 131 CHARSETINFO 120 CHARSETINFO 114 CHARSETINFO 103 CHARSETINFO 97 CHARSETINFO 82 |CHARSETINFOTYPE#| 26 INTERPRESS 8 DISPLAY) () \STRINGWIDTH.HCPYMODE :D8 (P 0 WIDTHSBASE I 2 RDTBL I 1 STR I 0 STREAM) @00AHBH ll#(18 \STRINGWIDTH.GENERIC) NIL () \HCPYMODEBLTCHAR :D8 (L (2 DISPLAYDATA 1 DISPLAYSTREAM 0 CHARCODE) F 9 \SOFTCURSORP F 10 \SOFTCURSORUPP F 11 \CURSORDESTINATION F 12 \SCREENBITMAPS) ) @lBd>@@ B@A Bo @l jBABHBN]B<LBl A BMLB\B0HZB#YILB"YLIJKB*Y jh__W-W hA W_`_`jA`hA WA IKIJKIBHKLIjvO`Oih(281 \SOFTCURSORUPCURRENT 241 \TOTOPWDS 231 DSPDESTINATION 214 \SOFTCURSORDOWN 183 DSPDESTINATION 94 \DSPPRINTCR/LF 48 FIXR 33 \SLOWHCPYMODEBLTCHAR 21 \CHANGECHARSET.HCPYMODE) (287 \EM.DISPINTERRUPT 221 \TOPWDS 205 \EM.DISPINTERRUPT 195 \EM.DISPINTERRUPT 154 PILOTBBT) ( 42 35.27778) \HCPYMODEDISPLAYINITA0019 :D8 NIL oNIL NIL ( 4 35.27778) \HCPYMODEDISPLAYINITA0021 :D8 (P 1 WINDOWFN P 0 WINDOW I 0 STREAM F 2 \WINDOWWORLD) 2R@ H@ @ g Y@kI(38 GETWINDOWUSERPROP 27 CLEARW 20 PAGEFULLFN 8 WFROMDS) (33 PAGEFULLFN) () \HCPYMODEDISPLAYINITA0042 :D8 NIL oNIL NIL ( 4 35.27778) \HCPYMODEDISPLAYINITA0044 :D8 (P 1 WINDOWFN P 0 WINDOW I 0 STREAM F 2 \WINDOWWORLD) 2R@ H@ @ g Y@kI(38 GETWINDOWUSERPROP 27 CLEARW 20 PAGEFULLFN 8 WFROMDS) (33 PAGEFULLFN) () \HCPYMODEDISPLAYINIT :D8 NIL `` dodgdg dg dgdgdgdgdgdgdgdgdgdgdg dg2dg4dg,dg"dgdg*`` dodgdg dg dgdgdgdgdgdgdgdgdgdgdg dg2dg4dg,dg"dgdg*(223 NCREATE2 14 NCREATE2) (417 \HCPYMODEDISPLAYIMAGEOPS.INTERPRESS 409 \DSPSPACEFACTOR.HCPYMODE 400 \HCPYMODEDISPLAYINITA0044 391 \HCPYMODEDISPLAYINITA0042 382 INTERPRESSDISPLAY 373 \CHARWIDTH.HCPYMODE 364 \STRINGWIDTH.HCPYMODE 355 \MOVETO.HCPYMODE 346 \DSPYPOSITION.HCPYMODE 337 \DSPXPOSITION.HCPYMODE 328 \BITBLT.HCPYMODE 319 \BLTSHADE.HCPYMODE 310 \FILLCIRCLE.HCPYMODE 301 \DRAWELLIPSE.HCPYMODE 292 \DRAWCIRCLE.HCPYMODE 283 \DRAWCURVE.HCPYMODE 274 \DRAWLINE.HCPYMODE 265 \DSPLINEFEED.HCPYMODE 256 \DSPLEFTMARGIN.HCPYMODE 247 \DSPRIGHTMARGIN.HCPYMODE 238 \DSPFONT.HCPYMODE 218 \DISPLAYIMAGEOPS 213 |IMAGEOPSTYPE#| 208 \HCPYMODEDISPLAYIMAGEOPS.PRESS 200 \DSPSPACEFACTOR.HCPYMODE 191 \HCPYMODEDISPLAYINITA0021 182 \HCPYMODEDISPLAYINITA0019 173 PRESSDISPLAY 164 \CHARWIDTH.HCPYMODE 155 \STRINGWIDTH.HCPYMODE 146 \MOVETO.HCPYMODE 137 \DSPYPOSITION.HCPYMODE 128 \DSPXPOSITION.HCPYMODE 119 \BITBLT.HCPYMODE 110 \BLTSHADE.HCPYMODE 101 \FILLCIRCLE.HCPYMODE 92 \DRAWELLIPSE.HCPYMODE 83 \DRAWCIRCLE.HCPYMODE 74 \DRAWCURVE.HCPYMODE 65 \DRAWLINE.HCPYMODE 56 \DSPLINEFEED.HCPYMODE 47 \DSPLEFTMARGIN.HCPYMODE 38 \DSPRIGHTMARGIN.HCPYMODE 29 \DSPFONT.HCPYMODE 9 \DISPLAYIMAGEOPS 4 |IMAGEOPSTYPE#|) ( 229 (HARDCOPY DISPLAY) 20 (HARDCOPY DISPLAY)) \HCPYMODEDSPPRINTCHAR :D8 (P 6 TABWIDTH P 5 SPACEWIDTH P 4 CC P 0 DD I 1 CHARCODE I 0 STREAM F 7 \PRIMTERMSA) @01`@ Al WɀAWɀ jWAldlVA@@Lll#@H Llkjl Ll^@H Ll@kjL@H khdlAdl dl dl A@ @jjl l$@H @@kYIAdl&go @ l Ql @ M^dHHN ^H Hl @ @@NMhA@H @@kZJdjNAdl $dl dl djlA@ @ j@H @@k[Kl(483 SHOULDNT 452 \HCPYMODEBLTCHAR 443 DSPBACKUP 437 CHARWIDTH 371 \HCPYMODEBLTCHAR 340 \DSPPRINTCR/LF 327 \DISPLAYSTREAMINCRXPOSITION 319 IMOD 292 CHARWIDTH 278 FLASHWINDOW 273 WFROMDS 266 PLAYTUNE 249 MACHINETYPE 215 \HCPYMODEBLTCHAR 190 \DSPPRINTCR/LF 148 \HCPYMODEBLTCHAR 130 \HCPYMODEBLTCHAR 106 \HCPYMODEBLTCHAR 55 GETHASH 22 \CARET.DOWN) (464 STREAM 458 STREAM 383 STREAM 377 STREAM 353 STREAM 347 STREAM 307 \DISPLAYDATA 254 DANDELION 227 STREAM 221 STREAM 196 STREAM 89 STREAM 83 STREAM 48 CHARTABLE 36 CHARTABLE 15 \CARET.UP 5 STREAM) ( 261 ((880 . 2500))) \SLOWHCPYMODEBLTCHAR :D8 (P 16 CSINFO P 15 HEIGHTMOVED P 14 YPOS P 13 SOFTCURSORUP P 12 DISPINTERRUPT P 11 SOURCEBIT P 10 WIDTH P 9 DESTBIT P 8 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 17 \SOFTCURSORP F 18 \SOFTCURSORUPP F 19 \CURSORDESTINATION F 20 \SCREENBITMAPS) %@lA0"I ZdjZIq LIH]Il A I\IHؽIMLIؼI"dLLI#MIػdKK_I*_ONO jN_ON_IHNL_IdkAdlO_O_O_$lO_O_O_ W"-W$ hA W&_`_`jA`hA W(A OOOOOOOjvO`O0I_IH_I @ @I h _ JdlZ;AOO O jIHAIO kOO O O Hn8AOO O jIHAIO AO O O o h(545 ERROR 534 BKBITBLT 492 \DSPYPOSITION.DISPLAY 473 BKBITBLT 430 \DSPYPOSITION.DISPLAY 408 \CREATECHARSET 349 \SOFTCURSORUPCURRENT 314 \TOTOPWDS 304 DSPDESTINATION 287 \SOFTCURSORDOWN 256 DSPDESTINATION 237 SHOULDNT 52 \DSPPRINTCR/LF) (355 \EM.DISPINTERRUPT 294 \TOPWDS 278 \EM.DISPINTERRUPT 268 \EM.DISPINTERRUPT 102 \DISPLAYDATA 78 \DISPLAYDATA) ( 540 "Not implemented to rotate by other than 0, 90 or 270") \SFFixY.HCPYMODE :D8 (P 5 BM P 4 CHARTOP P 3 TOP P 2 Y P 1 FONT P 0 PBT I 1 CSINFO I 0 DISPLAYDATA) @*@ @o@ JIg'\@]MM@%dLLdjj[оHNHNA]M@LKdjjdnn_BO_HOHOHKJ@Ig'_@O@$_dOOdjj hNIL (189 DESCENT 182 FONTDESCRIPTOR 166 PILOTBBT 154 PILOTBBT 102 PILOTBBT 91 PILOTBBT 63 BITMAP 52 BITMAP 40 ASCENT 33 FONTDESCRIPTOR 20 \DISPLAYDATA) ( 13 35.27778) (PRETTYCOMPRINT HARDCOPYCOMS) (RPAQQ HARDCOPYCOMS ((COMS (* ; "exported functionality") (FNS HARDCOPY.SOMEHOW HARDCOPYIMAGEW HARDCOPYIMAGEW.TOFILE HARDCOPYIMAGEW.TOPRINTER HARDCOPYREGION.TOFILE HARDCOPYREGION.TOPRINTER COPY.WINDOW.TO.BITMAP) (* ; "user interface jazz") (INITVARS (ChangeDefaultPrinter)) (FNS MakeMenuOfPrinters PRINTERS.WHENSELECTEDFN MakeMenuOfImageTypes GetNewPrinterFromUser PopUpWindowAndGetAtom PopUpWindowAndGetList 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 PRINTERNAME PRINTFILEPROP PRINTFILETYPE \EXPECTED.FILE.TYPE 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 INTERPRESS)) ( EMPRESS.SCRATCH) (EMPRESS#SIDES T) (PRINTFILETYPES NIL)) (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. NOT USED ANYWHERE") (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 \STRINGWIDTH.HCPYDISPLAYAUX \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) (DEFAULTTAB 36)))) (* ; "screen-points: 1/2 inch") (DECLARE%: DONTCOPY DOEVAL@COMPILE (EXPORT (FUNCTIONS \MICASTOPTS))) (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 \DSPSPACEFACTOR.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)))) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQ? ChangeDefaultPrinter) (PRINTERDEVICE (QUOTE LPT)) (MOVD? (QUOTE NILL) (QUOTE PRINTERMODE)) (RPAQ? DEFAULTPRINTINGHOST) (RPAQ? DEFAULTPRINTERTYPE (QUOTE INTERPRESS)) (RPAQ? EMPRESS.SCRATCH) (RPAQ? EMPRESS#SIDES T) (RPAQ? PRINTFILETYPES NIL) (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 ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1999 2018 2021 2022)) NIL