(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "29-Jan-2026 11:03:15" ("compiled on " {WMEDLEY}HARDCOPY.;160) "28-Jan-2026 15:39:39" recompiled explicitly%: PRINTERNAME PRINTERNAME in "FULL 28-Jan-2026 ..." dated "28-Jan-2026 15:39:47") (FILECREATED "29-Jan-2026 10:45:17" {WMEDLEY}HARDCOPY.;160 149481 :EDIT-BY rmk :CHANGES-TO ( FNS PRINTERNAME FIND.PRINTER.FOR.IMAGETYPE PRINTERDEVICE.OPENFN PRINTERTYPE) :PREVIOUS-DATE "27-Jan-2026 23:11:17" {WMEDLEY}HARDCOPY.;157) MakeMenuOfPrinters :D8 (P 4 P I 0 MENUTITLE) `oAHNIo HdId@dgdg dgjdndhHdI \OLdgDddLdoL Lddi3 gLhhJKhZYHX]K&Z(142 CONCAT 34 CL:APPEND 15 DEFAULTPRINTERS) (162 QUOTE 109 :DEFAULTPRINTER 74 DEFAULTMENUHELDFN 65 CLRPROMPT 56 PRINTERS.WHENSELECTEDFN 4 |MENUTYPE#|) ( 133 " " 29 (("Other..." (QUOTE OTHER) "You will be prompted for a printer")) 10 ("(Default printer)" (KWOTE :DEFAULTPRINTER))) PRINTERS.WHENSELECTEDFN :D8 (P 1 DEFAULTPRINTER P 0 PRINTERCHOICE I 2 BUTTON I 1 MENU I 0 ITEM) @!HdgXwHhi YjHIaBgX`L`dododkdi dg dgjdndhdJ  H(142 NewPrinter 137 MENU 33 DEFAULTPRINTERS 22 GetNewPrinterFromUser) (132 ChangeDefaultPrinter 107 DEFAULTMENUHELDFN 98 CLRPROMPT 63 |MENUTYPE#| 56 ChangeDefaultPrinter 48 MIDDLE 14 OTHER) ( 79 (("Yes" T "Yes, make this the new default printer") ("No" NIL "No, don't change it")) 70 "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 name (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 TTYINPROMPTFORWORD 135 OPENW 117 CREATEW 109 CREATEREGION 104 HEIGHTIFWINDOW 97 FONTCREATE 63 WIDTHIFWINDOW 56 CHARWIDTH 38 STRINGWIDTH 28 DEFAULTFONT 14 TTY.PROCESS) (125 CLOSEW 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 91 FONTCREATE 55 WIDTHIFWINDOW 48 CHARWIDTH 38 STRINGWIDTH 28 DEFAULTFONT 14 TTY.PROCESS) (140 CLOSEW 120 TTYDISPLAYSTREAM 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 3 ENTRY P 2 MEMBER? P 1 PRINTER-NAME P 0 PRINTERS I 1 NEW-DEFAULT? I 0 PRINTER) Q@gG@dYHgo J@AKdH HKh h(71 \NCONC2 57 REMOVE 39 CL:MEMBER 13 DEFAULTPRINTERS) (76 DEFAULTPRINTINGHOST 29 :TEST 5 :DEFAULTPRINTER) ( 34 (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 1 IMAGEFILETYPE P 0 IMAGEFILE I 0 FILEORW) 0o@ c@ @g ghg@g .@g !@g @ lJ@ XdMd XdC o Y*@ @gghgH HI(193 PUTWINDOWPROP 188 PACKFILENAME 163 WINDOWP 154 MENU 149 MakeMenuOfImageTypes 137 IMAGEFILETYPE.FROM.EXTENSION 128 OUTFILEP 118 PopUpWindowAndGetAtom 105 EXTENSIONS.FOR.IMAGEFILETYPE 100 PRINTERTYPE 93 GETWINDOWUSERPROP 80 GETWINDOWUSERPROP 67 PACKFILENAME 62 GETWINDOWUSERPROP 38 GETWINDOWUSERPROP 26 CLEARW 21 GETPROMPTWINDOW 13 WINDOWP) (182 BODY 176 VERSION 171 HARDCOPYFILE 88 HARDCOPYFILEFN 75 HARDCOPYFILEFN 57 HARDCOPYFILE 51 BODY 45 VERSION 33 HARDCOPYFILE) ( 144 "File type?" 7 "File name (Clear to abort): ") HARDCOPYW :D8 (P 2 PRINTER P 1 IMAGEFILE P 0 OPTIONS I 6 HARDCOPYTITLE I 5 PRINTERTYPE I 4 ROTATION I 3 SCALEFACTOR I 2 HOST I 1 FILE I 0 WINDOW/BITMAP/REGION) B$EB>B =BoE )AE gbg b gCgDgFoh!@Ad Eg H YBdBH I(150 SEND.FILE.TO.PRINTER 139 CONVERT.TO.IMAGEFILE 132 PRINTERPROP 119 IMAGEFILETYPE.FROM.EXTENSION 73 PRINTERTYPE 52 DEFAULTPRINTERS 45 DEFAULTPRINTERS 34 ERROR 29 CONCAT 14 PRINTERTYPE) (127 CANPRINT 93 DOCUMENT.NAME 87 ROTATION 81 SCALEFACTOR 68 :DEFAULTPRINTER 60 :DEFAULTPRINTER) ( 101 "Window Image" 23 "is not of printer type ") LISTFILES1 :D8 (I 1 PRINTOPTIONS I 0 FILE) @hA (7 SEND.FILE.TO.PRINTER) NIL () 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 5 PRINTER P 3 FN P 2 TYPE P 0 TYPE I 2 NODEFAULT I 1 PREFERRED I 0 HOST) @@dH Ho Hg @ g @ @bg `1I3hL?hvLGhfBb`gJ[IY@kLJ]L\@ M]L\ M@ Mh(243 CL::SIMPLE-STRING-EQUAL 232 CANONICAL.HOSTNAME 209 CL::SIMPLE-STRING-EQUAL 139 DEFAULTPRINTERS 123 DEFAULTPRINTERS 92 GETPROP 77 CANONICAL.HOSTNAME 65 GETPROP 55 U-CASE 43 GETPROP 31 ERROR 19 PRINTERTYPEP) (166 HOSTNAMEP 158 DEFAULTPRINTERTYPE 103 PRINTERTYPES 87 PRINTERTYPE 60 PRINTERTYPE 38 PRINTERTYPE) ( 26 "is an undefined printer type") PRINTERNAME :D8 (P 0 FDEV I 0 PRINTER) f@dd3@@@ P@ @g 9@ Xdg@g bg@hH(78 FILENAMEFIELD 50 TRUEDEVICE 42 STREAMPROP 30 STREAMP 19 PRINTERDEVICEP) (97 FDEV 85 %. 73 NAME 64 LPT 57 FDEV 37 PRINTERNAME) () PRINTFILETYPE :D8 (I 1 DONTOPEN I 0 FILE) @A (6 IMAGESOURCETYPE) NIL () PRINTERTYPEP :D8 (L (0 X)) /`1Hh@@IZKKJKIiHXNIL (4 PRINTERTYPES) () SEND.FILE.TO.PRINTERA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 4 SENDFN P 3 IMAGEFILE P 2 IMAGEFILETYPE P 1 PTYPE/PRINTER/ITYPE P 0 IMAGESOURCETYPE I 0 SI::*CLEANUP-FORMS* F 5 IMAGESOURCE F 6 OPTIONS F 7 SI::*RESETFORMS* F 8 HOST) aU AVg'HhJW YoJo I g \oI o oUhIV [hWcKoHoI U IqLjKcgVg'dih*!U UoUg Vg'VgkgU UU h c g'$gd go WcIKVlLU U U(348 FULLNAME 341 STREAMP 316 SETTOPVAL 300 GETTOPVAL 277 CL:APPEND 267 TYPENAME 258 IMAGESOURCEFILEP 232 CONCAT 227 GETFILEINFO 208 IMAGESOURCEFILEP 158 ERROR 152 CONCAT 119 CONVERT.TO.IMAGEFILE 101 ERROR 96 CONCAT 86 PRINTERTYPE 72 PRINTERPROP 62 PRINTERTYPE 53 ERROR 48 CONCAT 29 FIND.PRINTER.FOR.IMAGETYPE 5 IMAGESOURCETYPE) (306 IMAGEFILE 294 IMAGEFILE 286 DELETE 252 DOCUMENT.NAME 246 %#COPIES 239 HEADING 222 CREATIONDATE 191 HEADING 185 HEADING 67 SEND 14 IMAGEFILETYPE) ( 311 (PROGN (DELFILE OLDVALUE)) 216 " " 143 " file to " 137 "Can't convert " 107 (PROGN (DELFILE (CLOSEF? OLDVALUE))) 91 " printer" 80 "Don't know how to send to a " 43 " file" 37 "Can't find printer for ") SEND.FILE.TO.PRINTER :D8 (P 4 RESETSTATE P 3 SI::*RESETFORMS* P 2 LISPXHIST P 1 X I 2 OPTIONS I 1 HOST I 0 IMAGESOURCE F 5 LISPXHIST) Z@ @i bABHY$hbU!g $ o II(77 MEMB 67 U-CASE 56 SI::RESETUNWIND 51 \MVLIST 46 SEND.FILE.TO.PRINTERA0001 13 FINDFILE 5 IMAGESOURCEFILEP) (41 SI::RESETUNWIND) ( 72 (HOST SERVER)) FIND.PRINTER.FOR.IMAGETYPE :D8 (P 2 PRINTER P 0 TARGETTYPE I 1 HOST I 0 IMAGETYPE) A I8h3ILhgA@ XA A HhZ@i XJ J HhIYZ@ XJ J HhIY(130 PRINTERNAME 124 PRINTERTYPE 115 CAN.PRINT.SOMEHOW 95 PRINTERNAME 89 PRINTERTYPE 80 CAN.PRINT.SOMEHOW 65 PRINTERNAME 59 PRINTERTYPE 50 CAN.PRINT.SOMEHOW 26 DEFAULTPRINTERS 10 DEFAULTPRINTERS) (40 :DEFAULTPRINTER) () CAN.PRINT.SOMEHOW :D8 (P 1 CPTYPE I 2 DIRECTONLY I 1 IMAGESOURCETYPE I 0 PRINTER) b@ A B@ g HhgI`A'gg`A'IiHX(32 PRINTERPROP 22 PRINTERTYPE 11 CAN.PRINT.DIRECTLY 5 PRINTERTYPE) (78 PRINTFILETYPES 73 DEFAULT 68 CONVERSION 54 PRINTFILETYPES 48 CONVERSION 27 CANPRINT) () CAN.PRINT.DIRECTLY :D8 (I 1 IMAGEFILETYPE I 0 PRINTERTYPE) A@g (11 PRINTERPROP) (6 CANPRINT) () PRINTERDEVICE :D8 (P 0 NAME I 0 LPTNAME) q@g gHg `I dHdk dg dgdgdgdg @(109 \DEFINEDEVICE 48 NCREATE2 36 \GETDEVICEFROMNAME 15 U-CASE 10 FILENAMEFIELD) (101 \NULLFILEGENERATOR 92 NILL 83 PRINTERDEVICE.CLOSEFN 74 PRINTERDEVICE.OPENFN 65 NILL 42 |FDEVTYPE#| 31 UNIX 22 LPT 5 HOST) () PRINTERDEVICE.OPENFN :D8 (P 3 PN P 2 STRM P 1 IMAGEFILETYPE P 0 PRINTERNAME I 5 OLDSTREAM I 4 FDEV I 3 PARAMETERS I 2 RECOG I 1 ACCESS I 0 LPTNAME) #@g Cg' @g "H l.Hl hIZHIgX g Yg ABC ZdD JgH JgI J`0Hhi &@o@hddi  [hi KhYIoHmHI HoI n XeoIooI F(286 ERROR 281 CONCAT 254 FIND.PRINTER.FOR.IMAGETYPE 246 ERROR 241 CONCAT 227 CAN.PRINT.SOMEHOW 204 PRINTERTYPE 196 SUBATOM 191 STRPOS 172 PRINTERTYPE 153 STREAMPROP 141 STREAMPROP 119 OPENSTREAM 111 UNIX-TMP-FILE-NAME 98 PRINTERPROP 88 PRINTERTYPE 61 U-CASE 56 SUBATOM 44 CHCON1 35 U-CASE 30 FILENAMEFIELD 10 FILENAMEFIELD) (160 PRINTFILETYPES 147 IMAGEFILETYPE 135 PRINTERNAME 126 STREAM 106 lpt 93 CANPRINT 82 :DEFAULTPRINTER 25 EXTENSION 16 IMAGEFILETYPE 5 NAME) ( 275 "cannot print files of type " 270 " files" 264 "No printers for " 235 "cannot print files of type " 180 "}") PRINTERDEVICE.CLOSEFN :D8 (P 0 OPTIONS I 0 STRM F 1 RESETSTATE) t@g  g@g @g o @ Q)@g j@ @g H @ (113 DELFILE 106 SEND.FILE.TO.PRINTER 100 STREAMPROP 89 FULLNAME 79 GETFILEINFO 65 CLOSEF 54 CL:APPEND 44 STREAMPROP 33 STREAMPROP 15 \GETDEVICEFROMNAME) (95 PRINTERNAME 74 LENGTH 39 PRINTOPTIONS 28 IMAGEFILETYPE 22 IMAGEFILETYPE 10 UNIX 5 STREAM) ( 49 (DELETE T HEADING T)) PRINTERDEVICEPA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 X F 3 SI::NLSETQ-VALUE) i@R hcg(10 TRUEDEVICE) (19 :NORMAL) () PRINTERDEVICEP :D8 (P 4 FDEV P 3 *CONDITION-HANDLER-BINDINGS* P 2 SI::*NLSETQFLAG* P 1 *PROCEED-CASES* P 0 SI::NLSETQ-VALUE I 0 X F 5 *PROCEED-CASES* F 6 *CONDITION-HANDLER-BINDINGS*) @@g@o g@dbd3@@ @ G`UioVI gHLdg L(83 PRINTERDEVICEPA0001 54 STREAMP 47 STRINGP 21 STRING.EQUAL) (123 FDEV 114 PRINTERDEVICE.OPENFN 107 FDEV 89 :NORMAL 64 SI::NLSETQ-PROCEED-CASE 27 LPT 8 :DEFAULTPRINTER) ( 72 (CL:ERROR . SI::NLSETQHANDLER) 16 "") PRINTERNAME :D8 (P 0 FDEV I 0 PRINTER) f@dd3@@@ P@ @g 9@ Xdg@g bg@hH(78 FILENAMEFIELD 50 TRUEDEVICE 42 STREAMPROP 30 STREAMP 19 PRINTERDEVICEP) (97 FDEV 85 %. 73 NAME 64 LPT 57 FDEV 37 PRINTERNAME) () DEFAULTPRINTERS :D8 (P 4 P I 1 NAMESONLY I 0 PRINTERTYPE) ` jhh`d3@`h`dd3@v`d3@i` `hY` ```h1``h```h`AHIAL@@L LI LJ KhZHXK&(213 MEMBER 203 PRINTERTYPE 102 PRINTERTYPEP 80 PRINTERTYPEP 9 NCHARS) (177 DEFAULTPRINTINGHOST 164 DEFAULTPRINTINGHOST 158 DEFAULTPRINTINGHOST 151 DEFAULTPRINTINGHOST 141 PRINTFILETYPES 135 DEFAULTPRINTINGHOST 122 DEFAULTPRINTINGHOST 116 DEFAULTPRINTINGHOST 109 DEFAULTPRINTINGHOST 95 DEFAULTPRINTINGHOST 86 DEFAULTPRINTINGHOST 74 DEFAULTPRINTINGHOST 61 DEFAULTPRINTINGHOST 43 DEFAULTPRINTINGHOST 33 DEFAULTPRINTINGHOST 23 DEFAULTPRINTINGHOST 4 DEFAULTPRINTINGHOST) () VIEWERPRINT :D8 (P 0 IMAGEFILETYPE I 2 PRINTOPTIONS I 1 FILE I 0 HOST) A oA A AgHd buAg H RAg g/oAg khi AgH AgHd bA (171 ShellOpen 166 TRUEFILENAME 157 UNIX-FILE-NAME 143 RENAMEFILE 138 UNIX-TMP-FILE-NAME 124 STRPOS 115 FILENAMEFIELD 91 FILENAMEFIELD 78 MEMB 73 U-CASE 68 EXTENSIONS.FOR.IMAGEFILETYPE 62 U-CASE 57 FILENAMEFIELD 42 UNIX-FILE-NAME 27 STREAMP 18 ERROR 5 IMAGESOURCETYPE) (150 INPUT 132 viewerprint 110 DIRECTORY 96 UNIX 86 HOST 52 EXTENSION 35 INPUT) ( 104 "/tmp" 12 "Not a recognizable imagefile type") SCALEREGION :D8 (I 1 REGION I 0 SCALE) %@Aj@Aj@Aj@AjhNIL NIL () TEXT.TO.IMAGEFILEA0001 :D8 (NAME SI::*UNWIND-PROTECT* P 0 IMAGESTREAM I 0 SI::*CLEANUP-FORMS* F 1 FILE F 2 SI::*RESETFORMS* F 3 OPTIONS F 4 IMAGEFILE F 5 IMAGETYPE) Qgi oQg chRcTUS ggHhgggHhhhhdRcQHSg'Sg' H (126 FULLNAME 120 COPY.TEXT.TO.IMAGE 47 OPENIMAGESTREAM 29 OPENSTREAM 11 GETSTREAM) (114 TABS 107 FONTS 79 DELFILE 74 RESETSTATE 69 AND 60 CLOSEF 55 PROGN 24 INPUT 5 INPUT) ( 18 (PROGN (CLOSEF? OLDVALUE))) TEXT.TO.IMAGEFILE :D8 (P 2 RESETSTATE P 1 SI::*RESETFORMS* P 0 LISPXHIST I 3 OPTIONS I 2 IMAGETYPE I 1 IMAGEFILE I 0 FILE F 3 LISPXHIST) S!g $(23 SI::RESETUNWIND 18 \MVLIST 13 TEXT.TO.IMAGEFILEA0001) (8 SI::RESETUNWIND) () COPY.TEXT.TO.IMAGEA0001 :D8 (P 1 SI::*CATCH-RETURN-FROM* P 0 SI::*DUMMY-FOR-CATCH* F 2 CURRENT.STOP F 3 TAB.WIDTH F 4 SI::NLSETQ-VALUE F 5 CURRENT.X F 6 IMAGESTREAM) i@RSUjV hcg(16 RELMOVETO) (25 :NORMAL) () COPY.TEXT.TO.IMAGE :D8 (P 16 *CONDITION-HANDLER-BINDINGS* P 15 SI::*NLSETQFLAG* P 14 *PROCEED-CASES* P 13 SI::NLSETQ-VALUE P 12 CURRENT.STOP P 11 CURRENT.X P 10 TAB.WIDTH P 9 LEFTMARGIN P 8 EOSP P 7 FC P 6 C P 5 DEFTAB P 4 INSTRM P 3 MAXFONT P 2 FONTARRAY P 1 RIGHTMAR P 0 IMAGESTREAM I 3 TABS I 2 FONTS I 1 IMAGESTREAM I 0 INFILE F 17 *PROCEED-CASES* F 18 *CONDITION-HANDLER-BINDINGS*) Ag hH B J @gi @g 1Lg Lgg Lj Ll ^IhH IH Ndl HN lhH kH Ll _dlcL _Hl HlPC0OMll Jk hddH  ]_H aO oO ޳Hl LgO HOKOjJO H Hl HO Ndl H l H Nl nhH  l H l hH O OdO  `W"ioW$O gOvHN kHN `(521 \OUTCHAR 510 \OUTCHAR 484 COPY.TEXT.TO.IMAGEA0001 453 REMAINDER 437 DSPXPOSITION 424 CHARWIDTH 413 DSPLEFTMARGIN 396 TERPRI 382 TERPRI 365 \OUTCHAR 356 \OUTCHAR 344 DSPFONT 338 ELT 316 SETFILEINFO 302 \OUTCHAR 290 ERROR 275 NTH 264 DSPXPOSITION 253 CHARWIDTH 248 FONTCREATE 238 ELT 213 \OUTCHAR 202 \INCCODE 187 \INCCODE.EOLC 178 DSPXPOSITION 170 DSPXPOSITION 153 \OUTCHAR 138 TERPRI 129 DSPXPOSITION 114 \INCCODE.EOLC 106 SETFILEPTR 99 SETFILEINFO 80 GETFILEINFO 66 OPENSTREAM 53 GETSTREAM 38 ARRAYSIZE 29 FONTMAPARRAY 20 DSPRIGHTMARGIN 10 GETSTREAM) (490 :NORMAL 462 SI::NLSETQ-PROCEED-CASE 309 ENDOFSTREAMOP 94 NILL 89 ENDOFSTREAMOP 75 ENDOFSTREAMOP 61 INPUT 47 INPUT 5 OUTPUT) ( 471 (CL:ERROR . SI::NLSETQHANDLER) 283 "Undefined absolute tab number") TEXTTOIMAGEFILE :D8 (I 3 OPTIONS I 2 IMAGETYPE I 1 IMAGEFILE I 0 FILE) @ABC (8 TEDIT.TO.IMAGEFILE) NIL () \BLTSHADE.GENERICPRINTER :D8 (P 3 BMHEIGHT P 2 BMWIDTH P 1 SCRATCHBM P 0 FINALREGION I 8 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)  @BCDE hA XxGHG XdHG Zj`JTHG [j@K4JK Y@Ijdhdg IjdAHHhdgF h h h(150 \FZEROP 141 \FZEROP 134 BKBITBLT 111 \BLTSHADE.BITMAP 93 BITMAPCREATE 76 FIXR 53 FIXR 37 INTERSECTREGIONS 23 INTERSECTREGIONS 18 DSPCLIPPINGREGION 11 CREATEREGION) (127 INPUT 105 REPLACE) () MAKEHARDCOPYSTREAM :D8 (P 0 DS I 1 IMAGETYPE I 0 DISPLAYSTREAM) @ @ @ @ H`.HgAg  Hg&Hg(hH H jH jH hH H H(149 DSPRIGHTMARGIN 143 DSPRIGHTMARGIN 136 DSPYPOSITION 129 DSPXPOSITION 122 DSPFONT 116 DSPFONT 83 STREAMPROP 77 PRINTERPROP 67 PRINTERTYPE 37 \ILLEGAL.ARG 31 DSPCREATE 20 \INSUREWINDOW 13 WINDOWP 5 DISPLAYSTREAMP) (107 \HDCPYDSPPRINTCHAR 102 STREAM 94 \HDCPYDSPPRINTCHAR 89 STREAM 72 CANPRINT 59 HARDCOPYIMAGETYPE 51 \HDCPYDISPLAYIMAGEOPS 46 STREAM) () UNMAKEHARDCOPYSTREAM :D8 (P 0 DS I 0 DISPLAYSTREAM) f@ @ @ @ gH HH`.Hgh Hg&Hg(H(72 STREAMPROP 43 IMAGESTREAMTYPE 29 \ILLEGAL.ARG 20 \INSUREWINDOW 13 WINDOWP 5 DISPLAYSTREAMP) (96 \DSPPRINTCHAR 91 STREAM 83 \DSPPRINTCHAR 78 STREAM 66 HARDCOPYIMAGETYPE 58 \DISPLAYIMAGEOPS 53 STREAM 37 HARDCOPY) () HARDCOPYSTREAMTYPE :D8 (P 0 STREAM I 0 IMAGESTREAM) @gi Hdg (27 STREAMPROP 11 \GETSTREAM) (22 HARDCOPYIMAGETYPE 5 OUTPUT) () \CHARWIDTH.HDCPYDISPLAY :D8 (I 1 CHARCODE I 0 STREAM) W@0 hdd@g AHIHIIH JKLLAlll#(56 \CREATECHARSET 24 FONTCREATE 18 STREAMPROP) (45 FONTDESCRIPTOR 13 HARDCOPYIMAGETYPE) () \DSPFONT.HDCPYDISPLAY :D8 (P 12 I P 10 OLDWIDTH P 9 W P 8 CSINFO P 7 SCALE P 3 DD P 0 FD I 1 FONT I 0 HDCPYDSTREAM)  Adhdd@g !@H H@0KHg H@YJIJJI LMNN" KjH O Oo OXllk _O_oO_lj OO!OOOOO Ok_O0(237 FIXR 178 \ALLOCBLOCK 153 EQP 137 FIXR 104 \CREATECHARSET 66 FONTPROP 33 \DSPFONT.DISPLAY 23 FONTCREATE 17 STREAMPROP) (188 CHARSETINFO 161 CHARSETINFO 127 FONTDESCRIPTOR 93 FONTDESCRIPTOR 73 STREAM 61 SCALE 55 \DISPLAYDATA 44 STREAM 12 HARDCOPYIMAGETYPE) ( 198 35.27778 148 35.27778) \DSPRIGHTMARGIN.HDCPYDISPLAY :D8 (I 1 XPOSITION I 0 DISPLAYSTREAM) %@A A@0Aoj<(6 \DSPRIGHTMARGIN.DISPLAY) (22 \DISPLAYDATA 15 STREAM) ( 28 35.27778) \DSPXPOSITION.HDCPYDISPLAY :D8 (I 1 XPOSITION I 0 HARDCOPYSTREAM) @A A@ (14 \HDCPYDISPLAY.FIX.XPOS 6 \DSPXPOSITION.DISPLAY) NIL () \DSPYPOSITION.HDCPYDISPLAY :D8 (I 1 YPOSITION I 0 HARDCOPYSTREAM) @A A@ (14 \HDCPYDISPLAY.FIX.YPOS 6 \DSPYPOSITION.DISPLAY) NIL () \STRINGWIDTH.HDCPYDISPLAY :D8 (P 0 HARDCOPYFD I 2 RDTBL I 1 STR I 0 STREAM) K@0 hdd@g AHBHHjH YI ll#(66 \STRINGWIDTH.GENERIC 52 \CREATECHARSET 24 FONTCREATE 18 STREAMPROP) (43 FONTDESCRIPTOR 13 HARDCOPYIMAGETYPE) () \STRINGWIDTH.HCPYDISPLAYAUXA0014 :D8 (I 1 CC I 0 DUMMY F 3 CSET F 4 FONT F 5 TOTALWIDTH F 6 WIDTHSBASE F 7 SPACEWIDTH) NUAl WASAV2AcTSTSST HIJJc Alc (49 \CREATECHARSET) (38 FONTDESCRIPTOR) () \STRINGWIDTH.HCPYDISPLAYAUX :D8 (P 26 C P 21 CSET P 20 WIDTHSBASE P 19 ESCWIDTH P 18 ESC P 17 TOTAL P 10 CSET P 9 WIDTHSBASE P 8 C P 4 CSET P 3 WIDTHSBASE P 2 SPACEWIDTH P 1 FONT P 0 TOTALWIDTH I 3 SPACEWIDTH I 2 RDTBL I 1 FONT I 0 STR F 31 *PRINT-LEVEL* F 32 *PRINT-LENGTH*) +@d3@BjAC#g@BdW>W@ Hk@jc N__N jh_MOrOOMOM_OOO;O_AO%AOOA OOO O _Ol COOl_Mk]O@ FjqBvAAjA _,O,"_"B_$AO$_0_.O0%O.O0O0O. MNOOO$l_&@QO2dj _8O2dj _:O8mO2l _6O2dj lD_@@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) '@0HHojY:INIL (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 18 CSINFO P 17 HEIGHTMOVED P 16 YPOS P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 SOURCEBIT P 12 WIDTH P 11 DESTBIT P 10 PILOTBBT P 9 RIGHT P 8 LEFT P 7 NEWX P 6 CURX P 2 ROTATION P 1 DD P 0 CHAR8CODE I 1 DISPLAYSTREAM I 0 CHARCODE F 22 \SOFTCURSORP F 23 \SOFTCURSORUPP F 24 \CURSORDESTINATION F 25 \SCREENBITMAPS) I@lA0BI ZdjeIq NIH_Il A I^IH_IONIؾI"dNN_I#OIػdKK_I*_OOO jO_OO_IHON_IdkAdlO_O_O_$lO_O_O_ W,-W. hA W0_`_`jA`hA W2A OOOOOOOjvO`O0I_ IH_"I @\M#LMML O&O(O*O*_$JdlZ;AO O" O$jIHAIO$ kO O$ O$ O" Hn8AO O" O$jIHAIO$ IO$ O$ O" o h(581 ERROR 570 BKBITBLT 528 \DSPYPOSITION.DISPLAY 509 BKBITBLT 466 \DSPYPOSITION.DISPLAY 428 \CREATECHARSET 360 \SOFTCURSORUPCURRENT 325 \TOTOPWDS 315 DSPDESTINATION 298 \SOFTCURSORDOWN 267 DSPDESTINATION 248 SHOULDNT 53 \DSPPRINTCR/LF) (417 FONTDESCRIPTOR 366 \EM.DISPINTERRUPT 305 \TOPWDS 289 \EM.DISPINTERRUPT 279 \EM.DISPINTERRUPT 109 \DISPLAYDATA 82 \DISPLAYDATA) ( 576 "Not implemented to rotate by other than 0, 90 or 270") \CHANGECHARSET.HDCPYDISPLAY :D8 (P 9 I P 7 OLDWIDTH P 6 W P 5 CSINFO P 4 SCALE P 0 FD I 2 HDCPYDSTREAM I 1 CHARSET I 0 DISPLAYDATA) @A @ hddBg @Hg HAHAAH IJKK"M_Lo ODllk oLlj OONOOOL Ok_N0h(171 FIXR 131 \ALLOCBLOCK 113 EQP 76 \CREATECHARSET 49 FONTPROP 29 FONTCREATE 23 STREAMPROP 6 \CHANGECHARSET.DISPLAY) (97 CHARSETINFO 65 FONTDESCRIPTOR 44 SCALE 38 \DISPLAYDATA 18 HARDCOPYIMAGETYPE) ( 137 35.27778 108 35.27778) MAKEHARDCOPYMODESTREAM :D8 (P 1 IMAGEOPSVAR P 0 DS I 1 IMAGETYPE I 0 DISPLAYSTREAM) Ag b@ @ @ @ oA I IA HI .HgA Hg&Hg(hH H jH jH HghH hH dH o H kH H(240 DSPSPACEFACTOR 233 DSPRIGHTMARGIN 227 FIXR 213 DSPCLIPPINGREGION 205 DSPRIGHTMARGIN 198 STREAMPROP 193 DSPRIGHTMARGIN 180 DSPYPOSITION 173 DSPXPOSITION 166 DSPFONT 160 DSPFONT 127 STREAMPROP 113 GETTOPVAL 100 SETTOPVAL 95 \HCPYDISPLAYIMAGEOPS 82 GETTOPVAL 73 PACK* 59 \ILLEGAL.ARG 53 DSPCREATE 42 \INSUREWINDOW 35 WINDOWP 27 DISPLAYSTREAMP 17 PRINTERPROP 7 PRINTERTYPE) (186 DSPRIGHTMARGIN 151 \HCPYMODEDSPPRINTCHAR 146 STREAM 138 \HCPYMODEDSPPRINTCHAR 133 STREAM 121 HARDCOPYIMAGETYPE 107 STREAM 87 IMAGEOPS 12 CANPRINT) ( 221 35.27778 67 "\HCPYMODEDISPLAYIMAGEOPS.") UNMAKEHARDCOPYMODESTREAM :D8 (P 0 DS I 0 DISPLAYSTREAM) @ @ @ @ gH fH`.Hgh Hg&Hg(jH jH @g dH hH H(146 DSPRIGHTMARGIN 136 DSPCLIPPINGREGION 128 STREAMPROP 116 DSPYPOSITION 108 DSPXPOSITION 72 STREAMPROP 43 IMAGESTREAMTYPE 29 \ILLEGAL.ARG 20 \INSUREWINDOW 13 WINDOWP 5 DISPLAYSTREAMP) (123 DSPRIGHTMARGIN 98 \DSPPRINTCHAR 93 STREAM 84 \DSPPRINTCHAR 79 STREAM 66 HARDCOPYIMAGETYPE 57 \DISPLAYIMAGEOPS 52 STREAM 37 HARDCOPY) () \HCPYDISPLAYIMAGEOPSA0022 :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) () \HCPYDISPLAYIMAGEOPS :D8 (I 0 IMAGETYPE) `` dodgdg dg dgdgdgdgdgdgdgdgdgdgdg dg2dg4@g HdI,o@o "HdI"dgdg*(209 GETTOPVAL 204 PACK* 178 PACK* 14 NCREATE2) (241 \DSPSPACEFACTOR.HCPYMODE 232 \HCPYDISPLAYIMAGEOPSA0022 214 IMAGEOPS 173 DISPLAY 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#|) ( 199 "IMAGEOPS" 193 "\" 20 (HARDCOPY DISPLAY)) \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 9 \INTERRUPTABLE P 7 BM P 6 CSDINFO P 5 CSINFO P 4 PBT I 1 CHARSET I 0 DISPLAYDATA) 9 @*@ HAHAAH IJKK@ gg HAHAAH IJKK# @M@M@M0@A>M_LOn@ gNgN gN gN N h@'M @@M @M )OO@B_LOLOh(267 \SFFixY.HCPYMODE 96 \CREATECHARSET 66 FONTCOPY 35 \CREATECHARSET) (304 PILOTBBT 292 PILOTBBT 229 CHARSETINFO 221 CHARSETINFO 215 HEIGHT 208 CHARSETINFO 202 DESCENT 195 CHARSETINFO 189 ASCENT 182 CHARSETINFO 176 WIDTHS 171 FONTDESCRIPTOR 85 FONTDESCRIPTOR 61 DISPLAY 56 DEVICE 24 FONTDESCRIPTOR) () \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 4 \INTERRUPTABLE P 2 OLDFONT P 1 XFONT P 0 DD I 1 FONT I 0 HDCPYDSTREAM) @01H ZAyAhdd@.,i  H A YJOHI HjI Hd8kIIjI [K A@H (140 \SFFixFont 130 FIXR 115 \CREATECHARSET 59 FONTCOPY 48 FONTCREATE) (106 FONTDESCRIPTOR 80 FONTDESCRIPTOR 39 IMAGEOPS 32 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 :D8 (P 7 CS0DINFO P 3 HFONT P 0 DFONT I 0 FONTSPEC F 8 \DEFAULTCHARSET) @hddg !@ `J lli dIHW!HWWH LMNNKgOgO gO gO O hK(85 \CREATECHARSET 46 \ALLOCBLOCK 35 NCREATE2 23 FONTCREATE 14 FONTCREATE) (169 CHARSETINFO 160 CHARSETINFO 153 HEIGHT 146 CHARSETINFO 139 DESCENT 132 CHARSETINFO 125 ASCENT 118 CHARSETINFO 111 WIDTHS 106 FONTDESCRIPTOR 72 FONTDESCRIPTOR 29 |FONTDESCRIPTORTYPE#| 8 DISPLAY) () \CREATECHARSET.HCPYMODE :D8 (P 10 CSINFO P 9 CSHINFO P 5 CSDINFO P 1 HFONT P 0 DFONT I 2 CHARSET I 1 FONT I 0 FONTSPEC) @hddg @ HBHBBH JKLLIB"IBBI NOOO `O  OMOMOMO(125 NCREATE2 95 \CREATECHARSET 53 \CREATECHARSET 23 FONTCREATE 14 FONTCREATE) (175 CHARSETINFO 169 CHARSETINFO 158 CHARSETINFO 152 CHARSETINFO 141 CHARSETINFO 135 CHARSETINFO 118 |CHARSETINFOTYPE#| 84 FONTDESCRIPTOR 42 FONTDESCRIPTOR 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) \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 18 CSINFO P 17 HEIGHTMOVED P 16 YPOS P 15 SOFTCURSORUP P 14 DISPINTERRUPT P 13 SOURCEBIT P 12 WIDTH P 11 DESTBIT P 10 PILOTBBT P 9 RIGHT P 8 LEFT P 7 NEWX P 6 CURX P 2 ROTATION P 1 DD P 0 CHAR8CODE I 1 DISPLAYSTREAM I 0 CHARCODE F 22 \SOFTCURSORP F 23 \SOFTCURSORUPP F 24 \CURSORDESTINATION F 25 \SCREENBITMAPS) I@lA0BI ZdjeIq NIH_Il A I^IH_IONIؾI"dNN_I#OIػdKK_I*_OOO jO_OO_IHON_IdkAdlO_O_O_$lO_O_O_ W,-W. hA W0_`_`jA`hA W2A OOOOOOOjvO`O0I_ IH_"I @\M#LMML O&O(O*O*_$JdlZ;AO O" O$jIHAIO$ kO O$ O$ O" Hn8AO O" O$jIHAIO$ AO$ O$ O" o h(581 ERROR 570 BKBITBLT 528 \DSPYPOSITION.DISPLAY 509 BKBITBLT 466 \DSPYPOSITION.DISPLAY 428 \CREATECHARSET 360 \SOFTCURSORUPCURRENT 325 \TOTOPWDS 315 DSPDESTINATION 298 \SOFTCURSORDOWN 267 DSPDESTINATION 248 SHOULDNT 53 \DSPPRINTCR/LF) (417 FONTDESCRIPTOR 366 \EM.DISPINTERRUPT 305 \TOPWDS 289 \EM.DISPINTERRUPT 279 \EM.DISPINTERRUPT 109 \DISPLAYDATA 82 \DISPLAYDATA) ( 576 "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 ((EXPORT (CONSTANTS (MICASPERINCH 2540) (PTSPERINCH 72) (MICASPERPT (FQUOTIENT MICASPERINCH PTSPERINCH)) (IHALFMICASPERPT (FIX (FQUOTIENT MICASPERPT 2))) (IMICASPERPT (FIX MICASPERPT)) (PTSPERCM (FQUOTIENT PTSPERINCH 2.54)) (PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH)) ( PTSPERPICA 12) (PICASPERINCH (QUOTIENT PTSPERINCH PTSPERPICA)) (DEFAULTTAB (IQUOTIENT PTSPERINCH 2)))) (COMS (* ; "exported functionality") (INITVARS (ChangeDefaultPrinter)) (FNS MakeMenuOfPrinters PRINTERS.WHENSELECTEDFN MakeMenuOfImageTypes GetNewPrinterFromUser PopUpWindowAndGetAtom PopUpWindowAndGetList NewPrinter GetPrinterName GetImageFile)) (COMS (* ; "Interface for PRINTERS and IMAGEFILES") (FNS HARDCOPYW LISTFILES1 PRINTERPROP PRINTERSTATUS PRINTERTYPE PRINTERNAME PRINTFILETYPE PRINTERTYPEP SEND.FILE.TO.PRINTER FIND.PRINTER.FOR.IMAGETYPE CAN.PRINT.SOMEHOW CAN.PRINT.DIRECTLY) (COMS (FNS PRINTERDEVICE PRINTERDEVICE.OPENFN PRINTERDEVICE.CLOSEFN PRINTERDEVICEP PRINTERNAME) (DECLARE%: DONTEVAL@LOAD DOCOPY (P (PRINTERDEVICE ( QUOTE LPT))))) (FNS DEFAULTPRINTERS) (INITVARS (DEFAULTPRINTINGHOST) (EMPRESS#SIDES T)) (COMS ( INITVARS (DEFAULTPRINTERTYPE (QUOTE VIEWER))) (ADDVARS (PRINTERTYPES (VIEWER (CANPRINT (PDF HTML)) ( STATUS TRUE) (PROPERTIES NILL) (SEND VIEWERPRINT))) (DEFAULTPRINTINGHOST (VIEWER VIEWER) (UNIX UNIX))) (FNS VIEWERPRINT)) (GLOBALVARS DEFAULTPRINTINGHOST DEFAULTPRINTERTYPE EMPRESS#SIDES PRINTERTYPES)) ( FNS SCALEREGION) (COMS (* ; "Converting text files to imagestreams") (GLOBALVARS TEXTDEFAULTPAGEREGION ) (INITVARS (TEXTDEFAULTPAGEREGION (SCALEREGION MICASPERINCH (CREATEREGION 1.1 0.75 7.25 9.75)))) ( ALISTS (IMAGESTREAMTYPES TEXT) (PRINTFILETYPES TEXT)) (FNS TEXT.TO.IMAGEFILE COPY.TEXT.TO.IMAGE TEXTTOIMAGEFILE) (P (FONTPROFILE.ADDDEVICE (QUOTE TEXT)) (DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEXT TEXT.TO.IMAGEFILE))))) (COMS (* ; "hack for printers that can't really BLTSHADE") (FNS \BLTSHADE.GENERICPRINTER)) (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 (MACROS \MICASTOPTS)))) (COMS (* ; "Stuff to support MICA-unit hardcopy streams on the display") (FNS MAKEHARDCOPYMODESTREAM UNMAKEHARDCOPYMODESTREAM \HCPYDISPLAYIMAGEOPS \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 \CREATECHARSET.HCPYMODE \STRINGWIDTH.HCPYMODE \HCPYMODEBLTCHAR \HCPYMODEDSPPRINTCHAR \SLOWHCPYMODEBLTCHAR \SFFixY.HCPYMODE)) (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA) (NLAML) (LAMA))))) (RPAQQ MICASPERINCH 2540) (RPAQQ PTSPERINCH 72) (RPAQ MICASPERPT (FQUOTIENT MICASPERINCH PTSPERINCH)) (RPAQ IHALFMICASPERPT (FIX (FQUOTIENT MICASPERPT 2))) (RPAQ IMICASPERPT (FIX MICASPERPT)) (RPAQ PTSPERCM (FQUOTIENT PTSPERINCH 2.54)) (RPAQ PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH)) (RPAQQ PTSPERPICA 12) (RPAQ PICASPERINCH (QUOTIENT PTSPERINCH PTSPERPICA)) (RPAQ DEFAULTTAB (IQUOTIENT PTSPERINCH 2)) (CONSTANTS (MICASPERINCH 2540) (PTSPERINCH 72) (MICASPERPT (FQUOTIENT MICASPERINCH PTSPERINCH)) ( IHALFMICASPERPT (FIX (FQUOTIENT MICASPERPT 2))) (IMICASPERPT (FIX MICASPERPT)) (PTSPERCM (FQUOTIENT PTSPERINCH 2.54)) (PTSPERMICA (FQUOTIENT PTSPERINCH MICASPERINCH)) (PTSPERPICA 12) (PICASPERINCH ( QUOTIENT PTSPERINCH PTSPERPICA)) (DEFAULTTAB (IQUOTIENT PTSPERINCH 2))) (RPAQ? ChangeDefaultPrinter) (PRINTERDEVICE (QUOTE LPT)) (RPAQ? DEFAULTPRINTINGHOST) (RPAQ? EMPRESS#SIDES T) (RPAQ? DEFAULTPRINTERTYPE (QUOTE VIEWER)) (ADDTOVAR PRINTERTYPES (VIEWER (CANPRINT (PDF HTML)) (STATUS TRUE) (PROPERTIES NILL) (SEND VIEWERPRINT ))) (ADDTOVAR DEFAULTPRINTINGHOST (VIEWER VIEWER) (UNIX UNIX)) (RPAQ? TEXTDEFAULTPAGEREGION (SCALEREGION MICASPERINCH (CREATEREGION 1.1 0.75 7.25 9.75))) (ADDTOVAR IMAGESTREAMTYPES (TEXT (FONTCREATE \CREATEDISPLAYFONT) (CREATECHARSET \CREATECHARSET.DISPLAY ))) (ADDTOVAR PRINTFILETYPES (TEXT (TEST LISPSOURCEFILEP) (EXTENSION (TXT TEXT)))) (FONTPROFILE.ADDDEVICE (QUOTE TEXT)) (DEFAULT.IMAGETYPE.CONVERSIONS (QUOTE (TEXT TEXT.TO.IMAGEFILE))) NIL