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