From 50e4256961bff5bf7639304a657486ecaaf1201e Mon Sep 17 00:00:00 2001
From: Vince Weaver <vincent.weaver@maine.edu>
Date: Thu, 26 May 2016 16:41:04 -0400
Subject: [PATCH] ksp: minor fixes and variable collisions

---
 ksp/c/ksp_launch.c | 5 ++++-
 ksp/vab.bas        | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/ksp/c/ksp_launch.c b/ksp/c/ksp_launch.c
index 794cbedc..71b83c7d 100644
--- a/ksp/c/ksp_launch.c
+++ b/ksp/c/ksp_launch.c
@@ -109,12 +109,15 @@ int main(int argc, char **argv) {
 	engines[1]=2; stacks[1]=2; tanks[1]=1;
 	engines[2]=3; stacks[2]=3; tanks[2]=1;
 
+	/* 1000 */
 	for(i=0;i<stages;i++) {
-		stage_empty_mass[i]=(engines[i]*1.5)+(stacks[i]*tanks[i]*0.5)+capsule_mass;/* tons */
+		stage_empty_mass[i]=(engines[i]*1.5)+(stacks[i]*tanks[i]*0.5);
+		if (i==0) stage_empty_mass[i]+=capsule_mass;/* tons */
 		fuel_mass[i]=(stacks[i]*tanks[i]*4.0);
 		stage_fuel_total[i]=fuel_mass[i];
 		stage_full_mass[i]=stage_empty_mass[i]+fuel_mass[i];
 
+		/* 1020 */
 		total_mass[i]=0.0;
 		for(j=i;j>=0;j--) {
 			total_mass[i]+=stage_full_mass[j];
diff --git a/ksp/vab.bas b/ksp/vab.bas
index abc71423..232bd9bf 100644
--- a/ksp/vab.bas
+++ b/ksp/vab.bas
@@ -44,4 +44,4 @@
 1330  PRINT "HOW MANY PARACHUTES? (0-3)";
 1340 INPUT P
 1350  PRINT "HOW MANY STRUTS? (0-20000)";
-1360 INPUT ST
+1360 INPUT SR