ksp: better space

ksp/TODO

@@ -1,7 +1,7 @@
 parachutes?
 Mun?
-stars in background?
 EVA?
 auto-generated shape tabe for ship based on VAB choices
 more expressive kerbals
 atmospheric drag
+support all four qudrants in space view

ksp/flight.bas

@@ -5,15 +5,17 @@
 7030 FOR L=7925 TO 8175: READ B:POKE L,B:NEXT L
 7032 HGR:ROT=0:SCALE=2:H=0:RA=0
 7035 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000"
-7036 HCOLOR=1:HPLOT 1,80 TO 247,80
+7036 HCOLOR=1:HPLOT 1,80 TO 132,80: HPLOT 148,80 TO 247,80
 7037 HCOLOR=3:HPLOT 110,110 TO 110,60:HPLOT TO 130,60: HPLOT 110,70 TO 130,70
 7039 TH=0:S=2
 7040 XDRAW 1+(S*2)+TH AT 140,80
-7045 IF RA<1800 THEN HCOLOR=0:HPLOT 1,80+H TO 247,80+H:H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 247,80+H
-7046 IF RA<10000 AND CQ<>0 THEN GOSUB 7600
-7047 IF RA<10000 GOTO 7050
-7048 IF RA>10000 AND CQ<>1 THEN GOSUB 7700
-7050 GET A$
+7045 IF RA>1800 THEN GOTO 7053
+7045 HCOLOR=0:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
+7047 H=RA/20:HCOLOR=1:HPLOT 1,80+H TO 132,80+H:HPLOT 148,80+H TO 247,80+H
+7053 IF RA<10000 AND CQ<>0 THEN GOSUB 7600
+7054 IF RA<10000 GOTO 7058
+7055 IF RA>10000 AND CQ<>1 THEN GOSUB 7700
+7058 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
@@ -66,10 +68,12 @@
 7540 RETURN
 7600 REM *** GROUND ***
 7610 PRINT CHR$(4);"BLOAD LAUNCHPAD.HGR,A$2000"
+7615 XDRAW 1+(S*2)+TH AT 140,80
 7620 CQ=0
 7650 RETURN
 7700 REM *** SPACE_UP ***
 7710 PRINT CHR$(4);"BLOAD ORBIT_TOP.HGR,A$2000"
+7715 XDRAW 1+(S*2)+TH AT 140,80
 7720 CQ=1
 7750 RETURN
 8000 REM *** CRASH ***