ZXTape! 0Created with Ramsoft MakeTZXGRUFT ;Xz;Y;r  R.Fuchs Schwarzburgstr. 49 6000 Frankfurt-1 Maerz 1984 :8000@ d7time=0:loc=5000o(17)9000(# i!loc:l$,no,ea,so,we,ins,pap,ink jpap:pap:ink n!:"Du bist ";l$:6000p+ins s:o(13 )o(13 )=1:<.1}L4000 xF'"Du siehst:":ok=0:n=1on:o(n)=loco$(n):ok=1 n:ok"Nichts besonderes" '"Moegliche Richtungen:" (("N "no);("S "so);("W "we);("O"ea) ȏo(7)=loco(4)=loco(5)=loctime=time+1:time=2o(4)=loco(16)i=1200:I:9500% T.05|L,0:23658j\,8:"Was soll ich tun ?";x$:x$=""200 9 ;x$ a$="":b$=a$:sp=0 x$=" "200 -x$(1)=" "x$=x$(2):215 -x$(x$)=" "x$=x$(̱x$-1):230 Pn=1̱x$:x$(n)=" "spa$=x$(n-1):b$=x$(n+1):sp=1 n:spa$=x$ 1v=0:n=1vn:a$=v$(n)(̱a$)vv=n n &o(5)=locv89500% +ob=0:b$=""1000+100d*v B$>9 300, "(n=1on:b$=o$(n)(̱b$)obob=n 'N ,'obb$;" kenne ich nicht":200 61000+100d*v Befehlsdurchfuehrung $'"Das kannst du nicht!":200 Kgehen Lb$="""Wohin ?":200 Va$=b$:b$=""  Richtungen 'a$(1)="N"noloc=no:100d |loc=5090"Aaaaaahhhhh!!! Du stuerzst in den Erdspalt!":i=502-502-1:.05|L,i:i:9500% 'a$(1)="S"soloc=so:100d x'a$(1)="O"ealoc=ea:100d 'a$(1)="W"weloc=we:100d )"Diese Richtung geht nicht!":200 ?nehmen @ob"Was denn ?":200 J*o(ob)"Das hast du schon !":200 T4o(ob)loc "Das sehe ich hier nicht !":200 YZob=13 "Die Maus laesst sich nicht so einfach nehmen!":o(ob)=1:200 [ob=17"Du hast den Schatz !!!!!"'"Aber die Toten wachen..."''"Im Osten oeffnet sich eine Tuer.":ea=5160(:o(17)=0:o(5)=5120:200 ^^ob>7o(ob)=0:I=10 15:.1}L,I:I:"OK. Du hast es !":200 cob=2"Du nimmst die Waffen. Leider sind sie so alt, dass sie zu Staub zerfallen.":I=200-1:.005y# =,I:I:o(ob)=1:200 h+"Das kannst du nicht nehmen !":200 legen ob1600@ 2o(ob)"Das hast du doch gar nicht !":200 Vi=1510 -1:.1}L,i:i:"OK. Du hast es hingelegt !":o(ob)=loc tloc=5090ob=9 "Du kannst jetzt mit Hilfe der Bretter ueber den Spalt im Boden!":no=5130  ̃loc=5110ob=12 o(4)1"Uargh! Der Vampir vergeht ! Er ist besiegt...":o(4)=1:200 loc=5110ob=14o(4)1"Der Vampir amuesiert sich sehr! Wohl zu viel DRACULA geschaut ? Es gibt nur ein Mittel gegen Vampire...":I=1400:I:9500% .loc5150o(7)=1200 ֪ob=12 ob=14"HaHaHa!!! Der Zombie lacht dich aus ! Er ist doch kein Vampir...Aah,er hat dich.."'"Ade, schoene Welt !!!":I=1400:I:9500% ob=13 i=40(10 -1:.01z# =,i:i:"Iiiihhhhh!!!!"'"Der Zombie hat eine toedliche Angst vor Maeusen und zerfaellt vor Schreck !!!":o(7)=1  200  zerschlagen ob1600@ Ao(ob)loco(ob)0"Das sehe ich hier nicht !":200 #ob=1ob=618400 !%ob=10 ob=11 1880X &/"Das kannst du nicht zerschlagen!":200 0Do(15)"Mit blossen Haenden ? Das geht nicht...":200 :eob=1"Der Schrank ist zu Brettern zer-legt !":o(9 )=loc:o(1)=1:200 Dn"Die Tuer ist zerschmettert ! Du kannst jetzt nach Sueden.":so=5080:o(6)=1:200 Xob=11 "Die Vase ist kaputt ! Aus der Vase rollt eine Knoblauchzehe.":o(11 )=1:o(12 )=loc:200 ]"Die Oellampe zerbricht und ent- zuendet sich.":o(10 )=1:loc5120"Das Feuer breitet sich im ganzenRaum aus, so dass du verbrennst!":I=1250:I:9500% bTo(5)1"Die Mumie faengt Feuer und ver- brennt !":o(5)=1 gZ"Da so wenig Sauerstoff im Raum ist, geht das Feuer gleich wieder aus.":200 k schauen l 110n  oeffnen ob1600@ WOB=6loc=5120so"Die Holztuer laesst sich nicht oeffnen !":200 lloc=5120"Die Holztuer braucht nicht ge- oeffnet zu werden; sie ist doch zerschlagen !":200 o(ob)loc1620T 7ob1"Das kannst du nicht oeffnen.":200 ;o(ob)=1"Der Schrank ist doch kaputt !":200 0auf"Der Schrank ist schon offen.":200  k.05|L,-10 :1,-30:"Ok. Du oeffnest den Schrank, aber er ist leer !":auf=1  200 3HILFE 4Y10 ;"H I L F E ???"'"Ein echter Abenteurer steht das alleine durch...":200 fangen ob1600@ 9ob13 b$;" kannst du nicht"'"fangen!":200 .o(ob)loc"Hier ist keine Maus.":200 9>.4L"Du hast sie !!!":o(ob)=0:200 >"Verfehlt ! Sie ist mir entwischt":o(ob)=1:200 zeigen ob1600@ sloc=5110o(4)1loc=5150o(7)1loc=5120o(5)12320 @"Hier ist keiner, dem du was zeigen koenntest.":200 2o(ob)"Das hast du doch gar nicht !":200 $!"OK. Du zeigst ";b$:1740 _graben `8loc5040"Hier ist nichts zu graben":200 j^"Du graebst im Sand.":I=15:.01z# =,0:.01z# =,20:10 :I t|O(8)1o(15)=1.01z# =,30:.01z# =,502:"Im Sand liegt eine Axt.":o(15)=loc yjo(8)=1.01z# =,30:.01z# =,502:"Im Sand liegt ein Knochen.":o(8)=loc ~ 200 liste H"Du hast bei dir:":ok=0:i=8on:o(i)o$(i):ok=1 i:ok"Nichts" 200 ' stecken (ob1600@ 2o(ob)2320 10 q$="GRUFT".05|L,10 :"Ungueltiger Name.":2700 q$7000X:200  Maus |"Durch den Raum huscht eine Maus.":o(13 )=loc:i=029:21,i;" ":.01z# =,502:5:i -21,30;" ";5,0;:  Orte ]"vor dem Eingang zur Gruft.",5030,0,0,0,0,1,7 Y"in einer dunklen Kammer.",0,5020,0,0,300,,0,6 ["in einem kleinen Raum",5060,5030,0,5010,10 ,5,0 e"in der Vorhalle der Gruft",5070,5040,5000,5020,0,1,6 \"in einem vermodertem Raum.",0,0,0,5030,0,6,2 Y"in der alten Kapelle.",5090,5060,0,0,200,7,1 e"in einer bruechigen Vor-ratskammer.",0,0,5020,5050,0,4,0 Z"in einem schmalen Gang.",5110,0,5030,0,30,7,3 W"in einem grossen Raum.",5120,0,0,0,400,5,0 "in einem dunklen Raum, der Boden ist wackelig. Vor der Tuer im Norden ist ein breiter Riss im Boden.",0,5100,5050,0,500,5,1 Z"in einem engen Durchgang",0,5110,0,5090,0,3,7 "in die Wohnung eines Vampirs gestossen, der in der Gruft haust.",0,5120,5070,5100,502,2,7 "in einem stickigen Raum fast ohne Sauerstoff. Im Sueden ist eine Holztuer.",5160(,0,0,5110,100d,0,7  S"in einem Eckraum.",0,5140,5090,0,0,3,0 "in einem kleinen Raum ohne Inhalt. An einer Wand ist ein seltsamer Schlitz.",0,0,0,5130 ,0,6,2 "in der SCHATZKAMMER. Die Tuer faellt hinter dir zu. Vor dir liegen unvorstellbare Reichtuemer...",0,0,0,0,900,1,6 (T"in einem leeren Raum.",0,0,5120,0,0,7,0 o Inserts p z(o(2)=loc"voller alter Waffen."  o(11 )loc ""Auf dem Boden liegt eine Vase." {4:105i,100d:-5,-20,-2:30,0,3*/2:-5,20,-2 -20,0,-1:20,0,-1:105i,82R:20,0,1:95_,65A:40(,0,1:ink  5o(4)=loc1;"Er hat dich entdeckt !!!"  Ԝo(5)=loc"Aaahh! Vor dir steht eine Mumie!Sie will den Dieb ihres Schatzesbestrafen!!!":i=14:j=-40(-35#:.1}L,j:j:i #o(6)=1so=5080  8o(14)=loc4,12 ;6;"";5,12 ;"";6,10 ;"";7,10 ;"";8,12 ;"";9 ,12 ;"";10 ,12 ;"";11 ,12 ;"" B o(1)loc 7:100d,30:0,60<:-15,8:0,-60<:15,-8:502,0:0,60<:-15,8:-502,0 15,-8:502,0:125},30:0,60<:120x,60<,2:130,60<,2 ink: o(16)loc  q6:125},502,30:125},20:5,0:0,60<,:-5,0 P125},502,10 :125},40(:0,20,-*.75@ ink: dp127,40(:0,20:-15,0:0,-20:10 ,5:0,15 i42*,70F:0,-30:135,0:42*,40(:-30,-30:177,70F:0,-30:30,-30 no40(,37%:40(,-3:30,5:20,-1:5,-5:40(,6 c-30,-20:-20,4:-30,0:-20,-2:-35#,16 135,33!:0,-11 :130,38&:0,-15:110n,39':0,-15:80P,34":0,-13 _202,15:0,25:-10 ,10 :0,-25:10 ,0 o(9 )=locno=5130   Li=-20502:.005y# =,i:254,i:i:i=1200:i xo(7)1"und vor dir steht ein stinkenderfauliger ZOMBIE !!!":i=5020-1:.01z# =,i:i  X Start b"e=23613+256*23614:e,0:e+1,0 g#q$"GRUFT"8110:100d 5:5:1: 8,2;2;" " (16,8;" by R. Fuchs 3/84"  300, Z:1,8;2;7;" G R U F T ";1;1,9 ;"_________" F''"Durchforsche die Gruft, finde den Schatz und bring ihn heraus!" /''0;"Aber es gibt einige Hindernisse!" 7'''"Wichtige Befehle sind:"'7;2;"SAVE"; J" -saved momentane Situation auf Band."'7;2;"LISTE"; F"-listet die mitgefuehrten Dinge."'7;2;"SCHAU"; "-gibt Ortsbeschreibung."  ^#0;0,0;"Wenn du bereit bist fuer dieses Unternehmen, druecke eine Taste!" =""7190   ? INIT @!8050r:vn:v$(vn,10 ) Ji=1vn:v$(i):i r17,"GEHE","NORDEN","SUEDEN","OSTEN","WESTEN","NIMM","LEGE","ZERSCHLAGE","SCHAUE","OEFFNE","HILFE","FANGE","ZEIGE","GRABE","LISTE","STECKE","SAVE" |'8090:on:o$(on,9 ):o(on) i=1on:o$(i):o(i):i K17,"SCHRANK",5010,"WAFFEN",5020,"SAND",5040,"VAMPIR",5110,"MUMIE",1,"HOLZTUER",5120,"ZOMBIE",5150,"KNOCHEN",1,"BRETTER",1,"OELLAMPE",5060,"VASE",5070,"KNOBLAUCH",1,"MAUS",1,"KREUZ",5050,"AXT",1,"MUENZE",5080,"SCHATZ",5150 auf=0:loc=5000 08150:i=015:c:"a"+i,c:i  ֏0,0,0,3,7,15,31,255,0,0,0,128,216,244,254,254 #' Gewinn #(Mi=15:j=010 :.08}# =/i,j+i:254,j+i:j:i #2>0:0:7::q$="!!! HURRA !!! ":q$=q$+q$ #7a8,0;"Du hast es geschafft und dich"'"als unerschrockener Abenteurer erwiesen ..." #<$#0;"Willst du noch einmal ?" #BD2;2,0;q$:q$=q$(2)+q$(1):5 #F=""9026B# #P="N"0 #Z % Tod %0:0:6: %&q$="S H D":y$=" C A E" %09500%:i=09 :i,12 ;"S H D";21-i,13 ;"C A E":a,b:a/4,b:i,12 ;" ";21-i,13 ;" ":i %:/10 ,12 ;"SCHADE":a,b:a/4,b %N3,0,2,0,1,0,3,0,2,3,1,2,2,2,1,0,2,0,1,-1,6,0 %S.i=1100d:i::5,0;: %Xvo(10 )=1loc5120"Die Gruft ist durch deine Schuldabgebrannt und du in den Flammenumgekommen !!!" %baloc=5090"Du bist in den Spalt gestuerzt und hast dir leider das Genick gebrochen !!!" %lzloc=5110"Der Vampir hat dich erwischt !!!"'"Er hat dich ausgesaugt und dich zum Leben als Halbtoter verdammt..." %viloc=5150"Der Zombie hat seine Aufgabe alsWaechter des Schatzes erfuellt und dich zerrissen !!" %nloc=5120"Der Frevel ist geraecht!"'"Die Mumie hat den Dieb ihres Schatzes mit dem Tode bestraft!" %0'''1;2;"Du hast VERSAGT !!!!!!!" % #0;"Ein neuer Versuch ?" %=""9665% %="N"0 % '3:q$="GRUFT":q$7000X:.5,0:q$ QGRUFT