From a8708bd9550608db721c344965350a020b2eb78c Mon Sep 17 00:00:00 2001 From: Markus Birth Date: Thu, 22 Jun 1995 19:57:28 +0200 Subject: [PATCH] Added JOYTEST.BAS. --- JOYTEST.BAS | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 JOYTEST.BAS diff --git a/JOYTEST.BAS b/JOYTEST.BAS new file mode 100644 index 0000000..64dde66 --- /dev/null +++ b/JOYTEST.BAS @@ -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 + \ No newline at end of file