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