mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-12-27 02:31:00 +00:00
48 lines
1.2 KiB
QBasic
48 lines
1.2 KiB
QBasic
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$
|