From 68acc77c2c2b83d8dc8e99d0a06dca7d4df6e124 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Thu, 26 May 2016 23:59:23 -0400
Subject: [PATCH] ksp: a few fixes in orbit mode

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

diff --git a/ksp/ksp.bas b/ksp/ksp.bas
index f4285115..7c626647 100644
--- a/ksp/ksp.bas
+++ b/ksp/ksp.bas
@@ -42,8 +42,9 @@
 4000 REM ** LOOP **
 4002 IF LN=0 GOTO 5032
 4003 RR=RA-KR
-4004 IF RR>1800 OR OM=1 THEN GOTO 4012
-4005 HCOLOR=0:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
+4004 IF OM=1 GOTO 4018
+4005 IF RR>1800 OR OM=1 THEN GOTO 4012
+4007 HCOLOR=0:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
 4010 H=RR/20:HCOLOR=1:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
 4012 IF RR<40000 AND CQ<>0 THEN GOSUB 7600
 4014 IF RR<40000 GOTO 4018
@@ -90,14 +91,11 @@
 6075 IF S<1 THEN S=1
 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:HPLOT HX,HY
+6095 IF OM=1 THEN HX=INT(RX/25000)+140:HY=INT(-RY/25000)+85:HCOLOR=3:HPLOT HX,HY
 6118 T=T+1
 6200 GOTO 4000
-6300 IF OM=1 GOTO 6400
-6310 OM=1
-6320 PRINT:PRINT CHR$(4);"BLOAD GLOBE.HGR,A$2000"
-6330 GOTO 6095
-6400 OM=0:CQ=-1:GOTO 4000
+6300 IF OM=1 THEN OM=0:CQ=-1:GOTO 4000
+6310 OM=1:HOME:PRINT:PRINT CHR$(4);"BLOAD GLOBE.HGR,A$2000":GOTO 6095
 7200 DATA 6,0,14,0,42,0,77,0,113,0
 7201 DATA 156,0,200,0,219,36,36,44,44,44
 7202 DATA 53,53,53,54,54,54,54,63,63,45