Basic/data/MOUSE.BAS

9 lines
110 B
QBasic

10 CLS
11 CROFF
20 MOUSE 1,35
30 POS 10,10:PRINT MX ,MY ;" "
33 POS 10,12:PRINT MZ ;" "
40 GOTO 30
50 END