ZX81 Listing for startrek.p


ZX81 program listing for **STAR TREK**SLR/1983**

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18403
VARS  : 19196
E-LINE: 19197
STKBOT: 19197
STKEND: 19197

LEGEND

9999 is a line number
PRINT is keyword P


PROGRAM LISTING

  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