mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-07-13 22:29:14 +00:00
27 lines
832 B
QBasic
27 lines
832 B
QBasic
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
|