mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
34 lines
1.1 KiB
QBasic
34 lines
1.1 KiB
QBasic
|
1 CLS : REM Maus Basic Beispiel
|
|||
|
|
2 PRINT"Dies ist ein Beispiel in Basic geschrieben, das den Mouse Driver Aufruf zeigt."
|
|||
|
|
3 PRINT" Details entnehmen sie bitte dem Help File [Help.com]."
|
|||
|
|
4 PRINT
|
|||
|
|
5 PRINT" Funktion:"
|
|||
|
|
6 PRINT" Linker Knopf = Ausdruck von Knopfstatus und Cursorposition (x,y)"
|
|||
|
|
7 PRINT" Rechter Knopf = Ende."
|
|||
|
|
11 PRINT
|
|||
|
|
15 DEFINT A-Z
|
|||
|
|
18 DEF SEG=0
|
|||
|
|
20 MSEG=256*PEEK(51*4+3)+PEEK(51*4+2)
|
|||
|
|
30 MOUSE=256*PEEK(51*4+1)+PEEK(51*4)+2
|
|||
|
|
40 IF MSEG OR (MOUSE-2) THEN 60
|
|||
|
|
50 PRINT " Mouse Driver not found":END
|
|||
|
|
60 DEF SEG=MSEG
|
|||
|
|
70 IF PEEK(MOUSE-2)=207 THEN 50
|
|||
|
|
80 PRINT " Mouse Driver is installed"
|
|||
|
|
100 M1%=0
|
|||
|
|
110 CALL MOUSE(M1%, M2%, M3%, M4%)
|
|||
|
|
120 S$ = "Fehler" : IF M1=-1 THEN S$ = "O.K."
|
|||
|
|
140 PRINT "Status = ";S$
|
|||
|
|
150 M1=10:M2=1:M3=2:M4=5
|
|||
|
|
160 CALL MOUSE(M1%, M2%, M3%, M4%)
|
|||
|
|
170 M1=1
|
|||
|
|
180 CALL MOUSE(M1%, M2%, M3%, M4%)
|
|||
|
|
190 M1 = 3
|
|||
|
|
200 CALL MOUSE(M1%, M2%, M3%, M4%)
|
|||
|
|
210 IF M2% = 0 THEN 190
|
|||
|
|
220 PRINT"Button Status = ";M2,"Cursor Position: x = ";M3," y = ";M4
|
|||
|
|
230 M1=2
|
|||
|
|
240 CALL MOUSE(M1%, M2%, M3%, M4%)
|
|||
|
|
250 IF M2 = 1 THEN 170
|
|||
|
|
260 END
|
|||
|
|
|