Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-04 14:35:41 +00:00
Code Issues Projects Releases Wiki Activity

ksp: add contract

Browse Source
This commit is contained in:
Vince Weaver 2016-05-26 11:59:57 -04:00
parent 6bda814d02
commit 82e52ea8d5
3 changed files with 34 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ksp/Makefile
View File

@ -4,11 +4,12 @@ TXT2BAS = ../asoft_basic-utils/tokenize_asoft
all: ksp.dsk all: ksp.dsk
basic: VAB.BAS THEME.BAS
ACMPLX.BAS: acmplx.bas ACMPLX.BAS: acmplx.bas
$(TXT2BAS) < acmplx.bas > ACMPLX.BAS $(TXT2BAS) < acmplx.bas > ACMPLX.BAS
CONTRACT.BAS: contract.bas
$(TXT2BAS) < contract.bas > CONTRACT.BAS
FLIGHT.BAS: flight.bas FLIGHT.BAS: flight.bas
$(TXT2BAS) < flight.bas > FLIGHT.BAS $(TXT2BAS) < flight.bas > FLIGHT.BAS
@ -27,6 +28,7 @@ VAB.BAS: vab.bas
ksp.dsk: ACMPLX.BAS \ ksp.dsk: ACMPLX.BAS \
CONTRACT.BAS \
FLIGHT.BAS \ FLIGHT.BAS \
LAUNCH.BAS GLOBE.HGR LAUNCHPAD.HGR ORBIT_TOP.HGR ORBIT_RIGHT.HGR \ LAUNCH.BAS GLOBE.HGR LAUNCHPAD.HGR ORBIT_TOP.HGR ORBIT_RIGHT.HGR \
LOADING.BAS LOADING.HGR SQUAD.HGR TITLE.HGR \ LOADING.BAS LOADING.HGR SQUAD.HGR TITLE.HGR \
@ -46,6 +48,7 @@ ksp.dsk: ACMPLX.BAS \
$(DOS33) -y ksp.dsk SAVE B ORBIT_TOP.HGR $(DOS33) -y ksp.dsk SAVE B ORBIT_TOP.HGR
$(DOS33) -y ksp.dsk SAVE A PHYSICS.BAS $(DOS33) -y ksp.dsk SAVE A PHYSICS.BAS
$(DOS33) -y ksp.dsk SAVE A FLIGHT.BAS $(DOS33) -y ksp.dsk SAVE A FLIGHT.BAS
$(DOS33) -y ksp.dsk SAVE A CONTRACT.BAS
LAUNCHPAD.HGR: launchpad.pcx LAUNCHPAD.HGR: launchpad.pcx

3
ksp/TODO Normal file
View File

@ -0,0 +1,3 @@
parachutes?
Mun?
stars in background?

26
ksp/contract.bas Normal file
View File

@ -0,0 +1,26 @@
9000 REM *** CONTRACT COMPLETE ***
9010 TEXT:HOME
9020 HTAB 10:VTAB 9
9021 FOR I=1 TO 20: PRINT "*";: NEXT I: PRINT "*"
9023 HTAB 10: PRINT "* ";:INVERSE: PRINT "CONTRACT COMPLETE";:NORMAL: PRINT " *"
9024 HTAB 10: PRINT "* ";
9025 C$="CRASH SHIP":F$="3 ":E$="-1"
9026 L=10-(LEN(C$))/2
9027 HTAB 10+L:PRINT C$;:HTAB 30: PRINT "*"
9030 HTAB 10:PRINT "* FUNDS ";F$;:HTAB 30: PRINT "*"
9030 HTAB 10:PRINT "* EXPERIENCE ";E$;:HTAB 30: PRINT "*"
9040 HTAB 10
9042 FOR I=1 TO 20: PRINT "*";: NEXT I:PRINT "*"
9100 VTAB 16
9110 PRINT "NOW WHAT?"
9120 PRINT " 1. RETURN TO THE VAB"
9130 PRINT " 2. RETURN TO ASTRO COMPLEX"
9140 PRINT " 3. RETURN TO LAUNCH"
9150 PRINT " 4. QUIT GAME"
9160 PRINT "---> ";
9170 GET A$
9171 IF A$="1" GOTO 1
9172 IF A$="2" GOTO 2
9173 IF A$="3" GOTO 3
9174 IF A$="4" OR A$="Q" GOTO 4
9175 GOTO 9160