Mordor RR(R 4:6:0::#0;" Bitte einen Moment Geduld ... ":6000p:9950&:.3,0::6610  "Anzahl der Spieler ? (1-6)";s 2s<1s>620 7sp=s 360< Zx=1sp n#"Name des ";(x);". Spielers?"'q$ l(x)=q$ l(x)>10 l(x)=10 p$(x)=q$ x #0;"Ich denke ..." Fhl=(23sw=1)+(43+sw=2)+(67Csw=3) Ep=(29sw=1)+(47/sw=2)+(71Gsw=3) $sch=500*sw+(*100d)*sw l=0 ky1=(*(hl-1))+2 ky2=(*(hl-1))+2 ky1=ky2195 q(sp) x=1sp g(x)=100d+(*502) x \z(sp):x(sp):y(sp):a(sp):b(sp):c(sp):d(sp):e(sp):f(sp):i(sp):n(hl):m(hl+1) x=4hl+1 rd=(*10 )+1 rd>7m(x)=1 %rd=1rd=2m(x)=2 rd=7m(x)=5 2rd=5(rd=4sp>1)m(x)=3 Jrd=6(rd=3sp>4)(rd=8sp>2)m(x)=4 x m(ky1+1)=6 m(ky2+1)=7 k1=(*100d) ,e=(*hl)+1 6j=e+1hl+1 @n=j Jx=e*n-1 T(x/p)*p=x370r ^j h 300, rx=1sp ws$=p$(x)(l(x)) | 7:  ek=0 a1,0;s$;" hat ";g(x);" Goldstuecke. ";2,0;"Was moechte er kaufen?" ek450 v(x)=10 "0;'"Nr.(max) Artikel";24;"Preis"'"________________________________";'" 0";9 ;"Nichts"'" 1 (20)";9 ;"Zauberstein";26;"15 g$"," 2 ( 1)";9 ;"Zauberfluegel";24;"1248 g$"," 3 ( ";sp-1;")";9 ;"Wirbelzauber";26;"98 g$"," 4 ( 5)";9 ;"Heiltrank";26;"25 g$"," 5 (10)";9 ;"Gegenzauber";26;"49 g$"," 6 ( 3)";9 ;"Telesprung";26;"29 g$"," 7 ( ";sp-1;")";9 ;"Krankzauber";25;"148 g$","________________________________";7;0 y=6:ek=1 #1;0,0;"?" k$="":7500L ,0,0;" " %k$="0".1}L,0:500 k$<"1"k$>"7"450 q=k$:.03{u\,2*q !g(x)-h(q)<-100d550& g(x)=g(x)-h(q) 600X+10 *q  400 h03020  x  1010 &&0,1;"Das ist zu teuer!" 0 400 ba(x)=a(x)+(a(x)<20) g lb(x)=1 q vc(x)=c(x)+(c(x)spl=1 v(l)01010 s$=p$(l)(l(l)) *g(l)<0g(l)=(g(l)+g(l)/10 ) *g(l)>0g(l)=(g(l)+g(l)/502)  r=0 "6:0: $N1,1;s$;" ist in Hoehle ";q(l);".";1;"Wohin geht ";s$;"?" .a3,172:249,0:0,-129:-249,0:0,129 8 r(l)=q(l) B1;10 ,2;" Aktion "rt(5);6,10 ;" Vorwaerts ";14,10 ;"Rueckwaerts ";10 ,20;"Seitwaerts";10 ,13 ;"Nichts" F_7,136:241,0:0,-89Y:-241,0:0,89Y G[15,96`:81Q,0:0,-9 :-81Q,0:0,9 H\159,96`:81Q,0:0,-9 :-81Q,0:0,9 I\79O,128:97a,0:0,-9 :-97a,0:0,9 J[79O,64@:97a,0:0,-9 :-97a,0:0,9 K\103g,96`:491,0:0,-9 :-491,0:0,9 L=""1100L Vk= `Rkt(3)kt(2)kt(1)kt(5)kt(4)r=k1100L jr=k tMa=(q(l)*er=t(4))+(q(l)*nr=t(2))+(p+2-q(l)r=t(1)) ~r=t(5)1000 -r=t(3).1}L,10 :8000@ a=a-(a/p)*p ahlq(l)=a  5: >.1}L1220 /i=-5-15-1:.05|L,i:i `s$;" ist gestolpert,"'"was seiner Gesundheit schadet."'"Er bleibt vorerst in Hoehle ";r(l);"."  q(l)=r(l) v(l)=v(l)-1 v(l)09900& ""1208  1000 s$;" kommt aus Hoehle ";r(l) Δq(l)=r(l).02{# =,-10 :5:.02{# =,0:5:.5,0:.01z# =,30:"in eine Sackgasse. ":1000 Pi=16:.02{# =,-10 :5:.02{# =,0:5:i (1,0;"in Hoehle ";q(l);"."  3000  1000 q(l)3010 z(l)y(l)9500% (20::x=l:h0=1:390 x=421 x,0;b$ x 2,0;s$;" sieht" &3100 +100d*m(q(l)+1) h0=0  "einen leeren Raum." & #angr=(*5+4)*10 2"ein ";"schreckliches "angr>70F;"Monster." j=112 /j<4j+6,10 ;7;x$(j) /j>3j+6,10 ;2;x$(j) j zau=0 x=1100d x 0,0;o$;o$;o$;o$ :0,0;"Wendet ";s$;" einen"'"Gegenzauber an?" =""3240 .01z# =,0 )t(5)4100+400*zau e(l)3260 &s$;" hat keinen"'"Gegenzauber mehr." 4100+400*zau "O.K." e(l)=e(l)-1 zaum(q(l)+1)=0  angr=*5+4 ."Einen ";"Teufels-"angr>6;"Zauberer." j=111 -j+6,11 ;6;3;w$(j) j zau=1  3230 H ds=0 R 3510 ds=1 6"Einen Goldschatz"ds;"Diamanten"ds;" im Wert von" Vn(q(l))n(q(l))=sp*100d+sp*200*ds+10 *(*(502+100d*ds)) 0:6-ds *8,14;1;1;"" 7n(q(l))>20013 ;1;1;"" :n(q(l))>50012 ;1;1;;"" <n(q(l))>100011 ;1;1;"" @10 ;6;"";5,1;n(q(l));" g$" 150 0,0;o$;o$;o$;o$;18,1;" Zuviel Buecken";19,1;" schadet der";20,1;" Gesundheit!" .0,0;"Wieviel nimmt "'s$;" mit?" !step=10 :7000X:x=in !x<0x>n(q(l))3570 g(l)=g(l)+x n(q(l))=n(q(l))-x #n(q(l))m(q(l)+1)=0 $x>100dv(l)=v(l)-x/100d v(l)09900& 2,0;x;" g$" "5,1;n(q(l));" g$ "  9"einen Zauberstein."'"Wendet er einen Gegenzauber an? " q=q(l)  q(l)=r(l) g10 ,15;3;" ";11 ,15;2;" ";12 ,15;6;" " $=""3620$ ).01z# =,0 .t(5)3680` 8e(l)3660L =919,1;"Er hat keinen Gegenzauber mehr." B 3680` Le(l)=e(l)-1 Qm(q+1)=0 R320,1;"Der Zauber ist gebrochen." V `620,1;"Die Hoehle ist unpassierbar." j t"Den Zauberschluessel." ~M5,11 ;" ";6,11 ;" ";7,11 ;" ";8,11 ;" ";9 ,11 ;" ";10 ,15;" ";11 ,15;" ";12 ,15;" ";13 ,15;" ";14,15;" ";" ";k1;"";15,15;" ";" ";16,15;"" :i=13:.1}L,0:.5,3:i ~18,1;6;"Der sagenhafte Schatz von";19,1;"Mordor ist in Hoehle >";7;ky2;6;"<." x(l)=1  z(l)3910F %6;"eine verschlossene Tuer." j=815 %j,14;1;;y$(j-7) j x(l)3850  z17,0;"Da er nicht im Besitz des ma- gischen Schluessels ist, nuetzt ihm das ueberhaupt nichts. "   V17,0;" Nenne die Zahl des magischen Schluessels. " ":step=1:7000X:kx=in kx=k13880(  $"Das war falsch" # 2z(l)=1 <0,0;t$ >Z.2~L,0:.2~L,2:.6,4:.2~L,2:.6,7 A 3915K F,">> Den Schatz von Mordor. <<" HZ.2~L,0:.2~L,2:.6,4:.2~L,2:.6,7 K x=17+2*y(l) PB1;1;t$(232 );t$(1);t$(32 ) Zx _y(l) `41;1;t$(232 );t$(1) dg(l)011 ,14;6;1;"";2;0;"";6;1;"":4110 ؏i=15:.2~L,i:i:13 ,13 ;2;"";14,13 ;4;" ";15,13 ;2;"" m7,11 ;"";8,11 ;7;"";9 ,11 ;7;"" 320,0;2;"DAS MONSTER IST TOT." %<.3m(q(l)+1)=0 0,0;o$;o$;o$;o$;0,0;s$;" ist ";"Topfit"v(l)>9 ;"leicht angegriffen"v(l)9 v(l)>7;"leicht verletzt"v(l)7v(l)>5;"schwerverletzt"v(l)5v(l)>2;"in Lebensgefahr"v(l)2v(l)>.5;"." v(l)>7 v(l).59900& "Nimmt ";s$;" Heiltrank?" ""4355 =""4360 t(5) d(l)44000 23,0;"Er hat keinen Heiltrank mehr." & 0d(l)=d(l)-1 :v(l)=v(l)+4 D 4330 i=1angr a=(*4)+1 "9 ,18;6;v$(a) (j=115:.02{# =,30 =t(a)4580 9j:i=120:.05|L,10 +*10 :i N1;7;20,1;"Das war wohl nichts.";7;0 q(l)=(*hl)+1  1000 49 ,18;6;"**":.04|# =,5 i |6:.2~L,3:.2~L,0:.4L,3:j=9 14:j,14;6;" ":j:4  1000 p46010z:h(7):i=17:h(i):i zC15,1248,98b,25,491,29,148 xv(6):r(6):g(6):l(6):j$(4):p$(6,10 ):k6=0:k7=0:h0=0: t$=" DER SAGENHAFTE SCHATZ VON M O R D O R " 'b$="" 'o$=" " w$(11 ,11 ) $w$(1)="" .w$(2)=" " 8w$(3)=" " Bw$(4)=" " Lw$(5)=" " Vw$(6)=" " `w$(7)=" " jw$(8)=" " tw$(9 )=" " ~w$(10 )=" " w$(11 )="" v$(8,2) 6330:i=14 v$(i) i "O ","N ","W ","S " y$(8,6) y$(1)=" " y$(2)=" " y$(3)=" " y$(4)=" " y$(5)=" " y$(6)=" "  y$(7)=" " y$(8)=" "  c$="RGH-SOFTWARE PRAESENTIERT" x$(12 ,11 ) x$(3)="" (x$(2)="" 2x$(3)="" <x$(4)="" Fx$(5)="" Px$(6)="" Zx$(7)="" dx$(8)="" nx$(9 )="" xx$(10 )="" x$(11 )="" x$(12 )=" " o(5):p(5) 6590:i=15  o(i),p(i) i: Y9 ,15,12 ,9 ,12 ,21,14,15,18,15  t(5)  !" Definieren Sie Ihre Tasten" 10 ,15;"*" zi=1:128,92\:24,0:10 ,19;1;"?":6900:10 ,19;"!" xi=2:124|,96`:0,24:6,15;1;"?":6900:6,15;"!" "{i=3:119w,92\:-24,0:10 ,11 ;1;"?":6900:10 ,11 ;"!" 6{i=4:124|,87W:0,-24:14,15;1;"?":6900:14,15;"!" JTi=5:10 ,15;1;"?":6900:10 ,15;"!" T =""6900 t(i)=:.1}L,0 ""6920 .1}L,-5: N X/in=0:"":#0;1,0;">" ])#0;1,1;in;" ":k= bk=t(2)in=in+step m2k=t(4)in=in-step:in<0in=0 vk=t(5):  7005] L 7516\ V=""7510V [Ay,0;1;1;" " \k= `1k=t(2)y=y-1:y<0y=0 j3k=t(4)y=y+1:y>21y=21 t!k=t(5)k$=(y,1): ~Ay,0;1;1;" "  7510V @ J"Was will ";s$;" tun?" KP2,0;"(0) Nichts"'"(1) Zauberstein"a(l)'"(2) Zauberfluegel"b(l)' LL"(3) Wirbelzauber"c(l)'"(4) Heiltrank nehmen"d(l)'"(5) Telesprung"f(l)' MG"(6) Heiltrank abgeben"d(l)'"(7) Krankzauber"i(l)'"(8) Kontoauszug" Y)y=2:7500L:.1}L,5 ^k$<"1"k$>"8":1060$ h8000@+100d*k$ m rk$="2"k$="5"1250 | 1060$  a(l) K15,0;"Wohin soll der Stein gelegt werden ? (1 - ";hl;")"  step=1:7000X:k=in .03{u\,-30 k<1k>hl hs=m(k+1) Chs3hs4hs6hs7m(k+1)=5 a(l)=a(l)-1   b(l) 715,0;"Wohim soll es gehen? (1 - ";hl;")"  step=1:7000X:k=in &k<1k>hl 0b(l)=0 :q(l)=k ?$i=030:.03{u\,i:i D l c(l) qsp=1 v;12 ,0;"Wen soll es betreffen?"''"[0] niemand" x=1sp $v(x)>0xl"[";x;"] ";p$(x) x 2y=15:7500L:i$=k$:.1}L,10 i$<"1"i$>sp x=i$ x=lv(x)0 k68645! k78745)" q(x)=(*hl+1) c(l)=c(l)-1 X.5,-10 :i=-10 -40(-1:.03{u\,i:i:.5,-40(  d(l) v(l)=v(l)+4 v(l)>10 v(l)=10 d(l)=d(l)-1 .03{u\,4  !4 !9 f(l) !>f(l)=f(l)-1 !Hq(l)=(*hl)+1 !M$i=130:.03{u\,i:i !R ! d(l) ! k6=1 ! 8305q ! k6=0 !)fl=(g(x)>0)*((*(g(x)/3))) !$i=130:.03{u\,i:i !fflp$(x,l(x));" zahlt an ";s$'fl;" g$ fuer den Zauberflug in"'"Hoehle ";q(x);" und den Heiltrank." ! !g(x)=g(x)-fl !d(x)=d(x)+1 !d(l)=d(l)-1 !g(l)=g(l)+fl ! q(l)=q(x) !i=1150:i ! ! i(l) " k7=1 " 8305q " k7=0 "8i(l)=i(l)-1 "Bv(x)=v(x)-6 "Lv(x)<1v(x)=1 "QX.5,-10 :i=-10 -40(-1:.03{u\,i:i:.5,-40( "V "` "j4;"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$";o$;" $ Sparkasse Mirakuland $ ";o$;" ------- Kontoauszug ------- ";o$;"Name:",s$,o$;"Goldstuecke:",g(l);" g$",o$ "t14;"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" "xo$;">MATERIAL<";o$ "~,a(l)a(l);" Zauberstein";"e"a(l)>1 "b(l)"1 Zauberfluegel" "c(l)c(l);" Wirbelzauber" "d(l)d(l);" * Heiltrank" "e(l)e(l);" Gegenzauber" "?f(l)f(l);" Telespru";"e"f(l)>1;"ng";"e"f(l)>1 "i(l)i(l);" Krankzauber" "j$=(v(l)*10 ) "F12 ,16;">GESUNDHEIT<";5;14,16;j$;"%" "_0,0:255,0:0,175:-255,0:0,-175 " 6 "=""8870" """8885" " #( %">>>> ";1;s$;0;" <<<<"'"hat das Geheimnis des sagen- umwobwnen Schatzes von Mordor gelueftet. Er hat noch "'g(l);" g$." %0i=12:.5,0:.5,2:.25~,3:.25~,2:.5,0:i:i=12:.5,3:.5,5:1,7:i:i=12:.375?,7:.125},8:.25~,7:.25~,5:.25~,3:.25~,2:.5,0:i:i=12:.5,0:.5,-5:1,0:i %:>x=19 :x+10 ,20-x;"SPIELENDE":x %$'"Ein neues Spiel? (j/n)":0 %q$= %q$="j"20 %q$"n"9625% % &0,0;o$;o$;o$;o$;0,0;" Das war zuviel. "'s$;" ist tot.":1,-5:1,-7:2,-10 &v(l)=0 &x=1sp &v(x)>01000 &x &02,2;"Kein Spieler hat ueberlebt." & 9530:% &!9960&:n="a""s"+7 & a:n,a:n: &m1,3,3,7,7,15,15,63?,128,192,192,224,224,240,240,252,7,5,7,7,7,6,3,1,224,192,224,224,224,96`,192,128,0,64@,32 ,255,63?,127,160,32 &k31,63?,127,255,255,255,15,15,248,252,254,255,255,255,240,240,2,2,2,255,255,255,0,0,0,0,2,2,2,2,2,2,15,15,15,15,15,15,15,31 &240,240,240,240,240,240,240,248,31,31,31,63?,63?,63?,63?,127,248,248,248,252,252,252,252,254 &-127,127,127,127,255,255,28,124|,254,254,254,254,255,255,568,62>,0,8,28,44,,60<,24,28,62>,63?,63?,63?,63?,47/,39',35#,110n &170,85U,170,85U,170,85U,170,85U,170,85U,170,85U,255,255,255,255 '$:9990':"Mordor"1:"" s