ZX81 Listing for starprobe.p


ZX81 program listing for **STAR PROBE**SLR/1984*

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 19710
VARS  : 20503
E-LINE: 20504
STKBOT: 20504
STKEND: 20504


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **STAR PROBE**SLR/1984*
  20 CLS
  30 PRINT "S T A R  P R O B E  
SLR-4/20/84"
  40 PRINT ,,,,"  YOU ARE IN THE
 FITH SPIRAL ARMOF OUR GALAXY.  
THE AREA IS OF  A HIGH CONTENT O
F HYDROGEN GAS, UNLIKE LIKE THE 
NORMAL AMOUNT   SCATTERED THROUG
HT THE GALAXY.  YOUR SCANNERS PI
CK UP A SLIGHT  HUM, AS THOUGH A
 WORP DRIVE WAS IN OPERATION.  Y
ET, THATS IL-   LEGAL SINCE WORP
 DRIVES WERE NOTSAFE AND TAKEN O
FFTHE MARKET."
  50 PRINT ,,,,"  UH OH, A MIND 
BEAM HAS HIT YOUAND ERASED YOUR 
ROM BANKS.  YOU DO NOT REMBER HO
W TO USE YOUR   PROBE.  WHAT WIL
L YOU DO."
  60 INPUT A
  70 IF A=1 THEN GOTO 200
  80 IF A=2 THEN PRINT "AN AREA 
SCAN SHOWS NOTHING BUT  SPACE HE
RE.  WHAT USE WAS THAT??"
  90 IF A=3 THEN PRINT "SHIELDS 
UP, BUT WHAT FOR???"
 100 IF A=4 THEN PRINT "LASER FI
RED, BUT WHAT FOR???"
 110 IF A=5 THEN PRINT "MISSION 
ABORTED"
 120 IF A=5 THEN GOTO 620
 130 PRINT AT 21,0;"PRESS A KEY 
TO CONTINUE..."
 140 PAUSE 4E4
 150 CLS
 160 PRINT "  WHAT YOU DID MAKES
 ANY SINCE  TO YOU SINCE THERES 
NOTHING THATHAS HAPPENED TO HELP
 YOU***     WHAT DO YOU DO NOW??
?"
 170 PRINT
 180 PRINT
 190 GOTO 60
 200 CLS
 205 FOR X=1 TO 10
 210 PRINT "  STAR GAUGE WAS ING
AUGED.  YOU ARE MOVING THROUGH A
N UNFIMILAREAREA.  SUDDEN YOUR P
ROBE ROCKD. YOU FEEL YOUR METAL 
CASEING BE- GINING TO BREAK OFF.
  WHAT WILL YOU DO??? HELP***"
 220 PRINT ,,,,
 230 INPUT A
 240 IF A=1 THEN PRINT "YOUR ALR
EADY AT FULL STAR DRIVE,YE YOUR 
ATTEMPT IS KEEPING YOU IN ONE PL
ACE."
 250 IF A=2 THEN PRINT "AN AREA 
SCAN SHOWS THAT YOU ARE IN A BLA
CK HOLE.  IT ALSO POINTSOUT A ZE
RO ZONE."
 260 IF A=3 THEN PRINT "YOUVE ST
OPED THE PAIN THAT RUNS THROUGH 
YOUR HULL BY PUTTING UP YOUR SHI
ELDS."
 270 IF A=4 THEN PRINT "YOU FIRE
 YOUR LASERS, YET IN DO-ING SO Y
OU CAUSED A MATTER IN-BALANCE IN
 THE STAR DRIVE. YOU  GOT SUCKED
 IN..."
 280 IF A=4 THEN GOTO 600
 290 IF A=5 THEN GOTO 340
 300 PRINT AT 21,0;"PRESS ANY KE
Y TO CONTINUE..."
 310 PAUSE 4E4
 320 CLS
 330 NEXT X
 335 GOTO 600
 340 CLS
 350 PRINT "YOUVE ENTER A ZERO Z
ONE***  THE STRESS ON YOUR HULL 
HAS STOPED, YET YOUR STILL DRIFF
RIG***      WHAT WILL YOU DO???"
 360 PRINT ,,,,
 370 INPUT A
 380 IF A=1 THEN GOTO 500
 390 IF A=2 THEN PRINT "AN AREA 
SCAN SHOWS YOUR IN THE  MIDDLE O
F A ZERO ZONE.  ALSO YOUARE NEAR
ING THE EDGE OF IT***"
 400 IF A=3 THEN PRINT "SHEILDS 
ARE UP, BUT WHAT FOR???"
 410 IF A=4 THEN PRINT "YOU FIRE
D YOUR LASER, THE REACT-TION MOV
ES YOU OUT OF THE ZERO  ZONE, AN
D INTO THE BLACK HOLE***"
 420 IF A=5 THEN PRINT "YOUR STI
LL TRYING TO BLITZ OUT, YET IT D
OSNT WORK.  YOU JUST    LEFT THE
 ZERO ZONE***"
 430 IF A=4 OR A=5 THEN GOTO 600
 440 PRINT AT 21,0;"PRESS ANY KE
Y TO CONTINUE..."
 450 PAUSE 4E4
 460 CLS
 470 PRINT "  YOU STALLED TO LON
G, YOUR     DRIFFTING CAUSED YOU
 TO ENTER   THE BLACK HOLE. YOU 
WERE CRUSED BY THE FORCE OF IT A
ND STAR     PROBE IS NO MORE***"
 480 PRINT ,,,,"THE END"
 490 GOTO 620
 500 PRINT "  YOU INGAUGED THE S
TAR DRIVE   AND GAINED ENOUGH MO
MENTUM TO   BREAK FREE OF THE GR
AVITATION   PULL OF THE BLACK HO
LE***"
 510 PRINT ,,,,"THE END"
 520 GOTO 620
 600 PRINT "  YOUR FOOLISH ACTS 
CAUSED YOU  TO LEAVE THE ZERO ZO
NE FASTER   THEN NORMAL AND YOU 
WERESUCKED  UP BY THE BLACK HOLE
.  THEN PRE-SURE OF THE BLACK HO
LE CRUSH    YOUR WEAK SHEILD AND
 YOU BECOME DUST AN STAR PROBE W
AS  NO MORE**"
 610 PRINT ,,,,"THE END"
 620 PRINT ,,"**GAME OVER**";AT
21,0;"PRESS A KEY TO START AGAIN
...""
 630 PAUSE 4E4
 640 RUN
 700 SAVE "STARPROBE"
 710 RUN