File: inkey_mousex.yab

package info (click to toggle)
yabasic 1%3A2.91.1-1
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 4,168 kB
  • sloc: ansic: 12,434; sh: 4,417; makefile: 21
file content (9 lines) | stat: -rwxr-xr-x 259 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
 
open window 200,200
#clear screen
print "Please click anywhere in the grafics window"
print inkey$
print mousex
if (mousex=0) error "mousex"
if (mousey=0) error "mousey"
if (mouseb=0) error "mouseb"
print "Okay: mousex, mousey and mouseb remember last inkey"