mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-09-19 16:53:26 +01:00
Code Issues Releases Wiki Activity

Added JOYTEST.BAS.

Browse Source
This commit is contained in:
Markus Birth 1995-06-22 19:57:28 +02:00
parent 0c59db1856
commit a8708bd955
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
JOYTEST.BAS Normal file
View File

@ -0,0 +1,15 @@
10 CLS
20 PRINT"Joystick A"
30 PRINT USING"X ###";STICK(0)
40 PRINT USING"Y ###";STICK(1)
50 PRINT USING"Button A ##";STRIG(0)
60 PRINT USING"Button B ##";STRIG(4)
70 PRINT
80 PRINT"Joystick B"
90 PRINT USING"X ###";STICK(2)
100 PRINT USING"Y ###";STICK(3)
110 PRINT USING"Button A ##";STRIG(2)
120 PRINT USING"Button B ##";STRIG(6)
130 IF INKEY$=CHR$(27) THEN END
140 LOCATE 1,1:GOTO 20