From 89ed5e98a6bf644162e2efab13f26602760f061b Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Fri, 27 May 2016 01:56:27 -0400
Subject: [PATCH] ksp: working demo!

---
 ksp/ksp.bas | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/ksp/ksp.bas b/ksp/ksp.bas
index 05ba44e8..8661a71d 100644
--- a/ksp/ksp.bas
+++ b/ksp/ksp.bas
@@ -195,16 +195,19 @@
 6066 IF A$="X" THEN TR=0
 6067 IF A$="M" AND OM=1 THEN OM=0:CQ=-1:GOTO 4000
 6068 IF A$="M" AND OM=0 THEN OM=1:HOME:PRINT:PRINT CHR$(4);"BLOAD GLOBE.HGR,A$2000":GOTO 6095
-6070 IF A$=" " AND LN=1 THEN S=S-1:XX=PEEK(-16336)
+6070 IF A$=" " AND LN=1 THEN S=S-1:XX=PEEK(-16336):IF S<1 THEN S=1
 6071 IF A$=" " AND LN=0 THEN GOSUB 7500
 6072 IF A$="E" THEN GOSUB 8100
 6073 IF R=64 THEN R=0:AN=0
 6074 IF R=-8 THEN R=56
-6075 IF S<1 THEN S=1
+6075 IF OM<>1 THEN GOSUB 8200
+6076 IF OM<>1 AND R>20 AND R<48 THEN GOSUB 8210:GOTO 6080
+6076 IF OM<>1 AND VY>100 THEN GOSUB 8220
 6080 ROT=R
 6090 IF OM<>1 THEN XDRAW 1+((S-1)*2)+TR AT 140,80
 6095 IF OM=1 THEN HX=INT(RX/25000)+140:HY=INT(-RY/25000)+85:HCOLOR=3:HPLOT HX,HY
-6118 T=T+1
+6118 T=T+1:EC=EC+1
+6150 IF OM<>1 AND EC>30 THEN EC=0:GOSUB 8100
 6200 GOTO 4000
 7500 REM *** LAUNCH ***
 7510 HCOLOR=0:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70