!BOOT $SHIPWR $ 1/7#4
" Shipwreck Shipwreck byPhil Aldridge Phil Aldridge
*FX12,0
`A$="Shipwreck":B$="Adventure Game (Small Version).":7:''':X=12:18-A$/2)""A$::run
19-A$/2)"""============",A$)'''19-B$/2)""B$''14)"Written by"':X=12:11)"Phil Aldridge"::'10)"(C)Copyright 1983"''
(9'''''''" Press SPACE to continue.":G=:G=32
2R = ()
<*KEY0RUN|M
F*KEY1Go North.
P*KEY2Go South.
Z*KEY3Go East.
d*KEY4Go West.
n*KEY5Take the
x*KEY6Drop the
*KEY7Help.
TrT
15
NF$=""
BB=(35)+15
BC=BB+(9)+4
CI=3
FL=0
SS=0
BO=0
MR=0
GH=0
TF=0
WT=25
P=(8)
_A
"_B
,_C
6_D
@_E
J=0
T*FX11,0
^
h M=M+1
r_Z
|_F
_G
_H
_O
_S
_I
1 = 2
_A
D$(24),C$(3),C(3)
N$ = ""
T\B
X = 1 4
D$(X)
X
_M(1,4)
(570+10*(8))
Beach
& Shore
0 Cliffs
: Sands
D# North,0,West,1,East,2,South,3
N# North,0,East,2,West,1,South,3
X# South,3,East,2,West,1,North,0
b# South,3,West,1,East,2,North,0
l# East,2,South,3,North,0,West,1
v# East,1,North,3,South,0,West,2
# West,2,South,0,North,3,East,1
# West,1,North,0,South,3,East,2
X = 0 3
C$(X),C(X)
X
X = 1 4
'D$(X) = "on the "+C$(X-1)+" "+D$(X)
X
X = 4 1 -1
Y = 2*X-1 2*X
D$(Y) = D$(X)
Y
X
_B
DzC
X = 9 10
* D$(X)
4 X
>
_M(9,10)
H X = 10 9 -1
R Y = 2*X-9 2*X-8
\D$(Y) = D$(X)
f Y
p X
z in the Caves
in the Swamp
_C
TPD
X = 13 24
D$(X)
X
_M(13,18)
X = 13 18
0 D$(X) = "in the Pirate's hideout" PH = X
, D$(X) = "in the Eagle's nest" EN = X
- D$(X) = "on the Lookout Tower" LT = X
X
BP = 19
in the Old Ruins
in the Pirate's hideout
$ in the Eagle's nest
. in the wooden hut
8 on the Lookout Tower
B on a narrow road
L by the pond
V by a deep river
` on top of the mountain
j in the Castle
t in the Dungeons
~ in the Dungeons
_D
D(24,3)
dbD
X = 1 24
Y = 0 3
D(X,Y)
Y
X
00,00,02,19
00,01,00,13
00,00,10,04
03,00,15,00
00,20,00,06
05,11,00,00
17,00,08,00
( 18,07,00,00
2 00,00,19,10
< 09,03,00,15
F 20,00,06,12
P 11,18,00,00
Z 02,19,14,00
d 00,13,00,20
n 10,04,00,16
x 15,00,17,00
00,16,18,07
00,17,12,08
01,09,13,22
14,21,05,11
00,22,20,00
19,00,21,23
22,00,24,00
00,23,00,00
_E
T(24),W(19),T$(19,1)
D|F
T$(1,0),T$(1,1)
W(1) = 25
X = 2 18
R = (24)
" R <> EN R <> PH
,T(R) = T(R)+1
6W(X) = R
@ T$(X,0),T$(X,1)
J X
T T$(19,0),T$(19,1)
^W(19) = 25
hT(W(4)) = T(W(4))-1
r
W(4) = 25
| a,telescope
a wooden,box
a bunch of,keys
burried,treasure
a brightly coloured,fish
a treasure,map
a,spade
a tin,opener
a tin of,beans
a plastic,bag
a box of,matches
some,paper
some,wood
a,pirate
an,eagle
a,monkey
a gang of,kidnappers
& a helpful,native
0 a rescue,ship
:
D _F
N
X
b_L((M),0)
l_L("You are "+D$(P)+".",2)
v
_G
N = 0
X = 0 3
D(P,X) > 0 N = N+1
X
D$ = ""
X = 0 3
D(P,X) = 0 dxG
N = 1 D$ = D$+C$(X)+"."
* N = 2 D$ = D$+C$(X)+" or " : N = 1
( N = 3 D$ = D$+C$(X)+", " : N = 2
. N = 4 D$ = "in any direction." : N = 0
X
_L("You can go "+D$,4)
_H
@ T(P) = 0 _L("There's nothing worth taking here.",5) :
* T = 0
4H$ = "There is "
> X = 1 T(P)
HT = T+1
RA$ = T$(T,0)
\B$ = T$(T,1)
f W(T) <> P DHH
pH$ = H$+A$+" "+B$
zL X = T(P) H$ = H$+" " X = T(P)-1 H$ = H$+" and " H$ = H$+", "
X
_L(H$+"here.",5)
_I
X = 1 2
141 136 "?" 137 131;
X = 1
X
10,11,11
G$ = ""
' ?&FFFE = 164 L = &D8 L = &25A
DhA
# G$ = "" ?L = &20 ?L = &30
C =
H G$ = 32 (C = 13 C = 46) G$ <> "" 46,10,8,46,11 : DBI
I C = 127 G$ <> "" G$ = G$,G$-1) : 8,32,10,8,32,11,8 : d|H
$@ C = 32 G$ <> "" G$ = G$+" " : 32,10,8,32,11 : d|H
.3 C < 65 (C > 90 C < 97) C > 122 d|H
8'G$ = G$+C : C,10,8,C,11 : d|H
B_J(G$)
L_K(G$)
V
`
N = 53
j
K = -1
t, L$ = "North" L$ = "north" K = C(0)
~* L$ = "West" L$ = "west" K = C(1)
* L$ = "East" L$ = "east" K = C(2)
, L$ = "South" L$ = "south" K = C(3)
K > -1 N = D(P,K)
< N = 0 _R : _L("You can't go that way.",1) : tlH
# K > -1 P = N : _R : dvI
F$ = "Take" _P : tlH
F$ = "Drop" _Q : tlH
6 F$ = "Help" L$ = "help" _R : M = M-1 : dvI
_R
&_L("I didn't understand that.",1)
tlH
_J(X$)
X$ = X$+" "
X$ = X$,X$-1)
X$,1) <> " "
( X$ = X$,X$," ")+1)
2 X$," ") = 0
<L$ = X$
F
P
_K(X$)
Z X$ = X$+" ",X$," ")-1)
d X$," ") = 0
nF$ = X$
x
_L(X$,C)
_J(X$)
B$ = L$
A$ = X$,37)
_J(A$)
L$ = B$ _N :
A$ = A$,A$-L$-1)
X$ = " "+X$,A$+1)
X$ = X$,2)
X$,1) <> " "
_N
t`J
_M(A,B)
X = A B
R = (B-A+1)+A-1
D$ = D$(X)
"D$(X) = D$(R)
,D$(R) = D$
6 X
@
J _N
T X = 1 2
^ (128+C) 141 A$
h X
r
| _O
D T(0) = 0 _L("You "+NF$+"are "+N$+"carrying nothing.",6) :
(H$ = "You "+NF$+"are "+N$+"carrying"
T = 0
X = 1 T(0)
T = T+1
W(T) > 0 tnK
#H$ = H$+" "+T$(T,0)+" "+T$(T,1)
J X = T(0) H$ = H$+"." X = T(0)-1 H$ = H$+" and" H$ = H$+","
X
_L(H$,6)
_P
T = 0
X = 1 19
A$ = T$(X,1)
A$ = L$ T = X
& X
0= T = 0 _R : _L("I don't understand '"+L$+"'.",1) :
:5 T > 13 _R : _L("You can't do that.",1) :
DG W(T) = 0 _R : _L("You're already carrying the "+L$+".",1) :
N< P <> W(T) _R : _L("There's no "+L$+" here.",1) :
XI T(0) = CI _R : _L("You'll have to drop something first.",1) :
bW(T) = 0
lT(0) = T(0)+1
vT(P) = T(P)-1
_R
N$ = "now "
_O
N$ = ""
_Q
T = 0
X = 1 19
A$ = T$(X,1)
A$ = L$ T = X
X
= T = 0 _R : _L("I don't understand '"+L$+"'.",1) :
C W(T) > 0 _R : _L("You're not carrying the "+L$+".",1) :
W(T) = P
T(P) = T(P)+1
T(0) = T(0)-1
_R
*N$ = "now "
4_O
>N$ = ""
H
R _R
\ 11,9,32,10,8,32,10,8,8
f
p _S
z P <> W(14) DLN
P$ = "The Pirate "
T(0) = 0 TFN
R = 1
T(0) > 1 R = (T(0))
T = 0
T = T+1
W(T) = 0
R = R-1
R > 0 tvM
*P$ = P$+"steals your "+T$(T,1)+" and "
W(T) = PH
T(PH) = T(PH)+1
T(0) = T(0)-1
T(P) = T(P)-1
R = (24)
R <> PH R <> P
$
W(14) = R
.T(R) = T(R)+1
8P$ = P$+"runs off."
B
_L(P$,1)
L P <> W(15) T^O
VP$ = "The eagle "
` T(0) = 0 dXN
j R = 1
t T(0) > 1 R = (T(0))
~ T = 0
T = T+1
W(T) = 0
R = R-1
R > 0 tHN
)P$ = P$+"grabs your "+T$(T,1)+" and "
W(T) = EN
T(EN) = T(EN)+1
T(0) = T(0)-1
T(P) = T(P)-1
R = (24)
R <> EN R <> P
W(15) = R
T(R) = T(R)+1
P$ = P$+"flies off."
_L(P$,1)
P <> W(16) TDP
(P$ = "The monkey "
2 T(0) = 0 t~O
< R = 1
F T(0) > 1 R = (T(0))
P T = 0
Z
T = T+1
d W(T) = 0
nR = R-1
x R > 0 DZO
/P$ = P$+"throws your "+T$(T,1)+" away and "
S = (24)
S <> P
W(T) = S
T(S) = T(S)+1
T(0) = T(0)-1
T(P) = T(P)-1
R = (24)
R <> P
W(16) = R
T(R) = T(R)+1
%P$ = P$+"goes to hide "+D$(R)+"."
_L(P$,1)
P <> W(17) dBP
X = 1 19
W(X) = 0 W(X) = P
" X
,T(P) = T(P)+T(0)-1
6T(0) = 0
@ R = (24)
J R <> P
T S = (24)
^ S <> R S <> P
h Q = (24)
r Q <> R Q <> S Q <> P
|/W(18)=25T(Q)=T(Q)+1:W(18)=Q:CI=2CI=1CI=3
P = R
8_L("You have been kidnapped and left "+D$(P)+".",1)
T(S) = T(S)+1
W(17) = S
NF$ = ""
P <> W(18) THQ
CI=1CI=2CI=6
BL$="With the native's help you can now carry "+(CI)+" things"
_L(L$,1)
NF$ = "and the native "
T(P) = T(P)-1
W(18) = 25
P <> BP P <> 20 thQ
W$ = ""
S$ = ""
& N = 0
0 X = 11 13
:= W(X) = 0 W(X) = P N = N+1 : W$ = W$+" and "+T$(X,1)
D X
NW$ = W$,5)
XO N = 3 W$ = " wood, paper and matches" N = 1 W(11) <> 0 S$ = "s"
b] N > 0 (W(10) = 0 W(10) = P) _L("The"+W$+" keep"+S$+" dry in the plastic bag.",1)
l* N = 0 W(10) = 0 W(10) = P thQ
v%_L("The"+W$+" get"+S$+" wet.",1)
. FL = 0 _L("You'll need some more.",1)
X = 11 13
c W(X) = 0 W(X) = P R = (24) : R <> P : T(W(X)) = T(W(X))-1 : W(X) = R : T(R) = T(R)+1
X
P <> 21 ddQ
N = 0
X = 11 13
# W(X) = 0 W(X) = P N = N+1
X
q N < 3 FL = 0 _L("You can't light the fire yet.",1) FL = 1 _L("There are hot ashes here.",1) _T
(W(2) = 0 W(2) = P) (W(3) = 0 W(3) = P) BO = 0 _L("You open the box with the keys.",1) : _L("There is a telescope inside.",5) : W(1) = P : T(P) = T(P)+1 : BO = 1
LT = P (W(1) = 0 W(1) = P) FL = 1 SS = 0 R = (8) : SS = 1 : W(19) = R : T(R) = T(R)+1 : _L("You can see a ship off the "+D$(R),8)+".",1) : TLR
n LT = P (W(1) = 0 W(1) = P) SS = 1 _L("The ship is still off the "+D$(W(19)),8)+".",1) : TLR
0 LT = P _L("You can't see any ships.",1)
W(6) <> 0 MR = 1 DHR
R = (24)
R <> P
*
WT = R
49_L("The map shows that treasure is buried "+D$(R),1)
>MR=1
H WT <> P TF = 1 D\R
R W(7) <> 0 W(7) <> P _L("You can't dig up the treasure.",1) _L("You dig up some treasure.",5) : W(4) = P : T(P) = T(P)+1 : TF = 1
\& W(19) = P W(4) = 0 _END :
fM W(19) = P _L("You must have the treasure before you are rescued.",1)
p_U
z(W(8)=0W(8)=P)(W(9)=0W(9)=P)M>=BB T$(9,1)="beans"_L("You open the tin of beans and eat them.",1):T$(9,0)="an empty bean":T$(9,1)="can":CI=CI*3
_END
3_L("You were rescued after "+(M)+" moves.",8)
S = (/100+.5)
M = S 60
H = M 60
$ H = 1 H$ = ", " H$ = "s, "
M = M 60
* M = 1 M$ = " and " M$ = "s and "
S = S 60
" S = 1 S$ = "." S$ = "s."
J_L("You took "+(H)+" hour"+H$+(M)+" minute"+M$+(S)+" second"+S$,8)
_T
%_L("You light a signal fire.",1)
FL = 1
$/ W(12) = P T(P) = T(P)-1 T(0) = T(0)-1
./ W(13) = P T(P) = T(P)-1 T(0) = T(0)-1
8W(12) = 25
BW(13) = 25
L
V _U
`8 M = BB _L("You are getting very hungry.",1) :
j# M <> BC T$(9,1) = "can"
t) CI = 6 CI = 2 CI = 3 CI = 1
~CI=1L$="."L$="s."
T(0) > 0 _L("You are so hungry that you drop everything.",1) _L("You are so hungry that you can now only carry "+(CI)+" thing"+L$,1)
X = 1 19
' W(X) = 0 W(X) = P : T(P) = T(P)+1
T(0) = 0
_Z
F=0
R = 0 24
Z=0
S = 1 19
W(S) = R Z=Z+1
S
, Z <> T(R) :"Z - IN ROOM "R : F = 1
R
F = 1
(
27:30,14)147"pp||"157:24)147"pp||"157:21)147"p|"157:18)147"p|"157:15)147"p|"157:19)147"`````//////"157:4,14)149;
<" _0 ":4)149"ppuws}|tpp":4)149162"////////!":X=14:6-X,16+X)1515-X,"p")::0,0);:X=116:134,157,10,13::X=18:132,157,10,13::I=150
F&SW:I=200:4,14)149" "
P4,15)149" 4<.up0 ":4,16)149"+////////'":I=100:4,15)149" 0px4 ":4,16)149",,--,//-,,":I=100:4,15)149" _0 ":4,16)149" %'`-,$ "
ZI=100:4,15)149" ":4,16)149" $,.% ":I=100:4,16)149" ($ ":I=100:4,16)149" ":X=14:0,16+X)132157" ":I=40:
_z7:10,5);:V("Shipwreck",7,10):''''''" Instructions(Y/N)?";:G$=:G$="Y"G$="N":G$="Y""Yes""No":tV@
dI=200:7:13,1);:V("Shipwreck",7,20):0,4);:V("You have been shipwrecked and washed",2,10):0,6);:V("up on a desert island.",2,10):I=100:0,9);
nV("When you find things you can take",5,10):0,11);:V("them with you ...",5,10):I=100:5,14);:V("e.g. ",4,10):12,14);:V("Take the rope.",3,25):I=100:0,17);
xV("You can also drop things ...",6,10):I=100:5,20);:V("e.g. ",4,10):12,20);:V("Drop the basket.",3,25):I=200:12,23);:V("Good Luck !!!",1,15):I=200:MAP:tV@
kV(S$,C,T):128+C,141,10,8,8,128+C,141,11:X=1S$:S$,X,1);:10,8:S$,X,1)11;:T 10=51,-15,150,1
I=T::
SW:2,3);"":2,4);"":2,5);"":
@MAP::SW::_L("Here is an outline map of the island.",6)
" 7``'``5"
" 5 0 5"
" 7``' ' '``5"
" 5 0 0 0 5"
"" 7``' ' ' ' '``5"
"" 5 0 0 0 0 0 5"
"" 7 ' ' ' ' ' 5"
"" 5 0 0 0 0 0 5"
"" ```7 ' ' ' 7``!"
" 5 0 0 0 5"
" ```7 ' 7``!"
" 5 0 5"
"" ``````!"
'4''" Press SPACE to continue.":G=:G=32
,I=
6
*BASIC
PAGE=&1900
*FX21
CLOSE#0:CHAIN "SHIPWR"