Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-01-13 07:29:54 +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 LOADING.BAS: loading.bas
$(TXT2BAS) < 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 LOADING.HGR
$(DOS33) -y ksp.dsk SAVE B SQUAD.HGR $(DOS33) -y ksp.dsk SAVE B SQUAD.HGR
$(DOS33) -y ksp.dsk SAVE B TITLE.HGR $(DOS33) -y ksp.dsk SAVE B TITLE.HGR
$(DOS33) -y ksp.dsk SAVE A VAB.BAS $(DOS33) -y ksp.dsk SAVE A VAB.BAS
$(DOS33) -y ksp.dsk SAVE B VAB.HGR
$(DOS33) -y ksp.dsk SAVE A LOADING.BAS $(DOS33) -y ksp.dsk SAVE A LOADING.BAS
@ -29,5 +30,8 @@ SQUAD.HGR: squad.pcx
TITLE.HGR: title.pcx TITLE.HGR: title.pcx
$(PCX2HGR) title.pcx > TITLE.HGR $(PCX2HGR) title.pcx > TITLE.HGR
VAB.HGR: vab.pcx
$(PCX2HGR) vab.pcx > VAB.HGR
clean: clean:
rm -f *~ *.HGR 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 1000 REM *** VAB ***
20 POKE 232,199: POKE 233,31 1010 HIMEM: 8135
30 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L 1020 POKE 232,199: POKE 233,31
35 HGR : ROT= 0: SCALE= 2 1030 FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
40 GOTO 150 1035 HGR : ROT= 0: SCALE= 2
90 END 1037 PRINT CHR$(4);"BLOAD VAB.HGR,A$2000"
100 DATA 3,0,8,0,18,0,33,0,53,53 1040 GOTO 1150
101 DATA 53,63,63,63,44,44,44,0,0,40 1090 END
102 DATA 45,54,54,54,63,63,63,36,36,36 1100 DATA 3,0,8,0,18,0,33,0,53,53
103 DATA 45,5,0,40,53,55,63,60,44,5 1101 DATA 53,63,63,63,44,44,44,0,0,40
104 DATA 0 1102 DATA 45,54,54,54,63,63,63,36,36,36
150 XDRAW 1 AT 140,20 1103 DATA 45,5,0,40,53,55,63,60,44,5
155 Y=18 1104 DATA 0
200 HOME 1150 X=132:Y=28
205 INVERSE : VTAB 21: HTAB 8 1155 XDRAW 1 AT X,Y+2
207 PRINT "VEHICLE ASSEMBLY BUILDING" 1200 HOME
208 NORMAL 1205 INVERSE : VTAB 21: HTAB 7
220 PRINT "HOW MANY STAGES? (1-3)"; 1207 PRINT " VEHICLE ASSEMBLY BUILDING "
225 INPUT S 1208 NORMAL
230 FOR I = 1 TO S 1209 PRINT
240 PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)"; 1220 PRINT "HOW MANY STAGES? (1-3)";
245 INPUT T 1225 INPUT S
247 ST(I) = T 1230 FOR I = 1 TO S
260 PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)"; 1240 PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)";
265 INPUT F 1245 INPUT T
267 FT(I) = F 1247 ST(I) = T
268 FOR J = 1 TO F 1260 PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)";
270 XDRAW 2 AT 140, Y+13*J 1265 INPUT F
272 IF T >1 THEN XDRAW 2 AT 126, Y+13*J 1267 FT(I) = F
274 IF T >2 THEN XDRAW 2 AT 154, Y+13*J 1268 FOR J = 1 TO F
278 NEXT J 1270 XDRAW 2 AT X, Y+13*J
279 Y=Y+13*F 1272 IF T >1 THEN XDRAW 2 AT X-14, Y+13*J
280 PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")"; 1274 IF T >2 THEN XDRAW 2 AT X+14, Y+13*J
285 INPUT E 1278 NEXT J
287 EN(I) = E 1279 Y=Y+13*F
290 XDRAW 1 AT 140, Y+8 1280 PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")";
292 IF E >1 THEN XDRAW 1 AT 126, Y+8 1285 INPUT E
294 IF E >2 THEN XDRAW 1 AT 154, Y+8 1287 EN(I) = E
297 Y=Y+6 1290 XDRAW 1 AT X, Y+8
300 NEXT I 1292 IF E >1 THEN XDRAW 1 AT X-14, Y+8
510 PRINT "HOW MANY STRUTS? (1-20000)"; 1294 IF E >2 THEN XDRAW 1 AT X+14, Y+8
520 INPUT ST 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$