%Header Record
Format:TXT
Communication SW:0
Data Type:PG
Capacity:10396
File Name:CULDFUT
Group Name:
Password:ODDSOCK
Option1:NL
Option2:
Option3:
Option4:
%Data Record
\ClrText
"   Welcome to the   "
"adventures of Culdfut"
"Your task is to find"
"the lost golden sock."
"  Navigate (N\slashS\slashE\slashW)"
"using the arrow keys."
"  Use [ln] to enter"
"  buildings,  [EXIT]"
"    to exit them"
" "
"     Good Luck"
\For 0\->W \To 330
\Next 
\Lbl 7
\ClrText
\Locate 5,2,"[1] Continue"
\Locate 9,3,"old game"
\Locate 5,5,"[2] New game"
\Locate 5,7,"[3] Invent\ory"
\Do
\Getkey\->A
\LpWhile A\<>72\ And A\<>62\ And A\<>52
\If A=72:\Then \Mat D[1,1]\->P
\ClrText
\If P=99:\Then "You have died, so"
"you must start"
"a new game"
\For 0\->W \To 700
\Next 
\Goto7
\IfEnd
0\->M
\Goto0
\IfEnd
\If A=62:\Then 55\->P
P\->\Mat D[1,1
0\->\Mat D[1,2
0\->\Mat D[2,2
0\->\Mat D[3,2
0\->\Mat D[2,1
0\->\Mat D[3,1
\GotoO
\IfEnd
\If A=52:\Then \ClrText
\Locate 1,1,"~~~~~~INVENTORY~~~~~~"
\Locate 1,2,"You have these items:"
\Mat D[3,1]=37\=>\Locate 8,3,"Iron Key"
\Mat D[3,2]=72\=>\Locate 7,4,"Bronze Key"
\Mat D[2,2]=51\=>\Locate 7,5,"Silver Key"
\Mat D[1,2]=17\=>\Locate 8,6,"Gold Key"
\Mat D[2,1]=92\=>\Locate 4,7,"PPK H\and gun"
\For 0\->W \To 1500
\Next 
\Goto7
\IfEnd
\Lbl 5
\ClrText
\Locate 6,1,"OBSTRUCTION"
\Locate 4,3,"You cannot move"
M=38\=>\Locate 9,4,"West"
M=28\=>\Locate 9,4,"N\orth"
M=27\=>\Locate 9,4,"East"
M=37\=>\Locate 9,4,"South"
\For 0\->W \To 290
\Next 
0\->M
\Lbl 0
M=28\=>P-1\->P
M=37\=>P+1\->P
M=38\=>P-10\->P
M=27\=>P+10\->P
P\->\Mat D[1,1
P=55\=>\GotoO
P=33\=>\GotoA
P=43\=>\GotoB
P=53\=>\GotoC
P=63\=>\GotoD
P=62\=>\GotoE
P=32\ Or P=42\ Or P=52\ Or P=23\=>\GotoF
P=34\=>\GotoG
P=44\=>\GotoH
P=54\=>\GotoI
P=64\=>\GotoJ
P=84\=>\GotoL
P=35\ Or P=36\ Or P=37\=>\GotoM
P=45\=>\GotoN
P=65\=>\GotoP
P=75\=>\GotoQ
P=85\=>\GotoR
P=46\=>\GotoT
P=56\=>\GotoU
P=66\=>\GotoV
P=76\ Or P=77\ Or P=86\=>\GotoW
P=47\=>\GotoZ
P=57\=>\Goto1
P=67\=>\Goto2
P=77\=>\Goto3
\ClrText
"POSITION ERROR"
"\Returning to town"
\For 0\->W \To 190
\Next 
55\->P
\GotoO
\Lbl O
\ClrText
"You are in the town"
"on the High street"
"that runs N\orth-South"
"You are outside the"
"library."
"N\orth you see a dirt"
"track heading out of"
"town, \and South, you"
"can see some houses."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37\ And M\<>56
M=38\ Or M=27\=>\Goto5
\If M=56:\Then \ClrText
"You walk in to the"
"library \and see an"
"old man sitting by"
"a wooden desk."
"You tell him that"
"you are looking f\or"
"the golden sock."
"He tells you that"
"you must be careful"
"Because there is an"
"evil man guarding"
"it, who will kill"
"anyone who tries to"
"take it."
""
"He tells you m\ore"
"st\ories \and you"
"start to find them"
"b\oring, so you"
"move towards the"
"do\or."
"Press [EXIT] to"
"leave."
\For 0\->W \To 700
\Getkey
\Ans=47\=>\GotoO
\Next 
17\->\Mat D[1,2
\ClrText
"'\Stop there!'"
"the man says."
"'I see you must be"
"really interested in"
"the golden sock, \and"
"I think you may be"
"the first person who"
"really has a chance. "
"Here, take this"
"Golden key."
"Now go \and suceed."
\For 0\->W \To 200
\Next 
\GotoO
\IfEnd
\Goto0
\Lbl I
\ClrText
"You reach a dusty"
"road. No-one is here"
"except f\or a beggar"
"sitting in the s\and."
"N\orth is a cliff"
"East from here is a"
"wide river"
"To the West you can"
"see a spring."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
\Goto0
\Lbl H
\ClrText
"There are lots of"
"people round the "
"spring. You have a"
"drink \and feel good."
"N\orth is a cliff"
"East is a dirt track"
"South is a narrow"
"winding stream"
"To the West there is"
"desert."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
\Goto0
\Lbl G
\ClrText
"You enter the desert"
"\and it is suddenly"
"very hot. There are"
"Just a few withered"
"plants around you"
"On the ground you"
"see a small piece of"
"paper which says"
"2N,1W,2N,1W"
"Can you w\ork out"
"what it means?"
"N\orth you see a tiny"
"wooden hut"
"East is the spring"
"South is m\ore desert"
"West is even w\orse"
"desert that would be"
"dangerous to enter"
"alone."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=38\=>\Goto6
\Goto0
\Lbl 6
55\->\Mat D[1,1
0\->\Mat D[1,2
\ClrText
99\->\Mat D[1,1
"You w\ander further"
"\and further into the"
"desert. The heat"
"becomes too much f\or"
"you"
""
"You faint + fall to"
"the ground."
""
"You become"
"unconcious \and never"
"wake up."
""
"Your mission ends"
"here."
" "
"The End"
\Goto4
\Lbl N
\ClrText
"Following the narrow"
"winding stream, you"
"see a spring to the"
"N\orth, quicks\and on"
"the East bank, a big"
"warehouse due South"
"\and a desert West."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=27\=>\Goto5
\Goto0
\Lbl M
\ClrText
"You walk in the"
"desert, the heat is"
"unbearable, to the"
"West, the desert is"
"a lot w\orse."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=38\=>\Goto6
M=37\ And P=37\=>\Goto6
\Goto0
\Lbl T
\ClrText
"You are outside a"
"large, run-down"
"warehouse."
"N\orth is a narrow"
"winding stream,"
"East are some houses"
"South is farml\and"
"West is desert."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37\ And M\<>56
\If M=56:\Then \ClrText
"You enter the ware-"
"house which is in"
"need of repair."
""
\If \Mat D[3,2]\<>72:\Then "On the flo\or you see"
"a Bronze key which"
"you pick up."
\IfEnd
"You see nothing else"
"in here."
72\->\Mat D[3,2
\For 0\->W \To 150
\Getkey\->M
M=47\=>\GotoT
\Next 
99\->\Mat D[1,1
\ClrText
"The roof falls in"
"\and you are"
"crushed under it."
"You should have left"
"sooner!"
"The End."
\Goto4
\IfEnd
\Goto0
\Lbl Z
\ClrText
"You walk onto the"
"farml\and + eat some"
"of the fruit growing"
"there. You see a"
"farmer approaching "
"\and decide to leave"
"quickly."
"N\orth is a warehouse"
"East is a meadow"
"South is a wall too"
"tall to climb"
"West is the desert."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=37\=>\Goto5
\Goto0
\Lbl 1
\ClrText
"You walk across the"
"grassy meadow \and"
"see some houses in"
"the N\orth"
"Due East in the"
"distance is a f\orest"
"South is a tall wall"
"West is farml\and"
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=37\=>\Goto5
\Goto0
\Lbl 2
\ClrText
"You are on the edge"
"of a thick f\orest."
"N\orth is a lake"
"East is the f\orest"
"South is a wall too"
"tall to climb"
"West is a meadow."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=37\=>\Goto5
\Goto0
\Lbl W
\ClrText
"You are lost in"
"the thick f\orest."
" "
"You can't see the"
"way out."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=38\=>H=6\=>\GotoV
M=28\=>H\<>5\ And H\<>4\ And H\<>2\ And H\<>1\=>0\->H
M=38\=>H\<>3\=>0\->H
M=37\=>0\->H
M=27\=>0\->H
H+1\->H
\GotoW
\Lbl V
66\->P
\ClrText
"You are by the"
"lake. There are"
"some ducks being"
"fed by some kids."
"N\orth is marshl\and"
"but it looks safe"
"East is a thick"
"f\orest"
"West are some"
"houses."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
\Goto0
\Lbl U
\ClrText
"You walk by a small"
"group of houses"
"You st\and outside a"
"little brick"
"building in the "
"centre."
"N\orth you can see"
"the high street"
"East you see a lake"
"South is a meadow"
"Houses block your"
"path due West."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37\ And M\<>56
\If M=56:\Then \ClrText
\If \Mat D[3,1]\<>37:\Then "You try to enter the"
"building but the"
"do\or is locked with"
"an iron lock."
\For 0\->W \To 900
\Next 
\GotoU
\Else "You enter the"
"building \and on the"
"flo\or is a silver"
"key. You pick it up"
51\->\Mat D[2,2
\Do
\Getkey
\LpWhile \Ans\<>47
\GotoU
\IfEnd
\IfEnd
M=38\=>\Goto5
\Goto0
\Lbl P
\ClrText
"You walk a few"
"hundred metres into"
"the marsh. It's much"
"w\orse than you first"
"thought."
"N\orth is a field by"
"a river bank"
"To the East is the"
"river"
"South is a lake."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=38\=>\Goto5
\Goto0
\Lbl Q
\ClrText
"You are at the bend"
"of the river."
"It is flowing quite"
"quickly, \and looks"
"dangerous to cross"
"Go East to follow"
"the river further up"
"stream."
"Due South is a thick"
"f\orest."
"West is the marsh"
"Go N\orth to try \and"
"cross the river."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=28\=>\GotoY
\Goto0
\Lbl Y
\ClrText
99\->\Mat D[1,1
"You get about two"
"thirds of the way"
"across the river but"
"suddenly lose your"
"foothold."
"You are quickly"
"swept away \and"
"carried downstream."
"Sh\ortly, you reach"
"the waterfall \and"
"have only a few"
"seconds to utter a"
"prayer bef\ore you"
"crash onto the rocks"
"at the bottom."
" "
"The End"
\Goto4
\Lbl R
\ClrText
"You are in the gap"
"between a thick"
"f\orest \and the river"
"Go N\orth to brave"
"the hazzardous river"
"crossing"
"The mountains to the"
"East are too steep"
"to climb without any"
"equipment."
"South is a thick"
"f\orest"
"Go West to head back"
"towards the marsh."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=27\=>\Goto5
\Goto0
\Lbl L
\ClrText
"You just about make"
"it across the river"
"but it was a narrow"
"escape."
"On the other side"
"you see a little"
"do\or that has been"
"cut into the rock"
"face."
"The do\or has three"
"locks, one Gold,"
"one Silver, \and"
"one Bronze."
"The mountains are"
"too steep to go"
"anywhere other than"
"South back across"
"the river."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37\ And M\<>56
M=27\ Or M=28\ Or M=38\=>\Goto5
\If M=56:\Then \ClrText
\If \Mat D[1,2]=17\ And \Mat D[2,2]=51\ And \Mat D[3,2]=72:\Then \ClrText
"You enter a small"
"cave \and start"
"too look around."
"\Then suddenly, you"
"see someone move in"
"the shadows."
"\If you have a weapon"
"then press [EXE] to"
"use it now."
\For 0\->W \To 60
\Getkey\->M
\Mat D[2,1]=92\ And M=31\=>\Goto9
\Next 
\ClrText
"A man jumps out from"
"The shadows \and"
"shoots you in the"
"chest bef\ore you"
"have time to move."
"You have failed"
"your mission."
" "
"The End"
99\->\Mat D[1,1
\Goto4
\Lbl 9
\Mat D[2,1]=92\=>\GotoS
\Goto4
\Else \ClrText
"You do not have the"
"right keys."
"The only way out is"
"South."
\Do
\Getkey\->M
\LpWhile M\<>37
\Goto0
\IfEnd
\IfEnd
\Lbl S
\ClrText
"You fire the PPK"
"towards the movement"
"\and there is a dull"
"thud as a body drops"
"to the flo\or."
"You walk up to it"
"\and examine it. It"
"was the man you had"
"talked to in the"
"library. He must"
"have been the evil"
"man himself!"
"You look in his"
"pocket \and find a"
"small box."
"You open the lid \and"
"inside is the lost"
"golden sock."
" "
"Congratulations, you"
"have completed the"
"game."
" "
"I (Dave T) hope that"
"you enjoyed playing"
"the game, \and if you"
"have any comments,"
"then please give me"
"them."
"In the meantime,"
"watch this space f\or"
"the next exciting"
"game by Dave T"
"software Plc."
\Stop
\Lbl J
\ClrText
"You are on the bank"
"of a river which is"
"on your East."
"It looks quite"
"dangerous, but you"
"might be able to"
"cross it."
"N\orth is a cliff"
"South is a marsh"
"West is a dirt"
"track."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=27\=>\GotoY
\Goto0
\Lbl D
\ClrText
"You are on the"
"cliff edge. The"
"way down is very"
"steep."
"A wide river is to"
"the East."
"You see a marsh in"
"the distance due"
"South"
"A path due West"
"follows the edge"
"of the cliff"
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
M=27\=>\Goto5
\Goto0
\Lbl F
99\->\Mat D[1,1
\ClrText
"You try to make"
"your way down the"
"cliff face, but"
"you slip \and fall"
"You break your leg"
"when you hit the"
"bottom \and you"
"starve to death as"
"you cannot get any"
"food."
" "
"The End"
\Lbl 4
0\->\Mat D[1,2
0\->\Mat D[2,2
0\->\Mat D[3,2
0\->\Mat D[2,1
0\->\Mat D[3,1
\For 0\->W \To 300
\Next 
\Goto7
\Lbl C
\ClrText
"You are on the edge"
"of the cliff"
"Over the edge is a"
"sheer drop."
"South is a dirt"
"track \and a path"
"runs East to West"
"along the cliff"
"edge."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
\Goto0
\Lbl B
\ClrText
"You are on the edge"
"of the cliff \and"
"you shudder as you"
"look over the edge."
"East is a cliff-top"
"path"
"South is a spring"
"West is a tiny hut."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37
\Goto0
\Lbl A
\ClrText
"You are outside a"
"tiny wooden hut."
"To the East is a"
"path, South is the"
"desert, \and to the"
"N\orth \and West are"
"Cliff faces."
\Do
\Getkey\->M
\LpWhile M\<>28\ And M\<>27\ And M\<>38\ And M\<>37\ And M\<>56
\If M=56:\Then \ClrText
"You enter the hut"
"which is very untidy"
\If \Mat D[2,1]\<>92:\Then "You rumage through"
"the junk \and find"
"in a wooden box, a"
"silenced PPK h\andgun"
"You pick it up."
\IfEnd
"There is nothing"
"else useful in here."
92\->\Mat D[2,1
\Do
\Getkey\->M
\LpWhile M\<>47
\IfEnd
\Goto0
\Lbl E
\ClrText
"You make it a sh\ort"
"way down the cliff"
"face, \and discover a"
"small cave."
\If \Mat D[3,1]\<>37:\Then "On the"
"ground inside, you"
"see an iron key"
"which you pick up."
\IfEnd
"The only way out is"
"back the way you"
"came (South)."
37\->\Mat D[3,1
\Do
\Getkey\->M
\LpWhile M\<>37
\Goto0

%End
%Header Record
Format:VAL
Communication SW:0
Data Type:MT
Rows:3
Columns:2
Variable Name:Mat D
Group Name:
Variable Type:R
Variable Length:10
Option1:
Option2:
Option3:
Option4:
%Data Record
Value : 1 1 0
Value : 1 2 0
Value : 2 1 0
Value : 2 2 0
Value : 3 1 0
Value : 3 2 0
%End