Return to imagedit.mst CVS log

Up to [WindowsNT SDKs] / mstools / mstest / sample

Annotation of mstools/mstest/sample/imagedit.mst, revision 1.1

1.1     ! root        1: '******************************** IMAGEDIT.MST  **********************************
        !             2: ' For now Mips 1280x1024 256-color is assumed if MIPS1280 is defined at run time,
        !             3: ' else VRAM II 1024x768 16-color will be assumed.
        !             4: '
        !             5: ' Default is verification unless CREATEGOLDEN is defined at runtime in which case
        !             6: ' it will be imagefile generation (make sure the .scn file is checked out).
        !             7: '
        !             8: 'This file tests the components of the IMAGEDIT.EXE. The Script preforms
        !             9: 'the test function, then compares a snapshot of the window to a golden
        !            10: 'snapshot contained in an .scn. When a conflict occurs the screen dumps
        !            11: 'the snapshot to imagdump.scn, its index and subroutine name is given. A description
        !            12: 'of the subroutine can be found above in its Declaration. The window images
        !            13: 'can be compared using MS TEST SCREEN. If the golden image is at fault the
        !            14: 'snapshot in imagdump.scn then can be moved to the golden image.scn by commenting out
        !            15: 'all other subrotines in the main function and running with CERATEGOLDEN defined.
        !            16: 'Due to the size of the test, imagedi2.mst contains the second part of the test.
        !            17: 'It needs to load and run seperatly.
        !            18: '
        !            19: 'Required Files: MSTEST.INC, IMAGEDIT.EXE, IMAGEDIT.INC IMAGEINC.MST
        !            20: '
        !            21: 'This test must run with the systen window colors set to default.
        !            22: '
        !            23: '******************************************************************************
        !            24: 
        !            25: '******************************************************************************
        !            26: ' SUB Init  Start and initalizatize imagedit.exe
        !            27: Declare Sub Init
        !            28: 
        !            29: 
        !            30: '******************************************************************************
        !            31: ' SUB SmallBitmapSize will creates a bitmap 12 x 12, 16 colors. It
        !            32: ' draws a filled circle in black that fills the entire area. It saves the
        !            33: ' file as small.bmp
        !            34: Declare Sub SmallBitmapSize
        !            35: 
        !            36: 
        !            37: '******************************************************************************
        !            38: ' SUB LargeBitmapSize creates a bitmap 54 x 54, 16 colors. It
        !            39: ' draws a filled circle in black that fills the entire area. It saves the
        !            40: ' file as large.bmp
        !            41: Declare Sub LargeBitmapSize
        !            42: 
        !            43: 
        !            44: '******************************************************************************
        !            45: ' SUB BitmapColor1 creates a bitmap 32x32, 16 colors. It draws 14
        !            46: ' filled rectangles, one for each color on the top row of the pallete.
        !            47: ' It saves the file as bctest1.bmp
        !            48: Declare Sub BitmapColor1
        !            49: 
        !            50: 
        !            51: '******************************************************************************
        !            52: ' SUB BitmapColor2 creates a bitmap 32x32, 16 colors. It draws 14
        !            53: ' filled rectangles, one for each color on the bottom row of the pallete.
        !            54: ' It saves the file as bctest2.bmp
        !            55: Declare Sub BitmapColor2
        !            56: 
        !            57: 
        !            58: '******************************************************************************
        !            59: ' SUB BitmapMono1 creates a bitmap 32x32,16 colors. It draws 14
        !            60: ' filled rectangles, one for each shade on the top row of the pallete.
        !            61: ' It saves the file as bmtest1.bmp
        !            62: Declare Sub BitmapMono1
        !            63: 
        !            64: 
        !            65: '******************************************************************************
        !            66: ' SUB BitmapMono2 creates a bitmap 32x32, 2 colors. It draws 14
        !            67: ' filled rectangles, one for each shade on the bottom row of the pallete.
        !            68: ' It saves the file as bmtest2.bmp
        !            69: Declare Sub BitmapMono2
        !            70: 
        !            71: 
        !            72: '******************************************************************************
        !            73: ' SUB CursorMono1 creates a cursor 32x32, 2 colors. It draws a black
        !            74: ' cirle filling the area. Then a White circle inside the black one. Then a
        !            75: ' black circle inside the white one. Then it selects the fill tool and
        !            76: ' fills in the four corners with the screen color. then it fills in the
        !            77: ' innermost black circle with the inverse screen color. It saves the file as
        !            78: ' cmtest1.cur.
        !            79: Declare Sub CursorMono1
        !            80: 
        !            81: 
        !            82: '******************************************************************************
        !            83: ' SUB CursorColor creates a cursor 32x32, 16 colors. It draws a black
        !            84: ' cirle filling the area. Then a White circle inside the black one. Then a
        !            85: ' black circle inside the white one. Then it selects the fill tool and
        !            86: ' fills in the four corners with the screen color. then it fills in the
        !            87: ' innermost black circle with the inverse screen color. It saves the file as
        !            88: ' cctest1.cur.
        !            89: Declare Sub CursorColor1
        !            90: 
        !            91: 
        !            92: '******************************************************************************
        !            93: ' SUB IconColor1 creates a icon 32x32, 16 colors. It draws 14
        !            94: ' filled rectangles, one for each color on the top row of the pallete.
        !            95: ' Then it selects the scren color and the fill circle tool. It Draws a
        !            96: ' filled cirle parchaily covering all the rectangles It saves the file
        !            97: ' as ictest1.ico
        !            98: Declare Sub IconColor1
        !            99: 
        !           100: 
        !           101: '******************************************************************************
        !           102: ' SUB IconColor1 creates a icon 32x32, 16 colors. It draws 14
        !           103: ' filled rectangles, one for each color on the bottom row of the pallete.
        !           104: ' Then it selects the scren color and the fill circle tool. It Draws a
        !           105: ' filled cirle parchaily covering all the rectangles It saves the file
        !           106: ' as ictest1.ico
        !           107: Declare Sub IconColor2
        !           108: 
        !           109: 
        !           110: '******************************************************************************
        !           111: ' SUB IconColor3 creates a icon 32x32, 2 colors. It draws a black
        !           112: ' cirle filling the area. Then a White circle inside the black one. Then a
        !           113: ' black circle inside the white one. Then it selects the fill tool and
        !           114: ' fills in the four corners with the screen color. then it fills in the
        !           115: ' innermost black circle with the inverse screen color. It saves the file as
        !           116: ' imtest3.ico.
        !           117: Declare Sub IconColor3
        !           118: 
        !           119: 
        !           120: '******************************************************************************
        !           121: ' SUB IconColor4 creates a CGA Cursor 32x16, 2 colors. It draws a black
        !           122: ' cirle filling the area. Then a White circle inside the black one. Then a
        !           123: ' black circle inside the white one. Then it selects the fill tool and
        !           124: ' fills in the four corners with the screen color. then it fills in the
        !           125: ' innermost black circle with the inverse screen color. It saves the file as
        !           126: ' iCGAtst4.ico.
        !           127: Declare Sub IconColor4
        !           128: 
        !           129: 
        !           130: '******************************************************************************
        !           131: ' SUB  BitmapSTool creates a bitmap 32x32, 16 colors. It draws a daigonal
        !           132: ' line form the top left to bottom right. It then draws a circle in the
        !           133: ' botom plane and a square in the top plan. with the 2x2 brush it puts
        !           134: ' three dots along the diagonal line. It saves the file as bstool.bmp
        !           135: Declare Sub BitmapSTool
        !           136: 
        !           137: 
        !           138: '******************************************************************************
        !           139: ' SUB  IconSTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
        !           140: ' line form the top left to bottom right. It then draws a circle in the
        !           141: ' botom plane and a square in the top plan. with the 2x2 brush it puts
        !           142: ' three dots along the diagonal line. It saves the file as istool.ico
        !           143: Declare Sub IconSTool
        !           144: 
        !           145: 
        !           146: '******************************************************************************
        !           147: ' SUB  BitmapMTool creates a bitmap 32x32, 16 colors. It draws a daigonal
        !           148: ' line form the top left to bottom right. It then draws a circle in the
        !           149: ' botom plane and a square in the top plan. with the 3x3 brush it puts
        !           150: ' three dots along the diagonal line. It saves the file as bmtool.bmp
        !           151: Declare Sub BitmapMTool
        !           152: 
        !           153: 
        !           154: '******************************************************************************
        !           155: ' SUB  IconMTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
        !           156: ' line form the top left to bottom right. It then draws a circle in the
        !           157: ' botom plane and a square in the top plan. with the 3x3 brush it puts
        !           158: ' three dots along the diagonal line. It saves the file as imtool.ico
        !           159: Declare Sub IconMTool
        !           160: 
        !           161: 
        !           162: '******************************************************************************
        !           163: ' SUB  BitmapLTool creates a bitmap 32x32, 16 colors. It draws a daigonal
        !           164: ' line form the top left to bottom right. It then draws a circle in the
        !           165: ' botom plane and a square in the top plan. with the 4x4 brush it puts
        !           166: ' three dots along the diagonal line. It saves the file as bltool.bmp
        !           167: Declare Sub BitmapLTool
        !           168: 
        !           169: 
        !           170: '******************************************************************************
        !           171: ' SUB  IconLTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
        !           172: ' line form the top left to bottom right. It then draws a circle in the
        !           173: ' botom plane and a square in the top plan. with the 4x4 brush it puts
        !           174: ' three dots along the diagonal line. It saves the file as iltool.ico
        !           175: Declare Sub IconLTool
        !           176: 
        !           177: 
        !           178: '******************************************************************************
        !           179: ' SUB  BitmapXLTool creates a bitmap 32x32, 16 colors. It draws a daigonal
        !           180: ' line form the top left to bottom right. It then draws a circle in the
        !           181: ' botom plane and a square in the top plan. with the 5x5 brush it puts
        !           182: ' three dots along the diagonal line. It saves the file as bxltool.bmp
        !           183: Declare Sub BitmapXLTool
        !           184: 
        !           185: 
        !           186: '******************************************************************************
        !           187: ' SUB  IconXLTool creates a CGA Icon 32x16, 2 colors. It draws a daigonal
        !           188: ' line form the top left to bottom right. It then draws a circle in the
        !           189: ' botom plane and a square in the top plan. with the 5x5 brush it puts
        !           190: ' three dots along the diagonal line. It saves the file as ixltool.ico
        !           191: Declare Sub IconXLTool
        !           192: 
        !           193: 
        !           194: '******************************************************************************
        !           195: ' SUB  IdBitmapTool creates a bitmap 32x32, 16 colors. It draws a filled
        !           196: ' circle at in the botom left corner and a square in the top left corner.
        !           197: ' Then it draws a curved line in between the circle and square and fills
        !           198: ' the backgound with the fill tool. The left half of the screen is then put
        !           199: ' on the clipboard. A smaller souround box is drawn on the right half of the
        !           200: ' screen and the object is shrunk into it. The window is the compared to
        !           201: ' gimage.scn index IIdBitmapToolA. Undo is select. A smaller souround box is
        !           202: ' again drawn and cutoff is slected when the object is placed in the box.
        !           203: ' The window is the compared to gimage.scn index IIdBitmapToolB. Undo is
        !           204: ' Select. A souround box of the same size is drawn and the object is placed
        !           205: ' in the box. The window is the compared to gimage.scn index IIdBitmapToolC
        !           206: ' and saved as idtool.bmp
        !           207: Declare Sub IdBitmapTool
        !           208: 
        !           209: 
        !           210: '******************************************************************************
        !           211: ' SUB  IdIconTool creates a CGA ICON 32x16, 2 colors. It draws a filled
        !           212: ' circle at in the botom left corner and a square in the top left corner.
        !           213: ' Then it draws a curved line in between the circle and square and fills
        !           214: ' the backgound with the fill tool. The left half of the screen is then put
        !           215: ' on the clipboard. A smaller souround box is drawn on the right half of the
        !           216: ' screen and the object is shrunk into it. The window is the compared to
        !           217: ' gimage.scn index IIdIconToolA. Undo is select. A smaller souround box is
        !           218: ' again drawn and cutoff is slected when the object is placed in the box.
        !           219: ' The window is the compared to gimage.scn index IIdIconToolB. Undo is
        !           220: ' Select. A souround box of the same size is drawn and the object is placed
        !           221: ' in the box. The window is the compared to gimage.scn index IIdIconToolC
        !           222: ' and saved as idtool.bmp
        !           223: Declare Sub IdIconTool
        !           224: 
        !           225: 
        !           226: '******************************************************************************
        !           227: ' SUB  Undo creates a bitmap 32x32, 16 colors. It draws a pattarn on the
        !           228: ' screen in blue. Seclects each tool and draws with it in red and undos it.
        !           229: ' Also does cut, paste and undo and screen clear and undo.
        !           230: Declare Sub Undo
        !           231: 
        !           232: 
        !           233: '******************************************************************************
        !           234: ' SUB  Pentest creates a bitmap 32x32, 16 colors. Tries to draw outside of
        !           235: ' area. Draws in each of the four corners.  Tries to draw from outside to
        !           236: ' inside on all four sides. Draws from inside ot outside from all four sides.
        !           237: ' Saves as pentst.bmp"
        !           238: Declare Sub PenTest
        !           239: 
        !           240: 
        !           241: '******************************************************************************
        !           242: ' SUB  Brush creates a bitmap 32x32, 16 colors. Tries to draw outside of
        !           243: ' area. Draws in each of the four corners.  Tries to draw from outside to
        !           244: ' inside on all four sides. Draws from inside to outside from all four sides.
        !           245: ' Saves as pentst.bmp" (BrushSize "2x2")
        !           246: Declare Sub Brush
        !           247: 
        !           248: 
        !           249: Declare Sub EndTest
        !           250: 
        !           251: '******************************************************************************
        !           252: ' CONST
        !           253: '******************************************************************************
        !           254: 
        !           255: Const AppName$ = "IMAGEDIT.EXE"
        !           256: Const ToolBox_x = 575, ToolBox_y = 75
        !           257: ' Index number of the window snapshots in image.scn and gimage.scn
        !           258: Const ISmallBitmapSize = 1
        !           259: Const ILargeBitmapSize = 2
        !           260: Const IBitmapColor1    = 3
        !           261: Const IBitmapColor2    = 4
        !           262: Const IBitmapMono1     = 5
        !           263: Const IBitmapMono2     = 6
        !           264: Const ICursorMono1     = 7
        !           265: Const ICursorColor1    = 8
        !           266: Const IIconColor1      = 9
        !           267: Const IIconColor2      = 10
        !           268: Const IIconColor3      = 11
        !           269: Const IIconColor4      = 12
        !           270: Const IBitmapSTool     = 13
        !           271: Const IIconSTool       = 14
        !           272: Const IBitmapMTool     = 15
        !           273: Const IIconMTool       = 16
        !           274: Const IBitmapLTool     = 17
        !           275: Const IIconLTool       = 18
        !           276: Const IBitmapXLTool    = 19
        !           277: Const IIconXLTool      = 20
        !           278: Const IIdBitmapToolA   = 21
        !           279: Const IIdBitmapToolB   = 22
        !           280: Const IIdBitmapToolC   = 23
        !           281: Const IIdIconToolA     = 24
        !           282: Const IIdIconToolB     = 25
        !           283: Const IIdIconToolC     = 26
        !           284: Const IUndo            = 27
        !           285: Const IPenTest         = 28
        !           286: Const IBrush           = 29
        !           287: 
        !           288: Global WinHandle%, logfile%, ErrCount, MenuName$(7),ViewBox_x%, ViewBox_y
        !           289: Global XSCREEN%, YSCREEN%
        !           290: 
        !           291: '******************************************************************************
        !           292: ' INCLUDES
        !           293: '******************************************************************************
        !           294: 
        !           295: '$INCLUDE 'IMAGEDIT.INC'
        !           296: '******************************************************************************
        !           297: ' Main program code
        !           298: '******************************************************************************
        !           299: 
        !           300: ON ERROR GOTO ErrorTrap
        !           301: 
        !           302:     Init
        !           303:     SmallBitmapSize
        !           304:     LargeBitmapSize
        !           305: 
        !           306: 
        !           307: 
        !           308: ' Add these tests as needed.
        !           309: 
        !           310: '    BitmapColor1
        !           311: '    BitmapColor2
        !           312: '    BitmapMono1
        !           313: '    BitmapMono2
        !           314: '    CursorMono1
        !           315: '    CursorColor1
        !           316: '    IconColor1
        !           317: '    IconColor2
        !           318: '    IconColor3
        !           319: '    IconColor4
        !           320: '    BitmapSTool
        !           321: '    IconSTool
        !           322: '    BitmapMTool
        !           323: '    IconMTool
        !           324: '    BitmapLTool
        !           325: '    IconLTool
        !           326: '    BitmapXLTool
        !           327: '    IconXLTool
        !           328: '    IdBitmapTool
        !           329: '    IdIconTool
        !           330: '    Undo
        !           331: '    PenTest
        !           332: '    Brush
        !           333:     EndTest
        !           334: END
        !           335: 
        !           336: '******************************************************************************
        !           337: ' TRAPS
        !           338: '******************************************************************************
        !           339: ErrorTrap:
        !           340:    SELECT CASE Err
        !           341:       CASE ERR_INVALID_PATH
        !           342:          PRINT "Path not found.  Error number ", Err
        !           343:          PRINT " on line ", ERL
        !           344:          PRINT " in script ", ERF
        !           345:          PRINT ERROR$        ' The error message.
        !           346:          END
        !           347:      CASE ERR_CANT_OPEN_FILE
        !           348:         PRINT "Can't Open File.  Error number ", Err
        !           349:         PRINT " on line ", ERL
        !           350:         PRINT " in script ", ERF
        !           351:         PRINT ERROR$        ' The error message.
        !           352:         END
        !           353:      CASE ELSE
        !           354:         PRINT "Unexpected error: Number ", Err
        !           355:         PRINT " on line ", ERL
        !           356:         PRINT " in script ", ERF
        !           357:         PRINT ERROR$        ' The error message.
        !           358:         END
        !           359:    END SELECT
        !           360: 
        !           361: '******************************************************************************
        !           362: ' SUBs
        !           363: '******************************************************************************
        !           364: 
        !           365: SUB Init STATIC
        !           366: 
        !           367: '    VIEWPORT ON
        !           368: '    VIEWPORT CLEAR
        !           369:     ErrCount = 0
        !           370:     OPEN "imagedit.log" FOR APPEND AS # 1
        !           371:     PRINT #1, "**********************************************"
        !           372:     PRINT #1,  "IMAGEDI2 TEST OF IMAGEDIT.EXE APPLICATION"
        !           373:     PRINT #1, "       " + DATETIME$
        !           374:     PRINT #1, "**********************************************"
        !           375:     PRINT #1,
        !           376:     PRINT #1, "This test must run with the systen window colors set to default."
        !           377:     PRINT #1,
        !           378:     PRINT #1, "If IcusroColor1 fails check to see if"
        !           379:     PRINT #1, "[ImagEdit.cursor]"
        !           380:     PRINT #1, "VGA=16,32,32"
        !           381:     PRINT #1, "is in c:\windows\imagedit.ini"
        !           382:     PRINT #1,
        !           383:     RUN AppName$, NOWAIT                 'Run the Windows IMAGEDIT.EXE program
        !           384: 
        !           385:     SLEEP( 5 )
        !           386: 
        !           387: '    ThdId1& = GetCurrentThreadId ()
        !           388: '    ThdId2& = GetCurrentThreadId ()
        !           389: '    if ThdId1 = ThdId2 then
        !           390: '        Print #1, "thread IDs identical! " ThdId1& ThdId2&
        !           391: '    else
        !           392: '        Print #1, "different thread IDs returned! " ThdId1& ThdId2&
        !           393: '    endif
        !           394: '    fRetThdStatus& = AttachThreadInput( 0, ThdId1&, 1 )
        !           395: '    fRetThdStatus& = AttachThreadInput( 0, ThdId2&, 1 )
        !           396: 
        !           397:     WinHandle = WGetActWnd(0)            'Get the window handle for the main window
        !           398:     WSetWndPos WinHandle, 0, 0           'Position the window.
        !           399:     WSetWndSiz WinHandle, 635 ,475
        !           400:     GridShow( "OFF" )                    'Turn off Grid Option
        !           401:     ToolBoxShow( "ON" )                  'Turn on the ToolBox
        !           402:     ViewWindowShow( "ON" )               'Turn on the View Window
        !           403:     PaletteShow( "OFF" )                 'Turn off the Color Palette
        !           404:     PlaceToolBox ToolBox_x, ToolBox_y    'Place the Tool Box
        !           405: END SUB
        !           406: 
        !           407: 
        !           408: SUB SmallBitmapSize STATIC
        !           409:     DoKeys "{F10}"                      'Change focus to main window
        !           410:     WSetWndSiz WinHandle, 635 ,365
        !           411:     PaletteShow( "ON" )                 'Turn on the Color Palette
        !           412:     DoKeys "%Fn"                        'Open new file
        !           413: 'for now these are not needed
        !           414: '   WbuttonClick "NO"
        !           415: '   WOptionClick("&Bitmap")             'select Bitmap
        !           416: 
        !           417:     WbuttonClick "OK"
        !           418:     DoKeys "%w16"                       'select a 16x16 bit 16 color map
        !           419:     DoKeys "%h16"
        !           420:     DoKeys "%c"
        !           421:     WOptionClick( "16 Color" )
        !           422:     WbuttonClick "OK"
        !           423:     PlaceViewWindow("16x16")
        !           424:     PlacePalette 105, 370
        !           425:     SetBrushSize("3x3")
        !           426:     QueMouseClick VK_LBUTTON, 241, 426  'Set screen and inverse colors to
        !           427:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           428:     QueMouseClick VK_LBUTTON, 620, 194  'select fill circle tool
        !           429:     QueMouseClick VK_LBUTTON, 224, 442  'select Black
        !           430:     QueMouseDn VK_LBUTTON, 270, 87      'Draw a circle
        !           431:     QueMouseUp VK_LBUTTON, 0, 479
        !           432:     QueMouseDn VK_LBUTTON, 110, 228       'Clears size: field and sets postion:
        !           433:     QueKeys "{ESC}"                     'field to a standerd number
        !           434:     QueMouseUp VK_LBUTTON, 110,324
        !           435:     QueFlush 1
        !           436:     ProcessResults "small.bmp", "SmallBitmapSize", ISmallBitmapSize
        !           437: END SUB
        !           438: 
        !           439: SUB LargeBitmapSize STATIC
        !           440:     DoKeys "{F10}"                      'Change focus to main window
        !           441:     WSetWndSiz WinHandle, 635 ,475
        !           442:     DoKeys "%Fn"                        'Open new file
        !           443:     WOptionClick("&Bitmap")             'Select Bitmap
        !           444:     WbuttonClick "OK"
        !           445:     DoKeys "%w54"                       'Select a 54x54 bit 16 color map
        !           446:     DoKeys "%h54"
        !           447:     DoKeys "%c"
        !           448:     WOptionClick( "16 Color" )
        !           449:     WbuttonClick "OK"
        !           450:     PlaceViewWindow("54x54")
        !           451:     SetBrushSize("3x3")
        !           452:     PaletteShow( "OFF" )                 'Turn off the Color Palette
        !           453:     QueMouseClick VK_LBUTTON, 620, 194  'Select fill circle tool
        !           454:     QueMouseDn VK_LBUTTON, 382, 73      'Draws a circle
        !           455:     QueMouseUp VK_LBUTTON, 0, 479
        !           456:     QueMouseDn VK_LBUTTON, 7, 448       'Clears size: field and sets postion:
        !           457:     QueKeys "{ESC}"                     'field to a standerd number
        !           458:     QueMouseUp VK_LBUTTON, 110,324
        !           459:     QueFlush 1
        !           460:     ProcessResults "large.bmp", "LargeBitmapSize", ILargeBitmapSize
        !           461: END SUB
        !           462: 
        !           463: 
        !           464: SUB BitmapColor1 STATIC
        !           465:     Bitmap32x32x16init
        !           466:     QueMouseClick VK_LBUTTON, 619, 165  'select fill rectangel tool
        !           467:     QueMouseClick VK_LBUTTON, 224, 426  'select 1st color
        !           468:     QueMouseClick VK_RBUTTON, 241, 426  'select 2nd color
        !           469:     QueMouseDn VK_LBUTTON, 10, 74       'Draw the squares.
        !           470:     QueMouseUp VK_LBUTTON, 34, 194
        !           471:     QueMouseDn VK_RBUTTON, 42, 74
        !           472:     QueMouseUp VK_RBUTTON, 65, 194
        !           473:     QueMouseClick VK_LBUTTON, 257, 426  'select 3rd color
        !           474:     QueMouseClick VK_RBUTTON, 274, 426  'select 4th color
        !           475:     QueMouseDn VK_LBUTTON, 74, 74       'Draw the squares.
        !           476:     QueMouseUp VK_LBUTTON, 98, 194
        !           477:     QueMouseDn VK_RBUTTON, 122, 74
        !           478:     QueMouseUp VK_RBUTTON, 146, 194
        !           479:     QueMouseClick VK_LBUTTON, 291, 426  'select 5th color
        !           480:     QueMouseClick VK_RBUTTON, 308, 426  'select 6th color
        !           481:     QueMouseDn VK_LBUTTON, 194, 74      'Draw the squares.
        !           482:     QueMouseUp VK_LBUTTON, 170, 194
        !           483:     QueMouseDn VK_RBUTTON, 226, 74
        !           484:     QueMouseUp VK_RBUTTON, 202, 194
        !           485:     QueMouseClick VK_LBUTTON, 326, 426  'select 7th color
        !           486:     QueMouseClick VK_RBUTTON, 343, 426  'select 8th color
        !           487:     QueMouseDn VK_LBUTTON, 258, 74      'Draw the squares.
        !           488:     QueMouseUp VK_LBUTTON, 234, 194
        !           489:     QueMouseDn VK_RBUTTON, 10, 202
        !           490:     QueMouseUp VK_RBUTTON, 34, 322
        !           491:     QueMouseClick VK_LBUTTON, 360, 426  'select 9th color
        !           492:     QueMouseClick VK_RBUTTON, 377, 426  'select 10th color
        !           493:     QueMouseDn VK_LBUTTON, 42, 202      'Draw the squares.
        !           494:     QueMouseUp VK_LRBUTTON, 65, 322
        !           495:     QueMouseDn VK_RBUTTON, 74, 202
        !           496:     QueMouseUp VK_RBUTTON, 98, 322
        !           497:     QueMouseClick VK_LBUTTON, 394, 426  'select 11th color
        !           498:     QueMouseClick VK_RBUTTON, 410, 426  'select 12th color
        !           499:     QueMouseDn VK_LBUTTON, 122, 202     'Draw the squares.
        !           500:     QueMouseUp VK_LBUTTON, 146, 322
        !           501:     QueMouseDn VK_RBUTTON, 194, 202
        !           502:     QueMouseUp VK_RBUTTON, 170, 322
        !           503:     QueMouseClick VK_LBUTTON, 428, 426  'select 13th color
        !           504:     QueMouseClick VK_RBUTTON, 445, 426  'select 14th color
        !           505:     QueMouseDn VK_LBUTTON, 226, 202     'Draw the squares.
        !           506:     QueMouseUp VK_LBUTTON, 202, 322
        !           507:     QueMouseDn VK_RBUTTON, 258, 202
        !           508:     QueMouseUp VK_RBUTTON, 234, 322
        !           509:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           510:     QueKeys "{ESC}"                     'field to a standerd number
        !           511:     QueMouseUp VK_LBUTTON, 110, 324
        !           512:     QueFlush 1
        !           513:     ProcessResults "bctest1.bmp", "IBitmapColor1", IBitmapColor1
        !           514: END SUB
        !           515: 
        !           516: 
        !           517: SUB BitmapColor2 STATIC
        !           518:     Bitmap32x32x16init
        !           519:     QueMouseClick VK_LBUTTON, 619, 165  'select Fill Square.
        !           520:     QueMouseClick VK_LBUTTON, 224, 444  'select 1st color
        !           521:     QueMouseClick VK_RBUTTON, 241, 444  'select 2nd color
        !           522:     QueMouseDn VK_LBUTTON, 10, 74       'Draw the squares.
        !           523:     QueMouseUp VK_LBUTTON, 34, 194
        !           524:     QueMouseDn VK_RBUTTON, 42, 74
        !           525:     QueMouseUp VK_RBUTTON, 65, 194
        !           526:     QueMouseClick VK_LBUTTON, 257, 444  'select 3rd color
        !           527:     QueMouseClick VK_RBUTTON, 274, 444  'select 4th color
        !           528:     QueMouseDn VK_LBUTTON, 74, 74       'Draw the squares.
        !           529:     QueMouseUp VK_LBUTTON, 98, 194
        !           530:     QueMouseDn VK_RBUTTON, 122, 74
        !           531:     QueMouseUp VK_RBUTTON, 146, 194
        !           532:     QueMouseClick VK_LBUTTON, 291, 444  'select 5th color
        !           533:     QueMouseClick VK_RBUTTON, 308, 444  'select 6th color
        !           534:     QueMouseDn VK_LBUTTON, 194, 74      'Draw the squares.
        !           535:     QueMouseUp VK_LBUTTON, 170, 194
        !           536:     QueMouseDn VK_RBUTTON, 226, 74
        !           537:     QueMouseUp VK_RBUTTON, 202, 194
        !           538:     QueMouseClick VK_LBUTTON, 326, 444  'select 7th color
        !           539:     QueMouseClick VK_RBUTTON, 343, 444  'select 8th color
        !           540:     QueMouseDn VK_LBUTTON, 258, 74      'Draw the squares.
        !           541:     QueMouseUp VK_LBUTTON, 234, 194
        !           542:     QueMouseDn VK_RBUTTON, 10, 202
        !           543:     QueMouseUp VK_RBUTTON, 34, 322
        !           544:     QueMouseClick VK_LBUTTON, 360, 444  'select 9th color
        !           545:     QueMouseClick VK_RBUTTON, 377, 444  'select 10th color
        !           546:     QueMouseDn VK_LBUTTON, 42, 202      'Draw the squares.
        !           547:     QueMouseUp VK_LRBUTTON, 65, 322
        !           548:     QueMouseDn VK_RBUTTON, 74, 202
        !           549:     QueMouseUp VK_RBUTTON, 98, 322
        !           550:     QueMouseClick VK_LBUTTON, 394, 444  'select 11th color
        !           551:     QueMouseClick VK_RBUTTON, 410, 444  'select 12th color
        !           552:     QueMouseDn VK_LBUTTON, 122, 202     'Draw the squares.
        !           553:     QueMouseUp VK_LBUTTON, 146, 322
        !           554:     QueMouseDn VK_RBUTTON, 194, 202
        !           555:     QueMouseUp VK_RBUTTON, 170, 322
        !           556:     QueMouseClick VK_LBUTTON, 428, 444  'select 13th color
        !           557:     QueMouseClick VK_RBUTTON, 445, 444  'select 14th color
        !           558:     QueMouseDn VK_LBUTTON, 226, 202     'Draw the squares.
        !           559:     QueMouseUp VK_LBUTTON, 202, 322
        !           560:     QueMouseDn VK_RBUTTON, 258, 202
        !           561:     QueMouseUp VK_RBUTTON, 234, 322
        !           562:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           563:     QueKeys "{ESC}"                     'field to a standerd number
        !           564:     QueMouseUp VK_LBUTTON, 110, 324
        !           565:     QueFlush 1
        !           566:     ProcessResults "bctest2.bmp", "IBitmapColor2", IBitmapColor2
        !           567: END SUB
        !           568: 
        !           569: 
        !           570: SUB BitmapMono1 STATIC
        !           571:     WSetWndSiz WinHandle, 635 ,365
        !           572:     PaletteShow( "ON" )                 'Turn On the Color Palette
        !           573:     PlacePalette 105, 370
        !           574:     QueMouseClick VK_LBUTTON, 195, 10
        !           575:     QueFlush  1
        !           576:     DoKeys "%Fn"                        'Open new file
        !           577:     WOptionClick("&Bitmap")             'select Bitmap
        !           578:     WbuttonClick "OK"
        !           579:     DoKeys "%w32"                       'select a 16x16 bit 16 color map
        !           580:     DoKeys "%h32"
        !           581:     DoKeys "%c"
        !           582:     WOptionClick( "2 Color (Monochrome)")
        !           583:     WbuttonClick "OK"
        !           584:     PlaceViewWindow("32x32")
        !           585:     QueMouseClick VK_LBUTTON, 619, 165  'select fill rectangel tool
        !           586:     QueMouseClick VK_LBUTTON, 224, 426  'select 1st shade
        !           587:     QueMouseClick VK_RBUTTON, 241, 426  'select 2nd shade
        !           588:     QueMouseDn VK_LBUTTON, 10, 74       'Draw the squares.
        !           589:     QueMouseUp VK_LBUTTON, 34, 194
        !           590:     QueMouseDn VK_RBUTTON, 42, 74
        !           591:     QueMouseUp VK_RBUTTON, 65, 194
        !           592:     QueMouseClick VK_LBUTTON, 257, 426  'select 3rd shade
        !           593:     QueMouseClick VK_RBUTTON, 274, 426  'select 4th shade
        !           594:     QueMouseDn VK_LBUTTON, 74, 74       'Draw the squares.
        !           595:     QueMouseUp VK_LBUTTON, 98, 194
        !           596:     QueMouseDn VK_RBUTTON, 122, 74
        !           597:     QueMouseUp VK_RBUTTON, 146, 194
        !           598:     QueMouseClick VK_LBUTTON, 291, 426  'select 5th shade
        !           599:     QueMouseClick VK_RBUTTON, 308, 426  'select 6th shade
        !           600:     QueMouseDn VK_LBUTTON, 194, 74      'Draw the squares.
        !           601:     QueMouseUp VK_LBUTTON, 170, 194
        !           602:     QueMouseDn VK_RBUTTON, 226, 74
        !           603:     QueMouseUp VK_RBUTTON, 202, 194
        !           604:     QueMouseClick VK_LBUTTON, 326, 426  'select 7th shade
        !           605:     QueMouseClick VK_RBUTTON, 343, 426  'select 8th shade
        !           606:     QueMouseDn VK_LBUTTON, 258, 74      'Draw the squares.
        !           607:     QueMouseUp VK_LBUTTON, 234, 194
        !           608:     QueMouseDn VK_RBUTTON, 10, 202
        !           609:     QueMouseUp VK_RBUTTON, 34, 322
        !           610:     QueMouseClick VK_LBUTTON, 360, 426  'select 9th shade
        !           611:     QueMouseClick VK_RBUTTON, 377, 426  'select 10th shade
        !           612:     QueMouseDn VK_LBUTTON, 42, 202      'Draw the squares.
        !           613:     QueMouseUp VK_LRBUTTON, 65, 322
        !           614:     QueMouseDn VK_RBUTTON, 74, 202
        !           615:     QueMouseUp VK_RBUTTON, 98, 322
        !           616:     QueMouseClick VK_LBUTTON, 394, 426  'select 11th shade
        !           617:     QueMouseClick VK_RBUTTON, 410, 426  'select 12th shade
        !           618:     QueMouseDn VK_LBUTTON, 122, 202     'Draw the squares.
        !           619:     QueMouseUp VK_LBUTTON, 146, 322
        !           620:     QueMouseDn VK_RBUTTON, 194, 202
        !           621:     QueMouseUp VK_RBUTTON, 170, 322
        !           622:     QueMouseClick VK_LBUTTON, 428, 426  'select 13th shade
        !           623:     QueMouseClick VK_RBUTTON, 445, 426  'select 14th shade
        !           624:     QueMouseDn VK_LBUTTON, 226, 202     'Draw the squares.
        !           625:     QueMouseUp VK_LBUTTON, 202, 322
        !           626:     QueMouseDn VK_RBUTTON, 258, 202
        !           627:     QueMouseUp VK_RBUTTON, 234, 322
        !           628:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           629:     QueKeys "{ESC}"                     'field to a standerd number
        !           630:     QueMouseUp VK_LBUTTON, 110, 324
        !           631:     QueFlush 1
        !           632:     ProcessResults "bmtest1.bmp", "BitmapMono1", IBitmapMono1
        !           633: END SUB
        !           634: 
        !           635: 
        !           636: SUB BitmapMono2 STATIC
        !           637: 
        !           638:     WSetWndSiz WinHandle, 635 ,365
        !           639:     PaletteShow( "ON" )                 'Turn off the Color Palette
        !           640:     PlacePalette 105, 370
        !           641:     QueMouseClick VK_LBUTTON, 195, 10
        !           642:     QueFlush  1
        !           643:     DoKeys "%Fn"                        'Open new file
        !           644:     WOptionClick("&Bitmap")             'select Bitmap
        !           645:     WbuttonClick "OK"
        !           646:     DoKeys "%w32"                       'select a 16x16 bit 16 color map
        !           647:     DoKeys "%h32"
        !           648:     DoKeys "%c"
        !           649:     WOptionClick( "2 Color (Monochrome)" )
        !           650:     WbuttonClick "OK"
        !           651:     PlaceViewWindow("32x32")
        !           652:     QueMouseClick VK_LBUTTON, 619, 165  'select Fill Square.
        !           653:     QueMouseClick VK_LBUTTON, 224, 444  'select 1st shade
        !           654:     QueMouseClick VK_RBUTTON, 241, 444  'select 2nd shade
        !           655:     QueMouseDn VK_LBUTTON, 10, 74       'Draw the squares.
        !           656:     QueMouseUp VK_LBUTTON, 34, 194
        !           657:     QueMouseDn VK_RBUTTON, 42, 74
        !           658:     QueMouseUp VK_RBUTTON, 65, 194
        !           659:     QueMouseClick VK_LBUTTON, 257, 444  'select 3rd shade
        !           660:     QueMouseClick VK_RBUTTON, 274, 444  'select 4th shade
        !           661:     QueMouseDn VK_LBUTTON, 74, 74       'Draw the squares.
        !           662:     QueMouseUp VK_LBUTTON, 98, 194
        !           663:     QueMouseDn VK_RBUTTON, 122, 74
        !           664:     QueMouseUp VK_RBUTTON, 146, 194
        !           665:     QueMouseClick VK_LBUTTON, 291, 444  'select 5th shade
        !           666:     QueMouseClick VK_RBUTTON, 308, 444  'select 6th shade
        !           667:     QueMouseDn VK_LBUTTON, 194, 74      'Draw the squares.
        !           668:     QueMouseUp VK_LBUTTON, 170, 194
        !           669:     QueMouseDn VK_RBUTTON, 226, 74
        !           670:     QueMouseUp VK_RBUTTON, 202, 194
        !           671:     QueMouseClick VK_LBUTTON, 326, 444  'select 7th shade
        !           672:     QueMouseClick VK_RBUTTON, 343, 444  'select 8th shade
        !           673:     QueMouseDn VK_LBUTTON, 258, 74      'Draw the squares.
        !           674:     QueMouseUp VK_LBUTTON, 234, 194
        !           675:     QueMouseDn VK_RBUTTON, 10, 202
        !           676:     QueMouseUp VK_RBUTTON, 34, 322
        !           677:     QueMouseClick VK_LBUTTON, 360, 444  'select 9th shade
        !           678:     QueMouseClick VK_RBUTTON, 377, 444  'select 10th shade
        !           679:     QueMouseDn VK_LBUTTON, 42, 202      'Draw the squares.
        !           680:     QueMouseUp VK_LRBUTTON, 65, 322
        !           681:     QueMouseDn VK_RBUTTON, 74, 202
        !           682:     QueMouseUp VK_RBUTTON, 98, 322
        !           683:     QueMouseClick VK_LBUTTON, 394, 444  'select 11th shade
        !           684:     QueMouseClick VK_RBUTTON, 410, 444  'select 12th shade
        !           685:     QueMouseDn VK_LBUTTON, 122, 202     'Draw the squares.
        !           686:     QueMouseUp VK_LBUTTON, 146, 322
        !           687:     QueMouseDn VK_RBUTTON, 194, 202
        !           688:     QueMouseUp VK_RBUTTON, 170, 322
        !           689:     QueMouseClick VK_LBUTTON, 428, 444  'select 13th shade
        !           690:     QueMouseClick VK_RBUTTON, 445, 444  'select 14th shade
        !           691:     QueMouseDn VK_LBUTTON, 226, 202     'Draw the squares.
        !           692:     QueMouseUp VK_LBUTTON, 202, 322
        !           693:     QueMouseDn VK_RBUTTON, 258, 202
        !           694:     QueMouseUp VK_RBUTTON, 234, 322
        !           695:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           696:     QueKeys "{ESC}"                     'field to a standerd number
        !           697:     QueMouseUp VK_LBUTTON, 110, 324
        !           698:     QueFlush 1
        !           699:     ProcessResults "bmtest2.bmp", "IBitmapMono2", IBitmapMono2
        !           700: END SUB
        !           701: 
        !           702: 
        !           703: SUB CursorMono1 STATIC
        !           704:     WSetWndSiz WinHandle, 635 ,365
        !           705:     PaletteShow( "ON" )                 'Turn off the Color Palette
        !           706:     PlacePalette 105, 370
        !           707:     QueMouseClick VK_LBUTTON, 195, 10
        !           708:     QueFlush  1
        !           709:     DoKeys "%Fn"                        'Open new file
        !           710:     WOptionClick("&Cursor")             'select Coursor
        !           711:     WbuttonClick "OK"
        !           712:     WListItemClkT "&Target Device:", "VGA-Mono 2-Color 32x32"
        !           713:     WbuttonClick "OK"
        !           714:     PlaceViewWindow("32x32")
        !           715:     SetBrushSize("3x3")
        !           716:     QueMouseClick VK_LBUTTON, 360, 426  'Set screen and inverse colors to
        !           717:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           718:     QueMouseClick VK_LBUTTON, 619, 191  'select fill circle.
        !           719:     QueMouseClick VK_LBUTTON, 223,442   'Left button black
        !           720:     QueMouseClick VK_RBUTTON, 223, 426  'Right button white
        !           721:     QueMouseDn VK_LBUTTON, 258, 74      'Draw first circle
        !           722:     QueMouseUp VK_LBUTTON, 10, 322
        !           723:     QueMouseDn VK_RBUTTON, 218, 114     'Draw second circle
        !           724:     QueMouseUp VK_RBUTTON, 50, 282
        !           725:     QueMouseDn VK_LBUTTON, 178, 154     'Draw thrid circle
        !           726:     QueMouseUp VK_LBUTTON, 90, 242
        !           727:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !           728:     QueMouseClick VK_LBUTTON, 190, 426  'Left button Screen
        !           729:     QueMouseClick VK_RBUTTON, 190, 442  'Right Inverse
        !           730:     QueMouseClick VK_LBUTTON, 18, 82    'Fill corners
        !           731:     QueMouseClick VK_LBUTTON, 249, 82
        !           732:     QueMouseClick VK_LBUTTON, 18, 314
        !           733:     QueMouseClick VK_LBUTTON, 249, 314
        !           734:     QueMouseClick VK_RBUTTON, 134, 198  'Fill innermost circle
        !           735:     QueMouseClick VK_LBUTTON, 619, 191  'select fill circle.
        !           736:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           737:     QueKeys "{ESC}"                     'field to a standerd number
        !           738:     QueMouseUp VK_LBUTTON, 110, 324
        !           739:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !           740:     QueFlush 1
        !           741:     DoKeys "{F10}"
        !           742:     ProcessResults "cmtest1.cur", "CursorMono1", ICursorMono1
        !           743: END SUB
        !           744: 
        !           745: 
        !           746: SUB CursorColor1 STATIC
        !           747:     WSetWndSiz WinHandle, 635 ,365
        !           748:     PaletteShow( "ON" )                 'Turn off the color palette
        !           749:     PlacePalette 105, 370
        !           750:     QueMouseClick VK_LBUTTON, 195, 10
        !           751:     QueFlush  1
        !           752:     DoKeys "%Fn"                        'Open new file
        !           753:     WOptionClick("&Cursor")             'select bitmap
        !           754:     WbuttonClick "OK"
        !           755:     WListItemClkT "&Target Device:", "VGA 16-Color 32x32"
        !           756:     WbuttonClick "OK"
        !           757:     PlaceViewWindow("32x32")
        !           758:     SetBrushSize("3x3")
        !           759:     QueMouseClick VK_LBUTTON, 241, 426  'Set screen and inverse colors to
        !           760:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           761:     QueMouseClick VK_LBUTTON, 619, 191  'select fill circle.
        !           762:     QueMouseClick VK_LBUTTON, 258,426   'Left button red
        !           763:     QueMouseClick VK_RBUTTON, 275, 426  'Right button yellow
        !           764:     QueMouseDn VK_LBUTTON, 258, 74      'Draw first circle
        !           765:     QueMouseUp VK_LBUTTON, 10, 322
        !           766:     QueMouseDn VK_RBUTTON, 218, 114     'Draw second circle
        !           767:     QueMouseUp VK_RBUTTON, 50, 282
        !           768:     QueMouseDn VK_LBUTTON, 178, 154     'Draw thrid circle
        !           769:     QueMouseUp VK_LBUTTON, 90, 242
        !           770:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !           771:     QueMouseClick VK_LBUTTON, 190, 426  'Left button Screen
        !           772:     QueMouseClick VK_RBUTTON, 190, 442  'Right Inverse
        !           773:     QueMouseClick VK_LBUTTON, 18, 82    'Fill corners
        !           774:     QueMouseClick VK_LBUTTON, 249, 82
        !           775:     QueMouseClick VK_LBUTTON, 18, 314
        !           776:     QueMouseClick VK_LBUTTON, 249, 314
        !           777:     QueMouseClick VK_RBUTTON, 134, 198  'Fill innermost circle
        !           778:     QueMouseClick VK_LBUTTON, 619, 191  'select fill circle.
        !           779:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           780:     QueKeys "{ESC}"                     'field to a standerd number
        !           781:     QueMouseUp VK_LBUTTON, 110, 324
        !           782:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !           783:     QueFlush 1
        !           784:     DoKeys "{F10}"
        !           785:     ProcessResults "cctest1.cur", "CursorColor1", ICursorColor1
        !           786: END SUB
        !           787: 
        !           788: 
        !           789: SUB IconColor1 STATIC
        !           790:     WSetWndSiz WinHandle, 635 ,365
        !           791:     PaletteShow( "ON" )                 'Turn off the color palette
        !           792:     PlacePalette 105, 370
        !           793:     QueMouseClick VK_LBUTTON, 195, 10
        !           794:     QueFlush  1
        !           795:     DoKeys "%Fn"                        'Open new file
        !           796:     WOptionClick("&Icon")               'select icon
        !           797:     WbuttonClick "OK"
        !           798:     WListItemClkT "&Target Device:", "EGA/VGA 16-Color 32x32"
        !           799:     WbuttonClick "OK"
        !           800:     PlaceViewWindow("32x32")
        !           801:     SetBrushSize("3x3")
        !           802:     QueMouseClick VK_LBUTTON, 241, 426  'Set screen and inverse colors to
        !           803:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           804:     QueMouseClick VK_LBUTTON, 619, 165  'select fill rectangel tool
        !           805:     QueMouseClick VK_LBUTTON, 224, 426  'select 1st color
        !           806:     QueMouseClick VK_RBUTTON, 241, 426  'select 2nd color
        !           807:     QueMouseDn VK_LBUTTON, 10, 74       'Draw the squares.
        !           808:     QueMouseUp VK_LBUTTON, 34, 194
        !           809:     QueMouseDn VK_RBUTTON, 42, 74
        !           810:     QueMouseUp VK_RBUTTON, 65, 194
        !           811:     QueMouseClick VK_LBUTTON, 257, 426  'select 3rd color
        !           812:     QueMouseClick VK_RBUTTON, 274, 426  'select 4th color
        !           813:     QueMouseDn VK_LBUTTON, 74, 74       'Draw the squares.
        !           814:     QueMouseUp VK_LBUTTON, 98, 194
        !           815:     QueMouseDn VK_RBUTTON, 122, 74
        !           816:     QueMouseUp VK_RBUTTON, 146, 194
        !           817:     QueMouseClick VK_LBUTTON, 291, 426  'select 5th color
        !           818:     QueMouseClick VK_RBUTTON, 308, 426  'select 6th color
        !           819:     QueMouseDn VK_LBUTTON, 194, 74      'Draw the squares.
        !           820:     QueMouseUp VK_LBUTTON, 170, 194
        !           821:     QueMouseDn VK_RBUTTON, 226, 74
        !           822:     QueMouseUp VK_RBUTTON, 202, 194
        !           823:     QueMouseClick VK_LBUTTON, 326, 426  'select 7th color
        !           824:     QueMouseClick VK_RBUTTON, 343, 426  'select 8th color
        !           825:     QueMouseDn VK_LBUTTON, 258, 74      'Draw the squares.
        !           826:     QueMouseUp VK_LBUTTON, 234, 194
        !           827:     QueMouseDn VK_RBUTTON, 10, 202
        !           828:     QueMouseUp VK_RBUTTON, 34, 322
        !           829:     QueMouseClick VK_LBUTTON, 360, 426  'select 9th color
        !           830:     QueMouseClick VK_RBUTTON, 377, 426  'select 10th color
        !           831:     QueMouseDn VK_LBUTTON, 42, 202      'Draw the squares.
        !           832:     QueMouseUp VK_LRBUTTON, 65, 322
        !           833:     QueMouseDn VK_RBUTTON, 74, 202
        !           834:     QueMouseUp VK_RBUTTON, 98, 322
        !           835:     QueMouseClick VK_LBUTTON, 394, 426  'select 11th color
        !           836:     QueMouseClick VK_RBUTTON, 410, 426  'select 12th color
        !           837:     QueMouseDn VK_LBUTTON, 122, 202     'Draw the squares.
        !           838:     QueMouseUp VK_LBUTTON, 146, 322
        !           839:     QueMouseDn VK_RBUTTON, 194, 202
        !           840:     QueMouseUp VK_RBUTTON, 170, 322
        !           841:     QueMouseClick VK_LBUTTON, 428, 426  'select 13th color
        !           842:     QueMouseClick VK_RBUTTON, 445, 426  'select 14th color
        !           843:     QueMouseDn VK_LBUTTON, 226, 202     'Draw the squares.
        !           844:     QueMouseUp VK_LBUTTON, 202, 322
        !           845:     QueMouseDn VK_RBUTTON, 258, 202
        !           846:     QueMouseUp VK_RBUTTON, 234, 322
        !           847:     QueMouseClick VK_LBUTTON, 619, 191   'select Fill Circle.
        !           848:     QueMouseClick VK_LBUTTON, 190, 426   'Left Screen
        !           849:     QueMouseDn VK_LBUTTON, 250, 114      'Draw the circle
        !           850:     QueMouseUp VK_LBUTTON, 18,282
        !           851:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           852:     QueKeys "{ESC}"                     'field to a standerd number
        !           853:     QueMouseUp VK_LBUTTON, 110, 324
        !           854:     QueFlush 1
        !           855:     ProcessResults "ictest1.ico", "IconColor1", IIconColor1
        !           856: END SUB
        !           857: 
        !           858: 
        !           859: SUB IconColor2 STATIC
        !           860:     WSetWndSiz WinHandle, 635 ,365
        !           861:     PaletteShow( "ON" )                 'Turn off the color palette
        !           862:     PlacePalette 105, 370
        !           863:     QueMouseClick VK_LBUTTON, 195, 10
        !           864:     QueFlush  1
        !           865:     DoKeys "%Fn"                        'Open new file
        !           866:     WOptionClick("&Icon")               'Select bitmap
        !           867:     WbuttonClick "OK"
        !           868:     WListItemClkT "&Target Device:", "EGA/VGA 16-Color 32x32"
        !           869:     WbuttonClick "OK"
        !           870:     PlaceViewWindow("32x32")
        !           871:     SetBrushSize("3x3")
        !           872:     QueMouseClick VK_LBUTTON, 241, 426  'Set screen and inverse colors to
        !           873:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           874:     QueMouseClick VK_LBUTTON, 619, 165  'select Fill Square.
        !           875:     QueMouseClick VK_LBUTTON, 224, 444  'select 1st color
        !           876:     QueMouseClick VK_RBUTTON, 241, 444  'select 2nd color
        !           877:     QueMouseDn VK_LBUTTON, 10, 74       'Draw the squares.
        !           878:     QueMouseUp VK_LBUTTON, 34, 194
        !           879:     QueMouseDn VK_RBUTTON, 42, 74
        !           880:     QueMouseUp VK_RBUTTON, 65, 194
        !           881:     QueMouseClick VK_LBUTTON, 257, 444  'select 3rd color
        !           882:     QueMouseClick VK_RBUTTON, 274, 444  'select 4th color
        !           883:     QueMouseDn VK_LBUTTON, 74, 74       'Draw the squares.
        !           884:     QueMouseUp VK_LBUTTON, 98, 194
        !           885:     QueMouseDn VK_RBUTTON, 122, 74
        !           886:     QueMouseUp VK_RBUTTON, 146, 194
        !           887:     QueMouseClick VK_LBUTTON, 291, 444  'select 5th color
        !           888:     QueMouseClick VK_RBUTTON, 308, 444  'select 6th color
        !           889:     QueMouseDn VK_LBUTTON, 194, 74      'Draw the squares.
        !           890:     QueMouseUp VK_LBUTTON, 170, 194
        !           891:     QueMouseDn VK_RBUTTON, 226, 74
        !           892:     QueMouseUp VK_RBUTTON, 202, 194
        !           893:     QueMouseClick VK_LBUTTON, 326, 444  'select 7th color
        !           894:     QueMouseClick VK_RBUTTON, 343, 444  'select 8th color
        !           895:     QueMouseDn VK_LBUTTON, 258, 74      'Draw the squares.
        !           896:     QueMouseUp VK_LBUTTON, 234, 194
        !           897:     QueMouseDn VK_RBUTTON, 10, 202
        !           898:     QueMouseUp VK_RBUTTON, 34, 322
        !           899:     QueMouseClick VK_LBUTTON, 360, 444  'select 9th color
        !           900:     QueMouseClick VK_RBUTTON, 377, 444  'select 10th color
        !           901:     QueMouseDn VK_LBUTTON, 42, 202      'Draw the squares.
        !           902:     QueMouseUp VK_LRBUTTON, 65, 322
        !           903:     QueMouseDn VK_RBUTTON, 74, 202
        !           904:     QueMouseUp VK_RBUTTON, 98, 322
        !           905:     QueMouseClick VK_LBUTTON, 394, 444  'select 11th color
        !           906:     QueMouseClick VK_RBUTTON, 410, 444  'select 12th color
        !           907:     QueMouseDn VK_LBUTTON, 122, 202     'Draw the squares.
        !           908:     QueMouseUp VK_LBUTTON, 146, 322
        !           909:     QueMouseDn VK_RBUTTON, 194, 202
        !           910:     QueMouseUp VK_RBUTTON, 170, 322
        !           911:     QueMouseClick VK_LBUTTON, 428, 444  'select 13th color
        !           912:     QueMouseClick VK_RBUTTON, 445, 444  'select 14th color
        !           913:     QueMouseDn VK_LBUTTON, 226, 202     'Draw the squares.
        !           914:     QueMouseUp VK_LBUTTON, 202, 322
        !           915:     QueMouseDn VK_RBUTTON, 258, 202
        !           916:     QueMouseUp VK_RBUTTON, 234, 322
        !           917:     QueMouseClick VK_LBUTTON, 619, 191  'Select fill circle.
        !           918:     QueMouseClick VK_LBUTTON, 190, 442  'Left inverse
        !           919:     QueMouseDn VK_LBUTTON, 250, 114     'Draw circle
        !           920:     QueMouseUp VK_LBUTTON, 18,282
        !           921:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           922:     QueKeys "{ESC}"                     'field to a standerd number
        !           923:     QueMouseUp VK_LBUTTON, 110, 324
        !           924:     QueFlush 1
        !           925:     ProcessResults "ictest2.ico", "IconColor2", IIconColor2
        !           926: END SUB
        !           927: 
        !           928: 
        !           929: SUB IconColor3 STATIC
        !           930:     WSetWndSiz WinHandle, 635 ,365
        !           931:     PaletteShow( "ON" )                 'Turn off the color palette
        !           932:     PlacePalette 105, 370
        !           933:     QueMouseClick VK_LBUTTON, 195, 10
        !           934:     QueFlush  1
        !           935:     DoKeys "%Fn"                        'Open new file
        !           936:     WOptionClick("&Icon")               'Select icon
        !           937:     WbuttonClick "OK"
        !           938:     WListItemClkT "&Target Device:", "Monochrome 2-Color 32x32"
        !           939:     WbuttonClick "OK"
        !           940:     PlaceViewWindow("32x32")
        !           941:     SetBrushSize("3x3")
        !           942:     QueMouseClick VK_LBUTTON, 360, 426  'Set screen and inverse colors to
        !           943:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           944:     QueMouseClick VK_LBUTTON, 619, 191  'select fill circle.
        !           945:     QueMouseClick VK_LBUTTON, 223,442   'Left button black
        !           946:     QueMouseClick VK_RBUTTON, 223, 426  'Right button white
        !           947:     QueMouseDn VK_LBUTTON, 258, 74      'Draw first circle
        !           948:     QueMouseUp VK_LBUTTON, 10, 322
        !           949:     QueMouseDn VK_RBUTTON, 218, 114     'Draw second circle
        !           950:     QueMouseUp VK_RBUTTON, 50, 282
        !           951:     QueMouseDn VK_LBUTTON, 178, 154     'Draw thrid circle
        !           952:     QueMouseUp VK_LBUTTON, 90, 242
        !           953:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !           954:     QueMouseClick VK_LBUTTON, 190, 426  'Left button screen
        !           955:     QueMouseClick VK_RBUTTON, 190, 442  'Right button inverse
        !           956:     QueMouseClick VK_LBUTTON, 18, 82    'Fill corners
        !           957:     QueMouseClick VK_LBUTTON, 249, 82
        !           958:     QueMouseClick VK_LBUTTON, 18, 314
        !           959:     QueMouseClick VK_LBUTTON, 249, 314
        !           960:     QueMouseClick VK_RBUTTON, 134, 198  'Fill innermost circle
        !           961:     QueMouseClick VK_LBUTTON, 619, 191  'Select fill circle.
        !           962:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !           963:     QueKeys "{ESC}"                     'field to a standerd number
        !           964:     QueMouseUp VK_LBUTTON, 110, 324
        !           965:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !           966:     QueFlush 1
        !           967:     DoKeys "{F10}"
        !           968:     ProcessResults "imtest3.ico", "IconColor3", IIconColor3
        !           969: END SUB
        !           970: 
        !           971: 
        !           972: SUB IconColor4 STATIC
        !           973:     WSetWndSiz WinHandle, 635 ,365
        !           974:     PaletteShow( "ON" )                 'Turn off the color palette
        !           975:     PlacePalette 105, 370
        !           976:     QueMouseClick VK_LBUTTON, 195, 10
        !           977:     QueFlush  1
        !           978:     DoKeys "%Fn"                        'Open new file
        !           979:     WOptionClick("&Icon")               'Select Icon
        !           980:     WbuttonClick "OK"
        !           981:     WListItemClkT "&Target Device:", "CGA 2-Color 32x16"
        !           982:     WbuttonClick "OK"
        !           983:     PlaceViewWindow("32x32")
        !           984:     SetBrushSize("3x3")
        !           985:     QueMouseClick VK_LBUTTON, 360, 426  'Set screen and inverse colors to
        !           986:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !           987:     QueMouseClick VK_LBUTTON, 619, 191  'Select Fill Circle.
        !           988:     QueMouseClick VK_LBUTTON, 223,442   'Left button black
        !           989:     QueMouseClick VK_RBUTTON, 223, 426  'Right button white
        !           990:     QueMouseDn VK_LBUTTON, 15, 334      'Draw first circle
        !           991:     QueMouseUp VK_LBUTTON, 542, 78
        !           992:     QueMouseDn VK_RBUTTON, 54, 284      'Draw second circle
        !           993:     QueMouseUp VK_RBUTTON, 491, 130
        !           994:     QueMouseDn VK_LBUTTON, 117, 233     'Draw thrid circle
        !           995:     QueMouseUp VK_LBUTTON, 442, 182
        !           996:     QueMouseClick VK_LBUTTON, 591, 219  'Select fill tool.
        !           997:     QueMouseClick VK_LBUTTON, 190, 426  'Left button screen
        !           998:     QueMouseClick VK_RBUTTON, 190, 442  'Right button inverse
        !           999:     QueMouseClick VK_LBUTTON, 15, 78    'Fill corners
        !          1000:     QueMouseClick VK_LBUTTON, 15, 334
        !          1001:     QueMouseClick VK_LBUTTON, 542, 78
        !          1002:     QueMouseClick VK_LBUTTON, 542, 334
        !          1003:     QueMouseClick VK_RBUTTON, 278, 206  'Fill innermost circle
        !          1004:     QueMouseClick VK_LBUTTON, 619, 191  'Choose Fill Circle.
        !          1005:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !          1006:     QueKeys "{ESC}"                     'field to a standerd number
        !          1007:     QueMouseUp VK_LBUTTON, 110, 324
        !          1008:     QueMouseClick VK_LBUTTON, 591, 219  'select fill tool.
        !          1009:     QueFlush 1
        !          1010:     DoKeys "{F10}"
        !          1011:     ProcessResults "iCGAtst4.ico", "IconColor4", IIconColor4
        !          1012: END SUB
        !          1013: 
        !          1014: 
        !          1015: SUB BitmapSTool STATIC
        !          1016:     ToolTest "2x2"
        !          1017:     DoKeys "{F10}"
        !          1018:     ProcessResults "bstool.bmp", "BitmapSTool", IBitmapSTool
        !          1019: End Sub
        !          1020: 
        !          1021: 
        !          1022: SUB BitmapMTool STATIC
        !          1023:     ToolTest "3x3"
        !          1024:     DoKeys "{F10}"
        !          1025:     ProcessResults "bmtool.bmp", "BitmapMTool", IBitmapMTool
        !          1026: End Sub
        !          1027: 
        !          1028: 
        !          1029: SUB BitmapLTool STATIC
        !          1030:     ToolTest "4x4"
        !          1031:     DoKeys "{F10}"
        !          1032:     ProcessResults "bltool.bmp", "BitmapLTool", IBitmapLTool
        !          1033: End Sub
        !          1034: 
        !          1035: 
        !          1036: SUB BitmapXLTool STATIC
        !          1037:     ToolTest "5x5"
        !          1038:     DoKeys "{F10}"
        !          1039:     ProcessResults "bXLtool.bmp", "BitmapXLTool", IBitmapXLTool
        !          1040: End Sub
        !          1041: 
        !          1042: 
        !          1043: SUB IconSTool STATIC
        !          1044:     IToolTest "2x2"
        !          1045:     DoKeys "{F10}"
        !          1046:     ProcessResults "istool.ico", "IconSTool", IIconSTool
        !          1047: End Sub
        !          1048: 
        !          1049: 
        !          1050: SUB IconMTool STATIC
        !          1051:     IToolTest "3x3"
        !          1052:     DoKeys "{F10}"
        !          1053:     ProcessResults "imtool.ico", "IconMTool", IIconMTool
        !          1054: End Sub
        !          1055: 
        !          1056: 
        !          1057: SUB IconLTool STATIC
        !          1058:     IToolTest "4x4"
        !          1059:     DoKeys "{F10}"
        !          1060:     ProcessResults "iLtool.ico", "IconLTool", IIconLTool
        !          1061: End Sub
        !          1062: 
        !          1063: 
        !          1064: SUB IconXLTool STATIC
        !          1065:     IToolTest "5x5"
        !          1066:     DoKeys "{F10}"
        !          1067:     ProcessResults "iXLtool.ico", "IconXLTool", IIconXLTool
        !          1068: End Sub
        !          1069: 
        !          1070: 
        !          1071: SUB IdBitmapTool STATIC
        !          1072:     Bitmap32x32x16init
        !          1073:     WSetWndSiz WinHandle, 635 ,365
        !          1074:     QueMouseClick VK_LBUTTON, 618, 165  'Select the fill square
        !          1075:     QueMouseClick VK_LBUTTON, 343, 426  'Select purple
        !          1076:     QueMouseClick VK_RBUTTON, 309, 426  'Select blue
        !          1077:     QueMouseDn VK_LBUTTON, 26, 90       'Draws a square
        !          1078:     QueMouseUp VK_LBUTTON, 114, 178
        !          1079:     QueMouseClick VK_LBUTTON, 618, 192  'Select the fill circle.
        !          1080:     QueMouseDn VK_RBUTTON, 114, 218     'Draws a circle
        !          1081:     QueMouseUp VK_RBUTTON, 26, 306
        !          1082:     QueMouseClick VK_LBUTTON, 292, 426  'Select green
        !          1083:     QueMouseClick VK_RBUTTON, 275, 426  'Select yellow
        !          1084:     QueMouseClick VK_LBUTTON, 590, 220  'Select the fill tool
        !          1085:     QueMouseClick VK_RBUTTON, 106, 314  'Fill background
        !          1086:     QueMouseClick VK_LBUTTON, 591, 113  'Select the pen
        !          1087:     QueMouseDn VK_LBUTTON, 130, 234     'Draw half circle
        !          1088:     QueMouseMove 98, 202
        !          1089:     QueMouseMove 42, 202
        !          1090:     QueMouseUp VK_LBUTTON, 10, 234
        !          1091:     QueMouseClick VK_LBUTTON, 590, 138  'Select the surround box.
        !          1092:     QueMouseDn VK_LBUTTON, 10, 74       'Surrond right half of screen
        !          1093:     QueMouseUp VK_LBUTTON, 130, 322     'and put on clipboard
        !          1094:     QueKeys "%EC"
        !          1095:     QueMouseDn VK_LBUTTON, 154, 90      'Paste, shrink and verify
        !          1096:     QueMouseUp VK_LBUTTON, 242, 306
        !          1097:     QueKeys "%EP"
        !          1098:     QueFlush 1
        !          1099:     WOptionClick("Stretch/shrink clipboard bitmap?")
        !          1100:     WbuttonClick "OK"
        !          1101:     ProcessResults "", "IdBitmapToolA", IIdBitmapToolA
        !          1102:     QueKeys "%EU"
        !          1103:     QueMouseDn VK_LBUTTON, 10, 74
        !          1104:     QueMouseUp VK_LBUTTON, 130, 322
        !          1105:     QueKeys "%EC"
        !          1106:     QueMouseDn VK_LBUTTON, 154, 90      'Paste, cuttoff and verify
        !          1107:     QueMouseUp VK_LBUTTON, 242, 306
        !          1108:     QueKeys "%EP"
        !          1109:     QueFlush 1
        !          1110:     WOptionClick("Clip clipboard bitmap?")
        !          1111:     WbuttonClick "OK"
        !          1112:     ProcessResults "", "IdBitmapToolB", IIdBitmapToolB
        !          1113:     QueKeys "%EU"
        !          1114:     QueMouseDn VK_LBUTTON, 10, 74
        !          1115:     QueMouseUp VK_LBUTTON, 130, 322
        !          1116:     QueKeys "%EC"
        !          1117:     QueMouseDn VK_LBUTTON, 138, 74      'Paste and verify
        !          1118:     QueMouseUp VK_LBUTTON, 258, 322
        !          1119:     QueKeys "%EP"
        !          1120:     QueMouseDn VK_LBUTTON, 110, 314
        !          1121:     QueKeys "{ESC}"
        !          1122:     QueMouseUp VK_LBUTTON, 110, 324
        !          1123:     QueFlush 1
        !          1124:     ProcessResults "idtool.bmp", "IdBitmapToolC", IIdBitmapToolC
        !          1125: End Sub
        !          1126: 
        !          1127: SUB IdIconTool STATIC
        !          1128:     WSetWndSiz WinHandle, 635 ,365
        !          1129:     PaletteShow( "ON" )                 'Turn on the color palette
        !          1130:     PlacePalette 105, 370
        !          1131:     QueMouseClick VK_LBUTTON, 195, 10
        !          1132:     QueFlush  1
        !          1133:     DoKeys "%Fn"                        'Open new file
        !          1134:     WOptionClick("&Icon")               'Select Icon
        !          1135:     WbuttonClick "OK"
        !          1136:     WListItemClkT "&Target Device:", "CGA 2-Color 32x16"
        !          1137:     WbuttonClick "OK"
        !          1138:     PlaceViewWindow("32x32")
        !          1139:     SetBrushSize( "3x3" )
        !          1140:     QueMouseClick VK_LBUTTON, 360, 426  'Set screen and inverse colors to
        !          1141:     QueMouseClick VK_LBUTTON, 611, 321  'gray shades
        !          1142:     QueMouseClick VK_LBUTTON, 618, 165  'Select the fill square
        !          1143:     QueMouseClick VK_LBUTTON, 224, 442  'Select black
        !          1144:     QueMouseClick VK_RBUTTON, 190, 442  'Select screen
        !          1145:     QueMouseDn VK_LBUTTON, 32, 79       'Draw a square
        !          1146:     QueMouseUp VK_LBUTTON, 254, 164
        !          1147:     QueMouseClick VK_LBUTTON, 618, 192  'Select fill circle.
        !          1148:     QueMouseDn VK_LBUTTON, 30, 232      'Draws a circle
        !          1149:     QueMouseUp VK_LBUTTON, 253, 334
        !          1150:     QueMouseClick VK_LBUTTON, 590, 220  'Select the fill tool
        !          1151:     QueMouseClick VK_RBUTTON, 287, 333
        !          1152:     QueMouseClick VK_LBUTTON, 591, 113  'Select the pen
        !          1153:     QueMouseDn VK_LBUTTON, 271, 233     'Draw half circle
        !          1154:     QueMouseMove 237, 199
        !          1155:     QueMouseMove 49, 198
        !          1156:     QueMouseUp VK_LBUTTON, 14, 232
        !          1157:     QueMouseClick VK_LBUTTON, 590, 138  'Select the surround box.
        !          1158:     QueMouseDn VK_LBUTTON, 14, 79       'Surrond right half of screen
        !          1159:     QueMouseUp VK_LBUTTON, 270, 334     'and put on clipboard
        !          1160:     QueKeys "%EC"
        !          1161:     QueMouseDn VK_LBUTTON, 304, 97      'Paste, shrink and verify
        !          1162:     QueMouseUp VK_LBUTTON, 525, 318
        !          1163:     QueKeys "%EP"
        !          1164:     QueFlush 1
        !          1165:     WOptionClick("Stretch/shrink clipboard bitmap?")
        !          1166:     WbuttonClick "OK"
        !          1167:     ProcessResults "", "IdIconToolA", IIdIconToolA
        !          1168:     QueKeys "%EU"
        !          1169:     QueMouseDn VK_LBUTTON, 14, 79
        !          1170:     QueMouseUp VK_LBUTTON, 270, 334
        !          1171:     QueKeys "%EC"
        !          1172:     QueMouseDn VK_LBUTTON, 304, 97      'Paste, cuttoff and verify
        !          1173:     QueMouseUp VK_LBUTTON, 525, 318
        !          1174:     QueKeys "%EP"
        !          1175:     QueFlush 1
        !          1176:     WOptionClick("Clip clipboard bitmap?")
        !          1177:     WbuttonClick "OK"
        !          1178:     ProcessResults "", "IdIconToolB", IIdIconToolB
        !          1179:     QueKeys "%EU"
        !          1180:     QueMouseDn VK_LBUTTON, 14, 79
        !          1181:     QueMouseUp VK_LBUTTON, 270, 334
        !          1182:     QueKeys "%EC"
        !          1183:     QueMouseDn VK_LBUTTON, 287, 79      'Paste and verify
        !          1184:     QueMouseUp VK_LBUTTON,542, 335
        !          1185:     QueKeys "%EP"
        !          1186:     QueMouseDn VK_LBUTTON, 110, 314
        !          1187:     QueKeys "{ESC}"
        !          1188:     QueMouseUp VK_LBUTTON, 110, 324
        !          1189:     QueFlush 1
        !          1190:     ProcessResults "idtool.ico", "IdIconToolC", IIdIconToolC
        !          1191: End Sub
        !          1192: 
        !          1193: 
        !          1194: Sub Undo STATIC
        !          1195:     Bitmap32x32x16init
        !          1196:     QueMouseClick VK_LBUTTON, 618, 111  'Select the Brush
        !          1197:     QueMouseClick VK_LBUTTON, 257, 426  'Select red
        !          1198:     QueMouseClick VK_RBUTTON, 309, 426  'Select light blue
        !          1199:     QueMouseDn VK_RBUTTON, 136, 78
        !          1200:     QueMouseUp VK_RBUUTON, 136, 319
        !          1201:     QueMouseDn VK_RBUTTON, 10, 200
        !          1202:     QueMouseUp VK_RBUUTON, 258, 200
        !          1203:     QueMouseClick VK_LBUTTON, 618, 138  'Select the line
        !          1204:     QueMouseDn VK_RBUTTON, 10, 74
        !          1205:     QueMouseUp VK_RBUTTON, 258, 323
        !          1206:     QueMouseDn VK_RBUTTON, 258, 75
        !          1207:     QueMouseUp VK_RBUTTON, 10, 323
        !          1208:     'Begin
        !          1209:     QueMouseClick VK_LBUTTON, 591, 113  'Select the pen
        !          1210:     QueMouseDn VK_LBUTTON, 130, 234
        !          1211:     QueMouseMove 98, 202
        !          1212:     QueMouseMove 42, 202
        !          1213:     QueMouseUp VK_LBUTTON, 10, 234
        !          1214:     QueKeys "%EU"
        !          1215:     QueMouseClick VK_LBUTTON, 618, 111  'Select the Brush
        !          1216:     QueMouseDn VK_LBUTTON, 10, 200
        !          1217:     QueMouseUp VK_RBUUTON, 258, 200
        !          1218:     QueKeys "%EU"
        !          1219:     QueMouseClick VK_LBUTTON, 618, 138  'Select the line
        !          1220:     QueMouseDn VK_LBUTTON, 10, 74
        !          1221:     QueMouseUp VK_LBUTTON, 258, 323
        !          1222:     QuePause 200
        !          1223:     QueKeys "%EU"
        !          1224:     QueMouseClick VK_LBUTTON, 591, 165  'Select the line square
        !          1225:     QueMouseDn VK_LBUTTON, 26, 90
        !          1226:     QueMouseUp VK_LBUTTON, 114, 178
        !          1227:     QuePause 200
        !          1228:     QueKeys "%EU"
        !          1229:     QueMouseClick VK_LBUTTON, 618, 165  'Select the fill square
        !          1230:     QueMouseDn VK_LBUTTON, 26, 90
        !          1231:     QueMouseUp VK_LBUTTON, 114, 178
        !          1232:     QuePause 200
        !          1233:     QueKeys "%EU"
        !          1234:     QueMouseClick VK_LBUTTON, 591, 192  'Select the line circle.
        !          1235:     QueMouseDn VK_LBUTTON, 114, 218
        !          1236:     QueMouseUp VK_LBUTTON, 26, 306
        !          1237:     QuePause 200
        !          1238:     QueKeys "%EU"
        !          1239:     QueMouseClick VK_LBUTTON, 590, 220  'Select the fill tool
        !          1240:     QueMouseClick VK_LBUTTON, 106, 314
        !          1241:     QuePause 200
        !          1242:     QueKeys "%EU"
        !          1243:     QueMouseClick VK_LBUTTON, 618, 192  'Select the fill circle.
        !          1244:     QueMouseDn VK_LBUTTON, 114, 218
        !          1245:     QueMouseUp VK_LBUTTON, 26, 306
        !          1246:     QuePause 200
        !          1247:     QueKeys "%EU"                       'Clear and undo
        !          1248:     QueKeys "%EL"
        !          1249:     QuePause 200
        !          1250:     QueKeys "%EU"
        !          1251:     QueMouseDn VK_LBUTTON, 110, 314
        !          1252:     QueKeys "{ESC}"
        !          1253:     QueMouseUp VK_LBUTTON, 110, 324
        !          1254:     QueFlush 1
        !          1255:     ProcessResults "undo.bmp","Undo", IUndo
        !          1256: END SUB
        !          1257: 
        !          1258: 
        !          1259: SUB PenTest STATIC
        !          1260:     Bitmap32x32x16init
        !          1261:     QueMouseClick VK_LBUTTON, 591, 113  'Select the pen
        !          1262:     QueMouseClick VK_LBUTTON, 257, 426  'Select Red
        !          1263:     QueMouseClick VK_RBUTTON, 309, 426  'Select Light Blue
        !          1264:     QueMouseClick VK_LBUTTON, 324, 264  'Click outside of area
        !          1265:     QueMouseClick VK_LBUTTON, 10, 74    'Click in foor corners
        !          1266:     QueMouseClick VK_LBUTTON, 258, 323
        !          1267:     QueMouseClick VK_LBUTTON, 258, 75
        !          1268:     QueMouseClick VK_LBUTTON, 10, 323
        !          1269:     QueMouseDn VK_LBUTTON, 130, 147     'Click from outside to inside
        !          1270:     QueMouseUp VK_LBUTTON, 130, 59      'and inside to outside
        !          1271:     QueMouseDn VK_RBUTTON, 138, 59
        !          1272:     QueMouseUp VK_RBUTTON, 138, 147
        !          1273:     QueMouseDn VK_LBUTTON, 186, 194
        !          1274:     QueMouseUp VK_LBUTTON, 287, 194
        !          1275:     QueMouseDn VK_RBUTTON, 287, 202
        !          1276:     QueMouseUp VK_RBUTTON, 186, 202
        !          1277:     QueMouseDn VK_LBUTTON, 130, 250
        !          1278:     QueMouseUp VK_LBUTTON, 130, 338
        !          1279:     QueMouseDn VK_RBUTTON, 138, 338
        !          1280:     QueMouseUp VK_RBUTTON, 138, 250
        !          1281:     QueMouseDn VK_LBUTTON, 82, 194
        !          1282:     QueMouseUp VK_LBUTTON, 0, 194
        !          1283:     QueMouseDn VK_RBUTTON, 0, 202
        !          1284:     QueMouseUp VK_RBUTTON, 82, 202
        !          1285:     QueMouseClick VK_LBUTTON, 619, 191  'Choose Fill Circle.
        !          1286:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !          1287:     QueKeys "{ESC}"                     'field to a standerd number
        !          1288:     QueMouseUp VK_LBUTTON, 110, 324
        !          1289:     QueMouseClick VK_LBUTTON, 591, 113   ' Choose the pen
        !          1290:     QueFlush 1
        !          1291:     DoKeys "{F10}"
        !          1292:     ProcessResults "pentst.bmp", "PenTest", IPenTest
        !          1293: END SUB
        !          1294: 
        !          1295: 
        !          1296: SUB Brush STATIC
        !          1297:     Bitmap32x32x16init
        !          1298:     QueMouseClick VK_LBUTTON, 618, 111  'Choose the Brush
        !          1299:     QueMouseClick VK_LBUTTON, 257, 426  'Select Red
        !          1300:     QueMouseClick VK_RBUTTON, 309, 426  'Select Light Blue
        !          1301:     QueMouseClick VK_LBUTTON, 324, 264  'Click outside of area
        !          1302:     QueMouseClick VK_LBUTTON, 16, 83    'Click in foor corners
        !          1303:     QueMouseClick VK_LBUTTON, 258, 323
        !          1304:     QueMouseClick VK_LBUTTON, 260, 81
        !          1305:     QueMouseClick VK_LBUTTON, 16, 323
        !          1306:     QueMouseDn VK_LBUTTON, 130, 147     'Click from outside to inside
        !          1307:     QueMouseUp VK_LBUTTON, 130, 59      'and inside to outside
        !          1308:     QueMouseDn VK_RBUTTON, 138, 59
        !          1309:     QueMouseUp VK_RBUTTON, 138, 147
        !          1310:     QueMouseDn VK_LBUTTON, 186, 194
        !          1311:     QueMouseUp VK_LBUTTON, 287, 194
        !          1312:     QueMouseDn VK_RBUTTON, 287, 202
        !          1313:     QueMouseUp VK_RBUTTON, 186, 202
        !          1314:     QueMouseDn VK_LBUTTON, 130, 250
        !          1315:     QueMouseUp VK_LBUTTON, 130, 338
        !          1316:     QueMouseDn VK_RBUTTON, 138, 338
        !          1317:     QueMouseUp VK_RBUTTON, 138, 250
        !          1318:     QueMouseDn VK_LBUTTON, 82, 194
        !          1319:     QueMouseUp VK_LBUTTON, 0, 194
        !          1320:     QueMouseDn VK_RBUTTON, 0, 202
        !          1321:     QueMouseUp VK_RBUTTON, 82, 202
        !          1322:     QueMouseClick VK_LBUTTON, 619, 191  ' Choose Fill Circle.
        !          1323:     QueMouseDn VK_LBUTTON, 110, 314     'Clears size: field and sets postion:
        !          1324:     QueKeys "{ESC}"                     'field to a standerd number
        !          1325:     QueMouseUp VK_LBUTTON, 110, 324
        !          1326:     QueMouseClick VK_LBUTTON, 618, 111   ' Choose the Brush
        !          1327:     QueFlush 1
        !          1328:     DoKeys "{F10}"
        !          1329:     ProcessResults "brush.bmp", "Brush", IBrush
        !          1330: END SUB
        !          1331: 
        !          1332: 
        !          1333: SUB EndTest STATIC
        !          1334:    DoKeys "%FX"
        !          1335:    PRINT #1, "**********************************************"
        !          1336:    PRINT #1, "SUCCESSFULLY COMPLETED IMAGEDIT.EXE TEST"
        !          1337:    PRINT #1, "       " + DATETIME$
        !          1338:    PRINT #1, "Total of ", ErrCount, " errors detected"
        !          1339:    PRINT #1, "**********************************************"
        !          1340:    CLOSE 1
        !          1341: END SUB
        !          1342: 
        !          1343: 
        !          1344: 
        !          1345: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.