fb:porticula NoPaste
GetMouse in Vollbild
Uploader: | ![]() |
Datum/Zeit: | 28.09.2007 16:27:43 |
dim as integer mx, my
screenres 1024, 768,32,,1
do
getmouse mx, my
locate 1,1
print "X: " + str(mx) + " - Y: " + str(my) + " "
loop until multikey(1)