Basic/data/MOUSBUTT.BAS

15 lines
368 B
QBasic
Raw Normal View History

2014-04-30 20:24:00 +02:00
5 CLS
8 MOUSE 1,1
10 POS 10,10:PRINT "l","m","r",
20 POS 10,4:PRINT "l=linke Maustaste"
30 POS 10,6:PRINT "r=rechte Maustaste"
40 POS 10,8:PRINT "m=mittlere Maustaste"
50 CROFF
60 a=MB (0):b=MB (1):c=MB (2)
70 POS 10,14:PRINT a;" ";TAB (19);c;" ";TAB (28);b;" "
80 IF a=255 THEN COL 0,30,40
90 IF b=255 THEN COL 0,40,50
100 IF c=255 THEN COL 0,50,60
110 GOTO 60