(FILECREATED "19-Nov-84 13:33:41" ("compiled on " {DSK}FXPRINTER.;1) " 1-Nov-84 14:14:14" tcompl%'d in "INTERLISP-D 1-Nov-84 ..." dated " 1-Nov-84 14:30:10") (FILECREATED "19-Nov-84 13:32:12" {DSK}FXPRINTER.;1 22620 changes to: (FNS FXPRINT TEXTFILEP BOLD.MODE COMMENT.MODE EXPANDED.MODE STANDARD.MODE \PRINTER.PRINT.HEADING \PRINTER.TEXTINIT) (VARS FXPRINTERCOMS) previous date: " 7-Sep-84 13:43:52" {ROSEBOWL}LIBRARY>FXPRINTER.;13) RS232.PRINT D1 (I 3 COMPRESS? I 2 STANDARD.SETUP I 1 NOROTATE? I 0 FILENAME F 0 RS232XON\XOFF?) >B²n%€lhkg ¿ic‚¿@d`ð—d•AC –@AC@ (73Q RS232.PRINTFILE 66Q WINDOWDISPLAY 57Q WINDOWP 53Q FBITMAP 33Q \PRINTER.INIT 23Q RS232INIT 2 RS232INIT) (42Q BITMAPTYPE# 17Q DTR) () RS232.PRINTFILE D1 (P 1 CHAR P 0 FILE I 0 FILENAME) 2@ @ @ggXH ¨H Y ¿°ôH h(56Q CLOSEF 46Q SELECT.MODE 37Q EOFP 27Q OPENSTREAM 15Q CLOSEF? 11Q \PRINTER.PRINT.HEADING 5 \PRINTER.TEXTINIT) (24Q OLD 21Q 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 3 NOERRORCHECK I 2 COMPRESS? I 1 NOROTATE? I 0 BMAP) °B’±¦@È@É@ÈlÚCA²C«@Èn@ó³l@ °tHn@ó’C²]g ¿g ¿J^kOOñ³:H ¿kH OOñ³IJOÚNÙÂi ¿OkÙ_¿°å¿NkÙ¾OkØ_°Åg @ABH@È h@AC(255Q COMBMDISPLAY 245Q FXFITERROR 226Q \PRINTER.MODE 202Q \PRINTER.CRLF 164Q RS232WRITEBYTE 133Q GRAPHICS.MODE 111Q \PRINTER.MODE 102Q \PRINTER.MODE 61Q BITMAPDISPLAY) (237Q BITMAP 223Q UniDirectionalOff 106Q EightSpacingOn 77Q UniDirectionalOn 45Q BITMAP 24Q BITMAP 16Q BITMAP 10Q BITMAP) () FX.PRESSBITMAP D1 (I 5 TITLE I 4 ROTATION I 3 REGION I 2 SCALEFACTOR I 1 BITMAP I 0 FILE F 0 NEWBITMAP) 4Cµ%Ac¿ACCPjdCC PD C °Ó(60Q BITMAPCREATE 44Q FBITMAP 37Q BITBLT 11Q \PRINTER.INIT) NIL () FXFITERROR D1 (P 2 USER? P 1 NCOMPRESS P 0 NROTATE I 4 X I 3 Y I 2 COMPRESS? I 1 NOROTATE? I 0 BMAP) Ñoi ¿i 0Dn@ó²Cn@ó¢B´i¹DnÀó“h¸°A¸ŽCn@ó”Aµi€A¸B¹oi ¿i ¿oi ¿Hi ¿i ¿oi ¿Ii ¿i ¿i l gooZddgð™¿@ABi°6gð—@HI°)Jgð´#i ¿oi ¿i ¿g ¿g h(315Q \PRINTER.MODE 306Q \PRINTER.MODE 277Q TERPRI 272Q PRIN1 261Q TERPRI 244Q FBITMAP 227Q 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) (312Q UniDirectionalOff 303Q EightSpacingOn 252Q A 234Q Y 215Q N 174Q Y) ( 266Q "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 (I 2 PRINTOPTIONS I 1 FILE I 0 HOST F 0 COUNTER F 1 SUPPRESS.PAPER.ADJ.FLAG F 2 SAVED.SUPPRESS.FLAG) =QcA²4Bg c²kPó³$A ¿PkÙc¿l ¿ic¿°æA ¿l ¿Rc(66Q RS232WRITEBYTE 60Q RS232.PRINT 45Q RS232WRITEBYTE 31Q RS232.PRINT 14Q LISTGET) (11Q #COPIES) () 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 0 BMAP F 14Q HEIGHT) Œ@ÈQg g jWNOñ³cH ¿Hk OOñ³Cj]lOOñ³&OlOÕÕ¼lO @OLÚMØ½OkÙ_¿°×Mi ¿OkØ_°¼¿OlÙ_¿°›g h(210Q \PRINTER.MODE 166Q \PRINTER.CRLF 151Q RS232WRITEBYTE 126Q BITMAPBIT 117Q EXPT 44Q GRAPHICS.MODE 24Q \PRINTER.MODE 16Q \PRINTER.MODE) (205Q UniDirectionalOff 21Q EightSpacingOn 13Q UniDirectionalOn 3 BITMAP) () TEXTFILEP D1 (I 0 FILE) @g gð(6 GETFILEINFO) (11Q TEXT 3 TYPE) () WINDOWDISPLAY D1 (P 0 BITMAP I 2 COMPRESS? I 1 NOROTATE? I 0 WINDOW) @ XdABh(15Q FBITMAP 6 WINDOW.TO.BITMAP) NIL () WINDOW.TO.BITMAP D1 (P 0 BITMAP I 0 WINDOW) @g @g X@hdHH(33Q BITBLT 23Q BITMAPCREATE 20Q GETWINDOWPROP 11Q GETWINDOWPROP) (15Q HEIGHT 6 WIDTH) () BOLD.MODE D1 NIL g g g g (27Q \PRINTER.MODE 21Q \PRINTER.MODE 13Q \PRINTER.MODE 5 \PRINTER.MODE) (24Q BoldOn 16Q CompressedOn 10Q 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 2 NOERRORCHECK I 1 NOROTATE? I 0 BMAP) 9@È@È"g A¦H»I¸KY€InÀó²B³@AiA‘H€IA‘I€H ±ýjHLMñ’±ßMlÙMNOñ’±Æl l OOñ’±I ¿IkOOñ³ajZO OOñ³DOlOÙÙ»JOM ”oƒoOlÛkØ A”@OK…@HKÙOÚØºOlÙ_¿°¹Ji ¿OkØ_°žl3 ¿li ¿¿OkÙ_¿±ÿnlA ¿OM ’lli ¿¿OlÙ_¿±ÿ8MlÙ½±ÿ g ¿g ¿h(465Q \PRINTER.CRLF 461Q \PRINTER.MODE 452Q \PRINTER.MODE 416Q \PRINTER.CRLF 412Q RS232WRITEBYTE 400Q EQP 371Q \PRINTER.COMMAND 350Q \PRINTER.CRLF 344Q RS232WRITEBYTE 335Q \PRINTER.COMMAND 316Q RS232WRITEBYTE 273Q BITMAPBIT 252Q NTH 226Q EQP 153Q COMGRAPH.MODE 70Q FXFITERROR 24Q \PRINTER.MODE) (456Q UniDirectionalOff 447Q EightSpacingOn 21Q UniDirectionalOn 11Q BITMAP 3 BITMAP) ( 240Q (2 10Q 40Q 200Q) 233Q (1 4 20Q 100Q)) COMGRAPH.MODE D1 (I 0 WIDTH) ,lL n@óš@i ji @n i @nÛi (51Q RS232WRITEBYTE 40Q RS232WRITEBYTE 34Q REMAINDER 24Q RS232WRITEBYTE 17Q RS232WRITEBYTE 4 \PRINTER.COMMAND) NIL () COMMENT.MODE D1 NIL g g g g g (35Q \PRINTER.MODE 27Q \PRINTER.MODE 21Q \PRINTER.MODE 13Q \PRINTER.MODE 5 \PRINTER.MODE) (32Q CompressedOn 24Q ItalicOn 16Q SubScriptOn 10Q BoldOff 2 EliteOff) () EXPANDED.MODE D1 NIL g g g g (27Q \PRINTER.MODE 21Q \PRINTER.MODE 13Q \PRINTER.MODE 5 \PRINTER.MODE) (24Q ProportionalOn 16Q ExpandOn 10Q EliteOff 2 BoldOff) () GRAPHICS.MODE D1 (I 0 ROWS) 2l* li n@óš@i ji @n i @nÛi (57Q RS232WRITEBYTE 46Q RS232WRITEBYTE 42Q REMAINDER 32Q RS232WRITEBYTE 25Q RS232WRITEBYTE 12Q RS232WRITEBYTE 4 \PRINTER.COMMAND) NIL () SELECT.MODE D1 (I 0 CHAR F 0 FILE) ;@dlð²'¿P bddlð”¿lð“@lð“l ð“@i (70Q RS232WRITEBYTE 62Q \PRINTER.CRLF 52Q STANDARD.MODE 46Q EXPANDED.MODE 35Q COMMENT.MODE 25Q BOLD.MODE) NIL () STANDARD.MODE D1 NIL ,g g g g g g g (51Q \PRINTER.MODE 43Q \PRINTER.MODE 35Q \PRINTER.MODE 27Q \PRINTER.MODE 21Q \PRINTER.MODE 13Q \PRINTER.MODE 5 \PRINTER.MODE) (46Q ProportionalOff 40Q BoldOff 32Q ExpandOff 24Q EliteOff 16Q ScriptOff 10Q ItalicOff 2 CompressedOn) () \PRINTER.COMMAND D1 (I 0 CommandChar) li @i (12Q RS232WRITEBYTE 5 RS232WRITEBYTE) NIL () \PRINTER.CRLF D1 NIL l l (14Q RS232FORCEOUTPUT 11Q RS232WRITEBYTE 4 RS232WRITEBYTE) NIL () \PRINTER.HEADING D1 (I 0 FILENAME) 3oi @i oi i oi i (60Q \PRINTER.CRLF 55Q \PRINTER.CRLF 52Q RS232WRITESTRING 46Q USERNAME 43Q RS232WRITESTRING 33Q RS232WRITESTRING 27Q DATE 24Q RS232WRITESTRING 14Q RS232WRITESTRING 7 RS232WRITESTRING) NIL ( 37Q " by " 20Q " , " 3 "Listing of File ") \PRINTER.INIT D1 (P 0 BAUDRATE F 1 SUPPRESS.PAPER.SET.FLAG F 2 DEFAULTLOCALBAUDRATE F 3 BAUDRATE F 4 RS232XON\XOFF?) xQ³Ri ¿i ¿oi ¿i ¿oi ¿i ¿i ¿i ¿i ¿i ¿lgogð²¶Rµl