15 lines
368 B
QBasic
15 lines
368 B
QBasic
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
|
|
|