Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-25 20:30:31 +00:00
Code Issues Projects Releases Wiki Activity

ksp: move to new comments and optimize through end of VAB

Browse Source 
size now 7160
This commit is contained in:
Vince Weaver 2016-05-31 12:49:57 -04:00
parent 010e5766c9
commit df23f09cc6
1 changed files with 37 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

81
ksp/ksp.bas
View File

@ -15,10 +15,16 @@
' as well as slow down execution as BASIC is interpreted. ' as well as slow down execution as BASIC is interpreted.
' '
' Variable List: (Note, in Applesoft only first 2 chars matters) ' Variable List: (Note, in Applesoft only first 2 chars matters)
' D$ = ASCII(4) indicating we have a DOS command ' D$ = ASCII(4) indicating we have a DOS command
' I = loop iterator ' EN() = engines per stage
' J = loop iterator ' FT() = fuel tanks per stack
' S = Stage Number ' I = loop iterator
' J = loop iterator
' P = number of parachutes
' S = Current Stage Number
' SR = Number of struts
' SS = Number of stages
' ST() = Stacks per stage
' '
' Clear screen ' Clear screen
10 HOME:HGR:D$=CHR$(4) 10 HOME:HGR:D$=CHR$(4)
@ -77,46 +83,33 @@
' ******************* ' *******************
'**** REM *** Point to shape table location and load in VAB table '**** REM *** Point to shape table location and load in VAB table
1000 POKE 232,0:POKE 233,16 1000 POKE 232,0:POKE 233,16
1015 PRINT:PRINT CHR$(4);"BLOAD VAB.SHAPE,A$1000" 1015 PRINT:PRINT D$"BLOAD VAB.SHAPE,A$1000"
1020 REM POKE 232,199: POKE 233,31 1035 HGR : ROT= 0: SCALE= 2
1030 REM FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L 1037 PRINT D$"BLOAD VAB.HGR,A$2000"
1035 HGR : ROT= 0: SCALE= 2 1150 X=132:Y=28
1037 PRINT CHR$(4);"BLOAD VAB.HGR,A$2000" 1155 XDRAW 1 AT X,Y+2
1150 X=132:Y=28 1200 HOME: INVERSE : VTAB 21: HTAB 7: PRINT " VEHICLE ASSEMBLY BUILDING "
1155 XDRAW 1 AT X,Y+2 1205 NORMAL:PRINT:PRINT "HOW MANY STAGES? (1-3)";:INPUT S
1200 HOME 1230 FOR I = 1 TO S
1205 INVERSE : VTAB 21: HTAB 7 1240 PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)";:INPUT T:ST(I) = T
1207 PRINT " VEHICLE ASSEMBLY BUILDING " 1260 PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)";
1208 NORMAL 1265 INPUT F: FT(I) = F
1209 PRINT 1268 FOR J = 1 TO F
1220 PRINT "HOW MANY STAGES? (1-3)"; 1270 XDRAW 2 AT X, Y+13*J
1225 INPUT S 1272 IF T >1 THEN XDRAW 2 AT X-14, Y+13*J
1230 FOR I = 1 TO S 1274 IF T >2 THEN XDRAW 2 AT X+14, Y+13*J
1240 PRINT "HOW MANY STACKS, STAGE ";I;" (1-3)"; 1278 NEXT J
1245 INPUT T 1279 Y=Y+13*F
1247 ST(I) = T 1280 PRINT "HOW MANY ENGINES, STAGE ";I;" (1-";T;")";:INPUT E
1260 PRINT "HOW MANY FUEL TANKS PER STACK, STAGE ";I;" (1-2)"; 1285 EN(I) = E
1265 INPUT F 1290 XDRAW 1 AT X, Y+8
1267 FT(I) = F 1292 IF E >1 THEN XDRAW 1 AT X-14, Y+8
1268 FOR J = 1 TO F 1294 IF E >2 THEN XDRAW 1 AT X+14, Y+8
1270 XDRAW 2 AT X, Y+13*J 1297 Y=Y+6
1272 IF T >1 THEN XDRAW 2 AT X-14, Y+13*J 1300 NEXT I
1274 IF T >2 THEN XDRAW 2 AT X+14, Y+13*J 1330 PRINT "HOW MANY PARACHUTES? (0-3)";:INPUT P
1278 NEXT J 1350 PRINT "HOW MANY STRUTS? (0-20000)";:INPUT SR
1279 Y=Y+13*F 1370 SS=S
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
1330 PRINT "HOW MANY PARACHUTES? (0-3)";
1340 INPUT P
1350 PRINT "HOW MANY STRUTS? (0-20000)";
1360 INPUT SR
1370 SS=S
1500 REM *** ASTRONAUT COMPLEX *** 1500 REM *** ASTRONAUT COMPLEX ***
1505 TEXT: HOME 1505 TEXT: HOME
1510 HTAB 11 1510 HTAB 11