From dab7f1a5c35941e32bb71b73db41dcd1a8ed2ed0 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 26 May 2016 12:32:02 -0400
Subject: [PATCH] ksp: more progress

---
 ksp/TODO         |   2 +
 ksp/contract.bas |  20 ++-
 ksp/flight.bas   |  47 ++++--
 ksp/ship2.table  | 404 ++++++++++++++++++++++++++++++++++++++++++++++-
 4 files changed, 456 insertions(+), 17 deletions(-)

diff --git a/ksp/TODO b/ksp/TODO
index 9ccc2c55..0c92708b 100644
--- a/ksp/TODO
+++ b/ksp/TODO
@@ -1,3 +1,5 @@
 parachutes?
 Mun?
 stars in background?
+EVA?
+auto-generated shape tabe for ship based on VAB choices
diff --git a/ksp/contract.bas b/ksp/contract.bas
index 99acc252..eba97f9c 100644
--- a/ksp/contract.bas
+++ b/ksp/contract.bas
@@ -16,11 +16,25 @@
 9120 PRINT "  1. RETURN TO THE VAB"
 9130 PRINT "  2. RETURN TO ASTRO COMPLEX"
 9140 PRINT "  3. RETURN TO LAUNCH"
-9150 PRINT "  4. QUIT GAME"
+9145 PRINT "  4. HELP"
+9150 PRINT "  5. QUIT GAME"
 9160 PRINT "---> ";
 9170 GET A$
 9171 IF A$="1" GOTO 1
 9172 IF A$="2" GOTO 2
 9173 IF A$="3" GOTO 3
-9174 IF A$="4" OR A$="Q" GOTO 4
-9175 GOTO 9160
+9174 IF A$="4" OR A$="H" GOTO 9200
+9175 IF A$="5" OR A$="Q" GOTO 4
+9176 GOTO 9160
+9200 REM *** HELP ***
+9210 HOME
+9220 PRINT "KSP-APPLE-II BY VINCE WEAVER"
+9230 PRINT "     APPLE II FOREVER"
+9240 PRINT " A,D   - STEER SHIP RIGHT/LEFT"
+9250 PRINT " Z     - START ENGINES"
+9260 PRINT " X     - CUT ENGINES"
+9270 PRINT " SPACE - STAGE"
+9275 PRINT " M     - SWITCH TO ORBITAL VIEW"
+9280 PRINT " ESC   - QUIT" 
+9300 GET A$
+9320 GOTO 9010
diff --git a/ksp/flight.bas b/ksp/flight.bas
index 7e009a88..f8c9e753 100644
--- a/ksp/flight.bas
+++ b/ksp/flight.bas
@@ -1,25 +1,46 @@
-7000 HIMEM:8106
-7020 POKE 232,170:POKE 233,31
-7030 FOR L=8106 TO 8175: READ B:POKE L,B:NEXT L
+7000 HIMEM:7925
+7020 POKE 232,245:POKE 233,30
+7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L
 7035 HGR:ROT=0:SCALE=2
-7037 TH=0
-7040 XDRAW TH+1 AT 140,80
+7037 TH=0:S=2
+7040 XDRAW 1+(S*2)+TH AT 140,80
 7050 GET A$
 7060 IF A$="Q" THEN END
+7061 XDRAW 1+(S*2)+TH AT 140,80
 7062 IF A$="A" THEN R=R-8
 7063 IF A$="D" THEN R=R+8
 7065 IF A$="Z" THEN TH=1
 7067 IF A$="X" THEN TH=0
+7068 IF A$=" " THEN S=S-1:XX=PEEK(-16336)
 7070 IF R=64 THEN R=0
 7072 IF R=-8 THEN R=56
-7075 XDRAW 1 AT 140,80
+7075 IF S<0 THEN S=0
 7080 ROT=R
 7085 GOTO 7040
 7090 END
-7100 DATA 2,0,6,0,34,0,219,36,36,44
-7101 DATA 44,44,53,53,53,54,54,54,54,63
-7102 DATA 63,45,46,46,62,63,63,39,37,37
-7103 DATA 63,36,36,0,219,36,36,44,44,44
-7104 DATA 53,53,53,54,54,54,54,63,63,45
-7105 DATA 46,46,62,63,63,45,45,62,54,62
-7106 DATA 39,36,39,39,37,37,63,36,36,0
+7100 DATA 6,0,14,0,42,0,77,0,113,0
+7101 DATA 156,0,200,0,219,36,36,44,44,44
+7102 DATA 53,53,53,54,54,54,54,63,63,45
+7103 DATA 46,46,62,63,63,39,37,37,63,36
+7104 DATA 36,0,219,36,36,44,44,44,53,53
+7105 DATA 53,54,54,54,54,63,63,45,46,46
+7106 DATA 62,63,127,73,62,54,62,39,36,39
+7107 DATA 39,37,37,63,36,36,0,219,36,36
+7108 DATA 36,36,44,44,44,53,53,53,54,54
+7109 DATA 54,54,54,54,54,54,63,63,45,46
+7110 DATA 46,62,63,63,39,37,37,63,36,36
+7111 DATA 36,36,0,219,36,36,36,36,44,44
+7112 DATA 44,53,53,53,54,54,54,54,54,54
+7113 DATA 54,54,63,63,45,46,46,62,63,127
+7114 DATA 73,62,54,62,39,36,39,39,37,37
+7115 DATA 63,36,36,36,36,0,219,36,36,36
+7116 DATA 36,36,36,44,44,44,53,53,53,54
+7117 DATA 54,54,54,54,54,54,54,54,54,54
+7118 DATA 54,63,63,45,46,46,62,63,63,39
+7119 DATA 37,37,63,36,36,36,36,36,36,0
+7120 DATA 219,36,36,36,36,36,36,44,44,44
+7121 DATA 53,53,53,54,54,54,54,54,54,54
+7122 DATA 54,54,54,54,54,63,63,45,46,46
+7123 DATA 62,63,127,73,62,54,62,39,36,39
+7124 DATA 39,37,37,63,36,36,36,36,36,36
+7125 DATA 0
diff --git a/ksp/ship2.table b/ksp/ship2.table
index 41fcba04..45af212c 100644
--- a/ksp/ship2.table
+++ b/ksp/ship2.table
@@ -1,5 +1,5 @@
 # Number of shapes
-2
+6
 ####################
 # 1-stage, no thrust
 ####################
@@ -150,3 +150,405 @@ UP
 UP
 UP
 STOP
+####################
+# 2-stage, no thrust
+####################
+START
+# Get to edge
+NLT
+NLT
+NLT
+UP
+UP
+UP
+UP
+# Extra
+UP
+UP
+UP
+UP
+# Start on Capsule
+UP
+RT
+UP
+RT
+UP
+RT
+RT
+DN
+RT
+DN
+RT
+DN
+# TANK AGAIN
+DN
+DN
+DN
+DN
+# TANK TWO
+DN
+DN
+DN
+DN
+# TANK THREE
+DN
+DN
+DN
+DN
+# TANK FOUR
+DN
+DN
+DN
+DN
+LT
+LT
+LT
+LT
+RT
+RT
+# BELL
+DN
+RT
+DN
+RT
+DN
+LT
+LT
+LT
+LT
+LT
+LT
+UP
+RT
+UP
+RT
+UP
+# TANK AGAIN
+LT
+LT
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+STOP
+####################
+# 2-stage, thrusting
+####################
+START
+# Get to edge
+NLT
+NLT
+NLT
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+# Start on Capsule
+UP
+RT
+UP
+RT
+UP
+RT
+RT
+DN
+RT
+DN
+RT
+DN
+# TANK AGAIN
+DN
+DN
+DN
+DN
+# TANK TWO
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+LT
+LT
+LT
+LT
+RT
+RT
+# BELL
+DN
+RT
+DN
+RT
+DN
+LT
+LT
+LT
+LT
+LT
+# FLAME
+NRT
+NRT
+NRT
+NRT
+DN
+LT
+DN
+DN
+DN
+LT
+LT
+UP
+UP
+UP
+LT
+UP
+# Back to bell
+LT
+UP
+RT
+UP
+RT
+UP
+# TANK AGAIN
+LT
+LT
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+STOP
+####################
+# 3-stage, no thrust
+####################
+START
+# Get to edge
+NLT
+NLT
+NLT
+UP
+UP
+UP
+UP
+# Extra
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+# Start on Capsule
+UP
+RT
+UP
+RT
+UP
+RT
+RT
+DN
+RT
+DN
+RT
+DN
+# TANK AGAIN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+# TANK TWO
+DN
+DN
+DN
+DN
+# TANK THREE
+DN
+DN
+DN
+DN
+# TANK FOUR
+DN
+DN
+DN
+DN
+LT
+LT
+LT
+LT
+RT
+RT
+# BELL
+DN
+RT
+DN
+RT
+DN
+LT
+LT
+LT
+LT
+LT
+LT
+UP
+RT
+UP
+RT
+UP
+# TANK AGAIN
+LT
+LT
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+STOP
+####################
+# 3-stage, thrusting
+####################
+START
+# Get to edge
+NLT
+NLT
+NLT
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+# Start on Capsule
+UP
+RT
+UP
+RT
+UP
+RT
+RT
+DN
+RT
+DN
+RT
+DN
+# TANK AGAIN
+DN
+DN
+DN
+DN
+# TANK TWO
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+DN
+LT
+LT
+LT
+LT
+RT
+RT
+# BELL
+DN
+RT
+DN
+RT
+DN
+LT
+LT
+LT
+LT
+LT
+# FLAME
+NRT
+NRT
+NRT
+NRT
+DN
+LT
+DN
+DN
+DN
+LT
+LT
+UP
+UP
+UP
+LT
+UP
+# Back to bell
+LT
+UP
+RT
+UP
+RT
+UP
+# TANK AGAIN
+LT
+LT
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+UP
+STOP