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"<22><><EFBFBD> Left"
|
|||
|
|
160 IF A=152 OR A=153 OR A=154 OR A=155 THEN LOCATE 15,60:PRINT"Right <20><><EFBFBD>"
|
|||
|
|
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"
|
|||
|
|
|