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
1330  PRINT "HOW MANY PARACHUTES? (0-3)";
1340 INPUT P
1350  PRINT "HOW MANY STRUTS? (0-20000)";
1360 INPUT SR