Lost in space without memory, can you figure out your controls before something bad happens?
PROG : 16509
D-FILE: 19710
VARS : 20503
E-LINE: 20504
STKBOT: 20504
STKEND: 20504
9999 means line number
PRINT means treat as KEYWORD P
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