MOUSE leftint, rightint, leftup
do
 if mouse(D) then print "Double click @ ",mouse(x),mouse(y)
loop
sub leftint
 print "left down @ ",mouse(x),mouse(y)
end sub
sub leftup
 print "left up @ ",mouse(x),mouse(y)
end sub
sub rightint
 print "right down @ ",mouse(x),mouse(y)
end sub

 DIM INTEGER starttime, laptime, midtime
 
 starttime = TIMER
 midtime = starttime
 
 FOR k = 1 TO 25
   FOR n = 1 TO 10000
     x = LOG(12346)
   NEXT n
   laptime = TIMER - midtime
   midtime = TIMER
   PRINT k, TIMER - starttime, laptime
 NEXT k
 

' test card for MMB4W
' TassyJim January 2022
 
 OPTION EXPLICIT
 OPTION DEFAULT NONE
 DIM INTEGER wd, ht, wbox, sh, x, w, n, nn, m, maxMode, mk, cir
 DIM FLOAT a
 DIM k$, imgtitle$, fname$, imgRes$
 DIM INTEGER c(8)
 c(0) = RGB(BLACK)
 c(1) = RGB(YELLOW)
 c(2) = RGB(CYAN)
 c(3) = RGB(GREEN)
 c(4) = RGB(MAGENTA)
 c(5) = RGB(RED)
 c(6) = RGB(BLUE)
 c(7) = RGB(WHITE)
 c(8) = RGB(64,64,64)
 
 maxMode = 16
 a = 1
 cir = 1
 CLS
 
 DO
   IF m = 0 THEN
     MODE 1 ',8
     CLS
     TEXT 400,100, "Video mode test",cm,5,1
     TEXT 400,180, "Ratio = aspect ratio used in the circle command",cm,1,1
     TEXT 400,220, "Q to quit, P to save page as a BMP",cm,3,1
     TEXT 400,260, "Up Down arrow or mouse wheel to change mode",cm,2,1
     TEXT 400,300, "+ - to change circle aspect ratio",cm,2,1
     TEXT 400,340, "C to toggle circle",cm,2,1
   ELSE
     CLS             ' erase video memory before mode change
     MODE m
     CLS
     PAUSE 100
     wd = MM.HRES : ht = MM.VRES
     nn = INT(wd/80)
     imgtitle$ =" MODE "+STR$(m)+" Ratio "+STR$(a,1,3)+" "
     imgRes$ = " "+STR$(MM.HRES)+" x "+STR$(MM.VRES)+" "
'pages$ = " Maximum page number = "+STR$(mp)+" "
     wbox = wd / 8
     
     FOR x = 0 TO 7
       BOX x*wbox,ht/4,wbox,ht/2,0,c(x), c(x)
     NEXT x
' full gradient for each primary colour and greyscale
     FOR x = 0 TO wd-1
       sh = 255*x/wd
       
       LINE x,0,x,ht/12,1,RGB(sh,0,0)
       LINE x,ht/12,x,ht/6,1,RGB(0,sh,0)
       LINE x,ht/6,x,ht/4,1,RGB(0,0,sh)
       
       LINE x,ht*9/12,x,ht*10/12,1,RGB(0,sh,sh)
       LINE x,ht*10/12,x,ht*11/12,1,RGB(sh,0,sh)
       LINE x,ht*11/12,x,ht,1,RGB(sh,sh,0)
       
       LINE x,ht/2,x,ht*3/4,1,RGB(sh,sh,sh) ' greyscale
     NEXT x
' circle to check aspect ratio
     IF cir THEN CIRCLE wd/2,ht/2, ht*15/32,3,a,c(7)
     sh = 0
     x = wd/2 - 55*nn/2
' black white bars to check monitor bandwidth
     FOR w = 10 TO 1 STEP -1
       FOR n = 1 TO nn
         sh = 255 - sh
         LINE x,ht*3/8,x,ht*5/8,w,RGB(sh,sh,sh)
         x = x + w
       NEXT n
     NEXT w
' white and red border to check that image fits on monitor
     BOX 0,0,wd,ht,3,c(7)
     BOX 1,1,wd-2,ht-2,1,c(5)
' title
     IF wd > 600 THEN
       TEXT wd/2,ht/2-15, imgtitle$,cm,4,1
'TEXT wd/2,ht/2, pages$,cm,4,1
       TEXT wd/2,ht/2+15, imgRes$,cm,4,1
     ELSE
       TEXT wd/2,ht/2-11, imgtitle$,cm,1,1
'TEXT wd/2,ht/2, pages$,cm,1,1
       TEXT wd/2,ht/2+11, imgRes$,cm,1,1
     ENDIF
' show the new image
   ENDIF
   PAUSE 100
' wait for keypress or mouse wheel
   DO
     k$ = INKEY$
     mk = MOUSE(w)
     IF mk < 0 THEN
       k$ = CHR$(129)
     ELSEIF mk > 0 THEN
       k$ = CHR$(128)
     ENDIF
   LOOP UNTIL k$<>""
'
   SELECT CASE k$
     CASE "C","c" ' toggle circle
       cir = 1 - cir
     CASE "Q","q"
       EXIT DO
     CASE "P","p"
       fname$ = MID$(imgtitle$,2)+".bmp"
       TIMER = 0
       SAVE IMAGE fname$
' PAGE WRITE 0
       TEXT wd/2,ht/2,"Saved as "+fname$+" in "+STR$(TIMER/1000,3,2)+" Sec" ,cm,1,1
       DO
         k$ = INKEY$
       LOOP UNTIL k$<>""
     CASE CHR$(128) ' up arrow
       m = m - 1
       IF m < 1 THEN m = maxMode
     CASE CHR$(129) ' down arrow
       m = m + 1
       IF m > maxMode THEN m = 1
       
     CASE "+" ' ratio plus
       IF a < 1.4 THEN a = a + 0.01
     CASE "-" ' ratio minus
       IF a > 0.75 THEN a = a - 0.01
     CASE ELSE ' same as down arrow
       m = m + 1
       IF m > maxMode THEN m = 1
   END SELECT
 LOOP
 
 CLS
 MODE 1
END
 
 
 

[29] TEXT 400,100, "Video mode test",cm,5,1
Error: Unknown command

[23] GUI Interrupt Touchdown, Touchup
Error : Unknown command