keyfighterEVEVGV 1984 JJK Research Limited 236099\,15:7 4:0,1;" 1984 J.J.K Research Limited" 3,0;"Presents:" M5,6;6;"*** KEY FIGHTER ***" :9 ,15;"BY";11 ,10 ;"Jeroen Kwast" F14,0;"U bent na een lange reis bij de ingang van een grot gekomen. Plots een felle flits en u bent in de grot. Alleen de gouden sleutel kan er weer voor zorgen dat u weer uit de grot komt" K620,0;"Maar pas op voor de goblins!!!!!" M621,0;"Zij beschermen de sleutel!!!!!!!" PD9000(#:#1;"Druk een toets in om te beginnen":0: Z;"Mogenlijke handelingen:"::a=112 :t$(a):a _8#1;"Druk een toets in om te beginnen":0: d 500 n 1000 x 700 100d  uitvoer "Wat wilt u? ";k$ k$=""510  len=k$  len>7510 ihand=0:nkam=0 &i=14 0!t$(i,1len)k$610b :<nkam=k(kam,i):nkam=200"Die zit dicht!":510 Dnkam0:z$=t$(i): N"Daar kunt u niet heen!" X 510 bi vi=512 #t$(i,1len)=k$ihand=i:: i "Ik begrijp u niet!"  510  ihand=0"U ging ";z$:   770:l$=" "9600% l$: i=14 (k(kam,i)0"U kunt naar ";t$(i) i:i=16 )r(i)0"Er ligt hier een ";v$(i) i i=15 0s(i)0"Er is hier een ";p$(i):ipers=i i 8i=15:d(i)=kam"Er ligt hier een ";d$(i) i  l$="" /kam=1l$="U bent in een kleine grot":  0kam=2l$="U bent in een grote ruimte": Vkam=4l$="U bent in een kleine grot. Ten zuiden van u is de gouden poort.":  0kam=5l$="U bent in de centrale grot": *d(kam=6kam=7kam=8kam=9 )l$="U bent in een dampachtige omgeving. " /(kam=6kam=7kam=8kam=9 )stik=0l$=l$+"De damp die u inademt is zwaar giftig":tel=tel+1:tel>2dood=1:e$="gestikt": 45(kam=6kam=7kam=8kam=9 ) >0kam=10 l$="U bent in een spiegelgrot": Hkam=86Vkam=11 kam=15kam=20kam=32 kam=34"kam=59;kam=62>kam=64@kam=81Ql$="U bent in een noord-zuid passage": Rwkam=97akam=98bkam=38&kam=92\kam=93]kam=99cl$="U bent in een oost-west passage": \kam=21kam=22kam=24kam=25kam=29kam=30kam=39'kam=42*kam=43+kam=535kam=67Ckam=71Gkam=72Hkam=76Lkam=77Mkam=91[l$="U bent in een verbindingsgrot": f?kam=37%kam=524l$="U bent in een kruispuntgrot": prkam=44,kam=546l$="U bent in de openlucht binnen de grot. Ten oosten van u ligt een groot meer": z6kam=36$l$="Ten noorden van u ligt een meer": 5kam=47/l$="Ten westen van u ligt een meer": 5kam=66Bl$="Ten zuiden van u ligt een meer": kam=27l$="U bent in een uitgehouden grot met in het midden een kist. In die kist ligt een lijk van uw voorganger": kam=491l$="U bent aan de voet van de goblinberg. Ten oosten is een goblin- kamer. Ten noorden van u is een grote deur": 5kam=502l$="U bent in de goblin-wachtkamer": bkam=59;kam=69Ekam=79Okam=80Pl$="U bent in een grot op de goblin-berg": $b$="":gevraagd=1970 kam=70Fgevraagd=0"U bent in de goblin-leiderkamer.De goblinleider vraagt aan u of u een vriend van JJK bent.":gevraagd=1:"ja of nee? ";b$:b$="nee"vriend=1:l$="": 0kam=70Fb$="ja"jawoord=1:l$="": Gkam=70Fb$"ja"p(2)=70Fgevraagd=0:960 Kkam=513kam=74Jkam=94^l$="U bent in een luchtschacht": Akam=70Fgevraagd=1l$="U bent in de leiderkamer.": Ԝkam=96`l$="U bent in een goblingrot. Ten oosten van u is een deur":kam=96`p(3)=96`l$=l$+" Er staat een goblin naast u" kam=96` ]kam=100dl$="U bent in een grote grot met in het midden een gat met een trap erin.":  l$=" ":  verwerking dood=18000@ nkam0kam=nkam kam=300,85004! $i=16:r(i)=0:i i=16 v(i)=kamr(i)=i i +volg1=1>.73333p(1)=kam *volg=1>.73333p(3)=kam !+volg4=1>.73333p(4)=kam $9wond:wond<1dood=1:e$="dood":1010 )$i=15:s(i)=0:i .&i=15:p(i)=kams(i)=i: 3i 8ihand51170 =i=16 Br(i)01100L Gi:"Pak wat?":2000 L<zwemb=1ibez>2"Ik kan niets meer dragen!": N"Pak wat? ";b$:len=b$ Olen>151102N P5i=16:v$(i,1len)=b$1106R Q&i:"Dat ligt hier niet!":2000 Rv(i)=kam1110V T 1105Q V"Ik pak de ";v$(i);" voor u" `b(i)=i j!ibez<7ibez=ibez+1 tv(i)=0 ~r(i)=0  2000 ihand61220 Zkam36$kam44,kam47/kam546kam66B"Zwemmen??? Waar?": 2zwemb=0"U heeft uw zwembroek niet aan": 0zwemb=1"O.K":zwem=1:1210 "Waarmee?": >kam=45-:i=16:r(i)=0:i:2000 ihand71305 "Gebruik wat? ";b$ 1b$="trap"kam=100dkam=125}:"O.K": 1b$="trap"kam=125}kam=100d:"O.K": ؚb$="zakdoek"(b(1)=3b(2)=3b(3)=3b(4)=3b(5)=3b(6)=3)stik=1:"O.K.": b$="sleutel"(b(1)=1b(2)=1b(3)=1b(4)=1b(5)=1b(6)=1)kam=96`k(96`,1)=200:"O.K": b$="sleutel"(b(1)=1b(2)=1b(3)=1b(4)=1b(5)=1b(6)=1)kam=101ek(101e,1)=200:"O.K": b$="sleutel"(b(1)=1b(2)=1b(3)=1b(4)=1b(5)=1b(6)=1)kam=108lk(108l,4)=200:"O.K": b$="zwembroek"(b(1)=2b(2)=2b(3)=2b(4)=2b(5)=2)zwemb=1:b(2)=0:"O.K.":1292  b$="zwaard"(b(1)=4b(2)=4b(3)=4b(4)=4b(5)=4b(6)=4)zwaard=1:"O.K": b$="gouden sleutel"(b(1)=5b(2)=5b(3)=5b(4)=5b(5)=5b(6)=5)kam=4k(4,4)=300,:"O.K": b$="lamp"(b(1)=6b(2)=6b(3)=6b(4)=6b(5)=6b(6)=6)lampaan=1:"O.K":  "Dat gaat niet":2000  D"Alle voorwerpen die in uw broek zaten zijn op de grond gevallen."  8b(2)=2v(2)=kam:r(2)=2 8b(1)=1v(1)=kam:r(1)=1 8b(3)=3v(3)=kam:r(3)=3 8b(4)=4v(4)=kam:r(4)=4 8b(5)=5v(5)=kam:r(5)=5 8b(6)=6v(6)=kam:r(6)=6 2i=16:b(i)=0:i:ibez=1  ihand81370Z (b(1)4b(2)4b(3)4b(4)4b(5)4)b(6)4"Vecht waarmee?": (4zwaard=0"Vecht met wat?":vriend=1: 2p(1)kamp(2)kamp(5)kamp(3)kamp(4)kam"Vechten met wie?":d(5)=kamd(1)=kamd(2)=kamd(3)=kamd(4)=kam"Met een dode?": 3Np(1)kamp(2)kamp(3)kamp(4)kamp(5)kam 7vriend=1 .8L"U doode de goblin":.1}L,0:.1}L,5:.2~L,12 :1361Q FW>.5"U verwondde de goblin":.1}L,10 :.1}L,20:2000 PP"U miste":.1}L,0:.1}L,-5:.1}L,-12 :2000 Qep(1)=kamipers=1p(1)=0:volg1=0:s(1)=0:d(1)=kam Rdp(3)=kamipers=3p(3)=0:volg=0:s(3)=0:d(3)=kam Sep(4)=kamipers=4p(4)=0:volg4=0:s(4)=0:d(4)=kam Tep(5)=kamipers=5p(5)=0:volg5=0:s(5)=0:d(5)=kam Vdood3=0p(1)=0p(3)=0p(4)=0dood3=1:vriend=0:"De leider geeft zich gewonnen! 3 man gedood!. Hij stuurt een verbandsdoos en al u wonden zijngeheeld!":wond=7:ipers=0:2000 W p(2)=kamipers=2p(2)=0:s(2)=0:d(2)=kam:wond=7:"U heeft de leider gedoodt!! Ik pak uit het verbandkastje een rol verband om uw wonden te verbinden":p(1)=0p(5)=0p(3)=0p(4)=0 Xp(2)=0p(2)=3:"De andere goblins zijn razend! Ze sturen een nieuwe leider die u wil vermoorden!!":2000 Yipers=0 Zihand9 1420 djkam121ykam101ekam108lkam4kam491kam96`"Open wat?":2000 nikam=491k(491,3)=200k(491,3)=59;:"De deur is open":2000 skam=121yopen=0open=1:"O.K":"Er zit een brief in die zegt: zuid-oost-oost-zuid-zuid-zuid- oost-oost-goud!!":2000 xkam=96`(b(1)=1b(2)=1b(3)=1b(4)=1b(5)=1)k(96`,1)=200k(96`,1)=97a:"De deur is open":2000 }kam=101e(b(1)=1b(2)=1b(3)=1b(4)=1b(5)=1)k(101e,1)=200k(101e,1)=102f:"De deur is open":2000 kam=108l(b(1)=1b(2)=1b(3)=1b(4)=1b(5)=1)k(108l,4)=200k(108l,4)=103g:"De deur is open":2000 Hkam=4k(4,4)=300,"Die is al open":2000 ?kam=121yopen=1"De kist is al open!":2000 "Die zit dicht!":2000 ihand10 1500 <ibez<2"U bezit alleen wat u aanheeft!":2000 "U bezit het volgende:" #b(1)0"een sleutel" %b(2)0"een zwembroek" #b(3)0"een zakdoek" "b(4)0"een zwaard" *b(5)0"een gouden sleutel"  b(6)0"een lamp"  2000 ihand11 2000 ->.4L"Vergeet het maar!":2000 $>.4L"Van wie?":2000 ""Oh? Van mij zeker?":2000 ihand12 1470 +ibez<2"Leg wat neer?":2000 "Ik heb alles neergelegd!" 8b(1)=1v(1)=kam:r(1)=1 8b(2)=2v(2)=kam:r(2)=2 8b(3)=3v(3)=kam:r(3)=3 8b(4)=4v(4)=kam:r(4)=4 8b(5)=5v(5)=kam:r(5)=5 8b(6)=6v(6)=kam:r(6)=6 2i=16:b(i)=0:i:ibez=1 Jlampaan=0:stik=0:zwaard=0:zwem=0:tel=0  2000 fighter fights back? /kam=p(5)volg5=1:vriend=1 vriend=02050 kam=p(1)volg1=1 kam=p(4)volg4=1 kam=p(3)volg=1 kam=p(5)volg5=1 @volg=1p(3)kam"Een goblinvechter achtervolgt u" Avolg1=1p(1)kam"Een goblinwachter achtervolgt u" Avolg4=1p(4)kam"Een goblinwachter achtervolgt u" Avolg5=1p(5)kam"Een goblinwachter achtervolgt u" Nkamp(1)kamp(2)kamp(3)kamp(4)kamp(5) #"De goblin dreigt met een zwaard" >>.6"Hij raakt u en u bloedt!!":wond=wond-1: Okam491kam108lkam502kam70Fkam96`2065  Mjawoord=1vriend=0p(1)0"De goblin zegt hallo": kam96` vriend=1 p(1)=0 Z"De goblinvechter vraagt of u toestemming van de goblinleider heeft om hier te komen"  "Ja of Nee? ";b$ *Vb$="ja"vriend=1:1;1;"Leugenaar":.5,1:2010 4ub$="nee"ipers=0:ihand=1:"U zult toesteming moeten hebben voordat u hierlangs komt!":kam=86V: 9b$"nee"b$"ja"2080  > Xgrottenbeneden b4lampaan=0l$="U bent in een donkere grot": lfkam=106jkam=111okam=120xl$="U bent in een onderaardse noord-zuid passage": vkam=102fkam=104hkam=114rkam=117ukam=124|l$="U bent in een onderaardse oost-west passage": kam=103gkam=113qkam=115skam=116tkam=118vkam=123{l$="U bent in een onderaardse verbindingsgrot": Rkam=125}l$="U bent in een onderaardse grot met in het midden een trap": ckam=121yl$="U bent in een onderaardse verblijfsgrot. Er staat een kistin een hoek": dkam=108ll$="U bent in een onderaardse goblinwachtersgrot. Ten zuiden van u is een deur.": ]kam=101el$="U bent in een onderaardse spiegelgrot. Ten oosten van u is een deur.": Okam=105il$="U bent in een enorme gouden grotEr liggen hier 4 lijken":  @dood J:"U bent harstikke ";e$ TK"De goblins brengen u naar de plaats waar u voorganger is be- graven." Y-i=0-20-1:.1}L,i:i ^1"Wilt u het nog eens proberen? ";b$:b$="ja" hb$"nee"8030^ r !4 gewonnen !> :"U bent weer buiten de grot" !H"U heeft het gehaald!!!" !R 8550f! !e20,1;" 1984 J.J.K Research Limited" !f%4,7;"U bent een echte" !ki=70-1 !p8,10 ;i; " " !z14,2;i; " " !50000P !i !s6,1;"******************************" !t20,1;"******************************" !Gi=8182:i,0;"*";i,31;"*":i !?i=7192:i,0;"*";i,31;"*":i !_50001Q,502:i=15:50000P:i:50001Q,255:50000P !Ti=99c1-2:50003S,i:50001Q,i/2:50000P:i !w6,1;"******************************" !x20,1;"******************************" !Gi=8182:i,0;"*";i,31;"*":i !Oi=7192:i,0;"*";i,31;"*":i !0#1;"Wilt u het nog eens proberen? L" !'x=1500:""8700! !(x:50001Q,100d::8549e! ! ="n" " ="j" "x " 8549e! #(initialisatie #2k(125},4):t$(12 ,7):r(6):s(5):p(5):p$(5,7):d(5):d$(5,12 ):v(6):v$(6,14):b(10 ) #,1)=0:k(62>,2)=0:k(64@,1)=0:k(64@,2)=0:k(66B,2)=0 $k(67C,1)=0:k(67C,4)=0:k(69E,2)=0:k(70F,4)=0:k(71G,4)=0:k(72H,1)=0:k(72H,3)=0:k(74J,1)=0:k(74J,2)=0 $k(74J,3)=0:k(76L,2)=0:k(77M,1)=0:k(77M,3)=0:k(79O,3)=0:k(79O,2)=0:k(80P,3)=0:k(81Q,1)=0:k(86V,1)=0 $#k(86V,2)=0:k(92\,4)=0:k(93],4)=0:k(94^,4)=0:k(94^,1)=0:k(96`,2)=0:k(97a,4)=0:k(98b,4)=0:k(99c,4)=0:k(100d,4)=0 $i=101e125} $`k(i,1)=i+1:k(i,2)=i-1:k(i,3)=i+5:k(i,4)=i-5 $i $Vj=101e125}5:k(j,2)=0:k(j+4,1)=0:j $Oj=101e105i:k(j,4)=0:k(j+20,3)=0:j $hk(102f,3)=0:k(104h,3)=0:k(105i,3)=0:k(106j,1)=0:k(108l,1)=0:k(108l,2)=0:k(108l,4)=0:k(111o,1)=0:k(113q,2)=0:k(114r,3)=0:k(114r,4)=0:k(115s,4)=0 $k(117u,3)=0:k(117u,4)=0:k(118v,1)=0:k(120x,2)=0:k(121y,1)=0:k(123{,2)=0:k(124|,4)=0 %vullen strings %&i=112 :t$(i):i %0i=16:v$(i):i %:i=15:p$(i):i %<i=15:d$(i):i %?+w=020:a:50000P+w,a:w %D>v(1)=2:v(2)=513:v(3)=74J %N@v(4)=15:v(5)=105i:p(1)=502 %Xjv(6)=94^:p(2)=70F:p(3)=96`:p(4)=491:p(5)=108l %b]"oost","west","noord","zuid","pak","zwem","gebruik","vecht","open","bezit","help","legneer" %lB"sleutel","zwembroek","zakdoek","zwaard","gouden sleutel","lamp" %v2"wachter","leider","vechter","wachter","wachter" %wK"dode wachter","dode leider","dode vechter","dode wachter","dode wachter" %x6,100d,33!,5,0,17,4,0,197,213,229,205,181,3,225,209,193,25,16,240,201 %{ %meer %Akam45-kam46.kam557kam5687000X %zwemb=0b(1)2b(2)2b(3)2b(4)2b(5)2"U bent uw zwembroek vergeten zo-dat een krokodil u achtervolgt":dood=1:e$="opgegeten": %Ozwem=0"U bent in het water gestapt!":dood=1:e$="verdronken": %7"U zwemt in het meer":ivoor=0:ipers=0: '"KEYFIGHTER"0 '"" &