diff --git a/ksp/Makefile b/ksp/Makefile
index b63f1398..8ecf705c 100644
--- a/ksp/Makefile
+++ b/ksp/Makefile
@@ -12,11 +12,12 @@ VAB.BAS:	vab.bas
 LOADING.BAS:	loading.bas
 	$(TXT2BAS) < loading.bas > LOADING.BAS
 
-ksp.dsk:	LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS
+ksp.dsk:	LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS VAB.HGR
 	$(DOS33) -y ksp.dsk SAVE B LOADING.HGR
 	$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
 	$(DOS33) -y ksp.dsk SAVE B TITLE.HGR
 	$(DOS33) -y ksp.dsk SAVE A VAB.BAS
+	$(DOS33) -y ksp.dsk SAVE B VAB.HGR
 	$(DOS33) -y ksp.dsk SAVE A LOADING.BAS
 
 
@@ -29,5 +30,8 @@ SQUAD.HGR:	squad.pcx
 TITLE.HGR:	title.pcx
 	$(PCX2HGR) title.pcx > TITLE.HGR
 
+VAB.HGR:	vab.pcx
+	$(PCX2HGR) vab.pcx > VAB.HGR
+
 clean:	
 	rm -f *~ *.HGR
diff --git a/ksp/loading.pcx b/ksp/loading.pcx
index fb5cfa9d..2bc83bf9 100644
Binary files a/ksp/loading.pcx and b/ksp/loading.pcx differ
diff --git a/ksp/title.pcx b/ksp/title.pcx
index 720a37b7..4943f40c 100644
Binary files a/ksp/title.pcx and b/ksp/title.pcx differ
diff --git a/ksp/vab.bas b/ksp/vab.bas
index b0b02635..59389fd2 100644
--- a/ksp/vab.bas
+++ b/ksp/vab.bas
@@ -1,42 +1,47 @@
-  10  HIMEM: 8135
-  20  POKE 232,199: POKE 233,31
-  30  FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
-  35  HGR : ROT= 0: SCALE= 2
-  40  GOTO 150
-  90  END 
- 100  DATA  3,0,8,0,18,0,33,0,53,53
- 101  DATA  53,63,63,63,44,44,44,0,0,40
- 102  DATA  45,54,54,54,63,63,63,36,36,36
- 103  DATA  45,5,0,40,53,55,63,60,44,5
- 104  DATA  0
- 150  XDRAW 1 AT 140,20 
- 155 Y=18
- 200  HOME
- 205  INVERSE : VTAB  21: HTAB 8
- 207  PRINT "VEHICLE ASSEMBLY BUILDING"
- 208  NORMAL 
- 220  PRINT "HOW MANY STAGES? (1-3)";
- 225  INPUT S
- 230  FOR I = 1 TO S
- 240  PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)";
- 245  INPUT T
- 247 ST(I) = T
- 260  PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)";
- 265  INPUT F
- 267 FT(I) = F
- 268  FOR J = 1 TO F
- 270  XDRAW 2 AT 140, Y+13*J
- 272  IF T >1 THEN XDRAW 2 AT 126, Y+13*J
- 274  IF T >2 THEN XDRAW 2 AT 154, Y+13*J
- 278  NEXT J
- 279  Y=Y+13*F
- 280  PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")";
- 285  INPUT E
- 287 EN(I) = E
- 290 XDRAW 1 AT 140, Y+8
- 292  IF E >1 THEN XDRAW 1 AT 126, Y+8
- 294  IF E >2 THEN XDRAW 1 AT 154, Y+8
- 297 Y=Y+6
- 300  NEXT I
- 510  PRINT "HOW MANY STRUTS? (1-20000)";
- 520 INPUT ST
+1000  REM *** VAB ***
+1010  HIMEM: 8135
+1020  POKE 232,199: POKE 233,31
+1030  FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
+1035  HGR : ROT= 0: SCALE= 2
+1037  PRINT CHR$(4);"BLOAD VAB.HGR,A$2000"
+1040  GOTO 1150
+1090  END 
+1100  DATA  3,0,8,0,18,0,33,0,53,53
+1101  DATA  53,63,63,63,44,44,44,0,0,40
+1102  DATA  45,54,54,54,63,63,63,36,36,36
+1103  DATA  45,5,0,40,53,55,63,60,44,5
+1104  DATA  0
+1150  X=132:Y=28
+1155  XDRAW 1 AT X,Y+2 
+1200  HOME
+1205  INVERSE : VTAB  21: HTAB 7
+1207  PRINT " VEHICLE ASSEMBLY BUILDING "
+1208  NORMAL 
+1209  PRINT
+1220  PRINT "HOW MANY STAGES? (1-3)";
+1225  INPUT S
+1230  FOR I = 1 TO S
+1240  PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)";
+1245  INPUT T
+1247 ST(I) = T
+1260  PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)";
+1265  INPUT F
+1267 FT(I) = F
+1268  FOR J = 1 TO F
+1270  XDRAW 2 AT X, Y+13*J
+1272  IF T >1 THEN XDRAW 2 AT X-14, Y+13*J
+1274  IF T >2 THEN XDRAW 2 AT X+14, Y+13*J
+1278  NEXT J
+1279  Y=Y+13*F
+1280  PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")";
+1285  INPUT E
+1287 EN(I) = E
+1290 XDRAW 1 AT X, Y+8
+1292  IF E >1 THEN XDRAW 1 AT X-14, Y+8
+1294  IF E >2 THEN XDRAW 1 AT X+14, Y+8
+1297 Y=Y+6
+1300  NEXT I
+1310  PRINT "HOW MANY STRUTS? (1-20000)";
+1320 INPUT ST
+1330  PRINT "PARACHUTES? (Y/N)";
+1340 INPUT P$