(FILECREATED "17-Nov-86 15:22:47" ("compiled on " {ROSEBOWL}MICROTEK.;44) "12-Nov-85 14:59:23" bcompl'd in "INTERLISP-D 11-May-86 ..." dated "11-May-86 15:19:08") (FILECREATED "20-Oct-86 15:10:56" {ROSEBOWL}MICROTEK.;44 78214 changes to: (FNS MT.SHRINKFN MT.COMMAND.MENU MT.SCAN MT.RESET MT.QUIT MT.INIT) (VARS MICROTEKCOMS) previous date: "28-Aug-86 16:50:59" {ROSE}MICROTEK.;41) MT.INIT D1 (F 0 MT.CONTROL.MENUWINDOW F 1 MT.COMMAND.MENUWINDOW F 2 RESPONSE F 3 MT.DISPLAY.MENUWINDOW F 4 MT.POINTER F 5 MTHEIGHTRULER F 6 \RS232C.READY F 7 MT.BAUDRATE) oo Po QPgg SPgg `Qgg g g Pgg TjdUln`ooo ` ` VWlgkg gg d kgh cRo o (335Q MT.PRINT.STATUS 326Q RINGBELLS 322Q MT.PRINT.STATUS 317Q CONCAT 307Q CLRPROMPT 301Q MT.SENDCOMMAND 265Q RS232C.OTHER.STREAM 256Q OPENSTREAM 245Q RS232C.INIT 225Q RS232C.SHUTDOWN 220Q CLOSEF? 212Q CLOSEF? 204Q BITBLT 144Q PUTWINDOWPROP 131Q MT.4045.MENU 125Q FNTYP 116Q MT.PRINT.MENU 112Q FNTYP 104Q ATTACHWINDOW 67Q ATTACHWINDOW 54Q ATTACHWINDOW 41Q SHAPEW 26Q CREATEW 13Q MT.DISPLAY.MENU 10Q MT.COMMAND.MENU 5 MT.CONTROL.MENU 2 MICROTEKSCANNER) (274Q ! 270Q MT.INSTREAM 261Q MT.OUTSTREAM 253Q OUTPUT 250Q {RS232} 241Q DTR 235Q NONE 215Q MT.INSTREAM 207Q MT.OUTSTREAM 160Q MT.PAPERLENGTH 141Q MT.SHRINKFN 136Q ICONFN 122Q MT.4045.MENU 107Q MT.PRINT.MENU 101Q JUSTIFY 76Q TOP 72Q MT.STATUSWINDOW 64Q JUSTIFY 61Q BOTTOM 51Q JUSTIFY 46Q TOP 31Q MT.STATUSWINDOW) ( 332Q "Microtek Not Responding ...Check scanner and cables" 314Q " READY" 176Q 5.0 171Q 24.0 164Q .125 36Q (1021Q 144Q 603Q 350Q) 23Q "Microtek Status Window" 17Q (0 0 603Q 36Q)) MT.SHRINKFN D1 (I 1 ICON I 0 WINDOW F 0 MTDISPLAYWINDOW F 1 MT.CONTROL.MENUWINDOW F 2 MT.ICON F 3 MT.ICON.MASK) !P P Qg Qg RShi (36Q ICONW 26Q GETWINDOWUSERPROP 16Q GETWINDOWUSERPROP 7 CLOSEW 3 CLOSEW) (23Q ICONWINDOW 13Q ICONWINDOW) () MICROTEKSCANNER D1 (P 1 YHEIGHT P 0 MTWIDTHRULER F 2 MTHEIGHTRULER F 3 MTDISPLAYWINDOW F 4 MT.HEIGHT.BM) v on^nCol col2n:hli con^l2hli Xgl g R gl g H RSgg HSgg Sgo Rgo Rgg Rgg Rgg Hgo jkldl(kH jkl l lkH jkll@l kH jklllkH jll(jlH nDYdkllmkR Ikl lmkR Ikll8mkR IkllpmkR jImjlR l2nL cRjdT n^nC ol*l8gS Sjd` h(562Q BITBLT 551Q GRID 526Q BITMAPCREATE 515Q BITBLT 504Q BITMAPCREATE 474Q RULEY# 460Q RULERY 442Q RULERY 424Q RULERY 406Q RULERY 364Q RULEX# 347Q RULERX 331Q RULERX 313Q RULERX 275Q RULERX 260Q PUTWINDOWPROP 245Q PUTWINDOWPROP 233Q PUTWINDOWPROP 221Q PUTWINDOWPROP 207Q PUTWINDOWPROP 174Q PUTWINDOWPROP 161Q ATTACHWINDOW 146Q ATTACHWINDOW 133Q DSPFONT 127Q FONTCREATE 114Q DSPFONT 110Q FONTCREATE 74Q DECODE.WINDOW.ARG 51Q DECODE.WINDOW.ARG 26Q DECODE.WINDOW.ARG) (557Q MT.GRID 544Q POINT 531Q MT.GRID 251Q RESHAPEFN 242Q MT.GETLENGTH 237Q BUTTONEVENTFN 230Q MT.CURSOR.OUT 225Q CURSOROUTFN 216Q MT.CURSOR.IN 213Q CURSORINFN 200Q RESHAPEFN 165Q RESHAPEFN 156Q CENTER 153Q TOP 143Q JUSTIFY 140Q LEFT 124Q BRR 117Q GACHA 105Q BRR 100Q GACHA) ( 535Q (0 24Q 12Q 12Q) 255Q (DON'T) 204Q (DON'T) 171Q (DON'T) 57Q (144Q . 144Q) 34Q (144Q . 144Q) 20Q "Microtek Scanner Page Map" 6 (144Q . 144Q)) RULERX D1 (P 1 I I 6 WIND I 5 LINEWIDTH I 4 INCR I 3 NUMLINES I 2 LEN I 1 STARTY I 0 STARTX) $CkIHh@k@BEhF @DbIkY(25Q DRAWLINE) NIL () RULEX# D1 (P 1 I I 5 WIND I 4 ENDNUMBER I 3 STARTNUMBER I 2 INCR I 1 STARTY I 0 STARTX) %DCIHh@AE IE @BbIkY(26Q PRINT 20Q MOVETO) NIL () RULERY D1 (P 1 I I 6 WIND I 5 LINEWIDTH I 4 INCR I 3 NUMLINES I 2 LEN I 1 STARTX I 0 STARTY) 6CkIHhFg A@Fg AB@EhF @DbIkY(47Q DRAWLINE 33Q GETWINDOWPROP 21Q GETWINDOWPROP) (30Q WIDTH 16Q WIDTH) () RULEY# D1 (P 1 I I 5 WIND I 4 ENDNUMBER I 3 STARTNUMBER I 2 INCR I 1 STARTY I 0 STARTX) %DCIHh@AE IE ABbIkY(26Q PRINT 20Q MOVETO) NIL () MT.GETLENGTH D1 (F 1 MTHEIGHTRULER F 2 MT.CONTROL.MENUWINDOW F 3 MT.HEIGHT.BM F 4 MT.POINTER) sQ `lj`hQ nHHnQ SjdQjd TjdQl` o`oojoRg R` h(156Q FM.CHANGESTATE 147Q FM.ITEMFROMID 104Q BITBLT 67Q BITBLT 55Q CLEARW 26Q CURSORPOSITION 6 GETMOUSESTATE 3 TOTOPW) (153Q MT.PAPERLENGTH 144Q PAGELENGTH 140Q MT.PAPERLENGTH 113Q MT.PAPERLENGTH 100Q MT.PAPERLENGTH 51Q MT.PAPERLENGTH 12Q LASTMOUSEBUTTONS) ( 134Q .125 125Q 24.0 120Q 5.0 110Q 453.0) MT.CURSOR.IN D1 (F 0 MT.POINTER) Plj (11Q CURSOR 6 CURSORCREATE) NIL () MT.CURSOR.OUT D1 NIL i (3 CURSOR) NIL () MT.PRINT.STATUS D1 (I 0 MSG) ` @` (14Q PRIN1 5 CLEARW) (11Q MT.STATUSWINDOW 2 MT.STATUSWINDOW) () MT.CONTROL.MENU D1 (P 0 MENU.DESCRIPTION F 1 MT.CONTROL.MENUWINDOW) koooooooooggg`ooooooooooooooooooooooooooooooooooooooooooooooooooooog`oggg`og`ooog`oggg`og`ooXd cd` Q Qg Q`o Qg Q`o Qg Q`o Qg Q`o Qg Q` Qg Q` Qg Q` Qg Q` ` ` Q h(1147Q OPENW 1143Q MT.CHANGE.CONTRASTBAR 1135Q MT.CHANGE.BRIGHTBAR 1127Q FM.CHANGELABEL 1120Q FM.ITEMFROMID 1111Q FM.CHANGESTATE 1102Q FM.ITEMFROMID 1073Q FM.CHANGESTATE 1064Q FM.ITEMFROMID 1055Q FM.CHANGESTATE 1046Q FM.ITEMFROMID 1037Q MT.SELECT.BACKGROUND 1034Q FM.CHANGESTATE 1014Q FM.ITEMFROMID 1005Q FM.CHANGESTATE 766Q FM.ITEMFROMID 757Q FM.CHANGESTATE 741Q FM.ITEMFROMID 732Q FM.CHANGESTATE 715Q FM.ITEMFROMID 706Q FM.CHANGESTATE 702Q FM.ITEMFROMID 671Q FM.MAKEMENU) (1140Q MT.CONTRAST 1132Q MT.BRIGHTNESS 1124Q MT.BRIGHTNESS 1115Q BRIGHTNESS 1106Q MT.CONTRAST 1077Q CONTRAST 1070Q MT.REDUCTION 1061Q REDUCTION 1052Q MT.PAPERLENGTH 1043Q PAGELENGTH 1020Q MT.FRAME 1011Q TY2 772Q MT.FRAME 763Q TX2 745Q MT.FRAME 736Q TY1 721Q MT.FRAME 712Q TX1 677Q MT.BACKGROUND 544Q RIGHTARROW 541Q LABEL 526Q BRIGHTBAR 523Q LABEL 520Q TITLE 515Q TYPE 504Q LEFTARROW 501Q LABEL 460Q RIGHTARROW 455Q LABEL 442Q CONTRASTBAR 437Q LABEL 434Q TITLE 431Q TYPE 420Q LEFTARROW 415Q LABEL 62Q MT.WINDOW 57Q LABEL 54Q TITLE 51Q TYPE) ( 1030Q .125 1001Q .125 753Q .125 726Q .125 556Q ((TYPE EDIT ID BRIGHTNESS LABEL 0 LEFT 351Q BOTTOM 207Q) (WINDOWPROPS TITLE "Microtek Configuration Menu" BORDER 5 LEFT 1130Q BOTTOM 144Q)) 550Q (HELDFN MT.RAISEBRIGHTNESS LEFT 331Q BOTTOM 207Q MESSAGE "") 532Q (ID BRIGHTBAR LEFT 125Q BOTTOM 207Q) 510Q (HELDFN MT.LOWERBRIGHTNESS LEFT 107Q BOTTOM 207Q MESSAGE "") 476Q (TYPE TITLE LABEL Brightness: FONT (MODERN 12Q BOLD) LEFT 0 BOTTOM 207Q) 472Q (TYPE EDIT ID CONTRAST LABEL 0 LEFT 351Q BOTTOM 226Q) 464Q (HELDFN MT.RAISECONTRAST LEFT 331Q BOTTOM 226Q MESSAGE "") 446Q (ID CONTRASTBAR LEFT 125Q BOTTOM 226Q) 424Q (HELDFN MT.LOWERCONTRAST LEFT 107Q BOTTOM 226Q MESSAGE "") 412Q (TYPE TITLE LABEL "Contrast: " LEFT 0 BOTTOM 226Q FONT (MODERN 12Q BOLD)) 406Q (TYPE NCHOOSE LABEL "" LEFT 341Q BOTTOM 264Q ID GREYLEVEL ITEMS (" 0 = 8X8 33" " 1 = 8X8 33" " 2 = 8X8 33" " 3 = 8X8 33" " 4 = 6X6 37" " 5 = 5X5 26" " 6 = 5X5 18" " 7 = 4X4 17" " 8 = 4X4 17" " 9 = 4X4 17" "10 = 3X3 10" "11 = 2X2 5")) 402Q (TYPE TITLE LABEL "Gray Level: " LEFT 252Q BOTTOM 264Q FONT (MODERN 12Q BOLD)) 376Q (TYPE TITLE LABEL "Levels" LEFT 500Q BOTTOM 303Q FONT (MODERN 12Q BOLD)) 372Q (TYPE TITLE LABEL "Grain Size" LEFT 411Q BOTTOM 303Q FONT (MODERN 12Q BOLD)) 366Q (TYPE NCHOOSE LABEL "" LEFT 62Q BOTTOM 264Q ID REDUCTION ITEMS (" 0%% = 300 DPI" " 5%% = 285 DPI" "10%% = 270 DPI" "15%% = 255 DPI" "20%% = 240 DPI" "25%% = 225 DPI" "33%% = 200 DPI" "35%% = 195 DPI" "40%% = 180 DPI" "45%% = 165 DPI" "50%% = 150 DPI" "55%% = 135 DPI" "60%% = 120 DPI" "67%% = 100 DPI" "70%% = 90 DPI" "75%% = 75 DPI")) 362Q (TYPE TITLE LABEL "Reduction: " LEFT 0 BOTTOM 264Q FONT (MODERN 12Q BOLD)) 356Q (TYPE NWAY ID BACKGROUND LABEL LINEART LEFT 214Q BOTTOM 151Q SELECTEDFN MT.SELECT.BACKGROUND) 352Q (TYPE EDIT ID PAGELENGTH LABEL "" LEFT 447Q BOTTOM 151Q) 346Q (TYPE TITLE LABEL "Page Length: " LEFT 341Q BOTTOM 151Q FONT (MODERN 12Q BOLD)) 342Q (TYPE NWAY ID BACKGROUND LABEL HALFTONE LEFT 106Q BOTTOM 151Q SELECTEDFN MT.SELECT.BACKGROUND) 336Q (TYPE TITLE LABEL "Background: " FONT (MODERN 12Q BOLD) LEFT 0 BOTTOM 151Q) 332Q (TYPE EDIT ID Y24 LABEL "" LEFT 517Q BOTTOM 0) 326Q (TYPE TITLE LABEL Y2 FONT (MODERN 12Q BOLD) LEFT 454Q BOTTOM 0) 322Q (TYPE EDIT ID X24 LABEL "" LEFT 377Q BOTTOM 0) 316Q (TYPE TITLE LABEL X2 FONT (MODERN 12Q BOLD) LEFT 341Q BOTTOM 0) 312Q (TYPE EDIT ID Y14 LABEL "" LEFT 252Q BOTTOM 0) 306Q (TYPE TITLE LABEL Y1 FONT (MODERN 12Q BOLD) LEFT 221Q BOTTOM 0) 302Q (TYPE EDIT ID X14 LABEL "" LEFT 151Q BOTTOM 0) 276Q (TYPE TITLE LABEL X1 FONT (MODERN 12Q BOLD) LEFT 125Q BOTTOM 0) 272Q (TYPE NCHOOSE LABEL "" LEFT 62Q BOTTOM 0 ID SW4 ITEMS (NO YES) SELECTEDFN MT.UPDATE.HTWINDOWS) 266Q (TYPE MOMENTARY LABEL "Window 4: " LEFT 0 BOTTOM 0 FONT (MODERN 12Q BOLD) SELECTEDFN MT.GETWINDOW4) 262Q (TYPE EDIT ID Y23 LABEL "" LEFT 517Q BOTTOM 17Q) 256Q (TYPE TITLE LABEL Y2 FONT (MODERN 12Q BOLD) LEFT 454Q BOTTOM 17Q) 252Q (TYPE EDIT ID X23 LABEL "" LEFT 377Q BOTTOM 17Q) 246Q (TYPE TITLE LABEL X2 FONT (MODERN 12Q BOLD) LEFT 341Q BOTTOM 17Q) 242Q (TYPE EDIT ID Y13 LABEL "" LEFT 252Q BOTTOM 17Q) 236Q (TYPE TITLE LABEL Y1 FONT (MODERN 12Q BOLD) LEFT 221Q BOTTOM 17Q) 232Q (TYPE EDIT ID X13 LABEL "" LEFT 151Q BOTTOM 17Q) 226Q (TYPE TITLE LABEL X1 FONT (MODERN 12Q BOLD) LEFT 125Q BOTTOM 17Q) 222Q (TYPE NCHOOSE LABEL "" LEFT 62Q BOTTOM 17Q ID SW3 ITEMS (NO YES) SELECTEDFN MT.UPDATE.HTWINDOWS) 216Q (TYPE MOMENTARY LABEL "Window 3: " LEFT 0 BOTTOM 17Q FONT (MODERN 12Q BOLD) SELECTEDFN MT.GETWINDOW3) 212Q (TYPE EDIT ID Y22 LABEL "" LEFT 517Q BOTTOM 36Q) 206Q (TYPE TITLE LABEL Y2 FONT (MODERN 12Q BOLD) LEFT 454Q BOTTOM 36Q) 202Q (TYPE EDIT ID X22 LABEL "" LEFT 377Q BOTTOM 36Q) 176Q (TYPE TITLE LABEL X2 FONT (MODERN 12Q BOLD) LEFT 341Q BOTTOM 36Q) 172Q (TYPE EDIT ID Y12 LABEL "" LEFT 252Q BOTTOM 36Q) 166Q (TYPE TITLE LABEL Y1 FONT (MODERN 12Q BOLD) LEFT 221Q BOTTOM 36Q) 162Q (TYPE EDIT ID X12 LABEL "" LEFT 151Q BOTTOM 36Q) 156Q (TYPE TITLE LABEL X1 FONT (MODERN 12Q BOLD) LEFT 125Q BOTTOM 36Q) 152Q (TYPE NCHOOSE LABEL "" LEFT 62Q BOTTOM 36Q ID SW2 ITEMS (NO YES) SELECTEDFN MT.UPDATE.HTWINDOWS) 146Q (TYPE MOMENTARY LABEL "Window 2: " LEFT 0 BOTTOM 36Q FONT (MODERN 12Q BOLD) SELECTEDFN MT.GETWINDOW2) 142Q (TYPE EDIT ID Y21 LABEL "" LEFT 517Q BOTTOM 55Q) 136Q (TYPE TITLE LABEL Y2 FONT (MODERN 12Q BOLD) LEFT 454Q BOTTOM 55Q) 132Q (TYPE EDIT ID X21 LABEL "" LEFT 377Q BOTTOM 55Q) 126Q (TYPE TITLE LABEL X2 FONT (MODERN 12Q BOLD) LEFT 341Q BOTTOM 55Q) 122Q (TYPE EDIT ID Y11 LABEL "" LEFT 252Q BOTTOM 55Q) 116Q (TYPE TITLE LABEL Y1 FONT (MODERN 12Q BOLD) LEFT 221Q BOTTOM 55Q) 112Q (TYPE EDIT ID X11 LABEL "" LEFT 151Q BOTTOM 55Q) 106Q (TYPE TITLE LABEL X1 FONT (MODERN 12Q BOLD) LEFT 125Q BOTTOM 55Q) 102Q (TYPE NCHOOSE LABEL "" LEFT 62Q BOTTOM 55Q ID SW1 ITEMS (NO YES) SELECTEDFN MT.UPDATE.HTWINDOWS) 76Q (TYPE MOMENTARY LABEL "Window 1: " LEFT 0 BOTTOM 55Q FONT (MODERN 12Q BOLD) SELECTEDFN MT.GETWINDOW1) 66Q (ID WINDOWTYPE FONT (MODERN 12Q BOLD) LEFT 0 BOTTOM 74Q) 46Q (TYPE EDIT ID TY2 LABEL "" LEFT 517Q BOTTOM 132Q) 42Q (TYPE TITLE LABEL Y2 FONT (MODERN 12Q BOLD) LEFT 454Q BOTTOM 132Q) 36Q (TYPE EDIT ID TX2 LABEL "" LEFT 377Q BOTTOM 132Q) 32Q (TYPE TITLE LABEL X2 FONT (MODERN 12Q BOLD) LEFT 341Q BOTTOM 132Q) 26Q (TYPE EDIT ID TY1 LABEL "" LEFT 271Q BOTTOM 132Q) 22Q (TYPE TITLE LABEL Y1 FONT (MODERN 12Q BOLD) LEFT 221Q BOTTOM 132Q) 16Q (TYPE EDIT ID TX1 LABEL "" LEFT 151Q BOTTOM 132Q) 12Q (TYPE TITLE LABEL X1 FONT (MODERN 12Q BOLD) LEFT 125Q BOTTOM 132Q) 6 (TYPE MOMENTARY LABEL "Frame: " FONT (MODERN 12Q BOLD) SELECTEDFN MT.GETTRANSFRAME LEFT 0 BOTTOM 132Q)) MT.CHANGE.BRIGHTBAR D1 (I 0 BRIGHTNESS F 0 MT.CONTROL.MENUWINDOW F 1 INITIALBRIGHTBAR) =Qhd`hddddg `hd`@llIMAGE LEFT 151Q BOTTOM 0) (WINDOWPROPS TITLE "Microtek Command Menu" BORDER 5))) MT.GET.OUTFILENAME D1 (F 0 MT.COMMAND.MENUWINDOW) Pg P (12Q FM.EDITITEM 6 FM.ITEMFROMID) (3 OUTFILENAME) () MT.SCAN D1 NIL ogg (14Q ADD.PROCESS) (11Q MICROTEK.SCANNING 6 NAME) ( 3 (MT.START.SCANNING)) MT.START.SCANNING D1 (P 11Q I P 7 CORESTREAM P 6 OUTFILESTREAM P 5 NUMBEROFBYTES P 4 CHECKSUM P 3 DATACOUNT P 2 HDR P 1 COREFILE P 0 SCANLINECOUNT F 15Q MT.CONTROL.MENUWINDOW F 16Q REDUCTION F 17Q DATA F 20Q MT.COMMAND.MENUWINDOW)  jqo hkgh o lk2 OO&` _OOh__Ok_O&_OZl Jj IMAGE LEFT 151Q BOTTOM 43Q) (TYPE MOMENTARY LABEL "CREATE BITMAP" LEFT 0 BOTTOM 24Q FONT (MODERN 12Q BOLD) SELECTEDFN MT.CREATEBM) (TYPE TITLE LABEL "Bitmap Name: " LEFT 132Q BOTTOM 24Q FONT (MODERN 12Q BOLD) SELECTEDFN MT.GET.BITMAPNAME) (TYPE EDIT ID BITMAPNAME LABEL IMAGE LEFT 252Q BOTTOM 24Q) (TYPE TITLE LABEL "Shrinkfactor: " LEFT 0 BOTTOM 5 FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" LEFT 101Q BOTTOM 5 ID BMSHRINKFACTOR ITEMS (12Q 11Q 10Q 7 6 5 4 3 2 1)) (TYPE TITLE LABEL "Rotation: " LEFT 144Q BOTTOM 5 FONT (MODERN 12Q BOLD)) (TYPE NCHOOSE LABEL "" LEFT 221Q BOTTOM 5 ID ROTATE ITEMS (NONE LEFT RIGHT)) (WINDOWPROPS TITLE "Microtek Display Menu" BORDER 5))) MT.GET.SOURCEFILENAME D1 (F 0 MT.DISPLAY.MENUWINDOW) Pg P (12Q FM.EDITITEM 6 FM.ITEMFROMID) (3 SOURCEFILENAME) () MT.GET.BITMAPNAME D1 (F 0 MT.DISPLAY.MENUWINDOW) Pg P (12Q FM.EDITITEM 6 FM.ITEMFROMID) (3 BITMAPNAME) () MT.CREATEBM D1 (F 0 MT.DISPLAY.MENUWINDOW) (P g'P g'P g' P g' (45Q MT.BITMAPCREATE 36Q FM.READSTATE 32Q MKATOM 23Q FM.READSTATE 13Q FM.READSTATE 3 FM.READSTATE) (41Q ROTATE 26Q BMSHRINKFACTOR 16Q SOURCEFILENAME 6 BITMAPNAME) () MT.BITMAPCREATE D1 (P 3 SCANDENSITY P 2 BYTESPERSCANLINE P 1 SCANTYPE P 0 SCANFILE I 3 ROTATION I 2 BMSHRINKFACTOR I 1 INFILENAME I 0 BITMAPNAME F 4 FINISHEDBM F 5 COMPRESSION F 6 RESOLUTION F 7 SCANLINES F 10Q GREYLEVEL F 11Q CONTRAST F 12Q BRIGHTNESS) @@ cAgddAg X c H c H cH cH cH cH H UgTHWJTBC  @ gV oo H T(174Q CLOSEF? 167Q MT.PRINT.STATUS 151Q PUTPROP 142Q MKATOM 135Q SET 132Q MT.CONVERTIMAGETOBM 103Q READ 74Q READ 65Q READ 56Q READ 47Q READ 40Q READ 31Q READ 25Q OPENSTREAM 6 MKATOM) (145Q RESOLUTION 113Q NO 22Q INPUT) ( 164Q "ERROR IN BITMAP OR SCANFILE NAME" 157Q "NOT YET IMPLEMENTED") MT.CONVERTIMAGETOBM D1 (P 12Q X P 10Q Y P 6 SHRINKWIDTHFACTOR P 5 SHRINKHEIGHTFACTOR P 4 CBYTE P 3 BMPTR P 2 CLINE P 1 FINALBMLINES P 0 FINALBM I 5 ROTATION I 4 SCANNERSHRINKFACTOR I 3 BMAPNAME I 2 BYTESPERSCANLINE I 1 SCANLINES I 0 BFILE F 13Q OFFSET F 14Q FINALBMOFFSET F 15Q TEMPBM F 16Q BITWIDTH F 17Q FINALBMOFFSETFACTOR F 20Q LINEOFFSET F 21Q FINALBMWNAME) h pjcBlcBdkjkc Wl cmcCg c"lDco D]d^AMkYoWAWA BlNI Xo W[AkjOOxWdl=o WjcWWcWNM jdHjIW o WW ںBkj OOKOJ@ ǿOk_WkcOk_o WM WMcWWcWNM jWWHjIW Edgo H Xgo H XH o @ H(544Q CLRPROMPT 541Q CLOSEF 535Q MT.PRINT.STATUS 526Q MT.CREATE.DISPLAYWINDOW 520Q ROTATE.BITMAP.RIGHT 513Q MT.PRINT.STATUS 474Q ROTATE.BITMAP.LEFT 467Q MT.PRINT.STATUS 450Q BITBLT 430Q SHRINKBITMAP 403Q IMOD 375Q MT.PRINT.STATUS 277Q MT.PRINT.STATUS 267Q BITBLT 253Q SHRINKBITMAP 217Q MT.PRINT.STATUS 151Q MT.PRINT.STATUS 141Q BITMAPCREATE 126Q MT.CREATE.BIG.BM 74Q MT.PRINT.STATUS 55Q MKATOM 52Q CONCAT 35Q BITMAPCREATE) (502Q RIGHT 455Q LEFT 225Q BITMAP 156Q BITMAP 47Q WINDOW) ( 532Q "DONE" 510Q "..ROTATING BITMAP...PLEASE WAIT" 464Q "..ROTATING BITMAP...PLEASE WAIT" 372Q " BLT'ING FINAL CHUNK..." 274Q "DONE...WORKING..." 214Q "BLT'ING A CHUNK..." 146Q "WORKING..." 112Q 7502200Q 71Q "SETTING UP BITMAP...") MT.CREATE.BIG.BM D1 (P 5 REALLYBIGBM P 4 BMPTR P 3 NPAGES P 1 TOTALBYTES P 0 RASTERWIDTH I 1 HEIGHT I 0 WIDTH) i@l@ll!AHlYnZjDJ:InkK `dLdHdAd@dkjM M In۰(136Q \FZEROP 131Q BLTSHADE 61Q \ALLOCPAGEBLOCK) (67Q BITMAPTYPE#) () MT.CREATE.DISPLAYWINDOW D1 (P 0 WINDOW I 0 BITMAP F 1 MT.DISPLAY.MENUWINDOW) Go hQ g' Xdg@ Hgg Hgg Hgg H H(103Q MT.RESHAPEWINDOW 77Q PUTWINDOWPROP 65Q PUTWINDOWPROP 53Q PUTWINDOWPROP 41Q PUTWINDOWPROP 30Q CREATEW 21Q FM.READSTATE 14Q MT.PRINT.STATUS 5 RINGBELLS) (74Q SCROLLBYREPAINTFN 71Q SCROLLFN 62Q MT.RESHAPEWINDOW 57Q RESHAPEFN 50Q MT.REPAINTWINDOW 45Q REPAINTFN 35Q SRCBM 24Q BITMAPNAME) ( 11Q "SWEEP OUT WINDOW FOR BITMAP") MT.REPAINTWINDOW D1 (I 1 REGION I 0 WINDOW) !@g @g @ @g jd@ (36Q BITBLT 30Q GETWINDOWUSERPROP 21Q MOVETO 15Q GETWINDOWUSERPROP 6 GETWINDOWUSERPROP) (25Q SRCBM 12Q BMORIGY 3 BMORIGX) () MT.RESHAPEWINDOW D1 (I 0 WINDOW) C@ @gh@ @gh@ @ @gjd@g @g h(77Q PUTWINDOWPROP 74Q CREATEREGION 71Q BITMAPHEIGHT 66Q GETWINDOWUSERPROP 57Q BITMAPWIDTH 54Q GETWINDOWUSERPROP 37Q MT.REPAINTWINDOW 33Q PUTWINDOWPROP 30Q DSPYPOSITION 17Q PUTWINDOWPROP 14Q DSPXPOSITION 3 DSPRESET) (63Q SRCBM 51Q SRCBM 43Q EXTENT 23Q BMORIGY 7 BMORIGX) () (PRETTYCOMPRINT MICROTEKCOMS) (RPAQQ MICROTEKCOMS ((P (FILESLOAD DLRS232C FREEMENU ICONW EDITBITMAP)) (* * Microtek Initialization and Menu Functions) (FNS MT.INIT MT.SHRINKFN MICROTEKSCANNER RULERX RULEX# RULERY RULEY# MT.GETLENGTH MT.CURSOR.IN MT.CURSOR.OUT MT.PRINT.STATUS MT.CONTROL.MENU MT.CHANGE.BRIGHTBAR MT.RAISEBRIGHTNESS MT.LOWERBRIGHTNESS MT.CHANGE.CONTRASTBAR MT.RAISECONTRAST MT.LOWERCONTRAST MT.SELECT.BACKGROUND MT.GETTRANSFRAME MT.GETWINDOW1 MT.GETWINDOW2 MT.GETWINDOW3 MT.GETWINDOW4 MT.UPDATE.HTWINDOWS) (* * Command Functions) (FNS MT.COMMAND.MENU MT.GET.OUTFILENAME MT.SCAN MT.START.SCANNING MT.SETUPSCANFILE MT.SEND.SCAN.PARAMETERS MT.SENDCOMMAND MT.COMPUTECHECKSUM MT.PRINT.ERROR.MSG MT.SENDACK MT.SENDNAK MT.STOP.SCANNING MT.RESET MT.PAGEMAP MT.QUIT) (* * Functions to convert and print scanned images) (FNS MT.DISPLAY.MENU MT.GET.SOURCEFILENAME MT.GET.BITMAPNAME MT.CREATEBM MT.BITMAPCREATE MT.CONVERTIMAGETOBM MT.CREATE.BIG.BM MT.CREATE.DISPLAYWINDOW MT.REPAINTWINDOW MT.RESHAPEWINDOW) ( ADDVARS (BackgroundMenuCommands ("MicrotekScanner" (MT.INIT) "Open Microtek Scanner Command and Display windows, initilalize RS232 port and verifies Microtek Scanner is ready" ))) (VARS (BackgroundMenu NIL)) (VARS MT.ICON MT.ICON.MASK BRIGHTBAR CONTRASTBAR INITIALBRIGHTBAR INITIALCONTRASTBAR LEFTARROW MANCURSOR RIGHTARROW MT.POINTER) (INITVARS (MT.BAUDRATE 19200) ( MT.DISPLAYFRAME (QUOTE YES)) (MT.PAPERLENGTH 4) (MT.REDUCTION 0) (MT.CONTRAST 0) (MT.BRIGHTNESS 0) ( MT.GREYLEVEL 0) (MT.DATACOMPRESSION (QUOTE NO)) (MT.BACKGROUND (QUOTE HALFTONE)) (MT.WINDOW (QUOTE LINEART)) (MT.FRAME (QUOTE (0 0 40 24))) (MT.FRAME.BOX (QUOTE (0 460 200 120))) (MT.TEXTW1 (QUOTE (0 0 0 0))) (MT.TEXTW2 (QUOTE (0 0 0 0))) (MT.TEXTW3 (QUOTE (0 0 0 0))) (MT.TEXTW4 (QUOTE (0 0 0 0))) ( MT.TEXTW1BOX (QUOTE (0 0 0 0))) (MT.TEXTW2BOX (QUOTE (0 0 0 0))) (MT.TEXTW3BOX (QUOTE (0 0 0 0))) ( MT.TEXTW4BOX (QUOTE (0 0 0 0))) (MT.HALFTONEW1 (QUOTE (0 0 0 0))) (MT.HALFTONEW2 (QUOTE (0 0 0 0))) ( MT.HALFTONEW3 (QUOTE (0 0 0 0))) (MT.HALFTONEW4 (QUOTE (0 0 0 0))) (MT.HALFTONEW1BOX (QUOTE (0 0 0 0)) ) (MT.HALFTONEW2BOX (QUOTE (0 0 0 0))) (MT.HALFTONEW3BOX (QUOTE (0 0 0 0))) (MT.HALFTONEW4BOX (QUOTE ( 0 0 0 0))) (MT.OUTSTREAM NIL) (MT.INSTREAM NIL) (MT.BMSHRINKFACTOR 1)) (GLOBALVARS MT.STATUSWINDOW MT.GRID MT.PAPERLENGTH MT.REDUCTION MT.BRIGHTNESS MT.CONTRAST MT.GREYLEVEL MT.DATACOMPRESSION MT.BACKGROUND MT.WINDOW MT.HEIGHTWINDOW MT.FRAME MT.TEXTW1 MT.TEXTW2 MT.TEXTW3 MT.TEXTW4 MT.HALFTONEW1 MT.HALFTONEW2 MT.HALFTONEW3 MT.HALFTONEW4 MT.OUTSTREAM MT.INSTREAM BRIGHTBAR CONTRASTBAR LEFTARROW MANCURSOR RIGHTARROW))) (FILESLOAD DLRS232C FREEMENU ICONW EDITBITMAP) (ADDTOVAR BackgroundMenuCommands ("MicrotekScanner" (MT.INIT) "Open Microtek Scanner Command and Display windows, initilalize RS232 port and verifies Microtek Scanner is ready" )) (RPAQQ BackgroundMenu NIL) (RPAQ MT.ICON (READBITMAP)) (50 50 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@OOOOOH@@@@@@@" "@@@H@@@@H@@@@@@@" "@@@H@@@@H@@@@@@@" "@@@H@@@@OOOOL@@@" "@@AH@@@@H@@@L@@@" "@@BH@@@@H@@AD@@@" "@@DH@@@@H@@BD@@@" "@@HH@@@@H@@DD@@@" "@A@H@@@@H@@HD@@@" "@B@H@@@@H@A@D@@@" "@DCH@@@@N@B@D@@@" "@HCOOOOON@D@D@@@" "A@@@@@@@@@H@D@@@" "B@@@@@@@@A@@D@@@" "GOOOOOOOON@@H@@@" "D@@@@@@@@B@A@@@@" "D@@@@@@@@B@B@@@@" "D@@@@@@@@B@D@@@@" "DOOOOOOOOB@H@@@@" "DH@@@@@@ABA@@@@@" "DH@@@@@@ABB@@@@@" "DH@@@@@@ABD@@@@@" "DH@@@@@@ABH@@@@@" "DH@@@@@@AC@@@@@@" "GOOOOOOOON@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ MT.ICON.MASK (READBITMAP)) (50 50 "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@" "@@@OOOOOH@@@@@@@" "@@@OOOOOH@@@@@@@" "@@@OOOOOH@@@@@@@" "@@@OOOOOOOOOL@@@" "@@AOOOOOOOOOL@@@" "@@COOOOOOOOOL@@@" "@@GOOOOOOOOOL@@@" "@@OOOOOOOOOOL@@@" "@AOOOOOOOOOOL@@@" "@COOOOOOOOOOL@@@" "@GOOOOOOOOOOL@@@" "@OOOOOOOOOOOL@@@" "AOOOOOOOOOOOL@@@" "COOOOOOOOOOOL@@@" "GOOOOOOOOOOOH@@@" "GOOOOOOOOOOO@@@@" "GOOOOOOOOOON@@@@" "GOOOOOOOOOOL@@@@" "GOOOOOOOOOOH@@@@" "GOOOOOOOOOO@@@@@" "GOOOOOOOOON@@@@@" "GOOOOOOOOOL@@@@@" "GOOOOOOOOOH@@@@@" "GOOOOOOOOO@@@@@@" "GOOOOOOOON@@@@@@" "@@@@@@@@@@@@@@@@" "@@@@@@@@@@@@@@@@") (RPAQ BRIGHTBAR (READBITMAP)) (128 10 "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@AD@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@CF@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@GG@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@OGH@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@GG@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@CF@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@AD@@@@@@@@@@@@@@A" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO") (RPAQ CONTRASTBAR (READBITMAP)) (128 10 "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@AD@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@CF@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@GG@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@OGH@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@GG@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@CF@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@AD@@@@@@@@@@@@@@A" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO") (RPAQ INITIALBRIGHTBAR (READBITMAP)) (128 10 "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" "H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO") (RPAQ INITIALCONTRASTBAR (READBITMAP)) (128 10 "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO" "H@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "H@@@@@@@@@@@@@@@H@@@@@@@@@@@@@@A" "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO") (RPAQ LEFTARROW (READBITMAP)) (10 10 "@H@@" "AH@@" "CH@@" "GOL@" "OOL@" "OOL@" "GOL@" "CH@@" "AH@@" "@H@@") (RPAQ MANCURSOR (READBITMAP)) (9 9 "@H@@" "AL@@" "CN@@" "GO@@" "OOH@" "GO@@" "CN@@" "AL@@" "@@@@") (RPAQ RIGHTARROW (READBITMAP)) (10 10 "@D@@" "@F@@" "@G@@" "OOH@" "OOL@" "OOL@" "OOH@" "@G@@" "@F@@" "@D@@") (RPAQ MT.POINTER (READBITMAP)) (16 16 "L@@@" "O@@@" "OL@@" "OO@@" "OOL@" "OOO@" "OOOL" "OOOO" "OOOO" "OOOL" "OOO@" "OOL@" "OO@@" "OL@@" "O@@@" "L@@@") (RPAQ? MT.BAUDRATE 19200) (RPAQ? MT.DISPLAYFRAME (QUOTE YES)) (RPAQ? MT.PAPERLENGTH 4) (RPAQ? MT.REDUCTION 0) (RPAQ? MT.CONTRAST 0) (RPAQ? MT.BRIGHTNESS 0) (RPAQ? MT.GREYLEVEL 0) (RPAQ? MT.DATACOMPRESSION (QUOTE NO)) (RPAQ? MT.BACKGROUND (QUOTE HALFTONE)) (RPAQ? MT.WINDOW (QUOTE LINEART)) (RPAQ? MT.FRAME (QUOTE (0 0 40 24))) (RPAQ? MT.FRAME.BOX (QUOTE (0 460 200 120))) (RPAQ? MT.TEXTW1 (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW2 (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW3 (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW4 (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW1BOX (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW2BOX (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW3BOX (QUOTE (0 0 0 0))) (RPAQ? MT.TEXTW4BOX (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW1 (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW2 (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW3 (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW4 (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW1BOX (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW2BOX (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW3BOX (QUOTE (0 0 0 0))) (RPAQ? MT.HALFTONEW4BOX (QUOTE (0 0 0 0))) (RPAQ? MT.OUTSTREAM NIL) (RPAQ? MT.INSTREAM NIL) (RPAQ? MT.BMSHRINKFACTOR 1) (PUTPROPS MICROTEK COPYRIGHT ("XEROX Corporation" 1986)) NIL