dos33fsprogs/ksp/vab.bas
2016-05-24 13:40:57 -04:00

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$