mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-11-09 23:06:45 +00:00
27 lines
1.1 KiB
QBasic
27 lines
1.1 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,1
|
||
120 PRINT " Left/Right : ";A;"Up/Down : ";B;" "
|
||
130 LOCATE 16,1
|
||
140 PRINT" Fire Button 1 : ";C;"Fire Button 2 : ";D;" "
|
||
150 IF A=5 OR A=6 OR A=7 THEN LOCATE 15,1:PRINT"®®® Left"
|
||
160 IF A=152 OR A=153 OR A=154 OR A=155 THEN LOCATE 15,60:PRINT"Right ¯¯¯"
|
||
170 IF B=5 OR B=6 OR B=7 THEN LOCATE 15,1:PRINT"7 Up"
|
||
180 IF B=151 OR B=152 OR B=153 OR B=154 OR B=155 THEN LOCATE 15,60:PRINT"8 Down"
|
||
190 IF C=-1 THEN LOCATE 16,1:PRINT"6 Fire Button 1"
|
||
200 IF D=-1 THEN LOCATE 16,61:PRINT"6 Fire Button 2"
|
||
210 B$=INKEY$:IF B$=" " THEN 230
|
||
220 GOTO 90
|
||
230 PRINT"^C"
|
||
240 PRINT"BREAK in 240"
|
||
250 A$="Quick"
|
||
260 LOAD"WINDOWS.BAS"
|
||
|