CHAPTER 3
CAPTIVE
10 X=0
20 DIM E(22)
30 A=1:T=0:W=0:RESTORE 1390:FOR B=1 T
O 22:READ E(B):NEXTB:SOUND 1,0,1,1
40 CLS:PRINT'''CHR$129"Do you want th
e instructions(Y or N) ?";:Z$=GET$:IF Z$
="N" THEN 150 ELSE IF Z$="Y" THEN 50 ELS
E 40
50 CLS:PRINT'''CHR$130" You have been
captured by creatures on"CHR$130"an unc
harted planet."
60 TIME=0:REPEAT UNTIL TIME>400
70 PRINT''CHR$131" Unfortunately the
planet happens to be"CHR$131"unstable,an
d has been evacuated."
80 TIME=0:REPEAT UNTIL TIME>400
90 PRINT''CHR$132"You therefore have
to escape before the"CHR$132"planet blow
s up with you on it."
100 TIME=0:REPEAT UNTIL TIME>400
110 PRINT''CHR$133" The computer has a
fairly large number"CHR$133"of commands
,so therefore if one command"CHR$133"doe
s not work then try another."
120 TIME=0:REPEAT UNTIL TIME>500
130 PRINT''CHR$134"The first three let
ters of each command"CHR$134"and object
need be typed in,although,if"CHR$134"des
ired,the full word may be entered."
140 TIME=0:REPEAT UNTIL TIME>500
150 CLS
160 RESTORE
170 ENVELOPE1,1,-1,1,-1,0,15,30,0,0,0,
0,W,0
180 SOUND1,1,W*2,1
190 W=W+1:IF W>20 AND W<40 PRINTCHR$13
0"A rumbling sound can be heard."
200 IF W>39 AND W<60 PRINTCHR$130"The
noise is becoming louder."
210 IF W>59 AND W<80 PRINTCHR$130"The
ground is starting to shake."
220 IF W>79 AND W<100 PRINTCHR$130"I'd
advise you to get out quickly."
230 IF W>99 PRINTCHR$130"The roof is c
aving in."
240 IF W=120 PRINTCHR$130"The planet h
as blown up.":GOTO 710
250 IF A=7 AND E(7)=7 PRINTCHR$130"The
transmitter is fully operational."
260 IF E(4)=7 E(4)=22:T=1:E(7)=19:E(20
)=22:PRINTCHR$130"The transmitter has co
oled down,"'CHR$130"but it does not have
an aerial."
270 IF A=11 AND E(6)<>0 AND E(19)=A PR
INT"A mud-man has just killed you.":GOTO
710
280 IF A=7 AND T=0 PRINTCHR$130"The tr
ansmitter is overheating."
290 IF A=14 AND E(8)<>-1 PRINTCHR$130"
You have fallen into a hole in the"'CHR
$130"dim light.":GOTO 710
300 FOR B=1 TO A:READ A$:NEXTB
310 VDU 31,0,3:PRINTCHR$130;A$
320 PRINT'CHR$131"Exits:- ";:RESTORE 1
330:FOR C=1 TO A:READ D:NEXTC:IF D<>0 PR
INT":North:";
330 RESTORE 1340:FOR C=1 TO A:READ D:N
EXTC:IF D<>0 PRINT":South:";
340 RESTORE 1350:FOR C=1 TO A:READ D:N
EXTC:IF D<>0 PRINT":East:";
350 RESTORE 1360:FOR C=1 TO A:READ D:N
EXTC:IF D<>0 PRINT":West:";
360 PRINT''CHR$132"Objects:- ";
370 H=0:RESTORE 1370
380 FOR G=1 TO 22:READ C$:IF E(G)<>A O
R H=4 NEXTG ELSE PRINT":";C$;":";:H=H+1:
IF H<>2 NEXTG ELSE PRINT'CHR$132"
";:NEXTG
390 PRINT''CHR$133"Inventory:- ";
400 F=0:RESTORE 1370
410 FOR G=1 TO 22:READ C$:IF E(G)<>0 A
ND E(G)<>-1 OR F=4 NEXTG ELSE PRINT":";C
$;":";:F=F+1:IF F<>2 NEXTG ELSE PRINT'CH
R$133" ";:NEXTG
420 VDU 31,0,13,134:PRINT"[-----------
--------------------------]"
430 VDU 31,0,17,134:PRINT"[-----------
--------------------------]":VDU 31,0,15
,135
440 INPUT"Command? "B$
450 CLS:VDU 31,0,19,130
460 IF LEFT$(B$,3)="QUI" THEN 710
470 IF LEFT$(B$,3)="WEA" OR LEFT$(B$,3
)="EXA" OR LEFT$(B$,3)="SAY" THEN 610
480 IF LEFT$(B$,1)="N" AND(E(11)=A OR
E(22)=A) PRINT"Your exit is blocked.":GO
TO 160
490 IF (LEFT$(B$,1)="N" OR LEFT$(B$,1)
="S" OR LEFT$(B$,1)="E") AND E(19)=A PRI
NT"You cannot pass the mud-man.":GOTO 16
0
500 IF T<>2 AND A=18 AND LEFT$(B$,1)="
E" PRINT"You cannot pass into the 'air l
ock'.":GOTO 160
510 IF LEFT$(B$,3)<>"TRA" THEN 540
520 IF A<>7 OR E(7)<>7 THEN 720
530 T=2:PRINT" An entrance has appeare
d into the 'air"CHR$130"lock'.":GOTO 160
540 IF LEFT$(B$,1)="N" AND E(12)=A PRI
NT"The door is in the way.":GOTO 160
550 IF LEFT$(B$,1)<>"N" THEN 560 ELSE
RESTORE 1330:FOR C=1 TO A:READ D:NEXTC:I
F D=0 THEN 600 ELSE 590
560 IF LEFT$(B$,1)<>"S" THEN 570 ELSE
RESTORE 1340:FOR C=1 TO A:READ D:NEXTC:I
F D=0 THEN 600 ELSE 590
570 IF LEFT$(B$,1)<>"E" THEN 580 ELSE
RESTORE 1350:FOR C=1 TO A:READ D:NEXTC:I
F D=0 THEN 600 ELSE 590
580 IF LEFT$(B$,1)<>"W" THEN 610 ELSE
RESTORE 1360:FOR C=1 TO A:READ D:NEXTC:I
F D=0 THEN 600 ELSE 590
590 A=A+D:GOTO 160
600 PRINT"No exit!":GOTO 160
610 M=0:N=0:O=0
620 RESTORE 1380:FOR I=1 TO 16:READ C$
:IF LEFT$(B$,3)=C$ M=I
630 NEXT I:IF M<>0 THEN 650
640 PRINT"I do not understand you.":GO
TO 160
650 RESTORE 1370:D$=RIGHT$(B$,3):FOR J
=1 TO 23:READ C$:C$=LEFT$(C$,3)
660 FOR K=4 TO 12:IF LEFT$(D$,1)<>" "
AND C$=MID$(D$,2,3) N=1
670 IF C$=MID$(D$,2,3) O=J:K=12:J=23:G
OTO 680 ELSE D$=RIGHT$(B$,K)
680 NEXT K:NEXT J:IF O<>0 THEN 690 ELS
E PRINT"Pardon?":GOTO 160
690 IF N=1 PRINT"Learn to type."'CHR$1
30;
700 ON M GOTO 800,850,880,920,950,980,
1030,1070,1110,1140,1180,1220,1260,800,1
180,1070
710 VDU 23;11,0;0;0;0,31,6,23:PRINT"Pr
ess space to start again":IF INKEY$(50)=
" " VDU 23;11,255;0;0;0:GOTO 30 ELSE VDU
31,6,23:PRINT"
":IF INKEY$(50)=" " VDU 23;11,255;0;0;0
:GOTO 30 ELSE 710
720 PRINT"I cannot do that.":GOTO 160
730 PRINT"O.K.":GOTO 160
740 PRINT"I am carrying too much.":GOT
O 160
750 PRINT"I do not see it here.":GOTO
160
760 PRINT"I am not carrying it.":GOTO
160
770 PRINT"I do not see a place to put
it.":GOTO 160
780 PRINT"I do not have them.":GOTO 16
0
790 PRINT"I do not see them here.":GOT
O 160
800 IF O>10 THEN 720
810 IF F=4 THEN 740
820 IF O=4 AND E(5)<>-1 PRINT"It is to
o cold to carry.":GOTO 160
830 IF E(O)<>A THEN 750
840 E(O)=0:GOTO 730
850 IF E(O)<>0 AND E(O)<>-1 THEN 760
860 IF H=4 THEN 770
870 E(O)=A:GOTO 730
880 IF O<>5 AND O<>9 THEN 720
890 IF E(O)=-1 PRINT"I am already wear
ing them.":GOTO 160
900 IF E(O)<>0 THEN 780
910 E(O)=-1:GOTO 730
920 IF O<>12 THEN 720
930 IF E(O)<>A THEN 750
940 E(O)=22:PRINT" The hinges were wea
k and the door has "CHR$130"collapsed in
to a pile of dust.":GOTO 160
950 IF O<>13 THEN 720
960 IF A<>2 THEN 750
970 PRINT"You have woken the dead who
do not like"CHR$130"you too much.":GOTO
710
980 IF O<>14 AND O<>21 THEN 720
990 IF A=6 THEN 1020 ELSE IF A<>13 THE
N 790
1000 IF E(10)<>0 PRINT"The writing is t
oo small to read.":GOTO 160
1010 PRINT"The magic word is 'swarck'."
:GOTO 160
1020 PRINT" A transmitted signal will a
llow a door"CHR$130"from the 'air lock'
to be opened.":GOTO 160
1030 IF O<>2 THEN 720
1040 IF E(O)<>0 THEN 740
1050 IF A<>15 PRINT"I see no place wher
e it can be cut.":GOTO 160
1060 E(2)=22:E(3)=0:PRINT" The piece of
metal has been cut into a"CHR$130"key."
:GOTO 160
1070 IF O<>16 AND O<>18 THEN 720
1080 IF A=10 THEN 1100 ELSE IF A<>18 TH
EN 750
1090 PRINT" A space ship can be seen ou
tside.It is"CHR$130"ready to take off.":
GOTO 160
1100 PRINT" Something large has fallen
through the"CHR$130"hole and flattened y
ou.":GOTO 710
1110 IF O<>19 THEN 720
1120 IF E(O)<>A THEN 750
1130 PRINT"You have killed the mud-man.
":E(O)=22:GOTO 160
1140 IF O<>8 THEN 720
1150 IF E(O)=-1 PRINT"It is already lit
.":GOTO 160
1160 IF E(O)<>0 THEN 760
1170 E(O)=-1:PRINT"It is now lit.":GOTO
160
1180 IF O<>11 THEN 720
1190 IF E(O)<>A THEN 750
1200 IF E(3)<>0 PRINT"I have no key.":G
OTO 160
1210 E(O)=22:E(22)=20:PRINT"The door ca
me away in your hands,but"'CHR$130"the e
xit is now blocked by boulders"'CHR$130"
which had been behind the door.":GOTO 16
0
1220 IF O<>1 OR E(22)<>A THEN 720
1230 IF E(O)<>0 THEN 760
1240 IF E(9)<>-1 PRINT" The noise from
the explosion has burst"CHR$130"your ear
drums.The shock of this has"'CHR$130"ki
lled you.":GOTO 710
1250 E(1)=22:E(22)=22:PRINT" You have c
leared a passage through the"CHR$130"bou
lders.":GOTO 160
1260 IF O<>23 THEN 720
1270 IF A<>21 PRINT"Nothing happens.":G
OTO 160
1280 PRINT" You have materialised insid
e your ship"CHR$130"which has immediatel
y taken off."
1290 Y=120-W:IF Y>X X=Y
1300 VDU 31,,16,131:PRINT"Score=";Y;"
Best Score=";X:GOTO 710
1310 DATA Prison cell,Bell tower,Windin
g staircase,Gunpowder chamber,Place with
a rocky floor,Wall with scratches on it
,Signal transmitter room,Room of chains,
Padded cell,Area with a hole in the ceil
ing,Muddy area,Altar
1320 DATA Place beside a monolith,Dimly
lit passage,Locksmiths,Frozen room,Brig
htly coloured room,Observation point,Rep
airs room,Air lock,Outside of ship
1330 DATA 1,0,1,0,2,0,0,2,0,2,-3,0,0,0,
-4,0,1,0,0,1,0
1340 DATA 0,-1,0,-1,0,0,-2,3,0,-2,4,-2,
0,0,0,0,0,-1,0,0,-1
1350 DATA 0,0,-1,1,0,-2,1,0,-2,3,5,0,0,
-4,0,0,-3,2,-2,0,0
1360 DATA 0,1,0,2,-1,0,2,-1,0,4,0,0,-3,
3,0,-5,2,0,0,-2,0
1370 DATA GRENADE,ROUGH-METAL,SHINY-KEY
,ICE-BLOCK,GLOVES,SABRE,AERIAL,TORCH,HEA
DPHONES,MAGNIFIER,LOCKED-DOOR,DOOR,BELL,
SCRATCHES,KEY-CUTTER,HOLE,TRANSMITTER,WI
NDOW,MUD-MAN,WIRE,INSCRIPTION,BOULDERS,S
WARCK
1380 DATA GET,DRO,WEA,KIC,RIN,REA,CUT,E
XA,KIL,LIG,OPE,THR,SAY,TAK,UNL,LOO
1390 DATA 4,8,22,16,5,12,22,3,9,17,20,1
,2,6,15,10,7,18,11,19,13,22