(FILECREATED "28-Aug-85 14:53:21" ("compiled on " {ERIS}RS232>FXPRINTER.;5) "16-Aug-85 06:20:26" recompiled exprs: RS232.PRINT FX.PRESSBITMAP WINDOWDISPLAY in "INTERLISP-D 16-Aug-85 ..." dated "16-Aug-85 08:01:07") (FILECREATED "28-Aug-85 14:44:02" {ERIS}RS232>FXPRINTER.;5 26753 changes to: (VARS FXPRINTERCOMS) (FNS RS232.PRINT FX.PRESSBITMAP WINDOWDISPLAY COMBMDISPLAY \PRINTER.CRLF GRAPHICS.MODE FBITMAP FXFITERROR BITMAPDISPLAY COMGRAPH.MODE FXPRINT \PRINTER.COMMAND \PRINTER.HEADING BOLD.MODE COMMENT.MODE EXPANDED.MODE STANDARD.MODE \PRINTER.INIT \PRINTER.PRINT.HEADING \PRINTER.TEXTINIT RS232.PRINTFILE SELECT.MODE \PRINTER.MODE) previous date: "19-Nov-84 13:32:12" {ERIS}INTERMEZZO>LIBRARY>FXPRINTER.;1) RS232.PRINT D1 (P 0 PRINTERSTREAM I 4 PRINTERDEVICE I 3 COMPRESS? I 2 STANDARD.SETUP I 1 NOROTATE? I 0 FILENAME) VgD`g g @d`dAChH  @AChH @H HpjH H(122Q FORCEOUTPUT 76Q RS232.PRINTFILE 70Q WINDOWDISPLAY 56Q WINDOWP 51Q FBITMAP 24Q OPENSTREAM 16Q PACK*) (110Q FDEV 103Q STREAM 35Q BITMAPTYPE# 21Q OUTPUT 13Q } 10Q DEFAULTPRINTERDEVICE 2 {) () RS232.PRINTFILE D1 (P 1 CHAR P 0 FILE I 1 PRINTERSTREAM I 0 FILENAME) 5A @A @ @gg XH H YA H h(61Q CLOSEF 51Q SELECT.MODE 41Q EOFP 31Q OPENSTREAM 17Q CLOSEF? 13Q \PRINTER.PRINT.HEADING 6 \PRINTER.TEXTINIT) (26Q OLD 23Q INPUT) () FBITMAP D1 (P 12Q J P 10Q COLUMN P 6 OFFSET P 5 CNT P 4 J P 3 COLUMN P 2 BYTESPERROW P 1 BASE P 0 HEIGHT I 4 PRINTERSTREAM I 3 NOERRORCHECK I 2 COMPRESS? I 1 NOROTATE? I 0 BMAP) B@@@lCAC@n@q@D yHn@CagD gD J^kOO;HD kH OODIJON!Om_D NkپOk_gD @ABH@D h@ACD (264Q COMBMDISPLAY 253Q FXFITERROR 233Q \PRINTER.MODE 206Q \PRINTER.CRLF 137Q GRAPHICS.MODE 114Q \PRINTER.MODE 104Q \PRINTER.MODE 62Q BITMAPDISPLAY) (244Q BITMAP 227Q UniDirectionalOff 110Q EightSpacingOn 100Q UniDirectionalOn 45Q BITMAP 24Q BITMAP 16Q BITMAP 10Q BITMAP) () FX.PRESSBITMAP D1 (P 0 PRINTERSTREAM I 5 TITLE I 4 ROTATION I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE F 1 NEWBITMAP) Vg@`g g C/AcH ACCQjdCC QDhdH H C (122Q BITMAPCREATE 105Q CLOSEF 101Q FBITMAP 70Q BKBITBLT 42Q \PRINTER.INIT 24Q OPENSTREAM 16Q PACK*) (21Q OUTPUT 13Q } 10Q DEFAULTPRINTERDEVICE 2 {) () FXFITERROR D1 (P 2 USER? P 1 NCOMPRESS P 0 NROTATE I 5 PRINTERSTREAM I 4 X I 3 Y I 2 COMPRESS? I 1 NOROTATE? I 0 BMAP) oi i 0Dn@Cn@BiDnhACn@AiABoi i oi Hi i oi Ii i i l goo Zddg@ABiE ;g@HIhE +Jg%i oi i gE gE h(324Q \PRINTER.MODE 314Q \PRINTER.MODE 304Q TERPRI 277Q PRIN1 266Q TERPRI 251Q FBITMAP 231Q FBITMAP 207Q ASKUSER 167Q TERPRI 162Q TERPRI 155Q PRIN1 147Q PRIN1 136Q TERPRI 131Q PRIN1 123Q PRIN1 112Q TERPRI 105Q PRIN1 14Q TERPRI 7 PRIN1) (320Q UniDirectionalOff 310Q EightSpacingOn 257Q A 236Q Y 215Q N 174Q Y) ( 273Q "Aborted." 204Q ((Y "es ") (N "o ") (A "bort ")) 200Q "Use these settings? " 143Q "COMPRESS? " 117Q "NOROTATE? " 101Q "The following settings will work:" 3 "The bitmap will not fit on the page.") FXPRINT D1 (P 0 PRINTERSTREAM I 2 PRINTOPTIONS I 1 FILE I 0 HOST F 1 COUNTER F 2 SUPPRESS.PAPER.ADJ.FLAG F 3 SAVED.SUPPRESS.FLAG F 4 '#COPIES) ORcAFBT'c)kQ:Ahdd@ QkcHl !icH Ahdd@ Hl !H Sc(110Q CLOSEF 74Q RS232.PRINT 60Q CLOSEF 32Q RS232.PRINT) NIL () BITMAPDISPLAY D1 (P 13Q EXP P 11Q X P 7 CURRENTHT P 5 PRINTVAL P 4 Y P 3 X P 2 EXP P 1 CURRENTHT P 0 WIDTH I 1 STREAM I 0 BMAP F 14Q 'UniDirectionalOn F 15Q 'EightSpacingOn F 16Q HEIGHT F 17Q 'UniDirectionalOff) @QWA WA jWNOcH Hk OOBj]l OO'OlOռlO @OLhMؽOm_AM!Ok_A Om_WA h(210Q \PRINTER.MODE 166Q \PRINTER.CRLF 117Q EXPT 44Q GRAPHICS.MODE 24Q \PRINTER.MODE 16Q \PRINTER.MODE) (3 BITMAP) () TEXTFILEP D1 (I 0 FILE F 0 'TEXT F 1 'TYPE) P@Q (5 GETFILEINFO) NIL () WINDOWDISPLAY D1 (P 1 BITMAP P 0 PRINTERSTREAM I 3 PRINTERDEVICE I 2 COMPRESS? I 1 NOROTATE? I 0 WINDOW) -gC`g g @ YdABhH H h(51Q CLOSEF 45Q FBITMAP 33Q WINDOW.TO.BITMAP 24Q OPENSTREAM 16Q PACK*) (21Q OUTPUT 13Q } 10Q DEFAULTPRINTERDEVICE 2 {) () WINDOW.TO.BITMAP D1 (P 0 BITMAP I 0 WINDOW) @g @g X@hdH H(33Q BKBITBLT 23Q BITMAPCREATE 20Q GETWINDOWPROP 11Q GETWINDOWPROP) (15Q HEIGHT 6 WIDTH) () BOLD.MODE D1 (I 0 STREAM) g@ g@ g@ g@ (33Q \PRINTER.MODE 24Q \PRINTER.MODE 15Q \PRINTER.MODE 6 \PRINTER.MODE) (27Q BoldOn 20Q CompressedOn 11Q ExpandOff 2 ProportionalOff) () COMBMDISPLAY D1 (P 15Q Y P 13Q X P 11Q YY P 7 I P 5 Q P 3 YPOS P 2 PRINTVAL P 1 WIDTH P 0 HEIGHT I 3 PRINTERSTREAM I 2 NOERRORCHECK I 1 NOROTATE? I 0 BMAP) >@@"gC AHIKYInB@AiAHIAIHC jHLMMl MNOl l  OOIC Ik OO_jZO OODOl OٻJOM ooOlk A@OK@HKOhغOm_CJ!Ok_l3C Cl!C Om_nlAC COM ll!C Om_8MmԽ gC gC C h(472Q \PRINTER.CRLF 465Q \PRINTER.MODE 455Q \PRINTER.MODE 420Q \PRINTER.CRLF 404Q EQP 374Q \PRINTER.COMMAND 351Q \PRINTER.CRLF 337Q \PRINTER.COMMAND 255Q NTH 231Q EQP 156Q COMGRAPH.MODE 72Q FXFITERROR 25Q \PRINTER.MODE) (461Q UniDirectionalOff 451Q EightSpacingOn 21Q UniDirectionalOn 11Q BITMAP 3 BITMAP) ( 243Q (2 10Q 40Q 200Q) 236Q (1 4 20Q 100Q)) COMGRAPH.MODE D1 (I 1 STREAM I 0 WIDTH) %lLA n@A@!Aj!A@n !A@n!(32Q REMAINDER 5 \PRINTER.COMMAND) NIL () COMMENT.MODE D1 (I 0 STREAM) %g@ g@ g@ g@ g@ (42Q \PRINTER.MODE 33Q \PRINTER.MODE 24Q \PRINTER.MODE 15Q \PRINTER.MODE 6 \PRINTER.MODE) (36Q CompressedOn 27Q ItalicOn 20Q SubScriptOn 11Q BoldOff 2 EliteOff) () EXPANDED.MODE D1 (I 0 STREAM) g@ g@ g@ g@ (33Q \PRINTER.MODE 24Q \PRINTER.MODE 15Q \PRINTER.MODE 6 \PRINTER.MODE) (27Q ProportionalOn 20Q ExpandOn 11Q EliteOff 2 BoldOff) () GRAPHICS.MODE D1 (I 1 STREAM I 0 ROWS) )l*A Al!n@A@!Aj!A@n !A@n!(36Q REMAINDER 5 \PRINTER.COMMAND) NIL () SELECT.MODE D1 (I 1 STREAM I 0 CHAR F 0 FILE) >@dl+P bddlA lA @lA A l A A@!(67Q \PRINTER.CRLF 56Q STANDARD.MODE 51Q EXPANDED.MODE 37Q COMMENT.MODE 26Q BOLD.MODE) NIL () STANDARD.MODE D1 (I 0 STREAM) 3g@ g@ g@ g@ g@ g@ g@ (60Q \PRINTER.MODE 51Q \PRINTER.MODE 42Q \PRINTER.MODE 33Q \PRINTER.MODE 24Q \PRINTER.MODE 15Q \PRINTER.MODE 6 \PRINTER.MODE) (54Q ProportionalOff 45Q BoldOff 36Q ExpandOff 27Q EliteOff 20Q ScriptOff 11Q ItalicOff 2 CompressedOn) () \PRINTER.COMMAND D1 (I 1 STREAM I 0 CommandChar) Al!A@!NIL NIL () \PRINTER.CRLF D1 (I 0 STREAM) !@l !@l !@pj@ (36Q BLOCK 32Q FORCEOUTPUT) (20Q FDEV 13Q STREAM) () \PRINTER.HEADING D1 (I 1 STREAM I 0 FILENAME) 5oA @A oA A oA A A A (62Q \PRINTER.CRLF 56Q \PRINTER.CRLF 52Q PRIN1 46Q USERNAME 43Q PRIN1 33Q PRIN1 27Q DATE 24Q PRIN1 14Q PRIN1 7 PRIN1) NIL ( 37Q " by " 20Q " , " 3 "Listing of File ") \PRINTER.INIT D1 (P 0 BAUDRATE I 0 STREAM F 1 BAUDRATE F 2 SUPPRESS.PAPER.SET.FLAG F 3 DEFAULTLOCALBAUDRATE) RRi i oi i oi i i i i i lgo gSl