mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-04 18:29:30 +00:00
25 lines
940 B
QBasic
25 lines
940 B
QBasic
1500 REM *** ASTRONAUT COMPLEX ***
|
|
1505 TEXT: HOME
|
|
1510 HTAB 11
|
|
1515 INVERSE: PRINT "ASTRONAUT COMPLEX": NORMAL
|
|
1520 PRINT
|
|
1522 PRINT "CHOOSE ONE KERBAL FOR THIS MISSION:"
|
|
1525 PRINT
|
|
1530 FOR I=1 TO 8
|
|
1540 IF AD(I) GOTO 1600
|
|
1550 ON I GOSUB 1641,1642,1643,1644,1645,1646,1647,1648
|
|
1560 PRINT " ";I;". ";AN$,AJ$;" S: ";AS$;" C: ";AC$
|
|
1600 NEXT I
|
|
1605 PRINT
|
|
1610 INPUT W
|
|
1615 IF W<1 OR W>8 THEN PRINT "INVALID INPUT, PLEASE TRY AGAIN!": GOTO 1610
|
|
1630 END
|
|
1641 AN$="JEBEDIAH" :AJ$="PILOT":AS$="****":AC$="****":RETURN
|
|
1642 AN$="VALENTINA":AJ$="PILOT":AS$="****":AC$="****":RETURN
|
|
1643 AN$="KAI" :AJ$="SCI ":AS$="*** ":AC$="***":RETURN
|
|
1644 AN$="KUROSHIN" :AJ$="ENGR ":AS$="** ":AC$="*":RETURN
|
|
1645 AN$="DESKTOP" :AJ$="ENGR ":AS$="* ":AC$="***":RETURN
|
|
1646 AN$="SLASHDOT" :AJ$="SCI ":AS$="*** ":AC$="*":RETURN
|
|
1647 AN$="ZURGTROYD":AJ$="PILOT":AS$="** ":AC$="***":RETURN
|
|
1648 AN$="DAPHTY" :AJ$="ENGR ":AS$="*** ":AC$="***":RETURN
|