mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-09-19 16:53:26 +01:00
26 lines
1.0 KiB
QBasic
26 lines
1.0 KiB
QBasic
10 CLS
|
||
20 PRINT"Dies ist ein Joystick-Test f<>r den HCV 386-DX."
|
||
30 PRINT"Dr<44>cken Sie eine Taste zum Start !!!"
|
||
40 B$=INKEY$:IF B$="" THEN 40
|
||
50 CLS
|
||
60 PRINT"Left = 4-6 Right = 181-185 Up = 5-7 Down = 127-133"
|
||
70 PRINT"Fire Button 1 = -1 Fire Button 2 = -1"
|
||
80 LOCATE 15,30
|
||
90 A=STICK(0):B=STICK(1)
|
||
100 C=STRIG(1):D=STRIG(4)
|
||
110 LOCATE 15,26
|
||
120 PRINT USING"Left/Right : ### Up/Down : ###";A;B
|
||
130 LOCATE 16,22
|
||
140 PRINT USING"Fire Button 1 : ## Fire Button 2 : ##";C;D
|
||
150 IF A<90 THEN LOCATE 15,1:PRINT"®®® Left"
|
||
160 IF A>120 THEN LOCATE 15,60:PRINT"Right ¯¯¯"
|
||
170 IF B<100 THEN LOCATE 15,1:PRINT"7 Up"
|
||
180 IF B>120 THEN LOCATE 15,60:PRINT"8 Down"
|
||
190 IF C=-1 THEN LOCATE 16,1:PRINT"6 Fire Button 1"
|
||
195 IF C<>-1 THEN LOCATE 16,1:PRINT" "
|
||
200 IF D=-1 THEN LOCATE 16,61:PRINT"6 Fire Button 2"
|
||
205 IF D<>-1 THEN LOCATE 16,61:PRINT" "
|
||
206 IF A>90 AND B>100 THEN LOCATE 15,1:PRINT" "
|
||
207 IF A<120 AND B<120 THEN LOCATE 15,60:PRINT" "
|
||
220 GOTO 90
|
||
|