From d6cc8c39ffd41c7adf067858f3b5896e06bd33d6 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Wed, 13 Apr 2016 16:16:16 -0400
Subject: [PATCH] ksp: add sound

---
 ksp/Makefile         |  8 ++++++--
 ksp/qbasic/theme.bas |  1 +
 ksp/theme.bas        | 11 +++++++++++
 3 files changed, 18 insertions(+), 2 deletions(-)
 create mode 100644 ksp/qbasic/theme.bas
 create mode 100644 ksp/theme.bas

diff --git a/ksp/Makefile b/ksp/Makefile
index e1719998..71f4fa8b 100644
--- a/ksp/Makefile
+++ b/ksp/Makefile
@@ -4,16 +4,20 @@ TXT2BAS = ../asoft_basic-utils/tokenize_asoft
 
 all:	ksp.dsk
 
-basic:	VAB.BAS
+basic:	VAB.BAS THEME.BAS
 
 VAB.BAS:	vab.bas
 	$(TXT2BAS) < vab.bas > VAB.BAS
 
-ksp.dsk:	LOADING.HGR SQUAD.HGR TITLE.HGR VAB.BAS
+THEME.BAS:	theme.bas
+	$(TXT2BAS) < theme.bas > THEME.BAS
+
+ksp.dsk:	LOADING.HGR SQUAD.HGR TITLE.HGR THEME.BAS VAB.BAS
 	$(DOS33) -y ksp.dsk SAVE B LOADING.HGR
 	$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
 	$(DOS33) -y ksp.dsk SAVE B TITLE.HGR
 	$(DOS33) -y ksp.dsk SAVE A VAB.BAS
+	$(DOS33) -y ksp.dsk SAVE A THEME.BAS
 
 
 LOADING.HGR:	loading.pcx
diff --git a/ksp/qbasic/theme.bas b/ksp/qbasic/theme.bas
new file mode 100644
index 00000000..9b861b4c
--- /dev/null
+++ b/ksp/qbasic/theme.bas
@@ -0,0 +1 @@
+PLAY "l2ecgl8cegl2b-agl8cegl2b-agcd"
diff --git a/ksp/theme.bas b/ksp/theme.bas
new file mode 100644
index 00000000..2035fb06
--- /dev/null
+++ b/ksp/theme.bas
@@ -0,0 +1,11 @@
+  5   REM SEE http://eightbitsoundandfury.ld8.org/programming.html
+  10  FOR L = 770 TO 790: READ V: POKE L,V: NEXT L
+  20  DATA  173,48,192,136,208,5,206,1,3,240,9
+  30  DATA  202,208,245,174,0,3,76,2,3,96
+  35  REM L2ECGL4CEGL2B-AGL4CEGL2B-AGCD
+  40  FOR I=1 TO 17: READ F: READ D: POKE 768,F: POKE 769,D: CALL 770: NEXT I
+  50  DATA 202,216,255,216,170,216
+  55  DATA 255,108,202,108,170,108
+  60  DATA 143,216,152,216,170,216
+  65 DATA 255,108,202,108,170,108
+  70 DATA 143,216,152,216,170,216,255,216,227,255