Can you defeat the Klingons in this Star Trek inspired game.
PROG : 16509
D-FILE: 18403
VARS : 19196
E-LINE: 19197
STKBOT: 19197
STKEND: 19197
9999 means line number
PRINT means treat as KEYWORD P
10 REM **STAR TREK**SLR/1983**
20 LET K=3
30 PRINT "YOU ARE COMMANDING T
HE USS EN- TERPRISE. YOU ARE ON
A MISSION TO SAVE THE EARTH FR
OM THE KLINGONS. CAN YOU DO
IT?"
40 PRINT ,,,,"SIMPLY ANSWER QU
ESTIONS ASKED AND WATCH THE RE
SULTS."
50 PRINT ,,,"GOOD LUCK*"
60 PAUSE 100
70 PRINT "YOU ARE AT THE KLING
ON BORDER. WHAT DO YOU DO?"
80 PRINT "1)STAY 2)GO IN 3)SIG
NAL FOR OR- DERS."
90 INPUT A
100 IF A=1 THEN GOTO 130
105 IF A=2 THEN GOTO 150
110 PRINT "STAR FLEET TELLS YOU
TO GO IN."
120 PAUSE 100
125 CLS
126 GOTO 150
130 PRINT "YOU PICK UP A SIGNAL
."
140 GOTO 110
150 PAUSE 100
155 CLS
156 PRINT "YOU SEE ";K;" KLINGO
NS."
160 PRINT "DO YOU SHOOT(S), STA
Y(ST) OR MOVE(M)?"
170 INPUT A$
180 IF A$="S" THEN GOTO 210
190 IF A$="ST" THEN GOTO 255
200 IF A$="M" THEN GOTO 320
210 GOSUB 450
220 PRINT "YOU MISSED."
230 GOTO 255
240 PRINT "YOU HIT."
250 LET K=K-1
251 IF K=0 THEN GOTO 500
255 LET S=INT (20*RND)
260 IF S>=13 THEN GOTO 290
270 PRINT "THEY MISSED"
280 GOTO 150
290 PRINT "YOU""VE BEEN HIT."
300 PRINT ,,,,"YOU ARE DEAD. ST
AR FLEET NOTES THE LOSS AND NOT
IFIES RELATIVES."
310 GOTO 600
320 PRINT "TO MOVE, PICK SPEED
AND WATCH THE RESULTS."
330 PRINT "1)LOW IMPULS 2)IMPUL
S 3)HIGH IMPULS 4) WARP DRIVE
"
340 INPUT D
350 IF D=1 THEN GOTO 390
355 IF D=2 THEN GOTO 410
360 IF D=3 THEN GOTO 400
370 PRINT "YOU""RE IN WARP DRIV
E AND LOST CONTACT WITH THE KL
INGONS."
375 GOTO 500
390 PRINT "YOU ARE IN LOW IMPUL
S."
400 GOTO 150
410 PRINT "YOU ARE IN IMPULS."
420 GOTO 150
430 PRINT "YOU ARE IN HIGH IMPU
LS AND LOST CONTACT WITH KLINGON
."
440 GOTO 500
450 LET S=INT (20*RND)
460 IF S>=10 THEN GOTO 240
470 RETURN
500 PAUSE 100
510 CLS
520 IF K<>0 THEN GOTO 540
530 PRINT "KLINGONS DESTROYED."
535 PRINT ,,"YOU WIN****"
537 GOTO 600
540 PRINT K;" KLINGON";("S"
AND K<>1);" LEFT."
545 PRINT ,,,,"STAR FLEET CONSE
DERS YOU A DES- SERTER. YOU ARE
AN OUTCAST, NEVER TO RETURN.
"
550 GOTO 600
560 SAVE "STAR.TREK"
570 RUN
600 PRINT " PRESS A KEY TO PLA
Y AGAIN... "
610 PAUSE 4E4
620 IF INKEY$="" THEN GOTO 620
630 CLS
640 RUN