From 0a61eda28244470c37d4d04b85a0f2361c9d40b8 Mon Sep 17 00:00:00 2001
From: Vince Weaver <vince@deater.net>
Date: Wed, 25 May 2016 23:09:37 -0400
Subject: [PATCH] ksp: add map view

---
 ksp/Makefile    |   6 +++++-
 ksp/acmplx.bas  |   4 ++--
 ksp/globe.pcx   | Bin 0 -> 3689 bytes
 ksp/physics.bas |  32 +++++++++++++++++++-------------
 4 files changed, 26 insertions(+), 16 deletions(-)
 create mode 100644 ksp/globe.pcx

diff --git a/ksp/Makefile b/ksp/Makefile
index deb12204..d8900fe3 100644
--- a/ksp/Makefile
+++ b/ksp/Makefile
@@ -24,7 +24,7 @@ VAB.BAS:	vab.bas
 
 
 ksp.dsk:	ACMPLX.BAS \
-		LAUNCH.BAS \
+		LAUNCH.BAS GLOBE.HGR \
 		LOADING.BAS LOADING.HGR SQUAD.HGR TITLE.HGR \
 		PHYSICS.BAS \
 		VAB.BAS VAB.HGR
@@ -36,9 +36,13 @@ ksp.dsk:	ACMPLX.BAS \
 	$(DOS33) -y ksp.dsk SAVE A LOADING.BAS
 	$(DOS33) -y ksp.dsk SAVE A ACMPLX.BAS
 	$(DOS33) -y ksp.dsk SAVE A LAUNCH.BAS
+	$(DOS33) -y ksp.dsk SAVE B GLOBE.HGR
 	$(DOS33) -y ksp.dsk SAVE A PHYSICS.BAS
 
 
+GLOBE.HGR:	globe.pcx
+	$(PCX2HGR) globe.pcx > GLOBE.HGR
+
 LOADING.HGR:	loading.pcx
 	$(PCX2HGR) loading.pcx > LOADING.HGR
 
diff --git a/ksp/acmplx.bas b/ksp/acmplx.bas
index 2c7e91d5..1a72fe7d 100644
--- a/ksp/acmplx.bas
+++ b/ksp/acmplx.bas
@@ -7,8 +7,8 @@
 1525 PRINT
 1530 FOR I=1 TO 8
 1540 IF AD(I) GOTO 1600
-1560 ON I GOSUB 1641,1642,1643,1644,1645,1646,1647,1648
-1550 PRINT " ";I;". ";AN$,AJ$;" S: ";AS$;" C: ";AC$
+1550 ON I GOSUB 1641,1642,1643,1644,1645,1646,1647,1648
+1560 PRINT " ";I;". ";AN$,AJ$;" S: ";AS$;" C: ";AC$
 1600 NEXT I
 1605 PRINT
 1610 INPUT W
diff --git a/ksp/globe.pcx b/ksp/globe.pcx
new file mode 100644
index 0000000000000000000000000000000000000000..2bc1f290c20940b513f3f096f252cf846050c41a
GIT binary patch
literal 3689
zcmeH}TW%9U5JkIZ1_>elLCO}gBX-7Sko<}tI1dC!Ab!|GVq(W+IH$VD{*K5G$o9;*
zyQ=Q3+tt-0zj~2hCO&WShjgCLv*Ray^4t7$&@n@w%J)b8?bB&=s)0T6oPDrNIW>}A
zMVn2S<|dE*DfU&^M^2|H&j#~6%o+PQHG%RGOfy`MOsexDWq_uba__^O+64hEkV(Oe
zaXpBcrUt@`@G%fJ;@$~s#ayQr5!#D6;)&!Md1dnHop9d^@H<QGI>hVI-h^lXuCxtm
z9+T9PU-f<Z6<8E~uOjytHyDwK5TK#QwU1LPt0e&?S$ipn3qI7y2NZEki%Ll>!pwXR
z`0vaYb;mlFd*IxVN>+&}v6@3b{%C5#gx{u-{3M-+LQ*r8!tDt15>ZIdLFl!~cY$VI
ze7g`?A2M{INt#6sBSeZWM64qVOtFmZz@*NO^aCIIMO`V#GTz3#c9}I{N2}W9!QIt`
z66?;UyiCnXhC>>0q;b=!gIeAF=o$OTELiZ0c2FYehUU_+`$Miw&2hs*^vVJ5--Elf
zR#c22w1&HEIF;?-hH`+1o3`d;mEsaYSAnEXMco&e@7RuzD^$kA747XJcX|*6)DfJ-
zgmQO$13_$HpFYLZ6cGv}Mnp3&ynwliAX_`C^b;Is<cKR2sv&qGysm*0a}!jxzMiga
zO;g}JKO1e;whI0lB#~5GoZzFL0*d{#yW;GV*6}y)eMkq4trTy_LJGeGL~V+HU6A3i
zV$_sfR8F641zr|)l?O77<t1kCm}f4cV0=?~a(olAlv;>#2z(M2*^MeMNJr24UOw?z
mfm2QY{~EmJFK^%XXYU`+R(bvIZ~ihL|2&^YrwaTl75D>889F!s

literal 0
HcmV?d00001

diff --git a/ksp/physics.bas b/ksp/physics.bas
index 54f61dae..207785e8 100644
--- a/ksp/physics.bas
+++ b/ksp/physics.bas
@@ -1,3 +1,6 @@
+5 HGR:HCOLOR=3
+7 HOME
+10 PRINT CHR$(4);"BLOAD GLOBE.HGR,A$2000"
 3000 AN=0.785
 3001 CM=1
 3002 E=3
@@ -31,14 +34,14 @@
 4025 IF FM<0.1 THEN FM=0:AX=0:AY=0:GOTO 4050
 4030 AX=(ET/TM)*SIN(AN)
 4035 AY=(ET/TM)*COS(AN)
-4037 PRINT "ET=";ET;" TM=";TM
+4037 REM PRINT "ET=";ET;" TM=";TM
 4040 FM=FM-FR
 4045 TM=EM+KM+FM+CM
 4047 GOTO 4060
 4050 REM NOT THRUSTING
 4055 AX=0:AY=0
 4060 GA=ATN(RX/RY)
-4062 PRINT "GA=";GA;" AY=";AY
+4062 REM PRINT "GA=";GA;" AY=";AY
 4065 IF RY<0 THEN GA=GA+3.14
 4070 GY=COS(GA)*G
 4075 GX=SIN(GA)*G
@@ -54,16 +57,19 @@
 5018 RA=SQR(RX*RX+RY*RY)
 5020 IF RA<KR THEN PRINT "CRASH": END
 5030 G=-9.8/((RA/KR)*(RA/KR))
-5035 PRINT "-------------------------"
-5040 PRINT "TIME: ";T
-5050 PRINT "ALT: ";(RA-KR)/1000;"KM","G ";G
-5060 PRINT "VEL: ";V;"M/S","STAGE: ";S
-5070 PRINT "ACCEL: ","FUEL: ";INT(FL);"%"
-5080 PRINT "GRAVANGLE ";GA*180/3.14
-5090 PRINT "X: ";RX;" Y: ";RY
-5100 PRINT "VX: ";VX;" VY: ";VY
-5110 PRINT "ANGLE: ";AN
-5112 PRINT "AX: ";AX;"AY: ";AY
+5031 REM PRINT "-------------------------"
+5032 VTAB 21
+5040 PRINT "TIME: ";T,"STAGE: ";S
+5045 PRINT "ALT: ";INT((RA-KR)/1000);"KM  "
+5060 PRINT "VEL: ";INT(V);"M/S","FUEL: ";INT(FL);"%  "
+5080 REM PRINT "GRAVANGLE ";GA*180/3.14
+5090 REM PRINT "X: ";RX;" Y: ";RY
+5100 REM PRINT "VX: ";VX;" VY: ";VY
+5110 REM PRINT "ANGLE: ";AN
+5112 REM PRINT "AX: ";AX;"AY: ";AY
 5118 T=T+1
 5120 REM GET A$:IF A$="Q" THEN END
-5130 GOTO 4000
+5130 HX=INT(RX/25000)+140:HY=INT(-RY/25000)+85
+5135 REM CHECK BOUNDS
+5140 HPLOT HX,HY
+5150 GOTO 4000