From 816c9b69787d8b852a346c2d5cb23bc57911afbd Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Sun, 22 Jan 1995 15:54:08 +0100
Subject: [PATCH] Added joystick tools.

---
 MOVEJOY.BAS | 23 +++++++++++++++++++++++
 WINNER.BAS  | 26 ++++++++++++++++++++++++++
 2 files changed, 49 insertions(+)
 create mode 100644 MOVEJOY.BAS
 create mode 100644 WINNER.BAS

diff --git a/MOVEJOY.BAS b/MOVEJOY.BAS
new file mode 100644
index 0000000..6ace79c
--- /dev/null
+++ b/MOVEJOY.BAS
@@ -0,0 +1,23 @@
+10 CLS
+20 KEY OFF
+30 A=1:B=1:X=1:Y=1
+40 LOCATE A,B:PRINT"�";
+50 H=0
+60 C=STICK(0):D=STICK(1):E=STRIG(0):F=STRIG(4)
+70 IF C<90 THEN Y=Y-1
+80 IF C>120 THEN Y=Y+1
+90 IF D<100 THEN X=X-1
+100 IF D>120 THEN X=X+1
+110 IF X<1 THEN X=1
+120 IF X>25 THEN X=25
+130 IF Y<1 THEN Y=1
+140 IF Y>80 THEN Y=80
+150 IF E=-1 AND F=-1 THEN COLOR H:H=H+1:I=1:IF H>31 THEN H=0
+160 IF I=1 THEN I=0:GOTO 180
+170 IF F=-1 THEN CLS
+180 IF E=-1 THEN 210
+190 LOCATE A,B:PRINT" ";
+200 A=X:B=Y
+210 LOCATE X,Y:PRINT"�";
+220 GOTO 60
+
\ No newline at end of file
diff --git a/WINNER.BAS b/WINNER.BAS
new file mode 100644
index 0000000..e21f5b5
--- /dev/null
+++ b/WINNER.BAS
@@ -0,0 +1,26 @@
+10 CLS
+20 PRINT"Dies ist ein Joystick-Test f�r den HCV 386-DX."
+30 PRINT"Dr�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,26
+120 PRINT USING"Left/Right : ### Up/Down : ###";A;B
+130 LOCATE 16,22
+140 PRINT USING"Fire Button 1 : ## Fire Button 2 : ##";C;D
+150 IF A<90 THEN LOCATE 15,1:PRINT"��� Left"
+160 IF A>120 THEN LOCATE 15,60:PRINT"Right ���"
+170 IF B<100 THEN LOCATE 15,1:PRINT"7 Up"
+180 IF B>120 THEN LOCATE 15,60:PRINT"8 Down"
+190 IF C=-1 THEN LOCATE 16,1:PRINT"6 Fire Button 1"
+195 IF C<>-1 THEN LOCATE 16,1:PRINT"               "
+200 IF D=-1 THEN LOCATE 16,61:PRINT"6 Fire Button 2"
+205 IF D<>-1 THEN LOCATE 16,61:PRINT"               "
+206 IF A>90 AND B>100 THEN LOCATE 15,1:PRINT"        "
+207 IF A<120 AND B<120 THEN LOCATE 15,60:PRINT"         "
+220 GOTO 90
+
\ No newline at end of file