29 lines
769 B
QBasic
29 lines
769 B
QBasic
10 COL 0,30,0
|
|
15 CLS
|
|
18 MBOUND 0,0,639,479
|
|
20 CROFF
|
|
30 MOUSE 1,34
|
|
31 BUTTON t(11,0,33,1,2,"Knopf11")
|
|
32 BUTTON t(12,0,155,20,2,"Knopf12")
|
|
33 BUTTON t(13,0,166,30,2,"Knopf13")
|
|
34 BUTTON t(15,0,188,5,25,"Ende->")
|
|
35 BUTTON t(14,0,199,20,25,"Knopf14")
|
|
40 BUTTON t(1,0,44,1,5,"Knopf1")
|
|
41 BUTTON t(2,0,44,1,10,"Knopf2")
|
|
42 BUTTON t(3,0,44,1,15,"Knopf3")
|
|
43 BUTTON t(4,0,55,20,5,"Knopf4")
|
|
44 BUTTON t(5,0,66,20,10,"Knopf5")
|
|
45 BUTTON t(6,0,77,30,5,"Knopf6")
|
|
46 BUTTON t(7,0,88,30,10,"Knopf7")
|
|
47 BUTTON t(8,0,99,30,15,"Knopf8")
|
|
48 BUTTON t(9,0,68,30,20,"Knopf9")
|
|
49 BUTTON t(10,0,111,30,25,"Knopf10")
|
|
50 a=MB 0
|
|
52 POS 2,22:PRINT "X:";MGET (1),"Y:";MGET (2);" "
|
|
55 IF a>0 THEN GOSUB 100
|
|
60 IF a=15 THEN CLS :END
|
|
70 GOTO 50
|
|
100 POS 19,22:PRINT "Knopf:";a;" "
|
|
110 RETURN
|
|
|