mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-15 04:28:56 +00:00
43 lines
1.1 KiB
QBasic
43 lines
1.1 KiB
QBasic
|
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
|