From 6f62011a47ebebd6d4bfba93395c28d0b45eeb37 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Thu, 14 Dec 1995 19:14:12 +0100
Subject: [PATCH] Added JOYSTICK.BAS and JOYTEST.BAS.

---
 JOYSTICK/JOYSTICK.BAS | 34 ++++++++++++++++++++++++++++++++++
 JOYSTICK/JOYTEST.BAS  | 15 +++++++++++++++
 2 files changed, 49 insertions(+)
 create mode 100644 JOYSTICK/JOYSTICK.BAS
 create mode 100644 JOYSTICK/JOYTEST.BAS

diff --git a/JOYSTICK/JOYSTICK.BAS b/JOYSTICK/JOYSTICK.BAS
new file mode 100644
index 0000000..c8f20c9
--- /dev/null
+++ b/JOYSTICK/JOYSTICK.BAS
@@ -0,0 +1,34 @@
+10 CLS
+20 REM Bildaufbau
+30 COLOR 12
+40 LOCATE 1,33:PRINT"JOYSTICK-DATEN"
+50 COLOR 14
+60 LOCATE 3,1:PRINT"Joystick A:"
+70 COLOR 15
+80 PRINT"X-Axis"
+90 PRINT"Y-Axis"
+100 PRINT"Button A"
+110 PRINT"Button B"
+120 C=15
+130 D=15
+140 E=15
+150 F=15
+160 A=STICK(0):B=STICK(1)
+170 REM Hauptteil
+180 A(1)=STICK(0):A(2)=STICK(1):A(3)=STRIG(0):A(4)=STRIG(4)
+190 B(1)=STICK(2):B(2)=STICK(3):B(3)=STRIG(2):B(4)=STRIG(6)
+200 IF INKEY$=CHR$(27) THEN END
+210 IF A(1)<A-10 THEN A$(1)="LEFT ":C=10:GOTO 240
+220 IF A(1)>A+10 THEN A$(1)="RIGHT":C=10:GOTO 240
+230 A$(1)="     ":C=15
+240 IF A(2)<B-10 THEN A$(2)="UP  ":D=10:GOTO 270
+250 IF A(2)>B+10 THEN A$(2)="DOWN":D=10:GOTO 270
+260 A$(2)="    ":D=15
+270 REM Anzeigen
+280 LOCATE 4,11:PRINT USING"###";A(1);:COLOR C:PRINT "    ";A$(1):COLOR 15
+290 LOCATE 5,11:PRINT USING"###";A(2);:COLOR D:PRINT "    ";A$(2)
+300 C=15:D=15
+310 IF A(3)=-1 THEN COLOR 10:LOCATE 6,11:PRINT" ON" ELSE COLOR 12:LOCATE 6,11:PRINT"OFF"
+320 IF A(4)=-1 THEN COLOR 10:LOCATE 7,11:PRINT" ON" ELSE COLOR 12:LOCATE 7,11:PRINT"OFF"
+330 COLOR 15:GOTO 170
+
\ No newline at end of file
diff --git a/JOYSTICK/JOYTEST.BAS b/JOYSTICK/JOYTEST.BAS
new file mode 100644
index 0000000..64dde66
--- /dev/null
+++ b/JOYSTICK/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