(FILECREATED "26-Feb-86 09:14:43" ("compiled on " {DANTE}FXPRINTER>IMAGEWRITER.;21) "12-Nov-85 14:59:23" tcompl'd in "INTERLISP-D 22-Nov-85 ..." dated "22-Nov-85 11:32:58") (FILECREATED "26-Feb-86 08:54:59" {DANTE}FXPRINTER>IMAGEWRITER.;21 66078 changes to: (FNS \IW.PRINT.BITMAP \IW.DEFAULTS.MENU IMAGEWRITER \IW.PRINT.TEXT \IW.PRINT.CHAR \IW.PRINT.HEADING IMAGEWRITER.START \IW.SIZE.BITMAP \IW.SIZE.WINDOW \IW.PRINTER.LINES.PER.PAGE \IW.PRINTER.MODE \IW.FILE.ERRORCHECK \IW.SHOW.DEFAULTS \IW.PRINT.FILE \IW.BITMAP.ASK.CORRECTION \IW.PRINTER.LINE.SPACING \IW.WINDOW.ASK.CORRECTION \IW.SET.CORRECTION \IW.EXPLAIN.CORRECTION \IW.ROTATE.BITMAP.RIGHT \IW.EXPLAIN.OPTIONS \IW.INIT.PORT \IW.SET.DEFAULTS \IW.QUIT.OPTION \IW.SELECT.PRINTER.MODE \IW.INIT.TITLE \IW.EXPLAIN.TITLE \IW.SET.TITLE \IW.INIT.CUSTOM.FONT \IW.SET.CUSTOM.FONT.FLG \IW.EXPLAIN.CUSTOM.FONT.FLG \IW.INIT.CENTER.FLG \IW.EXPLAIN.CENTER \IW.SET.CENTER.FLG \IW.INIT.ROTATE.FLG \IW.EXPLAIN.ROTATE \IW.SET.ROTATE.FLG \IW.INIT.SPEED \IW.EXPLAIN.SPEED \IW.SET.SPEED \IW.BOUT.PACK.NUM \IW.STANDARD.MODE \IW.GRAPHICS.MODE \IW.BOLD.MODE \IW.COMMENT.MODE \IW.EXPANDED.MODE \IW.PRINT.TEXT.INIT \IW.LINES.PER.PAGE \IW.PRINTER.COMMAND \IW.PRINT.CRLF \IW.PRINT.CR IMAGEWRITER.PRINT.BITMAP BITMAP.ASK.CORRECTION IMAGEWRITER.EXPLAIN.CORRECTION \PRINTER.MODE IMAGEWRITER.SIZE.BITMAP EXPANDED.MODE IMAGEWRITER.FILE.ERRORCHECK IMAGEWRITER.INIT IMAGEWRITER.DEFAULTS.MENU IMAGEWRITER.SET.DEFAULTS IMAGEWRITER.QUIT.OPTION IMAGEWRITER.PRINT.FILE IMAGEWRITER.PRINT.TEXT PRINT.CHAR IMAGEWRITER.SIZE.WINDOW WINDOW.ASK.CORRECTION IMAGEWRITER.SET.CORRECTION ROTATE.BITMAP.RIGHT IMAGEWRITER.INIT.TITLE IMAGEWRITER.SET.TITLE IMAGEWRITER.INIT.CUSTOM.FONT.FLG IMAGEWRITER.SET.CUSTOM.FONT.FLG IMAGEWRITER.INIT.CENTERFLG IMAGEWRITER.SET.CENTERFLG IMAGEWRITER.INIT.NOROTATE? IMAGEWRITER.SET.NOROTATE? IMAGEWRITER.INIT.SPEED IMAGEWRITER.SET.SPEED BOUT.PACK.NUM \PRINTER.LINES.PER.PAGE \PRINTER.LINE.SPACING \PRINTER.HEADING \PRINTER.PRINT.HEADING) ( VARS IMAGEWRITERCOMS) previous date: "17-Feb-86 17:12:07" {DANTE}FXPRINTER>IMAGEWRITER.;20) IMAGEWRITER.START D1 (P 1 IMAGEWRITER.MENU P 0 POS F 4 IMAGEWRITER.ICON F 5 IMAGEWRITER.ICONMASK) @`dodkdi gl g dJdldgdgdg jdndhdK d lPYo ohli ll; X` `HHl$ I d`gg `go `g `gTUoi gl g ` ` oh` h(364Q CENTERPRINTINREGION 351Q CLEARW 343Q DSPFONT 335Q FONTCREATE 322Q PUTWINDOWPROP 317Q ICONW 277Q PUTWINDOWPROP 266Q PUTWINDOWPROP 246Q ATTACHWINDOW 226Q MENUWINDOW 222Q MOVEW 205Q CLEARW 176Q GETBOXPOSITION 164Q CREATEW 151Q PROMPTPRINT 43Q FONTCREATE) (361Q IW.DISPLAY 346Q IW.DISPLAY 340Q IW.DISPLAY 332Q BOLD 325Q TIMESROMAN 305Q ICON 302Q IW.DISPLAY 274Q ICONWINDOW 271Q IW.DISPLAY 257Q CLOSEFN 254Q IW.DISPLAY 251Q IW.WINDOW 243Q JUSTIFY 240Q BOTTOM 235Q IW.DISPLAY 231Q IW.MENU.WINDOW 210Q IW.DISPLAY 202Q PROMPTWINDOW 167Q IW.DISPLAY 131Q MENU 101Q CLRPROMPT 72Q \IW.EXPLAIN.OPTIONS 63Q IMAGEWRITER 40Q BOLD 33Q MODERN 5 MENUTYPE#) ( 355Q "IMAGEWRITER" 313Q (310Q . 310Q) 263Q (\IW.QUIT.OPTION) 155Q (0 0 334Q 30Q) 146Q "Please indicate a region for IMAGEWRITER" 13Q (START STOP SET)) IMAGEWRITER D1 (P 2 LINESPERPAGE P 1 TEMPLINESPERPAGE P 0 TABUP I 0 COMMAND) @dggg ` ` `l !` .P`l ZY`XdjIJذjLKLk\g g ` ` g ` oh` @gW`gg gg g ` ` ohd` d` oh` ` `dn,dndn `dn%ih`dgdgih` `dgdgih` 4`dgdgih`dgdgih``` ` oh` ` ` oh` i `i oi i i (764Q SHOULDNT 760Q RINGBELLS 755Q TERPRI 750Q TERPRI 743Q PRIN1 732Q PRIN1 722Q TERPRI 716Q CLEARW 713Q CENTERPRINTINREGION 700Q CLEARW 671Q \IW.PRINT.FILE 663Q CENTERPRINTINREGION 650Q CLEARW 642Q \IW.INIT.PORT 625Q \IW.INIT.CENTER.FLG 574Q \IW.INIT.ROTATE.FLG 542Q INFILEP 533Q \IW.INIT.CUSTOM.FONT 501Q INFILEP 472Q \IW.INIT.TITLE 441Q \IW.INIT.SPEED 370Q \IW.FILE.ERRORCHECK 362Q CENTERPRINTINREGION 347Q CLEARW 332Q U-CASE 327Q PROMPTFORWORD 313Q CLEARW 305Q CLEARW 276Q LOAD? 267Q BOUNDP 253Q BOUNDP 223Q CENTERPRINTINREGION 210Q CLEARW 202Q \IW.PRINTER.MODE 174Q \IW.PRINTER.LINES.PER.PAGE 166Q \IW.PRINTER.LINE.SPACING 160Q \IW.PRINTER.MODE 152Q \IW.PRINTER.MODE 134Q \IW.PRINT.CRLF 65Q FORCEOUTPUT 47Q CLOSEF? 37Q INFILEP 31Q DEL.PROCESS 12Q \IW.DEFAULTS.MENU) (726Q IW.INPUT.FILE 710Q IW.DISPLAY 675Q IW.DISPLAY 666Q IW.INPUT.FILE 660Q IW.DISPLAY 645Q IW.DISPLAY 637Q IMAGEWRITER.PROTOCOL 634Q IMAGEWRITER.BAUD.RATE 631Q IMAGEWRITER.PORT 612Q NO 604Q YES 600Q IW.CENTER.IMAGE 561Q NO 553Q YES 547Q IW.ROTATE.IMAGE 537Q IW.INPUT.FILE 520Q NO 512Q YES 506Q IW.LOAD.CUSTOM.FONT 476Q IW.INPUT.FILE 457Q NO 451Q YES 445Q IW.PRINT.TITLE 377Q IMAGEWRITER.BAUD.RATE 365Q IW.INPUT.FILE 357Q IW.DISPLAY 344Q IW.DISPLAY 341Q IW.USER.INFILE 335Q IW.INPUT.FILE 324Q IW.DISPLAY 310Q IW.DISPLAY 302Q PROMPTWINDOW 273Q DLTTY.DCOM 264Q \TTY.READY 260Q DLRS232C.DCOM 250Q \RS232C.READY 243Q RS232C 240Q IMAGEWRITER.PORT 230Q START 220Q IW.DISPLAY 205Q IW.DISPLAY 177Q UniDirectionalOff 171Q IMAGEWRITER.LINES.PER.PAGE 163Q IMAGEWRITER.LINES.PER.INCH 155Q ClearBuffer 147Q Reset 106Q IW.PRINTLINECOUNT 76Q IMAGEWRITER.PAPER.LENGTH 62Q IW.OUTSTREAM 53Q IW.OUTSTREAM 44Q IW.INPUT.FILE 34Q IW.INPUT.FILE 26Q IMAGEWRITER.PRINTING 16Q STOP 4 SET) ( 737Q " file not found. IMAGEWRITER terminate" 704Q "IMAGEWRITER" 654Q "~~~~ SCANNING ~~~~" 353Q "~~~~~ THINKING ~~~~~" 317Q "Input file: " 214Q "IMAGEWRITER") \IW.EXPLAIN.OPTIONS D1 (I 0 ITEM) 0@dgo go @go (55Q SHOULDNT 51Q PROMPTPRINT 33Q PROMPTPRINT 16Q PROMPTPRINT) (40Q SET 22Q STOP 4 START) ( 46Q "Allows you to see and set Imagewriter default settings" 30Q "Immediately stops printing the current file" 13Q "Print file, bitmap, or window on the APPLE IMAGEWRITER printer") \IW.FILE.ERRORCHECK D1 (I 0 FILE) @ @ i@ g@ h i@ g@ h i@ :@ H`H@ i@ @ i(170Q EVAL 165Q MKATOM 157Q WINDOWP 154Q EVAL 151Q MKATOM 140Q EVAL 135Q MKATOM 113Q EVAL 110Q MKATOM 102Q BOUNDP 77Q MKATOM 66Q EVAL 61Q MKATOM 50Q MKATOM 37Q EVAL 32Q MKATOM 21Q MKATOM 10Q INFILEP 3 INFILEP) (173Q IW.INPUT.FILE 143Q IW.INPUT.FILE 123Q BITMAPTYPE# 71Q IW.INPUT.FILE 53Q SCREENBITMAP 42Q IW.INPUT.FILE 24Q WHICHW 13Q IW.INPUT.FILE) () \IW.INIT.PORT D1 (I 2 PROTOCOL I 1 BAUD I 0 PORT F 0 \RS232C.READY) @dg8Po A`_AlgkB gg Ag8`o A`"AlgkB gg ``` (212Q LINELENGTH 174Q SHOULDNT 162Q OPENSTREAM 150Q TTY.INIT 117Q TTY.GET.PARAMETERS 65Q OPENSTREAM 53Q RS232C.INIT 22Q RS232C.GET.PARAMETERS) (207Q IW.OUTSTREAM 203Q IMAGEWRITER.LMARGIN 200Q IMAGEWRITER.RMARGIN 170Q IW.OUTSTREAM 165Q IW.TTYPORT.STREAM 157Q OUTPUT 154Q {TTY} 142Q NONE 132Q IW.OUTSTREAM 127Q IW.TTYPORT.STREAM 106Q \TTY.READY 100Q TTY 73Q IW.OUTSTREAM 70Q IW.RS232PORT.STREAM 62Q OUTPUT 57Q {RS232} 45Q NONE 35Q IW.OUTSTREAM 32Q IW.RS232PORT.STREAM 4 RS232C) ( 114Q (BaudRate) 17Q (BaudRate)) \IW.DEFAULTS.MENU D1 (P 0 MENU.DESCRIPTION) !oXd ` ` h(35Q MOVEW 27Q OPENW 21Q \IW.SHOW.DEFAULTS 13Q FM.FORMATMENU) (32Q IW.DEFAULT.SELECT.MENUWINDOW 24Q IW.DEFAULT.SELECT.MENUWINDOW 16Q IW.DEFAULT.SELECT.MENUWINDOW) ( 6 (((TYPE MOMENTARY LABEL APPLY FONT (MODERN 12Q BOLD) SELECTEDFN \IW.SET.DEFAULTS)) ((TYPE MOMENTARY LABEL SHOW FONT (MODERN 12Q BOLD) SELECTEDFN \IW.SHOW.DEFAULTS)) ((TYPE TITLE LABEL Port FONT (MODERN 12Q BOLD)) (TYPE NWAY ID PORT LABEL RS232C) (TYPE NWAY ID PORT LABEL TTY)) ((TYPE TITLE LABEL Protocol FONT (MODERN 12Q BOLD)) (TYPE NWAY ID PROTOCOL LABEL XOnXOff) (TYPE NWAY ID PROTOCOL LABEL DTR)) ((TYPE TITLE LABEL "BaudRate: " FONT (MODERN 12Q BOLD)) (TYPE NWAY ID BAUDRATE LABEL 454Q) (TYPE NWAY ID BAUDRATE LABEL 2260Q) (TYPE NWAY ID BAUDRATE LABEL 4540Q) (TYPE NWAY ID BAUDRATE LABEL 22600Q)) ((TYPE TITLE LABEL "Paper Length: " FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (PAPERLENGTH)) (TYPE EDIT ID PAPERLENGTH LABEL "")) ((TYPE TITLE LABEL "Lines Per Inch: " FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (LPI)) (TYPE EDIT ID LPI LABEL "")) ((TYPE TITLE LABEL "Lines Per Page: " FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (LPP)) (TYPE EDIT ID LPP LABEL "")) ((TYPE TITLE LABEL "Char Pitch: " FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" ID CHARPITCH ITEMS (Extended Pica Elite PicaProportional EliteProportional Semicondensed Condensed Ultracondensed))) ((TYPE TITLE LABEL "Bit Per Line: " FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (BITWIDTH)) (TYPE EDIT ID BITWIDTH LABEL "")) ((TYPE TITLE LABEL "Left Margin: " FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (LMARGIN)) (TYPE EDIT ID LMARGIN LABEL "")) ((TYPE TITLE LABEL "Right Margin:" FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (RMARGIN)) (TYPE EDIT ID RMARGIN LABEL "")) ((TYPE TITLE LABEL "Print Title: " FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" ID TITLE ITEMS (YES NO))) ((TYPE TITLE LABEL "Rotate Image: " FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" ID ROTATE ITEMS (YES NO))) ((TYPE TITLE LABEL "Center Image: " FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" ID CENTER ITEMS (YES NO))) ((TYPE TITLE LABEL "Print Window Borders: " FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" ID WINDOWBORDER ITEMS (YES NO))) ((TYPE TITLE LABEL "Load Custom Font: " FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" ID FONT ITEMS (YES NO))) ((TYPE TITLE LABEL "Font File Name: " FONT (MODERN 12Q BOLD)) (TYPE EDITSTART LABEL "" ITEMS (FONTFILENAME)) (TYPE EDIT ID FONTFILENAME LABEL "")) (WINDOWPROPS TITLE "Imagewriter Default Settings" BORDER 5 LEFT 620Q BOTTOM 620Q))) \IW.SET.DEFAULTS D1 (P 0 DEFAULT.LIST) ` Xdg'Hg' Hg'Hg' Hg' Hg' Hg' Hg' Hg' Hg' Hg'Hg'Hg'Hg'Hg'Hg'h(156Q MKATOM 143Q MKATOM 130Q MKATOM 115Q MKATOM 102Q MKATOM 67Q MKATOM 54Q MKATOM 31Q MKATOM 10Q FM.READSTATE) (241Q IW.CUSTOM.FONT.FILENAME 235Q FONTFILENAME 231Q IW.LOAD.CUSTOM.FONT 225Q FONT 221Q IW.PRINT.WINDOW.BORDERS 215Q WINDOWBORDER 211Q IW.CENTER.IMAGE 205Q CENTER 201Q IW.ROTATE.IMAGE 175Q ROTATE 171Q IW.PRINT.TITLE 165Q TITLE 161Q IMAGEWRITER.RMARGIN 152Q RMARGIN 146Q IMAGEWRITER.LMARGIN 137Q LMARGIN 133Q IMAGEWRITER.BITWIDTH 124Q BITWIDTH 120Q IMAGEWRITER.CHAR.PITCH 111Q CHARPITCH 105Q IMAGEWRITER.LINES.PER.PAGE 76Q LPP 72Q IMAGEWRITER.LINES.PER.INCH 63Q LPI 57Q IMAGEWRITER.PAPER.LENGTH 50Q PAPERLENGTH 44Q IMAGEWRITER.BAUD.RATE 40Q BAUDRATE 34Q IMAGEWRITER.PROTOCOL 25Q PROTOCOL 21Q IMAGEWRITER.PORT 15Q PORT 5 IW.DEFAULT.SELECT.MENUWINDOW) () \IW.SHOW.DEFAULTS D1 NIL `` ` `` ` `` ` `g `` `g `` `g `` `g `` `g `` `g `` `g `` `g `` `g `` `g `` `g `` `g `` `g `` (426Q FM.CHANGESTATE 415Q FM.ITEMFROMID 404Q FM.CHANGESTATE 373Q FM.ITEMFROMID 362Q FM.CHANGESTATE 351Q FM.ITEMFROMID 340Q FM.CHANGESTATE 327Q FM.ITEMFROMID 316Q FM.CHANGESTATE 305Q FM.ITEMFROMID 274Q FM.CHANGESTATE 263Q FM.ITEMFROMID 252Q FM.CHANGESTATE 241Q FM.ITEMFROMID 230Q FM.CHANGESTATE 217Q FM.ITEMFROMID 206Q FM.CHANGESTATE 175Q FM.ITEMFROMID 164Q FM.CHANGESTATE 153Q FM.ITEMFROMID 142Q FM.CHANGESTATE 131Q FM.ITEMFROMID 120Q FM.CHANGESTATE 107Q FM.ITEMFROMID 76Q FM.CHANGESTATE 65Q FM.ITEMFROMID 54Q FM.CHANGESTATE 46Q FM.ITEMFROMID 35Q FM.CHANGESTATE 27Q FM.ITEMFROMID 16Q FM.CHANGESTATE 10Q FM.ITEMFROMID) (423Q IW.CUSTOM.FONT.FILENAME 420Q IW.DEFAULT.SELECT.MENUWINDOW 412Q FONTFILENAME 407Q IW.DEFAULT.SELECT.MENUWINDOW 401Q IW.LOAD.CUSTOM.FONT 376Q IW.DEFAULT.SELECT.MENUWINDOW 370Q FONT 365Q IW.DEFAULT.SELECT.MENUWINDOW 357Q IW.PRINT.WINDOW.BORDERS 354Q IW.DEFAULT.SELECT.MENUWINDOW 346Q WINDOWBORDER 343Q IW.DEFAULT.SELECT.MENUWINDOW 335Q IMAGEWRITER.CHAR.PITCH 332Q IW.DEFAULT.SELECT.MENUWINDOW 324Q CHARPITCH 321Q IW.DEFAULT.SELECT.MENUWINDOW 313Q IW.CENTER.IMAGE 310Q IW.DEFAULT.SELECT.MENUWINDOW 302Q CENTER 277Q IW.DEFAULT.SELECT.MENUWINDOW 271Q IW.ROTATE.IMAGE 266Q IW.DEFAULT.SELECT.MENUWINDOW 260Q ROTATE 255Q IW.DEFAULT.SELECT.MENUWINDOW 247Q IW.PRINT.TITLE 244Q IW.DEFAULT.SELECT.MENUWINDOW 236Q TITLE 233Q IW.DEFAULT.SELECT.MENUWINDOW 225Q IMAGEWRITER.LMARGIN 222Q IW.DEFAULT.SELECT.MENUWINDOW 214Q LMARGIN 211Q IW.DEFAULT.SELECT.MENUWINDOW 203Q IMAGEWRITER.RMARGIN 200Q IW.DEFAULT.SELECT.MENUWINDOW 172Q RMARGIN 167Q IW.DEFAULT.SELECT.MENUWINDOW 161Q IMAGEWRITER.BITWIDTH 156Q IW.DEFAULT.SELECT.MENUWINDOW 150Q BITWIDTH 145Q IW.DEFAULT.SELECT.MENUWINDOW 137Q IMAGEWRITER.LINES.PER.PAGE 134Q IW.DEFAULT.SELECT.MENUWINDOW 126Q LPP 123Q IW.DEFAULT.SELECT.MENUWINDOW 115Q IMAGEWRITER.LINES.PER.INCH 112Q IW.DEFAULT.SELECT.MENUWINDOW 104Q LPI 101Q IW.DEFAULT.SELECT.MENUWINDOW 73Q IMAGEWRITER.PAPER.LENGTH 70Q IW.DEFAULT.SELECT.MENUWINDOW 62Q PAPERLENGTH 57Q IW.DEFAULT.SELECT.MENUWINDOW 51Q IW.DEFAULT.SELECT.MENUWINDOW 43Q IMAGEWRITER.BAUD.RATE 40Q IW.DEFAULT.SELECT.MENUWINDOW 32Q IW.DEFAULT.SELECT.MENUWINDOW 24Q IMAGEWRITER.PROTOCOL 21Q IW.DEFAULT.SELECT.MENUWINDOW 13Q IW.DEFAULT.SELECT.MENUWINDOW 5 IMAGEWRITER.PORT 2 IW.DEFAULT.SELECT.MENUWINDOW) () \IW.QUIT.OPTION D1 (I 0 OPTION) $`g` ` ` (41Q CLOSEW 33Q CLOSEF? 25Q CLOSEF? 16Q TTY.SHUTDOWN 12Q RS232C.SHUTDOWN) (36Q IW.MENU.WINDOW 30Q IW.TTYPORT.STREAM 22Q IW.RS232PORT.STREAM 5 RS232C 2 IMAGEWRITER.PORT) () \IW.PRINT.FILE D1 (I 0 FILE F 0 TEXT.FILE) *@ @cogg @d`d  (47Q \IW.SIZE.WINDOW 43Q \IW.SIZE.BITMAP 25Q ADD.PROCESS 3 INFILEP) (34Q BITMAPTYPE# 22Q IMAGEWRITER.PRINTING 17Q NAME) ( 14Q (\IW.PRINT.TEXT (FULLNAME TEXT.FILE))) \IW.PRINT.TEXT D1 (P 2 CHAR P 1 FONTFILE P 0 FILE I 0 FILENAME)  `g@` Yl o ' Igg `kI ` I @ @gg Xo``d` oh` `g@ H H H `` `l !`l!`l$!` H ` oh` h(331Q CENTERPRINTINREGION 316Q CLEARW 310Q CLOSEF? 304Q FORCEOUTPUT 254Q PRIN1 237Q \IW.SELECT.PRINTER.MODE 225Q EOFP 215Q \IW.PRINT.HEADING 201Q CENTERPRINTINREGION 166Q CLEARW 160Q \IW.PRINT.TEXT.INIT 127Q OPENSTREAM 115Q CLOSEF? 110Q CLOSEF 103Q FORCEOUTPUT 74Q COPYBYTES 71Q GETEOFPTR 61Q OPENSTREAM 46Q CLOSEF? 41Q PROMPTPRINT 31Q RINGBELLS 21Q INFILEP) (326Q IW.DISPLAY 313Q IW.DISPLAY 301Q IW.OUTSTREAM 273Q IW.OUTSTREAM 265Q IW.OUTSTREAM 257Q IW.OUTSTREAM 251Q IW.OUTSTREAM 246Q IW.LINEBUFFER 233Q IW.INPUT.CHAR 207Q YES 204Q IW.PRINT.TITLE 176Q IW.DISPLAY 163Q IW.DISPLAY 155Q IW.CHAR.COUNT 151Q IMAGEWRITER.LINE.LENGTH 145Q IMAGEWRITER.LMARGIN 142Q IMAGEWRITER.RMARGIN 137Q IW.LINEBUFFER 124Q OLD 121Q INPUT 100Q IW.OUTSTREAM 64Q IW.OUTSTREAM 56Q OLD 53Q INPUT 16Q IW.CUSTOM.FONT.FILENAME 10Q YES 5 IW.LOAD.CUSTOM.FONT) ( 322Q "IMAGEWRITER" 172Q "~~~~~ PRINTING ~~~~~" 134Q "" 36Q "Font file not found. Press stop to halt printing.") \IW.SELECT.PRINTER.MODE D1 (I 1 FILE I 0 CHAR) 1@dl'A bddll@l (56Q \IW.PRINT.CHAR 52Q \IW.STANDARD.MODE 46Q \IW.EXPANDED.MODE 35Q \IW.COMMENT.MODE 25Q \IW.BOLD.MODE) NIL () \IW.PRINT.CHAR D1 (P 0 LASTSPACE I 0 CHAR) `@ `k@l -`` `g`o^`jXo`hddddi `kH ` `gH`Hk o`` h(240Q NCHARS 213Q SUBSTRING 177Q \IW.PRINT.CR 173Q \IW.PRINT.CRLF 157Q PRIN1 151Q SUBSTRING 140Q STRPOS 66Q \IW.PRINT.CR 62Q \IW.PRINT.CRLF 46Q PRIN1 14Q CONCAT 11Q CHARACTER) (244Q IW.CHAR.COUNT 235Q IW.LINEBUFFER 232Q IMAGEWRITER.LINE.LENGTH 226Q IW.LINEBUFFER 216Q IW.LINEBUFFER 205Q IW.LINEBUFFER 166Q RS232C 163Q IMAGEWRITER.PORT 154Q IW.OUTSTREAM 144Q IW.LINEBUFFER 126Q IW.LINEBUFFER 113Q IW.CHAR.COUNT 105Q IW.LINEBUFFER 75Q IW.CHAR.COUNT 72Q IMAGEWRITER.LINE.LENGTH 55Q RS232C 52Q IMAGEWRITER.PORT 43Q IW.OUTSTREAM 40Q IW.LINEBUFFER 27Q IW.CHAR.COUNT 22Q IW.CHAR.COUNT 17Q IW.LINEBUFFER 5 IW.LINEBUFFER) ( 223Q "" 123Q " " 102Q "") \IW.PRINT.BITMAP D1 (P 31Q J P 27Q COLUMN P 25Q I P 20Q TABUP P 17Q LINESPERPAGE P 16Q TEMPLINESPERPAGE P 15Q IMAGEWRITER.SCREENDUMP P 14Q CENTER.LEFT P 13Q CENTER.DOWN P 12Q WIDTH P 11Q HEIGHT P 10Q PTR P 7 OFFSET P 6 BYTESPERROW P 5 BASE P 4 OFFSET P 3 CNT P 2 J P 1 I P 0 COLUMN I 0 BMAP) P@ _@ _@@l^kռjl g g g lL jl ` oh` `g` `g]`OlHll _"jO"O"j_kO*O(`kO*k_*`Oll _lL Ol jLO,O.QO O._OkO2O0`MO!ON_O2k_2`kn O.m_.`l __`_ djOOذj_&_$O&O$O&k_&g ` ` g ` oh` h(631Q CENTERPRINTINREGION 615Q CLEARW 606Q \IW.PRINTER.MODE 577Q \IW.PRINTER.LINES.PER.PAGE 570Q \IW.PRINTER.LINE.SPACING 561Q \IW.PRINTER.MODE 542Q \IW.PRINT.CRLF 452Q BLOCK 432Q \IW.PRINT.CRLF 353Q \IW.GRAPHICS.MODE 331Q \IW.BOUT.PACK.NUM 321Q \IW.PRINTER.COMMAND 252Q \IW.PRINT.CRLF 165Q \IW.PRINT.HEADING 146Q CENTERPRINTINREGION 132Q CLEARW 123Q \IW.BOUT.PACK.NUM 114Q \IW.PRINTER.COMMAND 106Q \IW.PRINTER.MODE 77Q \IW.PRINTER.MODE 70Q \IW.PRINTER.MODE 61Q \IW.PRINTER.LINE.SPACING 20Q BITMAPWIDTH 11Q BITMAPHEIGHT) (626Q IW.DISPLAY 612Q IW.DISPLAY 603Q UniDirectionalOff 574Q IMAGEWRITER.LINES.PER.PAGE 565Q IMAGEWRITER.LINES.PER.INCH 556Q Reset 503Q IW.PRINTLINECOUNT 471Q IMAGEWRITER.PAPER.LENGTH 443Q IW.PRINTLINECOUNT 436Q IW.PRINTLINECOUNT 401Q IW.OUTSTREAM 300Q IMAGEWRITER.BITWIDTH 263Q IW.PRINTLINECOUNT 256Q IW.PRINTLINECOUNT 202Q IMAGEWRITER.PAPER.LENGTH 174Q YES 171Q IW.CENTER.IMAGE 162Q IW.USER.INFILE 155Q YES 152Q IW.PRINT.TITLE 143Q IW.DISPLAY 127Q IW.DISPLAY 103Q UniDirectionalOff 74Q Extended 65Q ResetTabTOF 53Q IW.PRINTLINECOUNT 36Q BITMAP 27Q BITMAP) ( 622Q "IMAGEWRITER" 137Q "~~~~~ PRINTING ~~~~~") \IW.SIZE.BITMAP D1 (P 4 HEIGHT.DIFF P 3 WIDTH.DIFF P 2 HEIGHT P 1 WIDTH P 0 SHAPECODE I 0 BITMAP) Kj@ @ #`gkI`HlظI`ٻJ`HlظJ`ټHjHdl@ogg kHdl @ ogg lHdldl l H `dg}dgtdg@ _dg1`J @Kj`jd`Jgg ` )dg1`J @jd`jd`Jgg ` dg1I` @jd`jdI`gg ` dg'I` @jd`jdI`gg dg1I` @jL`jdI`gg ` [dg'I` @jL`jdI`gg /dg'`J @Kj`jd`Jgg dg1`J @Kj`jd`Jgg ` dg'`J @jd`jd`Jgg dg0`J @jd`jd`Jgg ` kdg&I` @jd`jdI`gg @dg&I` @jL`jdI`gg g@ld `gogg ` oh` h(1507Q SHOULDNT 1503Q CENTERPRINTREGION 1467Q CLEARW 1457Q ADD.PROCESS 1431Q SHOULDNT 1422Q SHRINKBITMAP 1404Q BITBLT 1352Q BITMAPCREATE 1331Q BITBLT 1277Q BITMAPCREATE 1253Q \IW.ROTATE.BITMAP.RIGHT 1244Q BITBLT 1212Q BITMAPCREATE 1170Q BITBLT 1136Q BITMAPCREATE 1111Q \IW.ROTATE.BITMAP.RIGHT 1102Q BITBLT 1050Q BITMAPCREATE 1026Q BITBLT 774Q BITMAPCREATE 752Q BITBLT 720Q BITMAPCREATE 673Q \IW.ROTATE.BITMAP.RIGHT 664Q BITBLT 632Q BITMAPCREATE 610Q BITBLT 556Q BITMAPCREATE 531Q \IW.ROTATE.BITMAP.RIGHT 522Q BITBLT 470Q BITMAPCREATE 443Q \IW.ROTATE.BITMAP.RIGHT 434Q BITBLT 402Q BITMAPCREATE 355Q \IW.ROTATE.BITMAP.RIGHT 346Q BITBLT 314Q BITMAPCREATE 267Q \IW.ROTATE.BITMAP.RIGHT 226Q \IW.BITMAP.ASK.CORRECTION 170Q ADD.PROCESS 147Q \IW.ROTATE.BITMAP.RIGHT 125Q ADD.PROCESS 10Q BITMAPHEIGHT 4 BITMAPWIDTH) (1500Q IW.DISPLAY 1464Q IW.DISPLAY 1454Q IMAGEWRITER.PRINTING 1451Q NAME 1440Q ABORT 1435Q IW.ALT.SELECTION 1425Q IW.OUTPUT.BITMAP 1411Q SHRINK 1400Q REPLACE 1375Q INPUT 1372Q IMAGEWRITER.BITWIDTH 1364Q IW.OUTPUT.BITMAP 1355Q IW.OUTPUT.BITMAP 1347Q IMAGEWRITER.BITWIDTH 1337Q ROT.BOTTOM.EDGE.TRIMMED 1325Q REPLACE 1322Q INPUT 1317Q IMAGEWRITER.BITWIDTH 1311Q IW.OUTPUT.BITMAP 1302Q IW.OUTPUT.BITMAP 1274Q IMAGEWRITER.BITWIDTH 1264Q ROT.TOP.EDGE.TRIMMED 1256Q IW.OUTPUT.BITMAP 1250Q IW.OUTPUT.BITMAP 1240Q REPLACE 1235Q INPUT 1231Q IMAGEWRITER.BITWIDTH 1224Q IW.OUTPUT.BITMAP 1215Q IW.OUTPUT.BITMAP 1206Q IMAGEWRITER.BITWIDTH 1177Q TRIM.RIGHT.EDGE.ROTATE 1164Q REPLACE 1161Q INPUT 1155Q IMAGEWRITER.BITWIDTH 1150Q IW.OUTPUT.BITMAP 1141Q IW.OUTPUT.BITMAP 1132Q IMAGEWRITER.BITWIDTH 1123Q ROT.RIGHT.EDGE.TRIMMED 1114Q IW.OUTPUT.BITMAP 1106Q IW.OUTPUT.BITMAP 1076Q REPLACE 1073Q INPUT 1067Q IMAGEWRITER.BITWIDTH 1062Q IW.OUTPUT.BITMAP 1053Q IW.OUTPUT.BITMAP 1044Q IMAGEWRITER.BITWIDTH 1035Q TRIM.LEFT.EDGE.ROTATE 1022Q REPLACE 1017Q INPUT 1013Q IMAGEWRITER.BITWIDTH 1006Q IW.OUTPUT.BITMAP 777Q IW.OUTPUT.BITMAP 770Q IMAGEWRITER.BITWIDTH 761Q ROT.LEFT.EDGE.TRIMMED 746Q REPLACE 743Q INPUT 740Q IMAGEWRITER.BITWIDTH 732Q IW.OUTPUT.BITMAP 723Q IW.OUTPUT.BITMAP 715Q IMAGEWRITER.BITWIDTH 705Q TRIM.BOTTOM.EDGE 676Q IW.OUTPUT.BITMAP 670Q IW.OUTPUT.BITMAP 660Q REPLACE 655Q INPUT 652Q IMAGEWRITER.BITWIDTH 644Q IW.OUTPUT.BITMAP 635Q IW.OUTPUT.BITMAP 627Q IMAGEWRITER.BITWIDTH 617Q BOTTOM.EDGE.TRIMMED 604Q REPLACE 601Q INPUT 576Q IMAGEWRITER.BITWIDTH 570Q IW.OUTPUT.BITMAP 561Q IW.OUTPUT.BITMAP 553Q IMAGEWRITER.BITWIDTH 543Q TRIM.TOP.EDGE 534Q IW.OUTPUT.BITMAP 526Q IW.OUTPUT.BITMAP 516Q REPLACE 513Q INPUT 510Q IMAGEWRITER.BITWIDTH 502Q IW.OUTPUT.BITMAP 473Q IW.OUTPUT.BITMAP 465Q IMAGEWRITER.BITWIDTH 455Q TOP.EDGE.TRIMMED 446Q IW.OUTPUT.BITMAP 440Q IW.OUTPUT.BITMAP 430Q REPLACE 425Q INPUT 421Q IMAGEWRITER.BITWIDTH 414Q IW.OUTPUT.BITMAP 405Q IW.OUTPUT.BITMAP 376Q IMAGEWRITER.BITWIDTH 367Q RIGHT.EDGE.TRIMMED 360Q IW.OUTPUT.BITMAP 352Q IW.OUTPUT.BITMAP 342Q REPLACE 337Q INPUT 333Q IMAGEWRITER.BITWIDTH 326Q IW.OUTPUT.BITMAP 317Q IW.OUTPUT.BITMAP 310Q IMAGEWRITER.BITWIDTH 301Q LEFT.EDGE.TRIMMED 272Q IW.OUTPUT.BITMAP 260Q ROTATE.BITMAP 247Q ROTATE 236Q ABORT 232Q IW.ALT.SELECTION 165Q IMAGEWRITER.PRINTING 162Q NAME 152Q IW.OUTPUT.BITMAP 122Q IMAGEWRITER.PRINTING 117Q NAME 107Q IW.OUTPUT.BITMAP 65Q IMAGEWRITER.BITWIDTH 52Q IMAGEWRITER.BITWIDTH 44Q IMAGEWRITER.BITWIDTH 31Q IMAGEWRITER.BITWIDTH 21Q NO 16Q IW.ROTATE.IMAGE) ( 1474Q "IMAGEWRITER" 1446Q (\IW.PRINT.BITMAP IW.OUTPUT.BITMAP) 157Q (\IW.PRINT.BITMAP IW.OUTPUT.BITMAP) 114Q (\IW.PRINT.BITMAP IW.OUTPUT.BITMAP)) \IW.BITMAP.ASK.CORRECTION D1 (P 1 USER.CORRECTION.MENU P 0 ITEM.LIST I 0 SHAPECODE) 0@dloX'loX@dl oXl oX`dodHdodidldldgdgdi dg jdndhdJ Yo I h(232Q MENU 226Q PROMPTPRINT 217Q RINGBELLS 65Q SHOULDNT) (167Q CLRPROMPT 153Q \IW.EXPLAIN.CORRECTION 144Q \IW.SET.CORRECTION 71Q MENUTYPE#) ( 223Q "Bitmap too big to fit on page as is. Please select an alternative" 114Q (362Q . 62Q) 77Q "Correction Option" 60Q (LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ROT.TOP.EDGE.TRIMMED ROT.BOTTOM.EDGE.TRIMMED SHRINK ABORT) 46Q (TRIM.TOP.EDGE TRIM.BOTTOM.EDGE TRIM.LEFT.EDGE.ROTATE TRIM.RIGHT.EDGE.ROTATE SHRINK ABORT) 30Q (TRIM.TOP.EDGE TRIM.BOTTOM.EDGE ROTATE.BITMAP SHRINK ABORT) 15Q (LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ROTATE SHRINK ABORT)) \IW.SIZE.WINDOW D1 (P 10Q BITMAP P 7 HEIGHT P 6 WIDTH P 5 BOTTOM P 4 LEFT P 3 NOROTATE? P 2 WBORDER P 1 WREGION P 0 SHAPECODE I 0 WINDOW) 9 j@ @ ,c`gkiId`HlظI`Hlظ@g `Hlظ@g `Hl ظI\I]I^I_`gHlXLJؼMJؽ@g @g _HjgHkbHl\HlVHlPHlJHlDHl>Hl 8Hl 2Hl ,Hl &Hl HlHlHl)Hl+Hdl-NNOk _@ @ `LMOjdNOgg KO _Oogg lhHdl bdl\dlVdlPdlJdlDdl>dl8dl(2dl*,dl,&dl. dl/dl<dl=dl>l?|H `go`dgh[dgi[dg*`gLJؼMJؽ@g @g _dg*`gLJؼMJؽ@g @g _dghOd``_qdg)hMOjOd``ؽOd``_Cdg%iLNjNd``ؼNd``^giNd``^`gLNOk _@ @ `LMOjdNOgg KO _Oogg ` oh` h(1465Q SHOULDNT 1461Q CENTERPRINTREGION 1445Q CLEARW 1435Q ADD.PROCESS 1407Q \IW.ROTATE.BITMAP.RIGHT 1377Q BITBLT 1350Q TOTOPW 1343Q OPENW 1334Q BITMAPCREATE 1313Q SHOULDNT 1075Q GETWINDOWPROP 1065Q GETWINDOWPROP 1016Q GETWINDOWPROP 1006Q GETWINDOWPROP 675Q \IW.WINDOW.ASK.CORRECTION 513Q ADD.PROCESS 465Q \IW.ROTATE.BITMAP.RIGHT 455Q BITBLT 426Q TOTOPW 421Q OPENW 412Q BITMAPCREATE 226Q GETWINDOWPROP 216Q GETWINDOWPROP 123Q GETWINDOWPROP 102Q GETWINDOWPROP 12Q \INSUREWINDOW 4 \INSUREWINDOW) (1456Q IW.DISPLAY 1442Q IW.DISPLAY 1432Q IMAGEWRITER.PRINTING 1427Q NAME 1417Q IW.OUTPUT.BITMAP 1373Q REPLACE 1370Q INPUT 1354Q ScreenBitMap 1322Q ABORT 1317Q IW.ALT.SELECTION 1306Q IMAGEWRITER.BITWIDTH 1300Q IMAGEWRITER.BITWIDTH 1267Q RIGHT.EDGE.TRIMMED 1261Q IMAGEWRITER.BITWIDTH 1253Q IMAGEWRITER.BITWIDTH 1242Q IMAGEWRITER.BITWIDTH 1234Q IMAGEWRITER.BITWIDTH 1216Q LEFT.EDGE.TRIMMED 1206Q IMAGEWRITER.BITWIDTH 1200Q IMAGEWRITER.BITWIDTH 1166Q IMAGEWRITER.BITWIDTH 1160Q IMAGEWRITER.BITWIDTH 1140Q BOTTOM.EDGE.TRIMMED 1130Q IMAGEWRITER.BITWIDTH 1122Q IMAGEWRITER.BITWIDTH 1106Q TOP.EDGE.TRIMMED 1072Q HEIGHT 1062Q WIDTH 1041Q YES 1036Q IW.PRINT.WINDOW.BORDERS 1027Q NR.BORDER.NOT.DISPLAYED 1013Q HEIGHT 1003Q WIDTH 762Q YES 757Q IW.PRINT.WINDOW.BORDERS 750Q R.BORDER.NOT.DISPLAYED 734Q NON-ROTATED.WINDOW 720Q ROTATED.WINDOW 714Q IW.ALT.SELECTION 704Q ABORT 701Q IW.ALT.SELECTION 510Q IMAGEWRITER.PRINTING 505Q NAME 475Q IW.OUTPUT.BITMAP 451Q REPLACE 446Q INPUT 432Q ScreenBitMap 223Q HEIGHT 213Q WIDTH 166Q YES 163Q IW.PRINT.WINDOW.BORDERS 126Q IMAGEWRITER.BITWIDTH 120Q HEIGHT 105Q IMAGEWRITER.BITWIDTH 77Q WIDTH 64Q IMAGEWRITER.BITWIDTH 44Q IMAGEWRITER.BITWIDTH 25Q NO 22Q IW.ROTATE.IMAGE) ( 1452Q "IMAGEWRITER" 1424Q (\IW.PRINT.BITMAP IW.OUTPUT.BITMAP) 502Q (\IW.PRINT.BITMAP IW.OUTPUT.BITMAP)) \IW.WINDOW.ASK.CORRECTION D1 (P 1 USER.CORRECTION.MENU P 0 ITEM.LIST I 0 SHAPECODE) 0@dloXl oX@l@dloXpl@l@dloXYl@dloXGl(@l*@dl,oX0l.@dl/oXl<@l=@l>@l?oX`dodHdodidldldgdgdi dg jdndhdJ Yo I h(403Q MENU 377Q PROMPTPRINT 370Q RINGBELLS 236Q SHOULDNT) (340Q CLRPROMPT 324Q \IW.EXPLAIN.CORRECTION 315Q \IW.SET.CORRECTION 242Q MENUTYPE#) ( 374Q "Window too big to fit in the page. Please select an alternative" 265Q (226Q . 15Q) 250Q "Correction Option" 231Q (NR.BORDER.NOT.DISPLAYED TOP.EDGE.TRIMMED BOTTOM.EDGE.TRIMMED LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ABORT) 177Q (NR.BORDER.NOT.DISPLAYED TOP.EDGE.TRIMMED BOTTOM.EDGE.TRIMMED LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ABORT) 155Q (NON-ROTATED.WINDOW TOP.EDGE.TRIMMED BOTTOM.EDGE.TRIMMED ABORT) 126Q (R.BORDER.NOT.DISPLAYED LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED TOP.EDGE.TRIMMED BOTTOM.EDGE.TRIMMED ABORT) 104Q (ROTATED.WINDOW LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ABORT) 55Q (TOP.EDGE.TRIMMED BOTTOM.EDGE.TRIMMED LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ABORT) 31Q (NON-ROTATED.WINDOW R.BORDER.NOT.DISPLAYED TOP.EDGE.TRIMMED BOTTOM.EDGE.TRIMMED ABORT) 15Q (ROTATED.WINDOW NR.BORDER.NOT.DISPLAYED LEFT.EDGE.TRIMMED RIGHT.EDGE.TRIMMED ABORT)) \IW.SET.CORRECTION D1 (L (0 OPTION)) @ gNIL (14Q IW.ALT.SELECTION 10Q IW.ALT.SELECTION 5 ABORT) () \IW.EXPLAIN.CORRECTION D1 (I 0 SELECTION) -@gbgo @dgo go @dgo go @dgo go @dgo go @dgo go @dgo go @dgo go @dgo go @dgo go @go (452Q SHOULDNT 446Q PROMPTPRINT 430Q PROMPTPRINT 413Q PROMPTPRINT 373Q PROMPTPRINT 356Q PROMPTPRINT 336Q PROMPTPRINT 321Q PROMPTPRINT 301Q PROMPTPRINT 264Q PROMPTPRINT 244Q PROMPTPRINT 227Q PROMPTPRINT 207Q PROMPTPRINT 172Q PROMPTPRINT 152Q PROMPTPRINT 135Q PROMPTPRINT 115Q PROMPTPRINT 100Q PROMPTPRINT 60Q PROMPTPRINT 43Q PROMPTPRINT 23Q PROMPTPRINT) (435Q ABORT 417Q SHRINK 401Q ROT.BOTTOM.EDGE.TRIMMED 362Q ROT.TOP.EDGE.TRIMMED 344Q TRIM.RIGHT.EDGE.ROTATE 325Q ROT.RIGHT.EDGE.TRIMMED 307Q TRIM.LEFT.EDGE.ROTATE 270Q ROT.LEFT.EDGE.TRIMMED 252Q TRIM.BOTTOM.EDGE 233Q BOTTOM.EDGE.TRIMMED 215Q TRIM.TOP.EDGE 176Q ROTATE.BITMAP 160Q R.BORDER.NOT.DISPLAYED 141Q NR.BORDER.NOT.DISPLAYED 123Q BOTTOM.EDGE.TRIMMED 104Q TOP.EDGE.TRIMMED 66Q NON-ROTATED.WINDOW 47Q RIGHT.EDGE.TRIMMED 31Q LEFT.EDGE.TRIMMED 12Q ROTATED.WINDOW 5 ABORT) ( 443Q "Abort this printing command" 425Q "Shrink bitmap in half" 410Q "Rotate and trim bottom edge" 370Q "Rotate and trim top edge" 353Q "Rotate and trim right edge" 333Q "Rotate and trim right edge" 316Q "Rotate and trim left edge" 276Q "Rotate and trim left edge" 261Q "Trim bottom edge" 241Q "Trim bottom edge" 224Q "Trim top edge" 204Q "Rotate the bitmap" 167Q "Window border not displayed (Rotated window) " 147Q "Window border not displayed (Non-rotated window)" 132Q "Bottom edge trimmed" 112Q "Top edge trimmed" 75Q "Non-rotated window" 55Q "Trim right edge" 40Q "Trim left edge" 20Q "Rotate") \IW.ROTATE.BITMAP.RIGHT D1 (P 2 NEW.BITMAP P 1 HEIGHT P 0 WIDTH I 0 BITMAP) N@@2IH ZHkjLK-IkjHkLNMJNO@LNhNk^Lk\J(23Q BITMAPCREATE) (11Q BITMAP 3 BITMAP) () \IW.INIT.TITLE D1 (P 0 TITLE.MENU) ] `dodododldidgdgdi dg jdndhdI Xd h(131Q MENU) (100Q CLRPROMPT 64Q \IW.EXPLAIN.TITLE 55Q \IW.SET.TITLE 5 MENUTYPE#) ( 33Q (22Q . 12Q) 23Q (YES NO) 13Q "SET TITLE FLAG") \IW.EXPLAIN.TITLE D1 (I 0 ITEM) "@dgo go (37Q SHOULDNT 33Q PROMPTPRINT 16Q PROMPTPRINT) (22Q NO 4 YES) ( 30Q "Do not print title on page" 13Q "Print title at top of first page") \IW.SET.TITLE D1 (L (0 ITEM)) @gggNIL (22Q IW.PRINT.TITLE 17Q NO 13Q IW.PRINT.TITLE 10Q YES 3 YES) () \IW.INIT.CUSTOM.FONT D1 (P 0 FONT.MENU) ] `dodododldidgdgdi dg jdndhdI Xd h(131Q MENU) (100Q CLRPROMPT 64Q \IW.EXPLAIN.CUSTOM.FONT.FLG 55Q \IW.SET.CUSTOM.FONT.FLG 5 MENUTYPE#) ( 33Q (25Q . 12Q) 23Q (YES NO) 13Q "SET CUSTOM FONT FLAG") \IW.SET.CUSTOM.FONT.FLG D1 (L (0 OPTION)) @gggNIL (22Q IW.LOAD.CUSTOM.FONT 17Q NO 13Q IW.LOAD.CUSTOM.FONT 10Q YES 3 YES) () \IW.EXPLAIN.CUSTOM.FONT.FLG D1 (I 0 ITEM) "@dgo go (37Q SHOULDNT 33Q PROMPTPRINT 16Q PROMPTPRINT) (22Q NO 4 YES) ( 30Q "Use standard font loaded in printer" 13Q "Use custom font to be loaded into the printer") \IW.INIT.CENTER.FLG D1 (P 0 CENTER.MENU) ] `dodododldidgdgdi dg jdndhdI Xd h(131Q MENU) (100Q CLRPROMPT 64Q \IW.EXPLAIN.CENTER 55Q \IW.SET.CENTER.FLG 5 MENUTYPE#) ( 33Q (107Q . 10Q) 23Q (YES NO) 13Q "SET CENTER FLAG") \IW.EXPLAIN.CENTER D1 (I 0 ITEM) "@dgo go (37Q SHOULDNT 33Q PROMPTPRINT 16Q PROMPTPRINT) (22Q NO 4 YES) ( 30Q "Do not center my bitmap/window" 13Q "Your bitmap/window will be placed in the center of the page") \IW.SET.CENTER.FLG D1 (L (0 OPTION)) @gggNIL (22Q IW.CENTER.IMAGE 17Q NO 13Q IW.CENTER.IMAGE 10Q YES 3 YES) () \IW.INIT.ROTATE.FLG D1 (P 0 ROTATE.MENU) W `dododi dodidgdgdg jdndhdI Xd h(123Q MENU) (72Q CLRPROMPT 63Q \IW.EXPLAIN.ROTATE 54Q \IW.SET.ROTATE.FLG 5 MENUTYPE#) ( 40Q (122Q . 12Q) 23Q "ROTATE WINDOW?" 13Q (YES NO)) \IW.EXPLAIN.ROTATE D1 (I 0 OPTION) "@dgo go (37Q SHOULDNT 33Q PROMPTPRINT 16Q PROMPTPRINT) (22Q NO 4 YES) ( 30Q "Print it as it is even though it is going to be slower than the rotated version" 13Q "Rotate picture by +90 degree for a faster printing out") \IW.SET.ROTATE.FLG D1 (L (0 OPTION)) @gggNIL (22Q IW.ROTATE.IMAGE 17Q NO 13Q IW.ROTATE.IMAGE 10Q YES 3 YES) () \IW.INIT.SPEED D1 (P 0 SPEED.MENU) W `dododi dodidgdgdg jdndhdI Xd h(123Q MENU) (72Q CLRPROMPT 63Q \IW.EXPLAIN.SPEED 54Q \IW.SET.SPEED 5 MENUTYPE#) ( 40Q (54Q . 2) 23Q "BAUDREATE" 13Q (454Q 2260Q 4540Q 22600Q)) \IW.EXPLAIN.SPEED D1 (I 0 OPTION) o (6 PROMPTPRINT) NIL ( 3 "Select the desired baud rate for printing (Default speed is 9600 BAUD). Make sure your printer is set to the same speed") \IW.SET.SPEED D1 (L (0 BAUD)) @hNIL (3 IMAGEWRITER.BAUD.RATE) () \IW.BOUT.PACK.NUM D1 (P 10Q ZERO P 6 CHAR P 4 ZERO P 3 CHAR P 2 PACK0 P 1 NUM.LENGTH P 0 UNPACK.NUM I 1 PLENGTH I 0 NUM)  P@ Xd YAIZddj&IkNM`Hi k)!HNk^=kOO`l0!Ok_IkNM`Hi k)!HNk^` h(173Q FORCEOUTPUT 147Q MKSTRING 52Q MKSTRING 13Q LENGTH 6 UNPACK) (170Q IW.OUTSTREAM 141Q IW.OUTSTREAM 107Q IW.OUTSTREAM 44Q IW.OUTSTREAM) () \IW.STANDARD.MODE D1 NIL =`` og g g ` g lL `l (72Q \IW.BOUT.PACK.NUM 62Q \IW.PRINTER.COMMAND 55Q \IW.PRINTER.MODE 47Q \IW.PRINTER.MODE 41Q \IW.PRINTER.MODE 33Q \IW.PRINTER.MODE 25Q \IW.PRINTER.MODE 10Q PRIN1) (65Q IMAGEWRITER.LMARGIN 52Q UniDirectionalOff 44Q IMAGEWRITER.CHAR.PITCH 36Q StopHeadlining 30Q StopUnderLining 22Q BoldOff 17Q IW.LINEBUFFER 5 IW.OUTSTREAM 2 IW.LINEBUFFER) ( 14Q "") \IW.GRAPHICS.MODE D1 (I 0 ROWS) lG ` @l (20Q \IW.BOUT.PACK.NUM 12Q FORCEOUTPUT 4 \IW.PRINTER.COMMAND) (7 IW.OUTSTREAM) () \IW.BOLD.MODE D1 NIL `` og (25Q \IW.PRINTER.MODE 10Q PRIN1) (22Q BoldOn 17Q IW.LINEBUFFER 5 IW.OUTSTREAM 2 IW.LINEBUFFER) ( 14Q "") \IW.COMMENT.MODE D1 NIL `` og (25Q \IW.PRINTER.MODE 10Q PRIN1) (22Q Condensed 17Q IW.LINEBUFFER 5 IW.OUTSTREAM 2 IW.LINEBUFFER) ( 14Q "") \IW.EXPANDED.MODE D1 NIL `` og (25Q \IW.PRINTER.MODE 10Q PRIN1) (22Q StartHeadlining 17Q IW.LINEBUFFER 5 IW.OUTSTREAM 2 IW.LINEBUFFER) ( 14Q "") \IW.PRINT.TEXT.INIT D1 NIL -g ` g ` ` lL `l (52Q \IW.BOUT.PACK.NUM 42Q \IW.PRINTER.COMMAND 35Q \IW.PRINTER.LINE.SPACING 27Q \IW.PRINTER.LINES.PER.PAGE 21Q \IW.PRINTER.MODE 13Q \IW.PRINTER.MODE 5 \IW.PRINTER.MODE) (45Q IMAGEWRITER.LMARGIN 32Q IMAGEWRITER.LINES.PER.INCH 24Q IMAGEWRITER.LINES.PER.PAGE 16Q UniDirectionalOff 10Q IMAGEWRITER.CHAR.PITCH 2 Reset) () \IW.PRINTER.LINES.PER.PAGE D1 (P 1 I I 0 LPP) `l!`lA!`l@!@lkIH`l@!`l@!IkY`lC!`l@!``@kIH`l@!`l@!IkY`lA!`l@!`l!` (176Q FORCEOUTPUT) (173Q IW.OUTSTREAM 165Q IW.OUTSTREAM 157Q IW.OUTSTREAM 151Q IW.OUTSTREAM 133Q IW.OUTSTREAM 124Q IW.OUTSTREAM 105Q IMAGEWRITER.LINES.PER.INCH 102Q IMAGEWRITER.PAPER.LENGTH 74Q IW.OUTSTREAM 66Q IW.OUTSTREAM 50Q IW.OUTSTREAM 41Q IW.OUTSTREAM 16Q IW.OUTSTREAM 10Q IW.OUTSTREAM 2 IW.OUTSTREAM) () \IW.PRINTER.LINE.SPACING D1 (I 0 LPI) #@llb`l!`lT!l@jl (40Q \IW.BOUT.PACK.NUM) (22Q IW.OUTSTREAM 14Q IW.OUTSTREAM) () \IW.PRINT.HEADING D1 (I 0 FILENAME F 0 USERNAME) u`gg o` @` o` ` o` P` `gg `g(162Q \IW.PRINT.CR 156Q \IW.PRINT.CRLF 143Q \IW.PRINT.CRLF 140Q \IW.PRINTER.MODE 131Q \IW.PRINT.CR 125Q \IW.PRINT.CRLF 112Q PRIN1 103Q PRIN1 71Q PRIN1 63Q DATE 60Q PRIN1 46Q PRIN1 37Q PRIN1 25Q \IW.PRINTER.MODE 16Q \IW.PRINT.CR 12Q \IW.PRINT.CRLF) (151Q RS232C 146Q IMAGEWRITER.PORT 135Q BoldOff 120Q RS232C 115Q IMAGEWRITER.PORT 107Q IW.OUTSTREAM 100Q IW.OUTSTREAM 66Q IW.OUTSTREAM 55Q IW.OUTSTREAM 43Q IW.OUTSTREAM 34Q IW.OUTSTREAM 22Q BoldOn 5 RS232C 2 IMAGEWRITER.PORT) ( 75Q " by " 52Q " , " 31Q "Printout of ") \IW.PRINTER.COMMAND D1 (I 0 CommandChar) `l!`@!` (20Q FORCEOUTPUT) (15Q IW.OUTSTREAM 10Q IW.OUTSTREAM 2 IW.OUTSTREAM) () \IW.PRINT.CRLF D1 NIL `l !`l !` (21Q FORCEOUTPUT) (16Q IW.OUTSTREAM 10Q IW.OUTSTREAM 2 IW.OUTSTREAM) () \IW.PRINT.CR D1 NIL `l !` (13Q FORCEOUTPUT) (10Q IW.OUTSTREAM 2 IW.OUTSTREAM) () \IW.PRINTER.MODE D1 (I 0 Mode) m@dglc g`l!`l0!` @dg`l!` gl! @dgl" gln @dglN glE @dglP glp @dgle glq @dglQ glX @dglY g`l!` @dg`l!` gl> @dgl< glA @dglT lj glB @dglT lj glT l j @g(552Q SHOULDNT 537Q \IW.BOUT.PACK.NUM 531Q \IW.PRINTER.COMMAND 516Q \IW.BOUT.PACK.NUM 510Q \IW.PRINTER.COMMAND 472Q \IW.PRINTER.COMMAND 457Q \IW.BOUT.PACK.NUM 451Q \IW.PRINTER.COMMAND 433Q \IW.PRINTER.COMMAND 420Q \IW.PRINTER.COMMAND 402Q \IW.PRINTER.COMMAND 367Q FORCEOUTPUT 342Q FORCEOUTPUT 320Q \IW.PRINTER.COMMAND 302Q \IW.PRINTER.COMMAND 267Q \IW.PRINTER.COMMAND 251Q \IW.PRINTER.COMMAND 236Q \IW.PRINTER.COMMAND 220Q \IW.PRINTER.COMMAND 205Q \IW.PRINTER.COMMAND 167Q \IW.PRINTER.COMMAND 154Q \IW.PRINTER.COMMAND 136Q \IW.PRINTER.COMMAND 123Q \IW.PRINTER.COMMAND 105Q \IW.PRINTER.COMMAND 72Q FORCEOUTPUT 45Q FORCEOUTPUT 14Q \IW.PRINTER.COMMAND) (544Q GraphicSpacingOn 522Q TwelveSpacingOn 500Q NineSpacingOn 463Q EightSpacingOn 441Q SevenSpacingOn 424Q SixSpacingOn 410Q UniDirectionalOff 373Q UniDirectionalOn 364Q IW.OUTSTREAM 356Q IW.OUTSTREAM 350Q StopHeadlining 337Q IW.OUTSTREAM 331Q IW.OUTSTREAM 324Q StartHeadlining 310Q StopUnderLining 273Q StartUnderLining 257Q Ultracondensed 242Q Condensed 226Q Semicondensed 211Q PicaProportional 175Q EliteProportional 160Q Elite 144Q Pica 127Q Extended 113Q BoldOff 76Q BoldOn 67Q IW.OUTSTREAM 61Q IW.OUTSTREAM 53Q ClearBuffer 42Q IW.OUTSTREAM 34Q IW.OUTSTREAM 26Q IW.OUTSTREAM 20Q ResetTabTOF 4 Reset) () (PRETTYCOMPRINT IMAGEWRITERCOMS) (RPAQQ IMAGEWRITERCOMS ((FILES (LOAD FROM VALUEOF DIRECTORIES) FREEMENU ICONW) (ADDVARS ( BackgroundMenuCommands ("Imagewriter" (IMAGEWRITER.START) "Opens up the IMAGEWRITER command menu")) ( PRINTERTYPES ((IMAGE.WRITER LOCALPRINTER) (CANPRINT (TEXT BITMAP WINDOW)) (STATUS TRUE) (PROPERTIES NILL) (SEND \IW.PRINT.FILE)))) (VARS (BackgroundMenu NIL)) (VARS IMAGEWRITER.ICON IMAGEWRITER.ICONMASK ) (* Top level operating functions) (FNS IMAGEWRITER.START IMAGEWRITER \IW.EXPLAIN.OPTIONS \IW.FILE.ERRORCHECK \IW.INIT.PORT \IW.DEFAULTS.MENU \IW.SET.DEFAULTS \IW.SHOW.DEFAULTS \IW.QUIT.OPTION ) (* These functions do the actual printing of the files) (FNS \IW.PRINT.FILE \IW.PRINT.TEXT \IW.SELECT.PRINTER.MODE \IW.PRINT.CHAR \IW.PRINT.BITMAP \IW.SIZE.BITMAP \IW.BITMAP.ASK.CORRECTION \IW.SIZE.WINDOW \IW.WINDOW.ASK.CORRECTION \IW.SET.CORRECTION \IW.EXPLAIN.CORRECTION \IW.ROTATE.BITMAP.RIGHT) (* These functions create and implement menu operations) (FNS \IW.INIT.TITLE \IW.EXPLAIN.TITLE \IW.SET.TITLE \IW.INIT.CUSTOM.FONT \IW.SET.CUSTOM.FONT.FLG \IW.EXPLAIN.CUSTOM.FONT.FLG \IW.INIT.CENTER.FLG \IW.EXPLAIN.CENTER \IW.SET.CENTER.FLG \IW.INIT.ROTATE.FLG \IW.EXPLAIN.ROTATE \IW.SET.ROTATE.FLG \IW.INIT.SPEED \IW.EXPLAIN.SPEED \IW.SET.SPEED) (* These functions setup the printer modes) (FNS \IW.BOUT.PACK.NUM \IW.STANDARD.MODE \IW.GRAPHICS.MODE \IW.BOLD.MODE \IW.COMMENT.MODE \IW.EXPANDED.MODE \IW.PRINT.TEXT.INIT \IW.PRINTER.LINES.PER.PAGE \IW.PRINTER.LINE.SPACING \IW.PRINT.HEADING \IW.PRINTER.COMMAND \IW.PRINT.CRLF \IW.PRINT.CR \IW.PRINTER.MODE) (INITVARS (IMAGEWRITER.PORT (QUOTE RS232C)) ( IMAGEWRITER.PROTOCOL (QUOTE XOnXOff)) (IMAGEWRITER.BAUD.RATE 9600) (IMAGEWRITER.PAPER.LENGTH 11) ( IMAGEWRITER.LINES.PER.PAGE 60) (IMAGEWRITER.LINES.PER.INCH 6) (IMAGEWRITER.LMARGIN 3) ( IMAGEWRITER.RMARGIN 96) (IMAGEWRITER.CHAR.PITCH (QUOTE Elite)) (IMAGEWRITER.BITWIDTH 576) ( IW.PRINT.TITLE (QUOTE NO)) (IW.CENTER.IMAGE (QUOTE NO)) (IW.ROTATE.IMAGE (QUOTE YES)) ( IW.PRINT.WINDOW.BORDERS (QUOTE YES)) (IW.LOAD.CUSTOM.FONT (QUOTE NO)) (IW.CUSTOM.FONT.FILENAME (QUOTE NONE)) (IW.OUTSTREAM NIL) (IW.RS232PORT.STREAM NIL) (IW.TTYPORT.STREAM NIL)) (GLOBALVARS IW.DISPLAY IW.MENU.WINDOW IW.WINDOW IW.DEFAULT.SELECT.MENUWINDOW IW.INPUT.FILE IW.USER.INFILE IMAGEWRITER.PORT IMAGEWRITER.BAUD.RATE IMAGEWRITER.PROTOCOL IMAGEWRITER.PAPER.LENGTH IMAGEWRITER.LINES.PER.PAGE IMAGEWRITER.CHAR.PITCH IMAGEWRITER.BITWIDTH IMAGEWRITER.LMARGIN IMAGEWRITER.RMARGIN IW.PRINT.TITLE IW.CENTER.IMAGE IW.ROTATE.IMAGE IW.PRINT.WINDOW.BORDERS IW.LOAD.CUSTOM.FONT IW.CUSTOM.FONT.FILENAME IMAGEWRITER.LINE.LENGTH IW.PRINTLINECOUNT IW.OUTSTREAM IW.RS232PORT.STREAM IW.TTYPORT.STREAM IW.LINEBUFFER IW.CHAR.COUNT IW.INPUT.CHAR IW.OUTPUT.BITMAP IW.ALT.SELECTION))) (FILESLOAD (LOAD FROM VALUEOF DIRECTORIES) FREEMENU ICONW) (ADDTOVAR BackgroundMenuCommands ("Imagewriter" (IMAGEWRITER.START) "Opens up the IMAGEWRITER command menu")) (ADDTOVAR PRINTERTYPES ((IMAGE.WRITER LOCALPRINTER) (CANPRINT (TEXT BITMAP WINDOW)) (STATUS TRUE) ( PROPERTIES NILL) (SEND \IW.PRINT.FILE))) (RPAQQ BackgroundMenu NIL) (RPAQ IMAGEWRITER.ICON (READBITMAP)) (50 50 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@GOOOOO@@@@@@" "@@@@D@@@@A@@@@@@" "@@@@D@@@@A@@@@@@" "@@@@DCOOOI@@@@@@" "@@@@D@@@@A@@@@@@" "@@@GEOOOOI@AL@@@" "@@@ID@@@@A@BD@@@" "@@ACEOOOOI@DL@@@" "@@BED@@@@A@ID@@@" "@@DIMOOOOIOBD@@@" "@@IBD@@@@ABDD@@@" "@ABGMOL@@ALHD@@@" "@BDHD@@@@AI@D@@@" "@DIOOOOOOOB@D@@@" "@IB@@@@@@BD@D@@@" "ABD@@@@@@DH@D@@@" "BDH@@@@@@I@@D@@@" "GI@@@@@@AN@@H@@@" "DJ@@@@@@AB@A@@@@" "DOOOOOOOOB@B@@@@" "DH@@@@@@AB@D@@@@" "DOOOOOOOOB@H@@@@" "DH@@@@@@ABA@@@@@" "DH@@@@@@ABB@@@@@" "DH@@@@@@ABD@@@@@" "DH@@@@@@ABH@@@@@" "DH@@@@@@AC@@@@@@" "GOOOOOOOON@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ IMAGEWRITER.ICONMASK (READBITMAP)) (50 50 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@GOOOOO@@@@@@" "@@@@GOOOOO@@@@@@" "@@@@GOOOOO@@@@@@" "@@@@GOOOOO@@@@@@" "@@@@GOOOOO@@@@@@" "@@@GGOOOOO@AL@@@" "@@@OGOOOOO@CL@@@" "@@AOGOOOOO@GL@@@" "@@COGOOOOO@OL@@@" "@@GOOOOOOOOOL@@@" "@@OOOOOOOOOOL@@@" "@AOOOOOOOOOOL@@@" "@COOOOOOOOOOL@@@" "@GOOOOOOOOOOL@@@" "@OOOOOOOOOOOL@@@" "AOOOOOOOOOOOL@@@" "COOOOOOOOOOOL@@@" "GOOOOOOOOOOOH@@@" "GOOOOOOOOOOO@@@@" "GOOOOOOOOOON@@@@" "GOOOOOOOOOOL@@@@" "GOOOOOOOOOOH@@@@" "GOOOOOOOOOO@@@@@" "GOOOOOOOOON@@@@@" "GOOOOOOOOOL@@@@@" "GOOOOOOOOOH@@@@@" "GOOOOOOOOO@@@@@@" "GOOOOOOOON@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ? IMAGEWRITER.PORT (QUOTE RS232C)) (RPAQ? IMAGEWRITER.PROTOCOL (QUOTE XOnXOff)) (RPAQ? IMAGEWRITER.BAUD.RATE 9600) (RPAQ? IMAGEWRITER.PAPER.LENGTH 11) (RPAQ? IMAGEWRITER.LINES.PER.PAGE 60) (RPAQ? IMAGEWRITER.LINES.PER.INCH 6) (RPAQ? IMAGEWRITER.LMARGIN 3) (RPAQ? IMAGEWRITER.RMARGIN 96) (RPAQ? IMAGEWRITER.CHAR.PITCH (QUOTE Elite)) (RPAQ? IMAGEWRITER.BITWIDTH 576) (RPAQ? IW.PRINT.TITLE (QUOTE NO)) (RPAQ? IW.CENTER.IMAGE (QUOTE NO)) (RPAQ? IW.ROTATE.IMAGE (QUOTE YES)) (RPAQ? IW.PRINT.WINDOW.BORDERS (QUOTE YES)) (RPAQ? IW.LOAD.CUSTOM.FONT (QUOTE NO)) (RPAQ? IW.CUSTOM.FONT.FILENAME (QUOTE NONE)) (RPAQ? IW.OUTSTREAM NIL) (RPAQ? IW.RS232PORT.STREAM NIL) (RPAQ? IW.TTYPORT.STREAM NIL) (PUTPROPS IMAGEWRITER COPYRIGHT ("XEROX Corporation" 1986)) NIL