Engine Failure
By Ian R Watt
Published in Personal Computer World, April 1983, pp. ?-? and Personal Computer Games, issue 1,
Summer 1983, p. 75, 79
For BBC
Solution by Garry Francis
----------------------------------------
This is a minimal solution to a truly dismal game. The game as originally published will not run and
requires the bug fixes listed below.
20 REM AN ADVENTURE FOR A BBC MICRO
60 CLS:VDU 31,0,12,130:PRINT "If the caps lock is not on then put
it"CHR$130"on."
80 CLS:PRINT'CHR$131"You are orbiting round a planet when "CHR$131"the engines
fail."
120 PRINT'CHR$133"You have to direct the computer to "CHR$133"manipulate the
objects you may come "CHR$133"across."
160 PRINT'CHR$130"The program is designed so that only "CHR$130"the first
three letters of each command"CHR$130"and object need be typed in, although,
"CHR$130"if desired, the full word may be "CHR$130"entered."
200 RESTORE 1370:FOR I = 1 TO 19:READ z:E(I)=z:NEXT I
440 INPUT"Command? "B$
580 DATA 0,-1,0,0,0,-3,0,0,0,-3,0,0,-2,0,0
620 M=0:N=0:O=0:IF LEFT$(B$,3)="TEL" THEN 860 ELSE IF LEFT$(C$,3)="QUI" THEN 850
ELSE IF LEFT$(B$,3)="HEL" THEN 1040
660 FOR I=1 TO LEN(B$):IF MID$(B$,I,1)=" " THEN N=I
670 NEXT I:IF N=0 THEN PRINT "Pardon?":GOTO 220
680 RESTORE 730:FOR I=1 TO 19:READ O$:O$=LEFT$(O$,3):IF O$=MID$(B$,N+1,3) THEN O=I
690 NEXT I:IF O=0 THEN PRINT"Pardon?":GOTO 220
780 IF O>3 THEN 770
1330 PRINT "Congratulations---The ship is now fully operational."
S
GET WATER
DRINK WATER
E
GET TABLET
EAT TABLET (you are now immune from lethal diseases)
S
GET FLOPPY
W
W
GET ZAPPERGUN
W
GET SPACESUIT
WEAR SPACESUIT (you can now enter shuttle)
E
S
W
GET JEWEL-SOCKET
E
N
E
E
N
W
N
INSERT FLOPPY (red light goes on)
PRESS RED (teleport activated)
S
W
TELEPORT
GET ASTRAGEM
INSERT ASTRAGEM (into jewel-socket)
TELEPORT
E
E
S
E
GET PLIERS
S
INSERT JEWEL-SOCKET (red light comes on)
N
W
W
ENTER SHUTTLE
GET SCREWDRIVER
EXIT SHUTTLE
W
S
UNSCREW PANEL (you reveal a lever)
PULL LEVER (blue light goes on)
N
E
E
N
W
N
PRESS RED
***THE END***
