ksp: add contract

ksp/Makefile

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

ksp/TODO

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

ksp/contract.bas

@@ -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