Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-05-28 17:41:29 +00:00
Code Issues Projects Releases Wiki Activity

ksp: update the VAB sequence

Browse Source
This commit is contained in:
Vince Weaver 2016-05-24 13:40:57 -04:00
parent 5af7b2b906
commit 9159c6d6cc
4 changed files with 52 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ksp/Makefile
View File

@ -12,11 +12,12 @@ VAB.BAS: vab.bas
LOADING.BAS: loading.bas
$(TXT2BAS) < loading.bas > LOADING.BAS
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS
ksp.dsk: LOADING.HGR SQUAD.HGR TITLE.HGR LOADING.BAS VAB.BAS VAB.HGR
$(DOS33) -y ksp.dsk SAVE B LOADING.HGR
$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
$(DOS33) -y ksp.dsk SAVE B TITLE.HGR
$(DOS33) -y ksp.dsk SAVE A VAB.BAS
$(DOS33) -y ksp.dsk SAVE B VAB.HGR
$(DOS33) -y ksp.dsk SAVE A LOADING.BAS
@ -29,5 +30,8 @@ SQUAD.HGR: squad.pcx
TITLE.HGR: title.pcx
$(PCX2HGR) title.pcx > TITLE.HGR
VAB.HGR: vab.pcx
$(PCX2HGR) vab.pcx > VAB.HGR
clean:
rm -f *~ *.HGR

BIN
ksp/loading.pcx
View File

Binary file not shown.

BIN
ksp/title.pcx
View File

Binary file not shown.

89
ksp/vab.bas
View File

@ -1,42 +1,47 @@
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
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$