Home > Reference > Graphics

Print "  Move and click the Pen or Mouse [press Esc to stop]..."
Print
Pen On
Print Using " ####x, ####y";              ' Format for x,y position
While Inkey <> Chr(27) Do                 ' Press Esc key to exit loop
  Locate 3, 0
  print "Pen|Mouse new event:  "; Pen(0)
  print
  print "Pen last down|Mouse down:";: ? Usg; Pen(1), Pen(2)
  print
  print "Pen down|Mouse Left down:  "; Pen(3)
  print
  print "Pen last/current|Mouse Left down:";: ? Usg; Pen(4), Pen(5)
  print
  print "Mouse current:";: ? Usg; Pen(10), Pen(11)
  print
  print "Mouse Left, Middle, Right down: ", Pen(12), Pen(14), Pen(13);
Wend

pen on

print "Press left mouse button or tab screen. Press q to quit."

while(1)          
    if(pen(3)) then
        PosX = pen(4)
        PosY = pen(5)
        locate 1,0: print "Click/tap at position: " + PosX + " , " + PosY
    endif
    
    k = inkey()
    if(len(k) == 1 AND k == "q") then end
    
    showpage
    delay(20)
wend

pen on

print "Press left mouse button or tab screen. Press q to quit."

' Define button
button.x = 100
button.y = 100
button.w = 100
button.h = 100

while(1)

    ' Draw button in dark yellow
    rect button.x, button.y STEP button.w, button.h color 6 filled
          
    if(pen(3)) then
        PosX = pen(4)
        PosY = pen(5)
        
        ' Check if the click or tap is inside the button area
        if( (PosX > button.x) and (PosX < button.x + button.w) and (PosY > button.y) and (PosY < button.y + button.h) )
            ' Draw button in red
            rect button.x, button.y STEP button.w, button.h color 12 filled 
        endif
        
    endif
    
    k = inkey()
    if(len(k) == 1 AND k == "q") then end
    
    showpage
    delay(20)
wend