mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-14 09:16:45 +00:00
34 lines
1.1 KiB
QBasic
34 lines
1.1 KiB
QBasic
|
10 CLS
|
|||
|
|
20 REM Bildaufbau
|
|||
|
|
30 COLOR 12
|
|||
|
|
40 LOCATE 1,33:PRINT"JOYSTICK-DATEN"
|
|||
|
|
50 COLOR 14
|
|||
|
|
60 LOCATE 3,1:PRINT"Joystick A:"
|
|||
|
|
70 COLOR 15
|
|||
|
|
80 PRINT"X-Axis"
|
|||
|
|
90 PRINT"Y-Axis"
|
|||
|
|
100 PRINT"Button A"
|
|||
|
|
110 PRINT"Button B"
|
|||
|
|
120 C=15
|
|||
|
|
130 D=15
|
|||
|
|
140 E=15
|
|||
|
|
150 F=15
|
|||
|
|
160 A=STICK(0):B=STICK(1)
|
|||
|
|
170 REM Hauptteil
|
|||
|
|
180 A(1)=STICK(0):A(2)=STICK(1):A(3)=STRIG(0):A(4)=STRIG(4)
|
|||
|
|
190 B(1)=STICK(2):B(2)=STICK(3):B(3)=STRIG(2):B(4)=STRIG(6)
|
|||
|
|
200 IF INKEY$=CHR$(27) THEN END
|
|||
|
|
210 IF A(1)<A-10 THEN A$(1)="LEFT ":C=10:GOTO 240
|
|||
|
|
220 IF A(1)>A+10 THEN A$(1)="RIGHT":C=10:GOTO 240
|
|||
|
|
230 A$(1)=" ":C=15
|
|||
|
|
240 IF A(2)<B-10 THEN A$(2)="UP ":D=10:GOTO 270
|
|||
|
|
250 IF A(2)>B+10 THEN A$(2)="DOWN":D=10:GOTO 270
|
|||
|
|
260 A$(2)=" ":D=15
|
|||
|
|
270 REM Anzeigen
|
|||
|
|
280 LOCATE 4,11:PRINT USING"###";A(1);:COLOR C:PRINT " ";A$(1):COLOR 15
|
|||
|
|
290 LOCATE 5,11:PRINT USING"###";A(2);:COLOR D:PRINT " ";A$(2)
|
|||
|
|
300 C=15:D=15
|
|||
|
|
310 IF A(3)=-1 THEN COLOR 10:LOCATE 6,11:PRINT" ON" ELSE COLOR 12:LOCATE 6,11:PRINT"OFF"
|
|||
|
|
320 IF A(4)=-1 THEN COLOR 10:LOCATE 7,11:PRINT" ON" ELSE COLOR 12:LOCATE 7,11:PRINT"OFF"
|
|||
|
|
330 COLOR 15:GOTO 170
|
|||
|
|
|