From d1b6a2558d2740538b52dff8c2325093efa8eeff Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 12 Jan 2017 20:16:55 -0500
Subject: [PATCH] glados: add some mouse/joystick test code

---
 glados3.3/Makefile          | 11 ++++++++++-
 glados3.3/joystick_test.bas |  2 ++
 glados3.3/mouse_test.bas    | 15 +++++++++++++++
 3 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 glados3.3/joystick_test.bas
 create mode 100644 glados3.3/mouse_test.bas

diff --git a/glados3.3/Makefile b/glados3.3/Makefile
index 747ad651..34ea0045 100644
--- a/glados3.3/Makefile
+++ b/glados3.3/Makefile
@@ -17,6 +17,12 @@ PORTAL.BAS:	portal.bas
 STILL_ALIVE.BAS:	still_alive.bas
 	$(TXT2BAS) < still_alive.bas > STILL_ALIVE.BAS
 
+JOYSTICK_TEST.BAS:	joystick_test.bas
+	$(TXT2BAS) < joystick_test.bas > JOYSTICK_TEST.BAS
+
+MOUSE_TEST.BAS:	mouse_test.bas
+	$(TXT2BAS) < mouse_test.bas > MOUSE_TEST.BAS
+
 shape_test.bas:	objects.shape
 	$(SHAPETABLE) < objects.shape > shape_test.bas
 
@@ -31,7 +37,8 @@ SOUND_TEST.BAS:	sound_test.bas
 	$(TXT2BAS) < sound_test.bas > SOUND_TEST.BAS
 
 glados33.dsk:	STILL_ALIVE.BAS OBJECTS.SHAPE SHAPE_TEST.BAS SOUND_TEST.BAS \
-		PORTAL.BAS CUBE.BAS PORTAL_TITLE.HGR GLADOS.HGR
+		PORTAL.BAS CUBE.BAS PORTAL_TITLE.HGR GLADOS.HGR MOUSE_TEST.BAS \
+		JOYSTICK_TEST.BAS
 	$(DOS33) -y glados33.dsk SAVE A STILL_ALIVE.BAS
 	$(DOS33) -y glados33.dsk SAVE B OBJECTS.SHAPE
 	$(DOS33) -y glados33.dsk SAVE B PORTAL_TITLE.HGR
@@ -40,6 +47,8 @@ glados33.dsk:	STILL_ALIVE.BAS OBJECTS.SHAPE SHAPE_TEST.BAS SOUND_TEST.BAS \
 	$(DOS33) -y glados33.dsk SAVE A SOUND_TEST.BAS
 	$(DOS33) -y glados33.dsk SAVE A PORTAL.BAS
 	$(DOS33) -y glados33.dsk SAVE A CUBE.BAS
+	$(DOS33) -y glados33.dsk SAVE A MOUSE_TEST.BAS
+	$(DOS33) -y glados33.dsk SAVE A JOYSTICK_TEST.BAS
 
 clean:	
 	rm -f *~ *.BAS *.SHAPE sound_test.bas shape_test.bas *.lst
diff --git a/glados3.3/joystick_test.bas b/glados3.3/joystick_test.bas
new file mode 100644
index 00000000..cd132250
--- /dev/null
+++ b/glados3.3/joystick_test.bas
@@ -0,0 +1,2 @@
+10 PRINT PDL(0),PDL(1):GOTO 10
+
diff --git a/glados3.3/mouse_test.bas b/glados3.3/mouse_test.bas
new file mode 100644
index 00000000..9cd6a304
--- /dev/null
+++ b/glados3.3/mouse_test.bas
@@ -0,0 +1,15 @@
+' Cheat and assume the mouse card is in slot #4
+' (which is where it is on the Apple IIc)
+' This means no Mockingboard support under Linapple
+'
+20 IF PEEK(50188) = 32 AND PEEK(50427) = 214 THEN GOTO 30
+25 PRINT "NO MOUSE IN SLOT #4":END
+30 PRINT "MOUSE FOND SLOT #4"
+' Enable the mouse
+100 PRINT CHR$(4)"PR#4":PRINT CHR$(1)
+105 PRINT CHR$(4)"IN#4":INPUT "";X,Y,S
+110 PRINT X,Y,S
+120 PRINT CHR$(4)"IN#0"
+130 GOTO 105
+
+