Der kleine Hobbit
Erforschen Sie das Land der Fantasie. Finden Sie einen Schatz im Land der Elfen und Magier. Entrinnen Sie den bösen Mächten.
Der kleine Hobbit ist im Prinzip nichts weiter als die deutsche Version eines der meistverkauften englischen Adventures überhaupt (sechsstellige Verkaufszahlen!): »The Hobbit« von Melbourn House. Bereits im ersten Adventurekurs (Sonderheft 2/85) habe ich Ihnen dieses Spiel, insbesondere seinen Parser, beschrieben. In der Tat, die Spectrum-Version von »The Hobbit« machte dieses Programm aufgrund seines ausgezeichneten Parsers (der lange als Standard bei Adventure-Tests betrachtet wurde) berühmt. Das folgende Listing ist eine deutsche Grafikversion des Hobbits von J.R.R. Tolkien. Natürlich wurde das englische Programm nicht einfach ins Deutsche übersetzt und die Handlung 1:1 übernommen. Ich habe den »kleinen Hobbit« vielmehr programmiert, nachdem ich sämtliche Tolkien-Bücher studiert habe. Die deutsche Hobbit-Version ähnelt nicht zuletzt deshalb viel mehr der Handlung des Buches als die englische es tut. Dieses Programm soll keineswegs eine Konkurrenz zum englischen Hobbit sein, sondern vielmehr ein kleines Tolkien-Adventure für alle, die kein Englisch können. Der Parser des Spiels ist ausgezeichnet und versteht ganze Sätze. Hervorzuheben sind auch die einzeln handelnden Personen im Spiel: Thorin, Gandalf, Gollum und die Orks laufen im Spiel selbständig umher. Der Spieler kann mit diesen Personen sogar Unterhaltungen führen. So etwa in der Form: »SAG THORIN ›GIB MIR DEN SCHLÜSSEL‹«. Allerdings ist hierbei noch die Frage gestellt, ob die Personen dieses auch immer tun. Man muß manchmal schon hartnäckig darauf bestehen, um etwas zu erreichen... »SAG THORIN ›HOLE BIER‹, SAG THORIN ›HOLE BIER‹, SAG THORIN ›HOLE BIER‹«... Mit etwas Geduld wird man erreichen, was gewünscht ist.
»Den kleinen Hobbit« habe ich bereits vor einem Jahr parallel zu »Gordon Saga 1« programmiert. Daher ähnelt sich auch die Grafik der beiden Spiele stark. Zusammengesetzt aus den Standard-Zeichensätzen, aber oft umwerfend gut gelungen.
Für Tolkien-Fans gibt es hier einfach keinen Kompromiß: Abtippen und Spielen!
(Michael Nickles/dm) |
0 rem *********************************
1 rem *t h e h o b b i t mbm 19.8.84*
2 rem *********************************
5 gosub62500
11 i1=40960:i2=49151:restore
12 fori=i1toi2:pokei,peek(i):next:a=10*4096+8*256+10*16:fori=atoa+2
13 readx:pokei,x:next:a=704:fori=atoa+5:readx:pokei,x:next
14 data 32,192,2
15 data 32,138,173,76,247,183
16 a=2*256+12*16+6:fori=atoa+20:readx:pokei,x:next
17 data 208,3,76,29,168,32,192,2,32,19,166
18 data 56,165,95,233,1,164,96,76,36,168
19 poke40996,197:poke40997,2:poke1,54
23 print"{clr}{wht}";:poke53280,0:poke53281,0
24 data4900,5000,5100,5300,5400,5700,5900,5800,5500,5600,5300
25 restore 24:dimok(11):fori=1to11:readii:ok(i)=ii:nexti:ok=1
26 data7300,7400,7200,7100
27 restore26:fori=1to4:readii:bu(i)=ii:next:bu=1
28 sm(1)=8600:sm(2)=8400:sm(3)=8200:sm(4)=8500:ms=0:sm=1:diml$(38)
29 datadie karte,2,den schluessel,10,das schwert,3400,das seil,3400
30 dataden ring,5900,den goldschluessel,4700,das essen,0,den bogen,6
31 datadas fass,7300,den goldschatz,8600
32 datader warg,6100,thorin,3000,gandalf,3000,elrond,3600,eine waldelbe,7000
33 databard,7700,gollum,6000,der butler,7300,der ork,0,der troll,3200
39 restore29:fori=1to10:readi$:readii:ge$(i)=i$:ge(i)=ii:next
40 fori=1to10:readi$:readii:pe$(i)=i$:pe(i)=ii:next
80 rem ge(1)=1:ge(2)=1:ge(3)=1:ge(4)=1:ge(5)=1:ge(6)=1:gl=3
90 fa(0)=1:gl=0:bt=1:sa=1:zm=3000:pe(2)=1:goto2105
100 ti$="000000":l$="":poke198,0:print"{down}{wht}> {CBM-@}";
115 rem
120 getx$:ifpeek(203)=1then160
121 ifti$>"000030"then160
128 ifx$=""then120
129 ifl$=""andasc(x$)=20then120
130 i=asc(x$):ifi<65ori>90thenifi<>20andi<>32andi<>34then120
135 printchr$(20);x$;"{CBM-@}";
137 ifasc(x$)=20thenl$=left$(l$,len(l$)-1):goto120
140 l$=l$+x$:ti$="000000":iflen(l$)>76thenfori=1to80:printchr$(20);:next:goto115
150 goto120
160 print".";:fori=1tolen(l$)+4:printchr$(20);:next
170 rem satz in l$(0)-l$(10) gliedern
175 fori=0to10:l$(i)="":next
180 lc=0:fori=1tolen(l$)
185 ifmid$(l$,i,1)=" "thenlc=lc+1:goto190
188 l$(lc)=l$(lc)+mid$(l$,i,1)
190 nexti
200 goto1000
500 print"{lred}";a$:poke198,0:wait198,1:fori=1to40:printchr$(20);:next:r$=""
510 print"{wht}{up}";:return
1000 rem a u s w e r t u n g
1005 r$="":ca=-1:ob=0:ac=0:ve=0
1010 ca=ca+1:e$=l$(ca)
1030 ife$="n"thenr$="norden":zm=n
1040 ife$="s"thenr$="sueden":zm=s
1050 ife$="w"thenr$="westen":zm=w
1060 ife$="o"thenr$="osten":zm=o
1065 ife$="runter"thenr$="{left}{left}{left}{left}{left}runter":zm=r
1070 ife$="rauf"thenr$="{left}{left}{left}{left}{left}rauf":zm=h
1075 ife$="nw"thenr$="nordwesten":zm=nw
1080 ife$="no"thenr$="nordosten":zm=ne
1085 ife$="sw"thenr$="suedwesten":zm=sw
1090 ife$="so"thenr$="suedosten":zm=so
1100 ife$<>"warte"ande$<>"wa"then1105
1101 ifzn=3300andtu(1)<>1thenprint"ein neuer tag bricht an.":tu(1)=1:goto1600
1102 print"sie warten.":goto1600
1105 ife$="schau"thenzm=zn:goto2105
1110 ife$="oeffne"thengosub11100
1115 ife$="schliesse"thengosub11200
1116 ife$="toete"thengosub11500
1120 ife$="nimm"thenve=1:gosub11300
1122 ife$="verlier"thenve=2:gosub11300
1124 ife$="i"ore$="inventur"thengosub11400
1125 ife$="iss"thenifge(7)=1orge(7)=znthenprint"sie essen.":ge(7)=0:goto1600
1130 ife$="sag"ore$="sage"thengosub20000:goto1600
1131 ifvl=2ande$="zeit"thenvl=0:gl=2:goto1600
1132 ife$<>"grabe"orzn<>5200then1135
1133 print"{down}sie graben im sand und entdecken eine falltuer.":tu(7)=1:goto1600
1135 ifleft$(e$,5)="zerst"ore$="vernichte"orleft$(e$,5)="zersc"thenac=ac+1
1140 ife$="spinnennetz"ore$="netz"thenac=ac+1
1142 ife$="wirf"thenve=17
1143 ife$="seil"andge(4)=1thenob=4
1144 ifleft$(e$,4)="zieh"thenve=2
1146 ifleft$(e$,9)="ueberquer"orleft$(e$,3)="geh"thenve=3
1148 ifleft$(e$,7)="schwimm"andzn=6900thenvl=5
1150 ife$="fass"thenifge(9)=1orge(9)=znthenob=5
1152 ifleft$(e$,6)="spring"thenve=4
1500 ifca=lcthen1600
1510 goto1010
1600 :
2000 rem a c t i o n
2005 ifge(10)=1then62000
2010 ifzm=0andr$<>""thena$="kein weg in diese richtung !":gosub500:goto2200
2020 ifzm=0then2200
2100 rem neues zn
2103 print"sie gehen nach ";r$;"."
2105 zn=zm:zm=0:restore zn:print
2110 readdl
2111 fori=1todl:readd$:print"{yel}";d$;:next:print"{wht}":print
2115 n=0:s=0:w=0:o=0:h=0:r=0:nw=0:ne=0:sw=0:so=0:gosubzn:gosub10000:goto2400
2200 rem
2204 ifvl>0then39000
2400 rem die monster bewegen sich
2401 ifint(10*rnd(1))>5then2403
2402 ifzn=7000thenprint"{down}die waldelbe nimmt sie gefangen.":zm=7100:goto2105
2403 :
2410 ifpe(9)=znthen2455
2411 ok=ok+1:ifok=12thenok=1
2415 pe(9)=ok(ok)
2420 ifpe(9)<>4900then2450
2422 iftu(5)<>0then2430
2424 tu(5)=1:ifzn=4100thenprint"{down}in der hoehle oeffnet sich ein spalt !":n=4900
2425 goto2450
2430 tu(5)=0:ifzn=4100thenprint"{down}der spalt schliesst sich.":n=0
2450 ifpe(9)<>znthen2480
2455 print"{down}ein ork betritt den raum !"
2460 i=int(12*rnd(1))+1
2462 ifi<=2orge(5)=1thenprint"{down}der ork geht weiter.":goto2411
2463 ifi>9then2480
2464 ifi>2thenprint"{down}der ork nimmt sie gefangen.":zm=5200:goto2105
2480 ifbt=0then2495: rem butler
2481 ifzn<>pe(8)thenbu=bu+1:ifbu=5thenbu=1
2482 pe(8)=bu(bu)
2483 ifpe(8)<>7100then2490
2484 iftu(10)=1then2487
2485 tu(10)=1:ifpe(8)=znthenprint"{down}jemand oeffnet die kerkertuer.":o=7200:bu=1
2486 goto2490
2487 tu(10)=0:ifpe(8)=znthenprint"{down}jemand schliesst die kerkertuer.":o=0
2490 ifpe(8)<>znorzn=7100then2495
2491 print"{down}der butler des elbenkoenigs erscheint ploetzlich !"
2492 ifint(10*rnd(1))>4then2494
2493 print"{down}der butler nimmt sie gefangen.":zm=7100:goto2105
2494 pe(8)=bu(bu)
2495 ifsa=0then2500
2496 ms=ms+1:ifms=5thenms=1
2497 ifsm=znthengosub34000:vl=6:dr=1:goto2500
2498 sm=sm(ms):ifsm=znthendr=1
2500 gosub9000:rem t h o r i n
2501 ifpe(3)=znthengosub9500:remgandalf
2502 ifpe(4)=znthengosub30000:rem elrond
2503 ifpe(7)=znthengosub31000:rem gollum
2504 ifpe(1)=znthengoto32000:rem warg
2505 ifba=1thengosub33000:rem bard
2506 ifdr=1andsa=1thengosub34000:rem smaug
2509 it=0:ifac=2andzn=6800thenit=1:ifge(3)=1thentu(8)=1:o=6900:it=2
2510 ifit=1andge(3)<>1thena$="sie haben kein schwert !":gosub500:return
2511 ifit=2thenprint"{down}sie zerschlagen das spinnennetz mit dem schwert."
2520 ifve<>17orob<>4orzn<>6900then2550
2521 iftu(9)=1thena$="das haben sie bereits.":gosub500:return
2530 print"{down}sie werfen das seil ueber den fluss.":fori=1to2000:next:ge(4)=6900
2540 print"{down}das seil verfaengt sich im boot.":tu(9)=1
2550 ifve<>2orob<>4andge(4)<>6900ortu(9)<>1then2570
2555 print"{down}sie ziehen das boot zu sich herueber.":tu(9)=2:ge(4)=1
2570 ifve<>3ortu(9)<>2then2580
2575 print"{down}sie ueberqueren den fluss mit dem boot.":pe(2)=7600:zm=7000
2576 tu(9)=3:goto2105
2580 ifzn<>7300then2600
2582 ifve<>17orob<>5orfa(0)<>1then2585
2583 print"{down}sie werfen das fass durch die falltuer.":ge(9)=7500
2585 ifve<>4orfa(0)<>1then2600
2587 print"{down}sie springen durch die falltuer in das fass,das im fluss schwimmt."
2590 fori=1to3000:next
2591 print"{down}sie treiben auf dem fluss in oestliche richtung.":pe(2)=7600
2592 fori=1to3000:next
2594 print"{down}in einer starken kurve werden sie aus dem fass heraus ans ufer";
2595 print" geschleudert."
2597 zm=7600:goto2105
2600 :
2899 goto100
2910 rem s p i e l k a r t e
3000 data 3,sie befinden sich in einer kompfortabel eingerichteten hoehle ,
3010 data die einer langen halle aehnelt.
3015 data 0
3016 iftu(0)=1theno=3100
3030 gosub60000:return
3100 data 1,das einsame tal:n=3200:vl=0:gosub60050:return
3200 data 1,lagerplatz der trolle
3202 iftu(1)=-1thenvl=1:goto39000
3203 iftu(1)=0thentu(1)=-1:gosub60090
3205 iftu(1)=1thenpe$(10)="die versteinerten trolle"
3206 iftu(1)=1andge(2)=10thenge(2)=3200
3207 iftu(1)=1then3230
3210 print"der boese troll sagt 'kann man den wohl kochen ?'"
3220 print"der fette troll meint 'er wird kaum ei- nen mundvoll geben.'{down}
3230 s=3100:n=3300:so=3500
3231 iftu(1)=-1thenvl=1
3240 return
3300 data 3,dunkler pfad mit fussspuren der trolle. ,
3302 data noerdlich liegt die tuer zur hoehle der trolle.:gosub60310
3303 iftu(3)=1thenn=3400
3305 s=3200:vl=0:return
3400 data 1,in der hoehle der trolle:s=3300:return
3500 data 1,am kleinen fluss:vl=0:nw=3200:so=3600:tu(4)=0:return
3600 data 1,rivendell:nw=3500:o=3700:return
3700 data1,im nebelgebirge:w=3600:n=3800:o=4300:return
3800 data1,im nebelgebirge:s=3700:n=3900:return
3900 data1,im nebelgebirge:s=3800:ne=4000:return
4000 data1,im nebelgebirge:sw=3900:so=4400:return
4100 data1,trockene hoehle im nebelgebirge:iftu(5)=1thenn=4900
4110 s=4200:return
4200 data1,im nebelgebirge:nw=3900:n=4100:s=4300:return
4300 data1,im nebelgebirge:w=3700:n=4200:o=4800:nw=3800:return
4400 data1,im nebelgebirge:nw=4000:r=4500:return
4500 data1,im nebelgebirge:r=4600:return
4600 data1,im nebelgebirge:w=4700:return
4700 data1,im nebelgebirge:sw=4300:o=4600:return
4800 data1,ein schwerer und gefaehrlicher gebirgs- pfad im nebelgebirge
4810 w=4300:o=6100:gosub60175:return
4900 data 1,hoehlensystem der orks:s=4100:o=5000:ne=5300:return
5000 data 1,hoehlensystem der orks:w=4900:n=5300:o=5100:return
5100 data 1,hoehlensystem der orks:w=5000:nw=5300:n=5400:return
5200 data 1,gefaengnis der orks:return
5300 data 1,hoehlensystem der orks
5310 w=5200:sw=4900:s=5000:so=5100:o=5400:h=5600:return
5400 data 1,hoehlensystem der orks:w=5300:s=5100:h=5700:return
5500 data 1,hoehlensystem der orks:n=5800:o=5600:return
5600 data 1,hoehlensystem der orks:w=5500:r=5300:return
5700 data 1,hoehlensystem der orks:nw=5900:n=6000:return
5800 data 1,hoehlensystem der orks:s=5500:o=5900:return
5900 data 1,hoehlensystem der orks:w=5800:so=5700:return
6000 data 1,feuchte grotte:s=5700:return
6100 data 1,eine waldlichtung:w=4800:return
6300 data 1,weites grasland am fuss des gebirges:n=6400:return
6400 data1,beorns haus:ge(7)=6400:s=6300:o=6600:ne=6500:gosub60345:return
6500 data1,das tor zu mirkwald:sw=6400:s=6600:o=6700:gosub60140:return
6600 data1,auf dem nachtwaldweg
6610 w=6400:o=6800:s=6700:return
6700 data1,auf dem nachtwaldweg
6710 print"{down}sie sehen riesiege augen auf sie herun- terstarren.":vl=4:return
6800 data1,auf dem nachtwaldweg
6810 w=6600:s=6700
6820 iftu(8)=1theno=6900:return
6830 print"{down}ein riesiges spinnennetz versperrt den weg nach osten.{down}":return
6900 data1,der schwarze schnelle fluss
6910 w=6800
6920 iftu(9)<2thenprint"{down}auf der anderen seite des flusses liegt ein boot.{down}"
6930 return
7000 data1,auf dem nachtwaldweg
7010 return
7100 data1,im kerker der waldelben
7110 return
7200 data 1,in einem gang
7210 w=7100:s=7400:return
7300 data1,im weinkeller des elbenkoenigs
7310 o=7400:gosub60270:return
7400 data 1,an der magischen tuer
7410 n=7200:w=7300:return
7600 data1,am grossen see
7610 o=7700:return
7700 data 1,die stadt esgaroth
7710 w=7600:n=7800:gosub60220:return
7800 data 1,am schnellen fluss
7810 n=8000:s=7700:o=7900:return
7900 data 1,am wasserfall:gosub60405
7910 w=7800:return
8000 data 1,wuestenland
8010 s=7800:h=8100:return
8100 data 1,die ruinen von dal:gosub60470
8110 r=8000:h=8200:return
8200 data 1,der einsame berg:gosub63100
8210 n=8400:r=8100:nw=8300:ne=8500:return
8300 data 1,der rabenhuegel
8310 so=8200:return
8400 data 1,eingang zur drachenhoehle
8410 s=8200:return
8500 data1,trockene hoehle
8505 iffa(1)=1thenr=8600
8510 sw=8200:return
8600 data1,die schlafkammer des drachen
8610 sw=8400:return
9000 ifpe(2)=5200andzn<>5200andzn<6100then9050
9001 rem t h o r i n
9002 ifzn>4900andzn<6300then9050
9003 ic=0:ifpe(2)<>znthenr$="{down}thorin kommt herbei.":pe(2)=zn:ic=1
9004 ific=1andpe(3)<>znandpe(3)<>0thenpe(3)=zn:pe(2)=zn:r$="beide"
9005 ifr$=""then9009
9006 ifr$="beide"thenr$="{down}thorin und gandalf kommen herbei."
9007 printr$
9009 ifge(1)=2andzn=3000thenprint"{down}thorin gibt ihnen die karte.":ge(1)=1
9010 ifint(10*rnd(1))>4thenreturn
9011 ifpe(3)=3100andzn=3000thenprint"{down}thorin sagt 'beeil dich !'":goto9016
9015 ifint(10*rnd(1))=5thenprint"{down}thorin sagt 'beeil dich !'":goto9020
9016 ifint(20*rnd(1))=5thenprint"{down}thorin beginnt von gold zu singen.":goto9020
9017 ifint(20*rnd(1))=5thenprint"{down}thorin setzt sich und wartet."
9018 ifint(20*rnd(1))<>5orpe(3)<>0then9020
9019 print"{down}thorin sagt'waere gandalf nur bei uns.'.
9020 ifzn>=4900andzn<6000andint(20*rnd(1))+1>3andpe(2)<>5200thenpe(2)=4800
9050 ifpe(3)<3700then9055
9051 print"{down}gandalf sagt 'wichtige aufgaben warten auf mich{$a0}!' und geht fort."
9052 pe(3)=0
9055 ifzn=5200andpe(2)<>5200thenprint"{down}thorin kommt herein.":pe(2)=5200
9060 ifge(6)=1thenprint"{down}thorin nimmt den goldschluessel.":ge(6)=2
9070 ifsa<>0orzn<>8500orfa(1)<>0then9499
9075 print"{down}ein roter sonnenstrahl trifft auf die glatte felswand in der";
9076 print" hoehle !":fori=1to2000:next
9080 print"{down}ein flaches stueck gestein splittert vomfels und faellt herunter."
9090 print"{down}ein kleines loch erscheint etwa drei fuss ueber der erde !"
9095 print"{down}thorin steckt den goldschluessel in das loch."
9097 print"{down}eine tuer tut sich auf - ein steiler wegfuehrt von ihr hinab in ";
9098 print"die dunkelheit.":fa(1)=1:r=8600
9499 return
9500 rem g a n d a l f
9503 ifun(0)=3thenun(0)=0:print"{down}gandalf sagt 'was soll der quatsch ?'"
9504 ifint(10*rnd(1))>4thenreturn
9505 ifzn=3000andtu(0)=1thenprint"{down}gandalf geht nach osten.":pe(3)=3100
9510 ifzn=3000andtu(0)=0thenprint"{down}gandalf oeffnet die tuer.":tu(0)=1:o=3100
9512 ifzn<>3100orga(0)=1then9514
9513 print"{down}gandalf sagt 'ein grosses abenteuer ste-ht dir bevor !'":ga(0)=1
9514 :
9517 ifint(20*rnd(1))=1andge(1)=1thenge(1)=3:print"{down}gandalf nimmt die karte."
9519 ifint(20*rnd(1))=1andge(1)=3thenge(1)=1:print"{down}gandalf gibt dir die karte.
9520 ifint(30*rnd(1))=1thenprint"{down}gandalf sagt 'was nun ?'."
9999 return
10000 rem moegliche richtungen
10010 r$="":ifnthenr$=r$+"n,"
10011 ifsthenr$=r$+"s,"
10012 ifothenr$=r$+"o,"
10013 ifwthenr$=r$+"w,"
10014 ifnwthenr$=r$+"nw,"
10015 ifnethenr$=r$+"no,"
10016 ifswthenr$=r$+"sw,"
10017 ifsothenr$=r$+"so,"
10018 ifhthenr$=r$+"rauf,"
10019 ifrthenr$=r$+"runter,"
10020 ifr$=""then10100
10030 print"moegliche richtungen: ";left$(r$,len(r$)-1):print:r$=""
10100 rem sie sehen ...
10105 ic=0:s$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}"
10110 print"sie sehen : {up}"
10120 fori=1to10:ifpe(i)<>znthen10125
10121 ic=1:i$=pe$(i):ifleft$(i$,3)="der"theni$=mid$(i$,4,len(i$)):i$="einen"+i$
10123 prints$;i$
10125 ifge(i)=znthenprints$;ge$(i):ic=1
10130 next
10190 ifzn=3000thenic=1:prints$"die truhe
10200 ifzn=3000thenic=1:prints$"die tuer
10201 ifzn=6300thenic=1:prints$"den carrock
10202 ifzn=3300thenic=1:prints$"die tuer zur trollhoehle
10210 ifzn=4100andtu(5)=1thenic=1:prints$"einen spalt in der nordwand."
10220 ifzn=5200thenic=1:prints$"ein fenster im westen.
10222 ifzn=5200thenic=1:prints$"die gefaengnistuer.
10223 ifzn=5200thenic=1:prints$"den sandboden
10224 iftu(7)=1andzn=5200thenprints$"die falltuer"
10225 ifzn=7300thenprints$"die falltuer"
10226 ifsa=0andzn=msthenprints$"den toten smaug."
10227 ifzn=7300thenprint"{down}unter der falltuer rauscht ein starker fluss."
10228 ifzn=8500andfa(1)=1thenprints$"eine oeffene tuer"
10229 iftu(9)=2andzn=6900thenprints$"ein boot"
10230 ifzn=7100thenprints$"tuer nach osten"
10290 ific=0thenprint" {left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{up}";
10300 fori=1to10
10310 ifge(i)=0orge(i)>=3000then10350
10320 :forii=2to10
10325 ::ifge(i)=iiandpe(ii)=znthenprint"{down}";pe$(ii);" hat ";ge$(i);"."
10330 :nextii
10350 nexti
10500 rem ific=1thenprint
10600 return
11000 rem routinen fuer verben
11010 ob=0:fori1=0tolc:e$=l$(i1)
11020 ife$="tuer"thenob=1
11030 ife$="truhe"thenob=2
11031 ife$="fenster"thenob=3
11032 ife$="falltuer"thenob=4
11040 nexti1:return
11100 rem oeffne ********
11110 gosub11000
11114 ifob<>2then11125
11115 ifob=2andzn<>3000thena$="hier ist keine truhe.":gosub500:return
11117 iftu(2)=0thenprint"sie oeffnen die truhe.{down}":tu(2)=1:return
11118 iftu(2)=1thena$="die truhe ist bereits offen.":gosub500:return
11125 ifob<>1orzn<>3000then11128
11126 iftu(0)=1thena$="die tuer ist bereits offen.":gosub500:return
11127 iftu(0)=0thenprint"sie oeffnen die tuer.":tu(0)=1:o=3100:return
11128 ifzn<>3300then11140
11130 iftu(3)=0andge(2)=1thenprint"sie oeffnen die tuer.":tu(3)=1:n=3400:return
11131 iftu(3)=0andge(2)<>1thena$="sie haben keinen schluessel.":gosub500:return
11132 iftu(3)=1thena$="die tuer ist bereits offen.":gosub500:return
11140 ifob=3andzn=5200thena$="sie sind zu klein dazu.":gosub500:return
11145 ifzn<>7300orob<>4then11160
11147 iffa(0)=0thenfa(0)=1:print"sie oeffnen die falltuer.":return
11148 iffa(0)=1thena$="die falltuer ist bereits offen.":gosub500:return
11160 a$="sie koennen das nicht oeffnen.":gosub500:return
11200 rem schliesse *********
11210 gosub11000
11214 ifob<>2then11225
11215 ifob=2andzn<>3000thena$="hier ist keine truhe.":gosub500:return
11217 iftu(2)=1thenprint"sie schliessen die truhe.":tu(2)=0:return
11218 iftu(2)=0thena$="die truhe ist bereits zu.":gosub500:return
11225 ifob<>1orzn<>3000then11230
11226 iftu(0)=0thena$="die tuer ist bereits zu.":gosub500:return
11227 iftu(0)=1thenprint"sie schliessen die tuer.":tu(0)=0:un(0)=un(0)+1:o=0:return
11230 ifzn=3300andtu(3)=1thenprint"sie schliessen die tuer.":tu(3)=0:n=0:return
11231 ifzn=3300andtu(3)=0thena$="die tuer ist bereits zu.":gosub500:return
11232 ifzn<>7300thenreturn
11233 ifob=4andfa(0)=1thenfa(0)=0:print"sie schliessen die falltuer.":return
11235 ifob=4andfa(0)=0thena$="die falltuer ist bereits zu.":gosub500:return
11260 a$="das geht nicht.":gosub500:return
11300 rem nimm / verliere **********
11310 im=0:s$="":g1=0:fori=0tolc:e$=l$(lc)
11320 fori1=1to10
11330 ife$=mid$(ge$(i1),5,len(ge$(i1))-4)thenim=i1:i1=11:i=lc+1
11340 nexti1:nexti
11350 s$=ge$(im):g1=ge(im)
11360 ifve=1andg1=1thena$="sie haben das bereits.":gosub500:return
11365 ifve=1andg1=znthenprint"sie nehmen ";s$;".":ge(im)=1:return
11366 ifve=1thena$="sie koennen das nicht nehmen.":gosub500:return
11370 ifve=2andg1=1thenge(im)=zn:print"sie verlieren ";s$;".":return
11375 a$="sie haben das nicht.":gosub500:return
11400 rem inventur ************
11410 print"sie haben :{up}"
11420 ic=0:fori=1to10:ifge(i)=1thenprint,"{rght}{rght}"ge$(i):ic=1
11430 nexti
11440 ific=0thenprint,"{rght}{rght}nichts"
11450 return
11500 rem toete *********
11505 p$="":p=0:fori=1tolc:e$=l$(lc)
11506 ife$="thorin"andpe(2)=znthenp$="thorin"
11507 ife$="gandalf"andpe(3)=znthenp$="gandalf"
11508 ife$="elrond"andpe(4)=znthenp$="elrond"
11509 ife$="waldelbe"andpe(5)=znthenp$="die waldelbe"
11510 ife$="gollum"andpe(7)=znthenp$="gollum"
11511 ife$="ork"andpe(9)=znthenp$="ork"
11512 ife$="troll"andpe(10)=znthenp$="troll"
11513 ife$="butler"andpe(8)=znthenp$="der butler"
11519 nexti
11520 ifp$=""thena$="ich seh das hier nicht":gosub500:return
11540 print"{down}sie greifen "p$" an !"
11550 ifp$="der butler"then11570
11552 print:printp$" verteidigt sich zu sehr !"
11554 fori=1to2000:next
11556 print:printp$" hat sie getoetet.":vl=1.4:return
11570 ifge(3)<>1thenprint"{down}der butler hat sie getoetet.":vl=1.4:return
11572 print"{down}sie haben den butler mit einem schlag enthauptet.":bt=0
11574 pe$(8)="den toten butler":return
20000 rem s p r e c h e n
20005 ic=0:fori=2to7
20010 ifpe$(i)=l$(1)thenic=1
20011 ifpe(i)=znandic=1thenp$=pe$(i):p=i:ic=2
20015 nexti
20020 ific=1thena$=""+l$(1)+" ist nicht anwesend.":gosub500:return
20022 ific=0thena$="das geht nicht.":gosub500:return
20030 print"sie sagen etwas zu ";p$;"."
20040 i1=0:i2=0:fori=1tolen(l$)
20042 ifmid$(l$,i,1)<>chr$(34)then20045
20043 ifi1=0theni1=i+1:goto20045
20044 ifi2=0theni2=i
20045 nexti
20050 l$=mid$(l$,i1,i2-i1)
20060 rem satz in l$(0)-l$(10) gliedern
20062 fori=0to10:l$(i)="":next
20064 lc=0:fori=1tolen(l$)
20066 ifmid$(l$,i,1)=" "thenlc=lc+1:goto20070
20068 l$(lc)=l$(lc)+mid$(l$,i,1)
20070 nexti
20100 rem analysieren
20105 eg=0:ve=0:gg=0:fori=0tolc:e$=l$(i)
20110 ife$="lies"ore$="untersuche"thenve=1
20120 ife$="gib"thenve=2
20121 ife$="smaug"theneg=3
20130 ifleft$(e$,4)="trag"thenve=3
20140 ifleft$(e$,3)="geh"thenve=4
20145 ife$="nimm"thenve=5
20150 ife$="verlier"thenve=6
20160 ife$="hilf"thenve=7
20170 ife$="mir"ore$="mich"theneg=1
20171 ife$="oeffne"thenve=8
20172 ife$="fenster"theneg=2
20173 ife$="toete"thenve=8
20174 ifvl=2ande$="zeit"thenvl=0:gl=2
20175 fori1=1to10
20176 ife$=mid$(ge$(i1),5,len(ge$(i1))-4)thengg=1
20180 nexti1
20190 nexti
20200 rem
20210 ifve<>1orp<>4orgg<>1then20280
20212 ifge(1)<>1then20500
20215 print"{down}elrond betrachtet die karte.":print"{down}elrond sagt ";
20220 ifik=0thenik=(int(5*rnd(1))+1)*10+20220
20221 gotoik
20230 print"'nordoestlich von beorns haus liegt das tor zu mirkwald.'."
20231 return
20240 print"'noerdlich vom carrock liegtdas haus von beorn.'.":return
20250 print"'oestlich vom grossen see liegt die stadt esgaroth.'.":return
20260 print"'oestlich vom schnellen fluss ist ein wasserfall.'.":return
20270 print"auf der nordwestseite des einsamen berges ist der rabenhuegel.'."
20271 return
20280 ifve=2andp=3andge(gg)=3thenprint:printpe$(3)" gibt ihnen ";ge$(gg)
20281 ifve=2andp=3andge(gg)=3thenge(gg)=1
20290 ifve=3andeg=1andp=2andzn=5200thenprint"{down}thorin traegt sie.":tr=1:return
20292 ifve<>8orp<>2oreg<>2ortu(6)<>0then20295
20293 print"{down}thorin oeffnet das fenster.":tu(6)=1:return
20295 ifp=2andve=4andtr=1thentr=0:zm=5300:print:r$="{left}{left}{left}{left}{left}{left} durch das fenster":return
20300 ifp=6andve=7thenprint"{down}bard sagt 'ich werde smaug toeten !'.":ba=1:return
20310 ifeg<>3orp<>6orve<>8orsm<>znthen20320
20311 print"{down}bard nimmt seinen schwarzen pfeil.":print"{down}eine alte drossel ";
20312 print"kommt angeflogen und setzt sich auf bards schulter.
20313 print"{down}bard sagt 'schwarzer pfeil,du hast nie gefehlt,glueck sei mit dir.
20314 fori=1to2000:next:print"{down}bard schiesst auf smaug."
20315 fori=1to3000:next:ifint(100*rnd(1))<95then20317
20316 print"{down}der schwarze pfeil verfehlt smaug !":vl=6:return
20317 print"{down}der schwarze pfeil bohrt sich tief in smaugs brust !"
20318 print"{down}smaug stuerzt und stirbt.":sa=0:ms=zn:vl=0
20320 return
20499 ifp=7then20600
20500 print"{down}"p$" sagt 'nein.'.
20600 return
30000 rem e l r o n d
30005 tu(4)=tu(4)+1
30010 iftu(4)=1thenprint"{down}elrond sagt 'hallo !'.
30015 iftu(4)=2thenprint"{down}elrond bietet ihnen etwas zu essen an.":ge(7)=3600
30020 return
31000 rem g o l l u m
31005 ifgl>1then31100
31010 print"{down}gollum fragt 'etwas,das alles und jeden verschlingt:baum der rau";
31012 print"scht,vogel der singt,frisst eisen,zermalmt den haertes-ten stein,";
31014 print"zerbeisst jedes schwert,zerb- richt jeden schrein,schlaegt ";
31015 print"koenige nieder,schleift ihren palast,traegt maechtigen fels";
31017 print" fort als leichte last?'.":vl=2:gl=2:return
31100 ifgl=2thenprint"{down}gollum sagt'er weiss es mein schatzzz.'.":gl=3:return
31110 gl=gl+1:ifgl>5andge(5)=1thenge(5)=7:print"{down}gollum nimmt den ring.":return
31120 ifge(5)=1thenprint"{down}gollum sagt ' was hat er in der tasche mein schatz?'.
31130 ifge(5)=7thenvl=2
31140 return
32000 rem w a r g
32010 print"{down}der fuerchterliche warg greift sie an !"
32020 ifge(3)+ge(4)+ge(5)<>3orgl=0then32100
32030 print"{down}sie verteidigen sich mit ganzer kraft...
32032 fori=1to3000:next
32034 print"ein riesiger adler stuerzt aus der luft auf sie herunter,packt sie ";
32036 print"mit seinen klauen und fliegt davon !
32038 fori=1to2000:next:pe(2)=6300
32040 print"{down}nach einem langen flug landet der adler in der naehe eines ";
32042 print"felsplateaus,laesst sie frei und fliegt davon...":zm=6300:goto2105
32100 vl=3:goto39000
33000 rem b a r d
33010 ifpe(6)<>znthenpe(6)=zn:print"{down}bard folgt ihnen."
33050 return
34000 rem s m a u g
34010 ifsm=znthenprint"{down}smaug erscheint !"
34040 ifint(20*rnd(1))<5thenprint"{down}smaug sagt 'ich krieg dich,dieb !'."
34100 return
39000 rem v e r l o r e n
39010 print
39015 ifvl=1thenprint"der troll hat sie gefressen."
39017 ifvl=2thenprint"jemand hat sie von hinten erwuergt.
39019 ifvl=3thenprint"der warg hat sie getoetet.
39020 ifvl=4thenprint"etwas schweres faellt herunter und er- schlaegt sie."
39021 ifvl=5thenprint"als sie das wasser beruhren fallen sie in schlaf....."
39023 ifvl=6thenprint"smaug hat sie gefressen.
39500 end
60000 rem g r a f i k
60005 rem hobbit-hoehle
60015 print,"{brn} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}",,," {CBM-P}{CBM-P}{SHIFT-@}{rvon}{orng}M B N{rvof}{brn}L{CBM-P}",,," {CBM-P}{CBM-P}{SHIFT-@}{orng}{rvon}M MM B NN N{rvof}{brn}L{CBM-P}
60020 print,"{CBM-M}{orng}{CBM-*}{rvon} MM M{brn}{CBM-R}{CBM-E}{CBM-R}{orng}N NN {rvof}{SHIFT-POUND}{brn}{CBM-G}",,,"{CBM-N} {orng}{CBM-*}{rvon} M{brn}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{orng}N {rvof}{SHIFT-POUND} {brn}{CBM-H}
60025 print,"{CBM-M} {rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{rvof} {CBM-G}",,,"{CBM-M} {rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{rvof} {CBM-G}
60030 print,"{CBM-M} {rvon}{CBM-R}{CBM-E}{blu}OP{brn}{CBM-R}{CBM-E}{rvof}{orng}{CBM-*}{rvon}{CBM-@}{CBM-@}{CBM-@}{rvof}{SHIFT-POUND}{brn}{rvon}{CBM-E}{CBM-R}{rvof} {CBM-G}",,,"{CBM-M} {rvon}{CBM-E}{CBM-R}{blu}{CBM-H}{CBM-N}{brn}{CBM-E}{CBM-R}{rght}{orng}{CBM-G}{left}GBB{rght}{brn}{CBM-R}{CBM-E}{rvof} {CBM-G}
60035 print,"{CBM-M} {rvon}{CBM-R}{CBM-E}{grn}L{SHIFT-@}{brn}{CBM-R}{CBM-E}{rght}{gry1}{CBM-D}{orng}HH{rght}{brn}{CBM-E}{CBM-R}{rvof} {CBM-G}",,,"{CBM-N} {rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{rght}{orng}GBB{rght}{brn}{CBM-R}{CBM-E}{rvof} {CBM-G}
60040 print,"{CBM-M} {rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{orng}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{brn}{CBM-E}{CBM-R}{rvof} {CBM-G}",,,"{CBM-N} {orng}{rvon}{SHIFT-POUND}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {CBM-T}{CBM-T}{CBM-*}{rvof}{brn} {CBM-G}
60045 print,"{CBM-M}{orng}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{brn}{CBM-G}":goto63000
60050 rem wuestenland
60055 print"{brn}","{CBM-N}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-H}
60060 fori=1to13:print,"{CBM-N}",," {CBM-H}":next
60065 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}","{down}{rght}{rght}{down}{wht}.{up}{rght}{rght}.{rght}{rght}{down}{down}.{up}{up}{rght}.{rght}{rght}.{down}.{rght}{rght}.{up}{rght}.
60070 print,"{rght}{down}{down}{down}{down}{down}{gry1}N{up}N{up}N{up}NM{down}MNMN{up}NM{down}MNMNM NM",,"{rght}{rght}{rght}{rght}{rght}{rght}N N N N MN
60075 print,"{rght}{rght}{rght}{rght}{rght}N N N N N",,,," {brn}MN",,,"{rght}{rght}{rght}{rght}{CBM-N}N MN {CBM-N}N",,,"{rght}{rght}{rght}{rght}M{CBM-H} {CBM-N}N {CBM-N}
60080 print,"{rght}{rght}{rght}{rght}{CBM-N} {CBM-N} {CBM-N}{orng}{CBM-*}{rvon} {rvof}":fori=1to2:print,"{rght}{rvon} {rvof}"
60085 next:goto63000
60090 remork-grillplatz
60095 print,"{brn} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":fori=1to14:print,"{CBM-N}",,"{CBM-G}":next
60100 print," {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}"
60105 print"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}","{down}{rght}{rght}{wht}. {down}.{up}{rght}{rght}.{rght}{rght}{down}{down}.{up}{up}.{down}{rght}{rght}.{down}{down}.
60110 print,,"{up}{up}{left}{left}{left}{left}{brn}MN MN{down}{left}{left}{left}{left}{left}{CBM-N}NM{CBM-N}NMNMN",,,"{rght}{rght}{rght}{rght}MNM{CBM-H} M{CBM-H}N{CBM-H}{CBM-N}NMN
60115 print,"{CBM-M}MN MN{CBM-N}NN{CBM-N}N{CBM-N}NM{CBM-H}M{CBM-H}MNN{CBM-G}",,"{CBM-N}M{CBM-H}M{CBM-N}M{CBM-N}NMM{CBM-H}M{CBM-H}{CBM-N}N{CBM-N}N M{CBM-H}{CBM-H}
60120 print,"{CBM-M}{CBM-N}NNM{CBM-H}M{CBM-H} M{CBM-H}{CBM-N} M{CBM-H}{CBM-N}N {CBM-N}N{CBM-G}",,"{rght}{CBM-N}N {CBM-N}N{CBM-N} {CBM-N}{gry1}{CBM-F}{CBM-F}{CBM-D}{brn}{CBM-N} M{CBM-H}NM{CBM-H}{CBM-H}
60125 print,"{CBM-M}M{CBM-G}MM{CBM-H}N{CBM-H} {gry1}{CBM-V}{brn}N{yel}X{brn}M{gry1}{CBM-F}{brn} {CBM-N}N {CBM-N}N{CBM-G}",,"{CBM-N}{CBM-N}N {CBM-N}N {gry1}{CBM-C} {CBM-V}{CBM-V}{brn} M{CBM-H} M{CBM-H}{CBM-H}
60130 print,"{CBM-M}{CBM-N} {CBM-N} {CBM-H} {CBM-H}{CBM-G}",,"{CBM-N} {orng}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-K}{brn} {CBM-H}
60135 print,"{CBM-M}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}":goto63000
60140 rem das waldtor
60145 print,"{lblu}{rvon} {rvof}",,,"{rvon} NMNM {rvof}
60150 print,"{rvon}M NMN N MNMNM {rvof}",,,"{rvon} MN N N{rvof}{yel}NM{rvon}{lblu} N N M{rvof}
60155 print,"{rvon} N N N{rvof}{yel}NNMM{rvon}{lblu} N {rvof}",,,"{rvon}N {rvof}{yel}NN MM{rvon}{lblu} {rvof}
60160 print,"{yel}{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P{CBM-I}{CBM-I}{CBM-I}{CBM-I}{CBM-I}",,,"{brn}{rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{yel}{rvof}OO{CBM-Y}{CBM-Y}PP{brn}{rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}
60165 print,"{rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{yel}{rvof}{CBM-H}{CBM-H}{rvon} {rvof}{CBM-N}{CBM-N}{brn}{rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}",,,"{rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{yel}{rvof}{CBM-H}{CBM-H}{rvon} {rvof}{CBM-N}{CBM-N}{brn}{rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}
60170 print,"{rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{yel}{rvof}{CBM-H}{CBM-H}{rvon} {rvof}{CBM-N}{CBM-N}{brn}{rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}",,,"{rvon}{orng} {rvof}":goto63000
60175 rem gebirgspfad
60180 print,"{brn} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}",,"{CBM-N} {wht}.{orng}{rvon}{CBM-H}{CBM-H}{CBM-H} {CBM-H} {CBM-H} {CBM-H} B {rvof}{brn}{CBM-G}
60185 print,"{CBM-M} {wht}.{orng} {rvon}{CBM-H}{CBM-H}{CBM-H} {CBM-H} {CBM-H} {CBM-H} B {rvof}{brn}{CBM-G}",,"{CBM-N} {wht}.{orng} {rvon}{CBM-J}{CBM-H}{CBM-H} {CBM-H} {CBM-H} {CBM-H} B {rvof}{brn}{CBM-G}
60190 print,"{CBM-M}{wht}. .{orng}{rvon}{CBM-K}{CBM-H}{CBM-H} {CBM-H} {CBM-H} {CBM-H} B {rvof}{brn}{CBM-G}",,"{CBM-N} {orng}{rvon}{SHIFT-POUND}{CBM-*}{rvof} {rvon}{CBM-K}{CBM-H}{CBM-H} {CBM-H} {CBM-H} {CBM-H} B {rvof}{brn}{CBM-G}
60195 print,"{CBM-M}{orng}{rvon}{SHIFT-POUND}NM{CBM-*}{SHIFT-POUND}{brn}{CBM-Y}{CBM-Y}P{orng}{rvof}{CBM-*}{rvon}{CBM-H} {CBM-H} {CBM-H} B {rvof}{brn}{CBM-G}",,"{CBM-N}{orng}{rvon}N MM{brn} {CBM-N}{CBM-*}{orng}{rvof} {CBM-*}{rvon}{CBM-H} {CBM-H} B {rvof}{brn}{CBM-H}
60200 print,"{CBM-M}{orng}{rvon} NM M{brn} {CBM-N}{CBM-N} {rvon}{CBM-*}{rvof} {orng}{CBM-*}{rvon} {CBM-H} B {rvof}{brn}{CBM-G}",,"{CBM-N}{orng}{rvon}N MN{brn} {CBM-N}{CBM-N} {CBM-N}{CBM-N}{rvon}{cyn}{rvof} {orng} {CBM-*}{rvon} B {rvof}{brn}{CBM-G}
60205 print,"{CBM-M}{orng}{rvon} N {brn} {CBM-N}{CBM-N} {CBM-N}{CBM-N} {rvof} {orng}{CBM-*}{rvon} B {rvof}{brn}{CBM-G}",,"{CBM-N}{gry1}{rvon} {brn} {CBM-N}{CBM-N} {CBM-N}{CBM-N} {rvof} {orng}{CBM-*}{rvon}B {rvof}{brn}{CBM-G}
60210 print,"{CBM-M}{gry1}{rvon} {brn} {CBM-N}{CBM-N} {rvof} {orng}{CBM-*}{rvon} {rvof}{brn}{CBM-G}",,"{CBM-M}{gry1}{rvon} {rvof} {orng}{CBM-*}{brn}{CBM-G}
60215 print," {brn}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":goto63000
60220 rem forrestriver
60225 fori=1to6:print,"{rvon}{lblu} {rvof}":next
60230 print,"{rvon}{lblu}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":fori=1to7:print,"{rvon}{lgrn} ":next
60235 print,"{up}{up}{up}{up}{up}{up}{up}{up}{up}{rvon}{lblu}N{up}N{up}NM{down}M{left}{up}{up}{up}UI{down}{down}{down}{down}{left}{left}N{up}N{up}N{up}{up}{up}UI{down}UI{down}{down}{down}{left}{left}N{up}NM{down}{left}N{up}N{up}NM{down}MNMN
60240 print,,"{left}{left}{left}{up}{up}{lblu}{SHIFT-POUND}{CBM-*}{down}{left}{left}{rvon}{gry1}UI{down}{left}{left}JK{down}{left}{left} {rvof} {lblu}{CBM-*}{down}{left}{left}{left}{left}{left}{left}{rvon}{gry1} {gry2}{CBM-H}{CBM-F}{CBM-F}{CBM-F}{down}{left}{left}{left}{left}{left}{left}{gry1} {gry2}{CBM-H}{CBM-V}{CBM-V}{CBM-V}
60245 print,,"{up}{left}{left}{left}{left}{left}{left}{lgrn}{SHIFT-POUND}{CBM-*}{rvon}{gry1}{down}{left}{left}{gry1}{CBM-D} {rght}{gry1}{rvof}{CBM-K}{rvon}{CBM-K}{gry2}{CBM-H} {rght}{rght}{up}{lgrn}{rvof}{SHIFT-POUND}{CBM-*}{rvon}{down}{left}{left}{gry1}{CBM-D} ",,,"{rght}{rvof}{lgrn}{SHIFT-POUND}{CBM-*}","{rght}{SHIFT-POUND}{CBM-*}"
60250 print,"{rght}{gry2}{rvon}{CBM-D} {rvof}{lgrn}{SHIFT-POUND} {CBM-*}{rght}{SHIFT-POUND} {CBM-*}{rght}{rvon}{gry1} {CBM-F}{rvof}{rght}{lgrn}{SHIFT-POUND} {CBM-*}",,,"{rght}{rght}{rght}{gry1}{rvon}{CBM-C}{CBM-D} {rght}{gry2} {CBM-D} {rght}{rght}{rght}{rght} {CBM-F} "
60255 print,"{lgrn}{rvon} {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvof}{CBM-U}{CBM-Y}{CBM-T}{CBM-Y}{rvon}{CBM-I}{CBM-O}{CBM-@} {rvof}
60260 print," {CBM-@}{CBM-P}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T}{CBM-U}{rvof}{CBM-I}{CBM-P}{orng}{rvon}{SHIFT-POUND}{rvof}{SHIFT-POUND}{lgrn}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-O}{CBM-P} {rvof}
60265 print,"{rvon} {CBM-T}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@}"
60266 print,,"{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{lblu}{rvon}N{rght}N{down}{left}{left}{left}{left}N{up}{up}{up}{rght}{rght}{rght}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":goto63000
60270 rem weinkeller
60275 print," {gry2}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
60280 fori=1to2:print,"{CBM-M} {rvon}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{rvof}{CBM-G}":print,"{CBM-N} {rvon}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{rvof}{CBM-G}":next
60285 print,"{CBM-M} {brn}{rvon}{SHIFT-POUND}{gry2}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{orng}HBG{gry2}{CBM-E}{orng}HBG{gry2}{CBM-E}{rvof}{CBM-G}":print,"{CBM-N} {brn}{rvon}{SHIFT-POUND}N{gry2}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{orng}BBB{gry2}{CBM-E}{orng}BBB{gry2}{CBM-R}{rvof}{CBM-G}"
60290 print,"{CBM-M} {brn}{rvon}{SHIFT-POUND}NN{rvof}{CBM-@}{CBM-@}{CBM-@}{CBM-@} {orng}{rvon}HBG{rght}HBG{rvof}{gry2} {CBM-G}":print,"{CBM-M} {brn}{rvon}NN{rvof}{brn}{SHIFT-POUND}L{CBM-P}{CBM-P}N {gry2}{CBM-G}
60295 print,"{CBM-M} {brn}{rvon}N{rvof}{brn}{SHIFT-POUND}{lblu}{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND} {gry2} {CBM-G}
60300 print,"{CBM-M}N{brn}{SHIFT-POUND}{lblu}{rvon}{SHIFT-POUND} {rvof}{SHIFT-POUND} {gry2} {CBM-G}":print,"{CBM-M} {brn}{CBM-T}{CBM-T}{CBM-T}{CBM-T} {orng}{rvon}HBG{rvof} {gry2}{CBM-G}
60305 print,"{CBM-M} {orng}{rvon}HBG{rght}BBB{rvof}{gry2} {CBM-G}":print," {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":goto63000
60310 rem dunkler pfad
60315 print:fori=1to3:print,"{grn}{rvon} ":next
60320 print,"{CBM-C}{brn}{CBM-K}{grn}{CBM-U}{CBM-C}{brn}{CBM-K} {grn}{CBM-U}{brn}{CBM-K}{grn}{CBM-C}{rvon} {CBM-D}{CBM-F} "
60325 fori=1to3:print,"{brn} {CBM-K} {CBM-K} {CBM-K} {CBM-K} {CBM-K}":next
60330 print,"{orng}{rvon} {CBM-@}{CBM-P}{CBM-O}{CBM-I}{CBM-P} {CBM-P}{CBM-O}{CBM-P}{CBM-@} {CBM-@}{CBM-P}"
60335 print,"{CBM-@}{CBM-@}{CBM-P}{CBM-O}{CBM-I}{CBM-P}{CBM-@}{CBM-P}{CBM-O}{CBM-P}{CBM-@}{CBM-@}{CBM-@}{CBM-P}
60340 print,"{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}":goto63000
60345 rem beorns haus
60350 print,"{lblu}{rvon} {rvof}
60355 print,"{rvon} {$a0} NM {rvof}
60360 print,"{rvon} NM NM{rvof}{SHIFT-POUND}{CBM-*}{rvon}N M N{rvof}
60365 print,"{rvon}N MN {rvof}{SHIFT-POUND} {rvon}{orng} {lblu} MN {rvof}
60370 print,"{rvon} N {rvof}{SHIFT-POUND} {rvon}{orng} {lblu}{rvof}{CBM-*}{rvon} N {rvof}
60375 print,"{rvon} N {rvof}{SHIFT-POUND} {CBM-*}{rvon} {rvof}
60380 print,"{rvon} {brn}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{CBM-E}{CBM-R}{lblu} {rvof}
60385 print,"{rvon} {brn}{CBM-R}{CBM-E}{rght}{CBM-E}{wht} {brn}{CBM-E}{lblu} {rvof}
60390 print,"{rvon}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{brn}{CBM-E}{CBM-R}{rvof}{orng}{CBM-V}{rvon}{brn}{CBM-R}{CBM-E}{CBM-R}{lblu}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{CBM-R}{rvof}
60395 print,"{rvon}{grn}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvof}
60400 print,"{rvon} {rvof}":goto63000
60405 rem wasserfall
60410 print," {brn}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
60415 print,"{CBM-M} H H Y{CBM-M}{CBM-M}{lblu}{CBM-O}{brn}{CBM-G}GB B {CBM-H}
60420 print,"{CBM-M} Y B B {CBM-H}{lblu}{rvon} {rvof}{brn} {CBM-H}H B {CBM-H}
60425 print,"{CBM-M} H B {CBM-G}{CBM-N}{lblu}{CBM-M}{rvon} {rvof}{brn}{CBM-G}T{CBM-N} H {CBM-H}
60430 print,"{CBM-M} H G {CBM-G}H{lblu}{CBM-N}{rvon} {rvof}{CBM-H}{brn}G{CBM-N} {CBM-N} {CBM-H}
60435 print,"{CBM-M} B G {CBM-G}B{lblu}{CBM-L}{rvon} {rvof}{CBM-J}{brn}B {CBM-H} {CBM-H}{CBM-H}
60440 print,"{CBM-M}{grn}{CBM-N}{brn}B{grn}{CBM-N}{brn}{CBM-H}{CBM-N} H{lblu}{rvon}{CBM-K} {rvof}{CBM-K}{brn}Y G {CBM-G}{CBM-H}
60445 print,"{CBM-M}{grn}{rvon}{CBM-J}{rvof}{CBM-K}{rvon}{CBM-K}{CBM-L}{rvof}{brn}Y {CBM-N}{lblu}{rvon}{CBM-J} {CBM-L}{rvof}{brn}H G {CBM-H}{CBM-H}
60450 print,"{CBM-M}{grn}{rvon}{CBM-H}{CBM-L}{CBM-H}{CBM-N}{rvof}{brn}H H{lblu}{rvon} {rvof}{brn}{CBM-N} B{CBM-N} {CBM-H}
60455 print,"{CBM-M}{grn}{rvon} {CBM-M} {rvof}{brn}B{blu}{CBM-O}{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvof}{CBM-O}{brn}B{CBM-N} {CBM-H}
60460 print,"{CBM-M}{CBM-L} {CBM-L}{blu}{CBM-O}{rvon} {rvof}{CBM-O}{brn}{CBM-H}{CBM-H}
60465 print," {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}":goto63000
60470 rem dal
60475 print,"{brn} {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
60480 print,"{CBM-M} {wht}. . {brn} {CBM-G}
60485 print,"{CBM-M} {wht} . . .{brn} {CBM-G}
60490 print,"{CBM-M} {gry1} NM{brn} {CBM-G}
60495 print,"{CBM-M}{gry1} NM N MNM{brn} {$a0} {CBM-G}
60500 print,"{CBM-M}{gry1} N MN N M N{brn}{CBM-G}
60505 print,"{CBM-M}{gry1}N N{yel} {CBM-D}{gry1} N MN{brn} {CBM-G}
60510 print,"{CBM-M}{yel} {CBM-D} {rvon}{CBM-U} {rvof} {CBM-K}{CBM-K}{CBM-D} {gry1} N{brn} {CBM-G}
60515 print,"{CBM-M}{yel} {rvon} {rvof}{CBM-K}{CBM-K}{CBM-K} {rvon} {rvof}{CBM-K}{CBM-K}{CBM-K} {brn} {CBM-G}
60520 print,"{CBM-M}{yel} {rvon}{CBM-V} {rvof}{CBM-O}{rvon} {rvof}{CBM-I}{$a0}{brn} {CBM-G}
60525 print,"{CBM-M}{orng}{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvof}{brn}{CBM-G}
60530 print,"{CBM-M}{orng}{rvon} {rvof}{brn}{CBM-G}":goto63000
62000 print"{clr}":print,"{yel} M MN N
62001 print," M M MN N N
62002 print," M M M N N N
62003 print," M MM M{CBM-N} N NN N
62004 print,"MMMM MMUINN NNNN
62005 print,"MMMM{CBM-*}{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{rvof}{SHIFT-POUND}NNNN
62006 print," MMM{red}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{yel}NNN
62007 print," MM{red}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{yel}NN
62008 print," M{rvon}{CBM-M}{CBM-N} M N {CBM-H}{CBM-H}{rvof}N
62009 print," M{rvon}{CBM-M}{CBM-N} OP {CBM-H}{CBM-H}{rvof}N
62010 print," {rvon}{CBM-M}{CBM-N} {CBM-H}{CBM-N} {CBM-H}{CBM-H}{rvof}
62011 print,"{orng}{rvon} {yel}{CBM-M}{CBM-N} L{SHIFT-@} {CBM-H}{CBM-H}{orng} {rvof}
62012 print,"{rvon} {yel}{CBM-M}{CBM-N} N M {CBM-H}{CBM-H}{orng} {rvof}
62013 print,"{rvon} ekim-repus {rvof}
62020 print,"{left}{left}{left}{left}{down}{wht}herzlichen glueckwunsch ,",,"{left}{left}{left}{left}sie haben es geschafft !
62025 x$=" *** j.r.r tolkien"
62030 x$=x$+" *** der kleine hobbit *** ein abenteuerspiel von "
62040 x$=x$+"michael nickles - bergstr.3 - 8763 klingenberg 2 ***"
62070 x$=x$+" "
62100 fori=1tolen(x$)-39
62110 poke211,1:poke214,20:sys58732
62120 printmid$(x$,i,39)
62130 forii=1to150:nextii
62140 nexti:end
62500 poke53280,0:poke53281,0:print"{clr}{red}{down}{down}{down}{down}"," j.r.r. tolkien"
62501 print"{down}{down}{down}":print,"{yel} der kleine
62502 print
62503 print," {CBM-H}{CBM-N} NM OP OP {CBM-H}P{CBM-Y}
62504 print," L{SHIFT-@} {CBM-H}{CBM-N} L{SHIFT-@} L{SHIFT-@} {CBM-H}{CBM-N}
62505 print," {CBM-H}{CBM-N} {CBM-H}{CBM-N} {CBM-H}{CBM-N} {CBM-H}{CBM-N} {CBM-H}{CBM-N}
62506 print," {CBM-H}{CBM-N} MN L{SHIFT-@} L{SHIFT-@} {CBM-H}{CBM-N}
62510 print"{down}{down}{down}{down} ein abenteuerspiel von michael nickles
62520 print,"{down}{down}{red} bitte warten !"
62600 return
63000 poke198,0:wait198,1:print"{wht}":return
63100 print," {orng}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}
63102 print,"{CBM-M}{wht}. . . {orng} {CBM-G}
63103 print,"{CBM-M}{wht} . . .{orng}{CBM-G}
63104 print,"{CBM-M} {CBM-G}
63105 print,"{CBM-M} {wht}{rvon}{SHIFT-POUND}{CBM-*}{rvof}{orng} {CBM-G}
63106 print,"{CBM-M} {wht}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{orng} {CBM-G}
63107 print,"{CBM-M} {gry1}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{orng} {CBM-G}
63108 print,"{CBM-M} {gry1}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{orng} {CBM-G}
63109 print,"{CBM-M} {gry1}{rvon}{SHIFT-POUND} {CBM-*}{rvof}{orng} {CBM-G}
63110 print,"{CBM-M}{rvon}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{rvof}{CBM-G}
63111 print,"{CBM-M}{rvon} {rvof}{CBM-G}":goto63000
0 REM ********************************* 1 REM *T H E H O B B I T MBM 19.8.84* 2 REM ********************************* 5 GOSUB 62500 11 I1=40960:I2=49151:RESTORE 12 FOR I=I1 TOI2:POKE I,PEEK (I):NEXT :A=10*4096+8*256+10*16:FOR I=A TOA+2 13 READ X:POKE I,X:NEXT :A=704:FOR I=A TOA+5:READ X:POKE I,X:NEXT 14 DATA 32,192,2 15 DATA 32,138,173,76,247,183 16 A=2*256+12*16+6:FOR I=A TOA+20:READ X:POKE I,X:NEXT 17 DATA 208,3,76,29,168,32,192,2,32,19,166 18 DATA 56,165,95,233,1,164,96,76,36,168 19 POKE 40996,197:POKE 40997,2:POKE 1,54 23 PRINT"{CLR,WHITE}";:POKE 53280,0:POKE 53281,0 24 DATA 4900,5000,5100,5300,5400,5700,5900,5800,5500,5600,5300 25 RESTORE 24:DIM OK(11):FOR I=1 TO11:READ II:OK(I)=II:NEXT I:OK=1 26 DATA 7300,7400,7200,7100 27 RESTORE 26:FOR I=1 TO4:READ II:BU(I)=II:NEXT :BU=1 28 SM(1)=8600:SM(2)=8400:SM(3)=8200:SM(4)=8500:MS=0:SM=1:DIM L$(38) 29 DATA DIE KARTE,2,DEN SCHLUESSEL,10,DAS SCHWERT,3400,DAS SEIL,3400 30 DATA DEN RING,5900,DEN GOLDSCHLUESSEL,4700,DAS ESSEN,0,DEN BOGEN,6 31 DATA DAS FASS,7300,DEN GOLDSCHATZ,8600 32 DATA DER WARG,6100,THORIN,3000,GANDALF,3000,ELROND,3600,EINE WALDELBE,7000 33 DATA BARD,7700,GOLLUM,6000,DER BUTLER,7300,DER ORK,0,DER TROLL,3200 39 RESTORE 29:FOR I=1 TO10:READ I$:READ II:GE$(I)=I$:GE(I)=II:NEXT 40 FOR I=1 TO10:READ I$:READ II:PE$(I)=I$:PE(I)=II:NEXT 80 REM GE(1)=1:GE(2)=1:GE(3)=1:GE(4)=1:GE(5)=1:GE(6)=1:GL=3 90 FA(0)=1:GL=0:BT=1:SA=1:ZM=3000:PE(2)=1:GOTO 2105 100 TI$="000000":L$="":POKE 198,0:PRINT"{DOWN,WHITE}> @"; 115 REM 120 GET X$:IF PEEK (203)=1 THEN160 121 IF TI$>"000030" THEN160 128 IF X$="" THEN120 129 IF L$=""AND ASC (X$)=20 THEN120 130 I=ASC (X$):IF I<65OR I>90 THENIF I<>20AND I<>32AND I<>34 THEN120 135 PRINTCHR$ (20);X$;"@"; 137 IF ASC (X$)=20 THENL$=LEFT$ (L$,LEN (L$)-1):GOTO 120 140 L$=L$+X$:TI$="000000":IF LEN (L$)>76 THENFOR I=1 TO80:PRINTCHR$ (20);:NEXT :GOTO 115 150 GOTO 120 160 PRINT".";:FOR I=1 TOLEN (L$)+4:PRINTCHR$ (20);:NEXT 170 REM SATZ IN L$(0)-L$(10) GLIEDERN 175 FOR I=0 TO10:L$(I)="":NEXT 180 LC=0:FOR I=1 TOLEN (L$) 185 IF MID$ (L$,I,1)=" " THENLC=LC+1:GOTO 190 188 L$(LC)=L$(LC)+MID$ (L$,I,1) 190 NEXT I 200 GOTO 1000 500 PRINT"{LIG.RED}";A$:POKE 198,0:WAIT 198,1:FOR I=1 TO40:PRINTCHR$ (20);:NEXT :R$="" 510 PRINT"{WHITE,UP}";:RETURN 1000 REM A U S W E R T U N G 1005 R$="":CA=-1:OB=0:AC=0:VE=0 1010 CA=CA+1:E$=L$(CA) 1030 IF E$="N" THENR$="NORDEN":ZM=N 1040 IF E$="S" THENR$="SUEDEN":ZM=S 1050 IF E$="W" THENR$="WESTEN":ZM=W 1060 IF E$="O" THENR$="OSTEN":ZM=O 1065 IF E$="RUNTER" THENR$="{5LEFT}RUNTER":ZM=R 1070 IF E$="RAUF" THENR$="{5LEFT}RAUF":ZM=H 1075 IF E$="NW" THENR$="NORDWESTEN":ZM=NW 1080 IF E$="NO" THENR$="NORDOSTEN":ZM=NE 1085 IF E$="SW" THENR$="SUEDWESTEN":ZM=SW 1090 IF E$="SO" THENR$="SUEDOSTEN":ZM=SO 1100 IF E$<>"WARTE"AND E$<>"WA" THEN1105 1101 IF ZN=3300AND TU(1)<>1 THENPRINT"EIN NEUER TAG BRICHT AN.":TU(1)=1:GOTO 1600 1102 PRINT"SIE WARTEN.":GOTO 1600 1105 IF E$="SCHAU" THENZM=ZN:GOTO 2105 1110 IF E$="OEFFNE" THENGOSUB 11100 1115 IF E$="SCHLIESSE" THENGOSUB 11200 1116 IF E$="TOETE" THENGOSUB 11500 1120 IF E$="NIMM" THENVE=1:GOSUB 11300 1122 IF E$="VERLIER" THENVE=2:GOSUB 11300 1124 IF E$="I"OR E$="INVENTUR" THENGOSUB 11400 1125 IF E$="ISS" THENIF GE(7)=1OR GE(7)=ZN THENPRINT"SIE ESSEN.":GE(7)=0:GOTO 1600 1130 IF E$="SAG"OR E$="SAGE" THENGOSUB 20000:GOTO 1600 1131 IF VL=2AND E$="ZEIT" THENVL=0:GL=2:GOTO 1600 1132 IF E$<>"GRABE"OR ZN<>5200 THEN1135 1133 PRINT"{DOWN}SIE GRABEN IM SAND UND ENTDECKEN EINE{SPACE,2SPACE}FALLTUER.":TU(7)=1:GOTO 1600 1135 IF LEFT$ (E$,5)="ZERST"OR E$="VERNICHTE"OR LEFT$ (E$,5)="ZERSC" THENAC=AC+1 1140 IF E$="SPINNENNETZ"OR E$="NETZ" THENAC=AC+1 1142 IF E$="WIRF" THENVE=17 1143 IF E$="SEIL"AND GE(4)=1 THENOB=4 1144 IF LEFT$ (E$,4)="ZIEH" THENVE=2 1146 IF LEFT$ (E$,9)="UEBERQUER"OR LEFT$ (E$,3)="GEH" THENVE=3 1148 IF LEFT$ (E$,7)="SCHWIMM"AND ZN=6900 THENVL=5 1150 IF E$="FASS" THENIF GE(9)=1OR GE(9)=ZN THENOB=5 1152 IF LEFT$ (E$,6)="SPRING" THENVE=4 1500 IF CA=LC THEN1600 1510 GOTO 1010 1600 : 2000 REM A C T I O N 2005 IF GE(10)=1 THEN62000 2010 IF ZM=0AND R$<>"" THENA$="KEIN WEG IN DIESE RICHTUNG !":GOSUB 500:GOTO 2200 2020 IF ZM=0 THEN2200 2100 REM NEUES ZN 2103 PRINT"SIE GEHEN NACH ";R$;"." 2105 ZN=ZM:ZM=0:RESTORE ZN:PRINT 2110 READ DL 2111 FOR I=1 TODL:READ D$:PRINT"{YELLOW}";D$;:NEXT :PRINT"{WHITE}":PRINT 2115 N=0:S=0:W=0:O=0:H=0:R=0:NW=0:NE=0:SW=0:SO=0:GOSUB ZN:GOSUB 10000:GOTO 2400 2200 REM 2204 IF VL>0 THEN39000 2400 REM DIE MONSTER BEWEGEN SICH 2401 IF INT (10*RND (1))>5 THEN2403 2402 IF ZN=7000 THENPRINT"{DOWN}DIE WALDELBE NIMMT SIE GEFANGEN.":ZM=7100:GOTO 2105 2403 : 2410 IF PE(9)=ZN THEN2455 2411 OK=OK+1:IF OK=12 THENOK=1 2415 PE(9)=OK(OK) 2420 IF PE(9)<>4900 THEN2450 2422 IF TU(5)<>0 THEN2430 2424 TU(5)=1:IF ZN=4100 THENPRINT"{DOWN}IN DER HOEHLE OEFFNET SICH EIN SPALT !":N=4900 2425 GOTO 2450 2430 TU(5)=0:IF ZN=4100 THENPRINT"{DOWN}DER SPALT SCHLIESST SICH.":N=0 2450 IF PE(9)<>ZN THEN2480 2455 PRINT"{DOWN}EIN ORK BETRITT DEN RAUM !" 2460 I=INT (12*RND (1))+1 2462 IF I<=2OR GE(5)=1 THENPRINT"{DOWN}DER ORK GEHT WEITER.":GOTO 2411 2463 IF I>9 THEN2480 2464 IF I>2 THENPRINT"{DOWN}DER ORK NIMMT SIE GEFANGEN.":ZM=5200:GOTO 2105 2480 IF BT=0 THEN2495: REM BUTLER 2481 IF ZN<>PE(8) THENBU=BU+1:IF BU=5 THENBU=1 2482 PE(8)=BU(BU) 2483 IF PE(8)<>7100 THEN2490 2484 IF TU(10)=1 THEN2487 2485 TU(10)=1:IF PE(8)=ZN THENPRINT"{DOWN}JEMAND OEFFNET DIE KERKERTUER.":O=7200:BU=1 2486 GOTO 2490 2487 TU(10)=0:IF PE(8)=ZN THENPRINT"{DOWN}JEMAND SCHLIESST DIE KERKERTUER.":O=0 2490 IF PE(8)<>ZNOR ZN=7100 THEN2495 2491 PRINT"{DOWN}DER BUTLER DES ELBENKOENIGS ERSCHEINT{SPACE,2SPACE}PLOETZLICH !" 2492 IF INT (10*RND (1))>4 THEN2494 2493 PRINT"{DOWN}DER BUTLER NIMMT SIE GEFANGEN.":ZM=7100:GOTO 2105 2494 PE(8)=BU(BU) 2495 IF SA=0 THEN2500 2496 MS=MS+1:IF MS=5 THENMS=1 2497 IF SM=ZN THENGOSUB 34000:VL=6:DR=1:GOTO 2500 2498 SM=SM(MS):IF SM=ZN THENDR=1 2500 GOSUB 9000:REM T H O R I N 2501 IF PE(3)=ZN THENGOSUB 9500:REM GANDALF 2502 IF PE(4)=ZN THENGOSUB 30000:REM ELROND 2503 IF PE(7)=ZN THENGOSUB 31000:REM GOLLUM 2504 IF PE(1)=ZN THENGOTO 32000:REM WARG 2505 IF BA=1 THENGOSUB 33000:REM BARD 2506 IF DR=1AND SA=1 THENGOSUB 34000:REM SMAUG 2509 IT=0:IF AC=2AND ZN=6800 THENIT=1:IF GE(3)=1 THENTU(8)=1:O=6900:IT=2 2510 IF IT=1AND GE(3)<>1 THENA$="SIE HABEN KEIN SCHWERT !":GOSUB 500:RETURN 2511 IF IT=2 THENPRINT"{DOWN}SIE ZERSCHLAGEN DAS SPINNENNETZ MIT DEM SCHWERT." 2520 IF VE<>17OR OB<>4OR ZN<>6900 THEN2550 2521 IF TU(9)=1 THENA$="DAS HABEN SIE BEREITS.":GOSUB 500:RETURN 2530 PRINT"{DOWN}SIE WERFEN DAS SEIL UEBER DEN FLUSS.":FOR I=1 TO2000:NEXT :GE(4)=6900 2540 PRINT"{DOWN}DAS SEIL VERFAENGT SICH IM BOOT.":TU(9)=1 2550 IF VE<>2OR OB<>4AND GE(4)<>6900OR TU(9)<>1 THEN2570 2555 PRINT"{DOWN}SIE ZIEHEN DAS BOOT ZU SICH HERUEBER.":TU(9)=2:GE(4)=1 2570 IF VE<>3OR TU(9)<>2 THEN2580 2575 PRINT"{DOWN}SIE UEBERQUEREN DEN FLUSS MIT DEM BOOT.":PE(2)=7600:ZM=7000 2576 TU(9)=3:GOTO 2105 2580 IF ZN<>7300 THEN2600 2582 IF VE<>17OR OB<>5OR FA(0)<>1 THEN2585 2583 PRINT"{DOWN}SIE WERFEN DAS FASS DURCH DIE FALLTUER.":GE(9)=7500 2585 IF VE<>4OR FA(0)<>1 THEN2600 2587 PRINT"{DOWN}SIE SPRINGEN DURCH DIE FALLTUER IN DAS{SPACE,SPACE}FASS,DAS IM FLUSS SCHWIMMT." 2590 FOR I=1 TO3000:NEXT 2591 PRINT"{DOWN}SIE TREIBEN AUF DEM FLUSS IN OESTLICHE{SPACE,SPACE}RICHTUNG.":PE(2)=7600 2592 FOR I=1 TO3000:NEXT 2594 PRINT"{DOWN}IN EINER STARKEN KURVE WERDEN SIE AUS{SPACE,2SPACE}DEM FASS HERAUS ANS UFER"; 2595 PRINT" GESCHLEUDERT." 2597 ZM=7600:GOTO 2105 2600 : 2899 GOTO 100 2910 REM S P I E L K A R T E 3000 DATA 3,SIE BEFINDEN SICH IN EINER KOMPFORTABEL EINGERICHTETEN HOEHLE , 3010 DATA DIE EINER LANGEN HALLE AEHNELT. 3015 DATA 0 3016 IF TU(0)=1 THENO=3100 3030 GOSUB 60000:RETURN 3100 DATA 1,DAS EINSAME TAL:N=3200:VL=0:GOSUB 60050:RETURN 3200 DATA 1,LAGERPLATZ DER TROLLE 3202 IF TU(1)=-1 THENVL=1:GOTO 39000 3203 IF TU(1)=0 THENTU(1)=-1:GOSUB 60090 3205 IF TU(1)=1 THENPE$(10)="DIE VERSTEINERTEN TROLLE" 3206 IF TU(1)=1AND GE(2)=10 THENGE(2)=3200 3207 IF TU(1)=1 THEN3230 3210 PRINT"DER BOESE TROLL SAGT 'KANN MAN DEN WOHL KOCHEN ?'" 3220 PRINT"DER FETTE TROLL MEINT 'ER WIRD KAUM EI- NEN MUNDVOLL GEBEN.'{DOWN} 3230 S=3100:N=3300:SO=3500 3231 IF TU(1)=-1 THENVL=1 3240 RETURN 3300 DATA 3,DUNKLER PFAD MIT FUSSSPUREN DER TROLLE. , 3302 DATA NOERDLICH LIEGT DIE TUER ZUR HOEHLE DER TROLLE.:GOSUB 60310 3303 IF TU(3)=1 THENN=3400 3305 S=3200:VL=0:RETURN 3400 DATA 1,IN DER HOEHLE DER TROLLE:S=3300:RETURN 3500 DATA 1,AM KLEINEN FLUSS:VL=0:NW=3200:SO=3600:TU(4)=0:RETURN 3600 DATA 1,RIVENDELL:NW=3500:O=3700:RETURN 3700 DATA 1,IM NEBELGEBIRGE:W=3600:N=3800:O=4300:RETURN 3800 DATA 1,IM NEBELGEBIRGE:S=3700:N=3900:RETURN 3900 DATA 1,IM NEBELGEBIRGE:S=3800:NE=4000:RETURN 4000 DATA 1,IM NEBELGEBIRGE:SW=3900:SO=4400:RETURN 4100 DATA 1,TROCKENE HOEHLE IM NEBELGEBIRGE:IF TU(5)=1 THENN=4900 4110 S=4200:RETURN 4200 DATA 1,IM NEBELGEBIRGE:NW=3900:N=4100:S=4300:RETURN 4300 DATA 1,IM NEBELGEBIRGE:W=3700:N=4200:O=4800:NW=3800:RETURN 4400 DATA 1,IM NEBELGEBIRGE:NW=4000:R=4500:RETURN 4500 DATA 1,IM NEBELGEBIRGE:R=4600:RETURN 4600 DATA 1,IM NEBELGEBIRGE:W=4700:RETURN 4700 DATA 1,IM NEBELGEBIRGE:SW=4300:O=4600:RETURN 4800 DATA 1,EIN SCHWERER UND GEFAEHRLICHER GEBIRGS- PFAD IM NEBELGEBIRGE 4810 W=4300:O=6100:GOSUB 60175:RETURN 4900 DATA 1,HOEHLENSYSTEM DER ORKS:S=4100:O=5000:NE=5300:RETURN 5000 DATA 1,HOEHLENSYSTEM DER ORKS:W=4900:N=5300:O=5100:RETURN 5100 DATA 1,HOEHLENSYSTEM DER ORKS:W=5000:NW=5300:N=5400:RETURN 5200 DATA 1,GEFAENGNIS DER ORKS:RETURN 5300 DATA 1,HOEHLENSYSTEM DER ORKS 5310 W=5200:SW=4900:S=5000:SO=5100:O=5400:H=5600:RETURN 5400 DATA 1,HOEHLENSYSTEM DER ORKS:W=5300:S=5100:H=5700:RETURN 5500 DATA 1,HOEHLENSYSTEM DER ORKS:N=5800:O=5600:RETURN 5600 DATA 1,HOEHLENSYSTEM DER ORKS:W=5500:R=5300:RETURN 5700 DATA 1,HOEHLENSYSTEM DER ORKS:NW=5900:N=6000:RETURN 5800 DATA 1,HOEHLENSYSTEM DER ORKS:S=5500:O=5900:RETURN 5900 DATA 1,HOEHLENSYSTEM DER ORKS:W=5800:SO=5700:RETURN 6000 DATA 1,FEUCHTE GROTTE:S=5700:RETURN 6100 DATA 1,EINE WALDLICHTUNG:W=4800:RETURN 6300 DATA 1,WEITES GRASLAND AM FUSS DES GEBIRGES:N=6400:RETURN 6400 DATA 1,BEORNS HAUS:GE(7)=6400:S=6300:O=6600:NE=6500:GOSUB 60345:RETURN 6500 DATA 1,DAS TOR ZU MIRKWALD:SW=6400:S=6600:O=6700:GOSUB 60140:RETURN 6600 DATA 1,AUF DEM NACHTWALDWEG 6610 W=6400:O=6800:S=6700:RETURN 6700 DATA 1,AUF DEM NACHTWALDWEG 6710 PRINT"{DOWN}SIE SEHEN RIESIEGE AUGEN AUF SIE HERUN- TERSTARREN.":VL=4:RETURN 6800 DATA 1,AUF DEM NACHTWALDWEG 6810 W=6600:S=6700 6820 IF TU(8)=1 THENO=6900:RETURN 6830 PRINT"{DOWN}EIN RIESIGES SPINNENNETZ VERSPERRT DEN{SPACE,SPACE}WEG NACH OSTEN.{DOWN}":RETURN 6900 DATA 1,DER SCHWARZE SCHNELLE FLUSS 6910 W=6800 6920 IF TU(9)<2 THENPRINT"{DOWN}AUF DER ANDEREN SEITE DES FLUSSES LIEGT EIN BOOT.{DOWN}" 6930 RETURN 7000 DATA 1,AUF DEM NACHTWALDWEG 7010 RETURN 7100 DATA 1,IM KERKER DER WALDELBEN 7110 RETURN 7200 DATA 1,IN EINEM GANG 7210 W=7100:S=7400:RETURN 7300 DATA 1,IM WEINKELLER DES ELBENKOENIGS 7310 O=7400:GOSUB 60270:RETURN 7400 DATA 1,AN DER MAGISCHEN TUER 7410 N=7200:W=7300:RETURN 7600 DATA 1,AM GROSSEN SEE 7610 O=7700:RETURN 7700 DATA 1,DIE STADT ESGAROTH 7710 W=7600:N=7800:GOSUB 60220:RETURN 7800 DATA 1,AM SCHNELLEN FLUSS 7810 N=8000:S=7700:O=7900:RETURN 7900 DATA 1,AM WASSERFALL:GOSUB 60405 7910 W=7800:RETURN 8000 DATA 1,WUESTENLAND 8010 S=7800:H=8100:RETURN 8100 DATA 1,DIE RUINEN VON DAL:GOSUB 60470 8110 R=8000:H=8200:RETURN 8200 DATA 1,DER EINSAME BERG:GOSUB 63100 8210 N=8400:R=8100:NW=8300:NE=8500:RETURN 8300 DATA 1,DER RABENHUEGEL 8310 SO=8200:RETURN 8400 DATA 1,EINGANG ZUR DRACHENHOEHLE 8410 S=8200:RETURN 8500 DATA 1,TROCKENE HOEHLE 8505 IF FA(1)=1 THENR=8600 8510 SW=8200:RETURN 8600 DATA 1,DIE SCHLAFKAMMER DES DRACHEN 8610 SW=8400:RETURN 9000 IF PE(2)=5200AND ZN<>5200AND ZN<6100 THEN9050 9001 REM T H O R I N 9002 IF ZN>4900AND ZN<6300 THEN9050 9003 IC=0:IF PE(2)<>ZN THENR$="{DOWN}THORIN KOMMT HERBEI.":PE(2)=ZN:IC=1 9004 IF IC=1AND PE(3)<>ZNAND PE(3)<>0 THENPE(3)=ZN:PE(2)=ZN:R$="BEIDE" 9005 IF R$="" THEN9009 9006 IF R$="BEIDE" THENR$="{DOWN}THORIN UND GANDALF KOMMEN HERBEI." 9007 PRINTR$ 9009 IF GE(1)=2AND ZN=3000 THENPRINT"{DOWN}THORIN GIBT IHNEN DIE KARTE.":GE(1)=1 9010 IF INT (10*RND (1))>4 THENRETURN 9011 IF PE(3)=3100AND ZN=3000 THENPRINT"{DOWN}THORIN SAGT 'BEEIL DICH !'":GOTO 9016 9015 IF INT (10*RND (1))=5 THENPRINT"{DOWN}THORIN SAGT 'BEEIL DICH !'":GOTO 9020 9016 IF INT (20*RND (1))=5 THENPRINT"{DOWN}THORIN BEGINNT VON GOLD ZU SINGEN.":GOTO 9020 9017 IF INT (20*RND (1))=5 THENPRINT"{DOWN}THORIN SETZT SICH UND WARTET." 9018 IF INT (20*RND (1))<>5OR PE(3)<>0 THEN9020 9019 PRINT"{DOWN}THORIN SAGT'WAERE GANDALF NUR BEI UNS.'. 9020 IF ZN>=4900AND ZN<6000AND INT (20*RND (1))+1>3AND PE(2)<>5200 THENPE(2)=4800 9050 IF PE(3)<3700 THEN9055 9051 PRINT"{DOWN}GANDALF SAGT 'WICHTIGE AUFGABEN WARTEN{SPACE,SPACE}AUF MICH{SHIFT-SPACE}!' UND GEHT FORT." 9052 PE(3)=0 9055 IF ZN=5200AND PE(2)<>5200 THENPRINT"{DOWN}THORIN KOMMT HEREIN.":PE(2)=5200 9060 IF GE(6)=1 THENPRINT"{DOWN}THORIN NIMMT DEN GOLDSCHLUESSEL.":GE(6)=2 9070 IF SA<>0OR ZN<>8500OR FA(1)<>0 THEN9499 9075 PRINT"{DOWN}EIN ROTER SONNENSTRAHL TRIFFT AUF DIE{SPACE,2SPACE}GLATTE FELSWAND IN DER"; 9076 PRINT" HOEHLE !":FOR I=1 TO2000:NEXT 9080 PRINT"{DOWN}EIN FLACHES STUECK GESTEIN SPLITTERT VOMFELS UND FAELLT HERUNTER." 9090 PRINT"{DOWN}EIN KLEINES LOCH ERSCHEINT ETWA DREI{SPACE,3SPACE}FUSS UEBER DER ERDE !" 9095 PRINT"{DOWN}THORIN STECKT DEN GOLDSCHLUESSEL IN DAS LOCH." 9097 PRINT"{DOWN}EINE TUER TUT SICH AUF - EIN STEILER WEGFUEHRT VON IHR HINAB IN "; 9098 PRINT"DIE DUNKELHEIT.":FA(1)=1:R=8600 9499 RETURN 9500 REM G A N D A L F 9503 IF UN(0)=3 THENUN(0)=0:PRINT"{DOWN}GANDALF SAGT 'WAS SOLL DER QUATSCH ?'" 9504 IF INT (10*RND (1))>4 THENRETURN 9505 IF ZN=3000AND TU(0)=1 THENPRINT"{DOWN}GANDALF GEHT NACH OSTEN.":PE(3)=3100 9510 IF ZN=3000AND TU(0)=0 THENPRINT"{DOWN}GANDALF OEFFNET DIE TUER.":TU(0)=1:O=3100 9512 IF ZN<>3100OR GA(0)=1 THEN9514 9513 PRINT"{DOWN}GANDALF SAGT 'EIN GROSSES ABENTEUER STE-HT DIR BEVOR !'":GA(0)=1 9514 : 9517 IF INT (20*RND (1))=1AND GE(1)=1 THENGE(1)=3:PRINT"{DOWN}GANDALF NIMMT DIE KARTE." 9519 IF INT (20*RND (1))=1AND GE(1)=3 THENGE(1)=1:PRINT"{DOWN}GANDALF GIBT DIR DIE KARTE. 9520 IF INT (30*RND (1))=1 THENPRINT"{DOWN}GANDALF SAGT 'WAS NUN ?'." 9999 RETURN 10000 REM MOEGLICHE RICHTUNGEN CLOSE 10010 R$="":IF N THENR$=R$+"N," 10011 IF S THENR$=R$+"S," 10012 IF O THENR$=R$+"O," 10013 IF W THENR$=R$+"W," 10014 IF NW THENR$=R$+"NW," 10015 IF NE THENR$=R$+"NO," 10016 IF SW THENR$=R$+"SW," 10017 IF SO THENR$=R$+"SO," 10018 IF H THENR$=R$+"RAUF," 10019 IF R THENR$=R$+"RUNTER," 10020 IF R$="" THEN10100 10030 PRINT"MOEGLICHE RICHTUNGEN: ";LEFT$ (R$,LEN (R$)-1):PRINT:R$="" 10100 REM SIE SEHEN ... 10105 IC=0:S$="{12RIGHT}" 10110 PRINT"SIE SEHEN :{SPACE,UP}" 10120 FOR I=1 TO10:IF PE(I)<>ZN THEN10125 10121 IC=1:I$=PE$(I):IF LEFT$ (I$,3)="DER" THENI$=MID$ (I$,4,LEN (I$)):I$="EINEN"+I$ 10123 PRINTS$;I$ 10125 IF GE(I)=ZN THENPRINTS$;GE$(I):IC=1 10130 NEXT 10190 IF ZN=3000 THENIC=1:PRINTS$"DIE TRUHE 10200 IF ZN=3000 THENIC=1:PRINTS$"DIE TUER 10201 IF ZN=6300 THENIC=1:PRINTS$"DEN CARROCK 10202 IF ZN=3300 THENIC=1:PRINTS$"DIE TUER ZUR TROLLHOEHLE 10210 IF ZN=4100AND TU(5)=1 THENIC=1:PRINTS$"EINEN SPALT IN DER NORDWAND." 10220 IF ZN=5200 THENIC=1:PRINTS$"EIN FENSTER IM WESTEN. 10222 IF ZN=5200 THENIC=1:PRINTS$"DIE GEFAENGNISTUER. 10223 IF ZN=5200 THENIC=1:PRINTS$"DEN SANDBODEN 10224 IF TU(7)=1AND ZN=5200 THENPRINTS$"DIE FALLTUER" 10225 IF ZN=7300 THENPRINTS$"DIE FALLTUER" 10226 IF SA=0AND ZN=MS THENPRINTS$"DEN TOTEN SMAUG." 10227 IF ZN=7300 THENPRINT"{DOWN}UNTER DER FALLTUER RAUSCHT EIN STARKER{SPACE,SPACE}FLUSS." 10228 IF ZN=8500AND FA(1)=1 THENPRINTS$"EINE OEFFENE TUER" 10229 IF TU(9)=2AND ZN=6900 THENPRINTS$"EIN BOOT" 10230 IF ZN=7100 THENPRINTS$"TUER NACH OSTEN" 10290 IF IC=0 THENPRINT"{11SPACE,11LEFT,UP}"; 10300 FOR I=1 TO10 10310 IF GE(I)=0OR GE(I)>=3000 THEN10350 10320 :FOR II=2 TO10 10325 ::IF GE(I)=IIAND PE(II)=ZN THENPRINT"{DOWN}";PE$(II);" HAT ";GE$(I);"." 10330 :NEXT II 10350 NEXT I 10500 REM IFIC=1THENPRINT 10600 RETURN 11000 REM ROUTINEN FUER VERBEN 11010 OB=0:FOR I1=0 TOLC:E$=L$(I1) 11020 IF E$="TUER" THENOB=1 11030 IF E$="TRUHE" THENOB=2 11031 IF E$="FENSTER" THENOB=3 11032 IF E$="FALLTUER" THENOB=4 11040 NEXT I1:RETURN 11100 REM OEFFNE ******** 11110 GOSUB 11000 11114 IF OB<>2 THEN11125 11115 IF OB=2AND ZN<>3000 THENA$="HIER IST KEINE TRUHE.":GOSUB 500:RETURN 11117 IF TU(2)=0 THENPRINT"SIE OEFFNEN DIE TRUHE.{DOWN}":TU(2)=1:RETURN 11118 IF TU(2)=1 THENA$="DIE TRUHE IST BEREITS OFFEN.":GOSUB 500:RETURN 11125 IF OB<>1OR ZN<>3000 THEN11128 11126 IF TU(0)=1 THENA$="DIE TUER IST BEREITS OFFEN.":GOSUB 500:RETURN 11127 IF TU(0)=0 THENPRINT"SIE OEFFNEN DIE TUER.":TU(0)=1:O=3100:RETURN 11128 IF ZN<>3300 THEN11140 11130 IF TU(3)=0AND GE(2)=1 THENPRINT"SIE OEFFNEN DIE TUER.":TU(3)=1:N=3400:RETURN 11131 IF TU(3)=0AND GE(2)<>1 THENA$="SIE HABEN KEINEN SCHLUESSEL.":GOSUB 500:RETURN 11132 IF TU(3)=1 THENA$="DIE TUER IST BEREITS OFFEN.":GOSUB 500:RETURN 11140 IF OB=3AND ZN=5200 THENA$="SIE SIND ZU KLEIN DAZU.":GOSUB 500:RETURN 11145 IF ZN<>7300OR OB<>4 THEN11160 11147 IF FA(0)=0 THENFA(0)=1:PRINT"SIE OEFFNEN DIE FALLTUER.":RETURN 11148 IF FA(0)=1 THENA$="DIE FALLTUER IST BEREITS OFFEN.":GOSUB 500:RETURN 11160 A$="SIE KOENNEN DAS NICHT OEFFNEN.":GOSUB 500:RETURN 11200 REM SCHLIESSE ********* 11210 GOSUB 11000 11214 IF OB<>2 THEN11225 11215 IF OB=2AND ZN<>3000 THENA$="HIER IST KEINE TRUHE.":GOSUB 500:RETURN 11217 IF TU(2)=1 THENPRINT"SIE SCHLIESSEN DIE TRUHE.":TU(2)=0:RETURN 11218 IF TU(2)=0 THENA$="DIE TRUHE IST BEREITS ZU.":GOSUB 500:RETURN 11225 IF OB<>1OR ZN<>3000 THEN11230 11226 IF TU(0)=0 THENA$="DIE TUER IST BEREITS ZU.":GOSUB 500:RETURN 11227 IF TU(0)=1 THENPRINT"SIE SCHLIESSEN DIE TUER.":TU(0)=0:UN(0)=UN(0)+1:O=0:RETURN 11230 IF ZN=3300AND TU(3)=1 THENPRINT"SIE SCHLIESSEN DIE TUER.":TU(3)=0:N=0:RETURN 11231 IF ZN=3300AND TU(3)=0 THENA$="DIE TUER IST BEREITS ZU.":GOSUB 500:RETURN 11232 IF ZN<>7300 THENRETURN 11233 IF OB=4AND FA(0)=1 THENFA(0)=0:PRINT"SIE SCHLIESSEN DIE FALLTUER.":RETURN 11235 IF OB=4AND FA(0)=0 THENA$="DIE FALLTUER IST BEREITS ZU.":GOSUB 500:RETURN 11260 A$="DAS GEHT NICHT.":GOSUB 500:RETURN 11300 REM NIMM / VERLIERE ********** 11310 IM=0:S$="":G1=0:FOR I=0 TOLC:E$=L$(LC) 11320 FOR I1=1 TO10 11330 IF E$=MID$ (GE$(I1),5,LEN (GE$(I1))-4) THENIM=I1:I1=11:I=LC+1 11340 NEXT I1:NEXT I 11350 S$=GE$(IM):G1=GE(IM) 11360 IF VE=1AND G1=1 THENA$="SIE HABEN DAS BEREITS.":GOSUB 500:RETURN 11365 IF VE=1AND G1=ZN THENPRINT"SIE NEHMEN ";S$;".":GE(IM)=1:RETURN 11366 IF VE=1 THENA$="SIE KOENNEN DAS NICHT NEHMEN.":GOSUB 500:RETURN 11370 IF VE=2AND G1=1 THENGE(IM)=ZN:PRINT"SIE VERLIEREN ";S$;".":RETURN 11375 A$="SIE HABEN DAS NICHT.":GOSUB 500:RETURN 11400 REM INVENTUR ************ 11410 PRINT"SIE HABEN :{UP}" 11420 IC=0:FOR I=1 TO10:IF GE(I)=1 THENPRINT,"{2RIGHT}"GE$(I):IC=1 11430 NEXT I 11440 IF IC=0 THENPRINT,"{2RIGHT}NICHTS" 11450 RETURN 11500 REM TOETE ********* 11505 P$="":P=0:FOR I=1 TOLC:E$=L$(LC) 11506 IF E$="THORIN"AND PE(2)=ZN THENP$="THORIN" 11507 IF E$="GANDALF"AND PE(3)=ZN THENP$="GANDALF" 11508 IF E$="ELROND"AND PE(4)=ZN THENP$="ELROND" 11509 IF E$="WALDELBE"AND PE(5)=ZN THENP$="DIE WALDELBE" 11510 IF E$="GOLLUM"AND PE(7)=ZN THENP$="GOLLUM" 11511 IF E$="ORK"AND PE(9)=ZN THENP$="ORK" 11512 IF E$="TROLL"AND PE(10)=ZN THENP$="TROLL" 11513 IF E$="BUTLER"AND PE(8)=ZN THENP$="DER BUTLER" 11519 NEXT I 11520 IF P$="" THENA$="ICH SEH DAS HIER NICHT":GOSUB 500:RETURN 11540 PRINT"{DOWN}SIE GREIFEN "P$" AN !" 11550 IF P$="DER BUTLER" THEN11570 11552 PRINT:PRINTP$" VERTEIDIGT SICH ZU SEHR !" 11554 FOR I=1 TO2000:NEXT 11556 PRINT:PRINTP$" HAT SIE GETOETET.":VL=1.4:RETURN 11570 IF GE(3)<>1 THENPRINT"{DOWN}DER BUTLER HAT SIE GETOETET.":VL=1.4:RETURN 11572 PRINT"{DOWN}SIE HABEN DEN BUTLER MIT EINEM SCHLAG{SPACE,2SPACE}ENTHAUPTET.":BT=0 11574 PE$(8)="DEN TOTEN BUTLER":RETURN 20000 REM S P R E C H E N 20005 IC=0:FOR I=2 TO7 20010 IF PE$(I)=L$(1) THENIC=1 20011 IF PE(I)=ZNAND IC=1 THENP$=PE$(I):P=I:IC=2 20015 NEXT I 20020 IF IC=1 THENA$=""+L$(1)+" IST NICHT ANWESEND.":GOSUB 500:RETURN 20022 IF IC=0 THENA$="DAS GEHT NICHT.":GOSUB 500:RETURN 20030 PRINT"SIE SAGEN ETWAS ZU ";P$;"." 20040 I1=0:I2=0:FOR I=1 TOLEN (L$) 20042 IF MID$ (L$,I,1)<>CHR$ (34) THEN20045 20043 IF I1=0 THENI1=I+1:GOTO 20045 20044 IF I2=0 THENI2=I 20045 NEXT I 20050 L$=MID$ (L$,I1,I2-I1) 20060 REM SATZ IN L$(0)-L$(10) GLIEDERN 20062 FOR I=0 TO10:L$(I)="":NEXT 20064 LC=0:FOR I=1 TOLEN (L$) 20066 IF MID$ (L$,I,1)=" " THENLC=LC+1:GOTO 20070 20068 L$(LC)=L$(LC)+MID$ (L$,I,1) 20070 NEXT I 20100 REM ANALYSIEREN 20105 EG=0:VE=0:GG=0:FOR I=0 TOLC:E$=L$(I) 20110 IF E$="LIES"OR E$="UNTERSUCHE" THENVE=1 20120 IF E$="GIB" THENVE=2 20121 IF E$="SMAUG" THENEG=3 20130 IF LEFT$ (E$,4)="TRAG" THENVE=3 20140 IF LEFT$ (E$,3)="GEH" THENVE=4 20145 IF E$="NIMM" THENVE=5 20150 IF E$="VERLIER" THENVE=6 20160 IF E$="HILF" THENVE=7 20170 IF E$="MIR"OR E$="MICH" THENEG=1 20171 IF E$="OEFFNE" THENVE=8 20172 IF E$="FENSTER" THENEG=2 20173 IF E$="TOETE" THENVE=8 20174 IF VL=2AND E$="ZEIT" THENVL=0:GL=2 20175 FOR I1=1 TO10 20176 IF E$=MID$ (GE$(I1),5,LEN (GE$(I1))-4) THENGG=1 20180 NEXT I1 20190 NEXT I 20200 REM 20210 IF VE<>1OR P<>4OR GG<>1 THEN20280 20212 IF GE(1)<>1 THEN20500 20215 PRINT"{DOWN}ELROND BETRACHTET DIE KARTE.":PRINT"{DOWN}ELROND SAGT "; 20220 IF IK=0 THENIK=(INT (5*RND (1))+1)*10+20220 20221 GOTO IK 20230 PRINT"'NORDOESTLICH VON BEORNS{4SPACE}HAUS LIEGT DAS TOR ZU MIRKWALD.'." 20231 RETURN 20240 PRINT"'NOERDLICH VOM CARROCK LIEGTDAS HAUS VON BEORN.'.":RETURN 20250 PRINT"'OESTLICH VOM GROSSEN SEE{3SPACE}LIEGT DIE STADT ESGAROTH.'.":RETURN 20260 PRINT"'OESTLICH VOM SCHNELLEN{5SPACE}FLUSS IST EIN WASSERFALL.'.":RETURN 20270 PRINT"AUF DER NORDWESTSEITE DES EINSAMEN BERGES IST DER RABENHUEGEL.'." 20271 RETURN 20280 IF VE=2AND P=3AND GE(GG)=3 THENPRINT:PRINTPE$(3)" GIBT IHNEN ";GE$(GG) 20281 IF VE=2AND P=3AND GE(GG)=3 THENGE(GG)=1 20290 IF VE=3AND EG=1AND P=2AND ZN=5200 THENPRINT"{DOWN}THORIN TRAEGT SIE.":TR=1:RETURN 20292 IF VE<>8OR P<>2OR EG<>2OR TU(6)<>0 THEN20295 20293 PRINT"{DOWN}THORIN OEFFNET DAS FENSTER.":TU(6)=1:RETURN 20295 IF P=2AND VE=4AND TR=1 THENTR=0:ZM=5300:PRINT:R$="{6LEFT,SPACE}DURCH DAS FENSTER":RETURN 20300 IF P=6AND VE=7 THENPRINT"{DOWN}BARD SAGT 'ICH WERDE SMAUG TOETEN !'.":BA=1:RETURN 20310 IF EG<>3OR P<>6OR VE<>8OR SM<>ZN THEN20320 20311 PRINT"{DOWN}BARD NIMMT SEINEN SCHWARZEN PFEIL.":PRINT"{DOWN}EINE ALTE DROSSEL "; 20312 PRINT"KOMMT ANGEFLOGEN UND{2SPACE}SETZT SICH AUF BARDS SCHULTER. 20313 PRINT"{DOWN}BARD SAGT 'SCHWARZER PFEIL,DU HAST NIE{SPACE,SPACE}GEFEHLT,GLUECK SEI MIT DIR. 20314 FOR I=1 TO2000:NEXT :PRINT"{DOWN}BARD SCHIESST AUF SMAUG." 20315 FOR I=1 TO3000:NEXT :IF INT (100*RND (1))<95 THEN20317 20316 PRINT"{DOWN}DER SCHWARZE PFEIL VERFEHLT SMAUG !":VL=6:RETURN 20317 PRINT"{DOWN}DER SCHWARZE PFEIL BOHRT SICH TIEF IN{SPACE,2SPACE}SMAUGS BRUST !" 20318 PRINT"{DOWN}SMAUG STUERZT UND STIRBT.":SA=0:MS=ZN:VL=0 20320 RETURN 20499 IF P=7 THEN20600 20500 PRINT"{DOWN}"P$" SAGT 'NEIN.'. 20600 RETURN 30000 REM E L R O N D 30005 TU(4)=TU(4)+1 30010 IF TU(4)=1 THENPRINT"{DOWN}ELROND SAGT 'HALLO !'. 30015 IF TU(4)=2 THENPRINT"{DOWN}ELROND BIETET IHNEN ETWAS ZU ESSEN AN.":GE(7)=3600 30020 RETURN 31000 REM G O L L U M 31005 IF GL>1 THEN31100 31010 PRINT"{DOWN}GOLLUM FRAGT 'ETWAS,DAS ALLES UND JEDEN VERSCHLINGT:BAUM DER RAU"; 31012 PRINT"SCHT,VOGEL DER{2SPACE}SINGT,FRISST EISEN,ZERMALMT DEN HAERTES-TEN STEIN,"; 31014 PRINT"ZERBEISST JEDES SCHWERT,ZERB- RICHT JEDEN SCHREIN,SCHLAEGT "; 31015 PRINT"KOENIGE{4SPACE}NIEDER,SCHLEIFT IHREN PALAST,TRAEGT{5SPACE}MAECHTIGEN FELS"; 31017 PRINT" FORT ALS LEICHTE LAST?'.":VL=2:GL=2:RETURN 31100 IF GL=2 THENPRINT"{DOWN}GOLLUM SAGT'ER WEISS ES MEIN SCHATZZZ.'.":GL=3:RETURN 31110 GL=GL+1:IF GL>5AND GE(5)=1 THENGE(5)=7:PRINT"{DOWN}GOLLUM NIMMT DEN RING.":RETURN 31120 IF GE(5)=1 THENPRINT"{DOWN}GOLLUM SAGT ' WAS HAT ER IN DER TASCHE{SPACE,SPACE}MEIN SCHATZ?'. 31130 IF GE(5)=7 THENVL=2 31140 RETURN 32000 REM W A R G 32010 PRINT"{DOWN}DER FUERCHTERLICHE WARG GREIFT SIE AN !" 32020 IF GE(3)+GE(4)+GE(5)<>3OR GL=0 THEN32100 32030 PRINT"{DOWN}SIE VERTEIDIGEN SICH MIT GANZER KRAFT... 32032 FOR I=1 TO3000:NEXT 32034 PRINT"EIN RIESIGER ADLER STUERZT AUS DER LUFT AUF SIE HERUNTER,PACKT SIE "; 32036 PRINT"MIT SEINEN{3SPACE}KLAUEN UND FLIEGT DAVON ! 32038 FOR I=1 TO2000:NEXT :PE(2)=6300 32040 PRINT"{DOWN}NACH EINEM LANGEN FLUG LANDET DER ADLER IN DER NAEHE EINES "; 32042 PRINT"FELSPLATEAUS,LAESST{2SPACE}SIE FREI UND FLIEGT DAVON...":ZM=6300:GOTO 2105 32100 VL=3:GOTO 39000 33000 REM B A R D 33010 IF PE(6)<>ZN THENPE(6)=ZN:PRINT"{DOWN}BARD FOLGT IHNEN." 33050 RETURN 34000 REM S M A U G 34010 IF SM=ZN THENPRINT"{DOWN}SMAUG ERSCHEINT !" 34040 IF INT (20*RND (1))<5 THENPRINT"{DOWN}SMAUG SAGT 'ICH KRIEG DICH,DIEB !'." 34100 RETURN 39000 REM V E R L O R E N 39010 PRINT 39015 IF VL=1 THENPRINT"DER TROLL HAT SIE GEFRESSEN." 39017 IF VL=2 THENPRINT"JEMAND HAT SIE VON HINTEN ERWUERGT. 39019 IF VL=3 THENPRINT"DER WARG HAT SIE GETOETET. 39020 IF VL=4 THENPRINT"ETWAS SCHWERES FAELLT HERUNTER UND ER-{2SPACE}SCHLAEGT SIE." 39021 IF VL=5 THENPRINT"ALS SIE DAS WASSER BERUHREN FALLEN SIE{2SPACE}IN SCHLAF....." 39023 IF VL=6 THENPRINT"SMAUG HAT SIE GEFRESSEN. 39500 END 60000 REM G R A F I K CLOSE 60005 REM HOBBIT-HOEHLE 60015 PRINT,"{BROWN,7SPACE}@@@@@@@",,,"{4SPACE}PP@{RVSON,ORANGE}M{2SPACE}B{2SPACE}N{RVOFF,BROWN}LP",,," PP@{ORANGE,RVSON}M{2SPACE}MM B NN N{RVOFF,BROWN}LP 60020 PRINT,"M{ORANGE}*{RVSON,2SPACE}MM{2SPACE}M{BROWN}RER{ORANGE}N NN{SPACE,RVOFF}£{BROWN}G",2,"N{SPACE,ORANGE}*{RVSON,2SPACE}M{BROWN}RERERERE{ORANGE}N{SPACE,RVOFF}£{SPACE,BROWN}H 60025 PRINT,"M{2SPACE,RVSON}RERERERERERER{RVOFF,2SPACE}G",,,"M{2SPACE,RVSON}ERERERERERERE{RVOFF,2SPACE}G 60030 PRINT,"M{2SPACE,RVSON}RE{BLUE}OP{BROWN}RE{RVOFF,ORANGE}*{RVSON}@@@{RVOFF}£{BROWN,RVSON}ER{RVOFF,2SPACE}G",,,"M{2SPACE,RVSON}ER{BLUE}HN{BROWN}ER{RIGHT,ORANGE}G{LEFT}GBB{RIGHT,BROWN}RE{RVOFF,2SPACE}G 60035 PRINT,"M{2SPACE,RVSON}RE{GREEN}L@{BROWN}RE{RIGHT,GREY1}D{ORANGE}HH{RIGHT,BROWN}ER{RVOFF,2SPACE}G",,,"N{2SPACE,RVSON}ERERER{RIGHT,ORANGE}GBB{RIGHT,BROWN}RE{RVOFF,2SPACE}G 60040 PRINT,"M{2SPACE,RVSON}RERERE{ORANGE}£TTT*{BROWN}ER{RVOFF,2SPACE}G",,,"N{SPACE,ORANGE,RVSON}£TTTTTT{5SPACE}TT*{RVOFF,BROWN,SPACE}G 60045 PRINT,"M{ORANGE,RVSON}£{15SPACE}*{RVOFF,BROWN}G":GOTO 63000 60050 REM WUESTENLAND 60055 PRINT"{BROWN}","NYYYYYYYYYYYYYYYYYYYYH 60060 FOR I=1 TO13:PRINT,"N",," H":NEXT 60065 PRINT"{14UP}","{DOWN,2RIGHT,DOWN,WHITE}.{UP,2RIGHT}.{2RIGHT,2DOWN}.{2UP,RIGHT}.{2RIGHT}.{DOWN}.{RIGHT,RIGHT}.{UP,RIGHT}. 60070 PRINT,"{RIGHT,5DOWN,GREY1}N{UP}N{UP}N{UP}NM{DOWN}MNMN{UP}NM{DOWN}MNMNM{2SPACE}NM",,"{6RIGHT}N N{3SPACE}N N{SPACE,SPACE}MN 60075 PRINT,"{5RIGHT}N N{3SPACE}N N{3SPACE}N",,,,"{2SPACE,BROWN}MN",,,"{4RIGHT}NN{2SPACE}MN{2SPACE}NN",,,"{4RIGHT}MH{2SPACE}NN{2SPACE}N 60080 PRINT,"{4RIGHT}N{3SPACE}N{2SPACE}N{ORANGE}*{RVSON,8SPACE,RVOFF}":FOR I=1 TO2:PRINT,"{RIGHT,RVSON,20SPACE,RVOFF}" 60085 NEXT :GOTO 63000 60090 REM ORK-GRILLPLATZ 60095 PRINT,"{BROWN,SPACE}@@@@@@@@@@@@@@@@@@@":FOR I=1 TO14:PRINT,"N",,"G":NEXT 60100 PRINT," TTTTTTTTTTTTTTTTTTT" 60105 PRINT"{15UP}","{DOWN,2RIGHT,WHITE}.{3SPACE,DOWN}.{UP,2RIGHT}.{2RIGHT,2DOWN}.{2UP}.{DOWN,2RIGHT}.{2DOWN}. 60110 PRINT,,"{2UP,4LEFT,BROWN}MN MN{DOWN,5LEFT}NNMNNMNMN",,,"{4RIGHT}MNMH MHNHNNMN 60115 PRINT,"MMN MNNNNNNNNMHMHMNNG",,"NMHMNMNNMMHMHNNNN MHH 60120 PRINT,"MNNNMHMH MHN MHNN NNG",,"{RIGHT}NN NNN{SPACE,SPACE}N{GREY1}FFD{BROWN}N MHNMHH 60125 PRINT,"MMGMMHNH{SPACE,GREY1}V{BROWN}N{YELLOW}X{BROWN}M{GREY1}F{BROWN,SPACE}NN NNG",,"NNN NN{3SPACE,GREY1}C VV{BROWN,2SPACE}MH MHH 60130 PRINT,"MN{2SPACE}N{11SPACE}H{2SPACE}HG",,"N{6SPACE,ORANGE}++++++++K{BROWN,3SPACE}H 60135 PRINT,"M@@@@@@@@@@@@@@@@@@@G":GOTO 63000 60140 REM DAS WALDTOR 60145 PRINT,"{LIG.BLUE,RVSON,16SPACE,RVOFF}",,,"{RVSON,6SPACE}NMNM{6SPACE,RVOFF} 60150 PRINT,"{RVSON}M{2SPACE}NMN N{2SPACE}MNMNM{SPACE,RVOFF}",,,"{RVSON,SPACE}MN N N{RVOFF,YELLOW}NM{RVSON,LIG.BLUE,SPACE}N N{SPACE,SPACE}M{RVOFF} 60155 PRINT,"{RVSON,SPACE}N N N{RVOFF,YELLOW}NNMM{RVSON,LIG.BLUE,SPACE}N{4SPACE,RVOFF}",,,"{RVSON}N{SPACE,3SPACE,RVOFF,YELLOW}NN{2SPACE}MM{RVSON,LIG.BLUE,5SPACE,RVOFF} 60160 PRINT,"{YELLOW}IIIIIOYYYYPIIIII",2,"{BROWN,RVSON}RERER{YELLOW,RVOFF}OOYYPP{BROWN,RVSON}RERER 60165 PRINT,"{RVSON}ERERE{YELLOW,RVOFF}HH{RVSON,2SPACE,RVOFF}NN{BROWN,RVSON}ERERE",,,"{RVSON}RERER{YELLOW,RVOFF}HH{RVSON,2SPACE,RVOFF}NN{BROWN,RVSON}RERER 60170 PRINT,"{RVSON}ERERE{YELLOW,RVOFF}HH{RVSON,2SPACE,RVOFF}NN{BROWN,RVSON}ERERE",,,"{RVSON,ORANGE,16SPACE,RVOFF}":GOTO 63000 60175 REM GEBIRGSPFAD 60180 PRINT,"{BROWN,SPACE}@@@@@@@@@@@@@@@@@@@",,"N{4SPACE,WHITE}.{ORANGE,RVSON}HHH H H{2SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G 60185 PRINT,"M{SPACE,WHITE}.{ORANGE,3SPACE,RVSON}HHH H H{2SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G",,"N{2SPACE,WHITE}.{ORANGE,2SPACE,RVSON}JHH H H{2SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G 60190 PRINT,"M{WHITE}.{SPACE,2SPACE}.{ORANGE,RVSON}KHH H H{2SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G",,"N{SPACE,ORANGE,RVSON}£*{RVOFF,2SPACE,RVSON}KHH H H{2SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G 60195 PRINT,"M{ORANGE,RVSON}£NM*£{BROWN}YYP{ORANGE,RVOFF}*{RVSON}H H{2SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G",,"N{ORANGE,RVSON}N{2SPACE}MM{BROWN,2SPACE}N*{ORANGE,RVOFF,SPACE}*{RVSON}H{SPACE,SPACE}H{SPACE,SPACE}B{SPACE,RVOFF,BROWN}H 60200 PRINT,"M{ORANGE,RVSON,SPACE}NM M{BROWN,2SPACE}NN{SPACE,RVSON}*{RVOFF,SPACE,ORANGE}*{RVSON,SPACE}H{2SPACE}B{SPACE,RVOFF,BROWN}G",,"N{ORANGE,RVSON}N{2SPACE}MN{BROWN,2SPACE}NN NN{RVSON,CYAN,RVOFF,SPACE,ORANGE,SPACE}*{RVSON,2SPACE}B{SPACE,RVOFF,BROWN}G 60205 PRINT,"M{ORANGE,RVSON,3SPACE}N{SPACE,BROWN,2SPACE}NN NN{SPACE,RVOFF,2SPACE,ORANGE}*{RVSON,SPACE}B{SPACE,RVOFF,BROWN}G",,"N{GREY1,RVSON,5SPACE,BROWN,2SPACE}NN NN{SPACE,RVOFF,3SPACE,ORANGE}*{RVSON}B{SPACE,RVOFF,BROWN}G 60210 PRINT,"M{GREY1,RVSON,9SPACE,BROWN,SPACE}NN{SPACE,RVOFF,4SPACE,ORANGE}*{RVSON,SPACE,RVOFF,BROWN}G",,"M{GREY1,RVSON,13SPACE,RVOFF,5SPACE,ORANGE}*{BROWN}G 60215 PRINT,"{SPACE,BROWN}TTTTTTTTTTTTTTTTTTT":GOTO 63000 60220 REM FORRESTRIVER 60225 FOR I=1 TO6:PRINT,"{RVSON,LIG.BLUE,19SPACE,RVOFF}":NEXT 60230 PRINT,"{RVSON,LIG.BLUE}@@@@@@@@@@@@@@@@@@@":FOR I=1 TO7:PRINT,"{RVSON,LIG.GREEN,19SPACE}":NEXT 60235 PRINT,"{9UP,RVSON,LIG.BLUE}N{UP}N{UP}NM{DOWN}M{LEFT,3UP}UI{4DOWN,2LEFT}N{UP}N{UP}N{UP,2UP}UI{DOWN}UI{DOWN,2DOWN,2LEFT}N{UP}NM{DOWN,LEFT}N{UP}N{UP}NM{DOWN}MNMN 60240 PRINT,,"{3LEFT,2UP,LIG.BLUE}£*{DOWN,2LEFT,RVSON,GREY1}UI{DOWN,2LEFT}JK{DOWN,2LEFT,2SPACE,RVOFF,3SPACE,LIG.BLUE}*{DOWN,6LEFT,RVSON,GREY1,2SPACE,GREY2}HFFF{DOWN,6LEFT,GREY1,2SPACE,GREY2}HVVV 60245 PRINT,,"{UP,6LEFT,LIG.GREEN}£*{RVSON,GREY1,DOWN,2LEFT,GREY1}D{SPACE,RIGHT,GREY1,RVOFF}K{RVSON}K{GREY2}H{SPACE,2SPACE,2RIGHT,UP,LIG.GREEN,RVOFF}£*{RVSON,DOWN,2LEFT,GREY1}D ",,,"{RIGHT,RVOFF,LIG.GREEN}£*","{RIGHT}£*" 60250 PRINT,"{RIGHT,GREY2,RVSON}D{SPACE,RVOFF,LIG.GREEN}£ *{RIGHT}£ *{RIGHT,RVSON,GREY1,SPACE}F{RVOFF,RIGHT,LIG.GREEN}£ *",,,"{3RIGHT,GREY1,RVSON}CD{SPACE,RIGHT,GREY2,SPACE}D{SPACE,4RIGHT,SPACE}F " 60255 PRINT,"{LIG.GREEN,RVSON,SPACE}@POI{RVOFF}UYTY{RVSON}IO@{SPACE,6SPACE,RVOFF} 60260 PRINT," @POI{RVSON}UYTU{RVOFF}IP{ORANGE,RVSON}£{RVOFF}£{LIG.GREEN}YU{RVSON}IOP{SPACE,RVOFF} 60265 PRINT,"{RVSON,12SPACE}TU{RVOFF}IOP@" 60266 PRINT,,"{11UP,5RIGHT,LIG.BLUE,RVSON}N{RIGHT}N{DOWN,4LEFT}N{3UP,3RIGHT,12DOWN}":GOTO 63000 60270 REM WEINKELLER 60275 PRINT,"{SPACE,GREY2}@@@@@@@@@@@@@@@@@ 60280 FOR I=1 TO2:PRINT,"M{4SPACE,RVSON}ERERERERERERE{RVOFF}G":PRINT,"N{SPACE,3SPACE,RVSON}RERERERERERER{RVOFF}G":NEXT 60285 PRINT,"M{3SPACE,BROWN,RVSON}£{GREY2}ERERE{ORANGE}HBG{GREY2}E{ORANGE}HBG{GREY2}E{RVOFF}G":PRINT,"N{SPACE,SPACE,BROWN,RVSON}£N{GREY2}RERER{ORANGE}BBB{GREY2}E{ORANGE}BBB{GREY2}R{RVOFF}G" 60290 PRINT,"M{SPACE,BROWN,RVSON}£NN{RVOFF}@@@@{SPACE,ORANGE,RVSON}HBG{RIGHT}HBG{RVOFF,GREY2,SPACE}G":PRINT,"M{SPACE,BROWN,RVSON}NN{RVOFF,BROWN}£LPPN{9SPACE,GREY2}G 60295 PRINT,"M{SPACE,BROWN,RVSON}N{RVOFF,BROWN}£{LIG.BLUE,RVSON}£{2SPACE,RVOFF}£{9SPACE,GREY2,SPACE}G 60300 PRINT,"MN{BROWN}£{LIG.BLUE,RVSON}£{2SPACE,RVOFF}£{10SPACE,GREY2,SPACE}G":PRINT,"M{SPACE,BROWN}TTTT{5SPACE,ORANGE,RVSON}HBG{RVOFF,4SPACE,GREY2}G 60305 PRINT,"M{6SPACE,ORANGE,RVSON}HBG{RIGHT}BBB{RVOFF,GREY2,4SPACE}G":PRINT," TTTTTTTTTTTTTTTTT":GOTO 63000 60310 REM DUNKLER PFAD 60315 PRINT:FOR I=1 TO3:PRINT,"{GREEN,RVSON,14SPACE}":NEXT 60320 PRINT,"C{BROWN}K{GREEN}UC{BROWN}K{SPACE,GREEN}U{BROWN}K{GREEN}C{RVSON,2SPACE}DF " 60325 FOR I=1 TO3:PRINT,"{BROWN,SPACE}K{2SPACE}K{2SPACE}K{2SPACE}K{2SPACE}K":NEXT 60330 PRINT,"{ORANGE,RVSON,SPACE}@POIP POP@ @P" 60335 PRINT,"@@POIP@POP@@@P 60340 PRINT,"UUUUUUUUUUUUUU":GOTO 63000 60345 REM BEORNS HAUS 60350 PRINT,"{LIG.BLUE,RVSON,16SPACE,RVOFF} 60355 PRINT,"{RVSON,3SPACE,SHIFT-SPACE,6SPACE}NM{4SPACE,RVOFF} 60360 PRINT,"{RVSON,SPACE}NM{2SPACE}NM{RVOFF}£*{RVSON}N{2SPACE}M{SPACE,SPACE}N{RVOFF} 60365 PRINT,"{RVSON}N{SPACE,SPACE}MN{SPACE,RVOFF}£{2SPACE,RVSON,ORANGE,SPACE,LIG.BLUE,3SPACE}MN{SPACE,RVOFF} 60370 PRINT,"{RVSON,3SPACE}N{SPACE,RVOFF}£{3SPACE,RVSON,ORANGE,SPACE,LIG.BLUE,RVOFF}*{RVSON,2SPACE}N{2SPACE,RVOFF} 60375 PRINT,"{RVSON,2SPACE}N{SPACE,RVOFF}£{6SPACE}*{RVSON,4SPACE,RVOFF} 60380 PRINT,"{RVSON,5SPACE,BROWN}ERERER{LIG.BLUE,5SPACE,RVOFF} 60385 PRINT,"{RVSON,5SPACE,BROWN}RE{RIGHT}E{WHITE,SPACE,BROWN}E{LIG.BLUE,5SPACE,RVOFF} 60390 PRINT,"{RVSON}RRRRR{BROWN}ER{RVOFF,ORANGE}V{RVSON,BROWN}RER{LIG.BLUE}RRRRR{RVOFF} 60395 PRINT,"{RVSON,GREEN}TTTTTTTTTTTTTTTT{RVOFF} 60400 PRINT,"{RVSON,16SPACE,RVOFF}":GOTO 63000 60405 REM WASSERFALL 60410 PRINT,"{SPACE,BROWN}@@@@@@@@@@@@@@@ 60415 PRINT,"M H H YMM{LIG.BLUE}O{BROWN}GGB B H 60420 PRINT,"M Y B B H{LIG.BLUE,RVSON,SPACE,RVOFF,BROWN,SPACE}HH B H 60425 PRINT,"M H B GN{LIG.BLUE}M{RVSON,SPACE,RVOFF,BROWN}GTN H H 60430 PRINT,"M H G GH{LIG.BLUE}N{RVSON,SPACE,RVOFF}H{BROWN}GN N H 60435 PRINT,"M B G GB{LIG.BLUE}L{RVSON,SPACE,RVOFF}J{BROWN}B H HH 60440 PRINT,"M{GREEN}N{BROWN}B{GREEN}N{BROWN}HN H{LIG.BLUE,RVSON}K{SPACE,RVOFF}K{BROWN}Y G GH 60445 PRINT,"M{GREEN,RVSON}J{RVOFF}K{RVSON}KL{RVOFF,BROWN}Y N{LIG.BLUE,RVSON}J L{RVOFF,BROWN}H G HH 60450 PRINT,"M{GREEN,RVSON}HLHN{RVOFF,BROWN}H H{LIG.BLUE,RVSON,3SPACE,RVOFF,BROWN}N BN H 60455 PRINT,"M{GREEN,RVSON,SPACE}M{2SPACE,RVOFF,BROWN}B{BLUE}O{RVSON}TTTTT{RVOFF}O{BROWN}BN H 60460 PRINT,"ML L{BLUE}O{RVSON,9SPACE,RVOFF}O{BROWN}HH 60465 PRINT," TTTTTTTTTTTTTTT":GOTO 63000 60470 REM DAL 60475 PRINT,"{BROWN,SPACE}@@@@@@@@@@@@@@@@ 60480 PRINT,"M{SPACE,WHITE}.{6SPACE}.{4SPACE,BROWN,3SPACE}G 60485 PRINT,"M{SPACE,WHITE,4SPACE}.{5SPACE}. .{BROWN,2SPACE}G 60490 PRINT,"M{SPACE,GREY1,6SPACE}NM{BROWN,7SPACE}G 60495 PRINT,"M{GREY1,2SPACE}NM{2SPACE}N{2SPACE}MNM{BROWN,2SPACE,SHIFT-SPACE,SPACE}G 60500 PRINT,"M{GREY1,SPACE}N{2SPACE}MN{3SPACE}N{2SPACE}M{2SPACE}N{BROWN}G 60505 PRINT,"M{GREY1}N{SPACE,2SPACE}N{YELLOW,SPACE}D{GREY1,SPACE}N{4SPACE}MN{BROWN,SPACE}G 60510 PRINT,"M{YELLOW,3SPACE}D{SPACE,RVSON}U{SPACE,RVOFF,SPACE}KKD{SPACE,GREY1,SPACE}N{BROWN,2SPACE}G 60515 PRINT,"M{YELLOW,3SPACE,RVSON,SPACE,RVOFF}KKK{SPACE,RVSON,SPACE,RVOFF}KKK{SPACE,BROWN,3SPACE}G 60520 PRINT,"M{YELLOW,2SPACE,RVSON}V{4SPACE,RVOFF}O{RVSON,4SPACE,RVOFF}I{SHIFT-SPACE,BROWN,2SPACE}G 60525 PRINT,"M{ORANGE,RVSON}TTTTTTTTTTTTTTTT{RVOFF,BROWN}G 60530 PRINT,"M{ORANGE,RVSON,16SPACE,RVOFF,BROWN}G":GOTO 63000 62000 PRINT"{CLR}":PRINT,"{YELLOW,5SPACE}M MN N 62001 PRINT,"{2SPACE}M M{2SPACE}MN{2SPACE}N N 62002 PRINT," M{2SPACE}M M{2SPACE}N N{2SPACE}N 62003 PRINT," M MM MN N NN N 62004 PRINT,"MMMM MMUINN NNNN 62005 PRINT,"MMMM*{RVSON}@@@@@@{RVOFF}£NNNN 62006 PRINT," MMM{RED,RVSON}£{6SPACE}*{RVOFF,YELLOW}NNN 62007 PRINT," MM{RED,RVSON}£{8SPACE}*{RVOFF,YELLOW}NN 62008 PRINT,"{2SPACE}M{RVSON}MN M{SPACE,SPACE}N HH{RVOFF}N 62009 PRINT,"{2SPACE}M{RVSON}MN{2SPACE}OP{SPACE,SPACE}HH{RVOFF}N 62010 PRINT,"{3SPACE,RVSON}MN{2SPACE}HN{2SPACE}HH{RVOFF} 62011 PRINT,"{ORANGE,RVSON,3SPACE,YELLOW}MN{2SPACE}L@{2SPACE}HH{ORANGE,3SPACE,RVOFF} 62012 PRINT,"{RVSON,3SPACE,YELLOW}MN N{2SPACE}M HH{ORANGE,3SPACE,RVOFF} 62013 PRINT,"{RVSON,3SPACE}EKIM-REPUS{3SPACE,RVOFF} 62020 PRINT,"{4LEFT,DOWN,WHITE}HERZLICHEN GLUECKWUNSCH ,",,"{4LEFT}SIE HABEN ES GESCHAFFT ! 62025 X$="{40SPACE}*** J.R.R TOLKIEN" 62030 X$=X$+" *** DER KLEINE HOBBIT *** EIN ABENTEUERSPIEL VON " 62040 X$=X$+"MICHAEL NICKLES - BERGSTR.3 - 8763 KLINGENBERG 2 ***" 62070 X$=X$+"{41SPACE}" 62100 FOR I=1 TOLEN (X$)-39 62110 POKE 211,1:POKE 214,20:SYS 58732 62120 PRINTMID$ (X$,I,39) 62130 FOR II=1 TO150:NEXT II 62140 NEXT I:END 62500 POKE 53280,0:POKE 53281,0:PRINT"{CLR,RED,4DOWN}","{2SPACE}J.R.R. TOLKIEN" 62501 PRINT"{3DOWN}":PRINT,"{YELLOW,2SPACE}DER KLEINE 62502 PRINT 62503 PRINT,"{2SPACE}HN NM OP OP HPY 62504 PRINT,"{2SPACE}L@ HN L@ L@ HN 62505 PRINT,"{2SPACE}HN HN HN HN HN 62506 PRINT,"{2SPACE}HN MN L@ L@ HN 62510 PRINT"{4DOWN,SPACE}EIN ABENTEUERSPIEL VON MICHAEL NICKLES 62520 PRINT,"{2DOWN,RED,2SPACE}BITTE WARTEN !" 62600 RETURN 63000 POKE 198,0:WAIT 198,1:PRINT"{WHITE}":RETURN 63100 PRINT,"{SPACE,ORANGE}@@@@@@@@@@@@@@ 63102 PRINT,"M{WHITE}.{SPACE,4SPACE}.{4SPACE}.{SPACE,ORANGE,SPACE}G 63103 PRINT,"M{WHITE,3SPACE}.{5SPACE}.{3SPACE}.{ORANGE}G 63104 PRINT,"M{14SPACE}G 63105 PRINT,"M{6SPACE,WHITE,RVSON}£*{RVOFF,ORANGE,6SPACE}G 63106 PRINT,"M{5SPACE,WHITE,RVSON}£{2SPACE}*{RVOFF,ORANGE,5SPACE}G 63107 PRINT,"M{4SPACE,GREY1,RVSON}£{4SPACE}*{RVOFF,ORANGE,4SPACE}G 63108 PRINT,"M{3SPACE,GREY1,RVSON}£{6SPACE}*{RVOFF,ORANGE,3SPACE}G 63109 PRINT,"M{2SPACE,GREY1,RVSON}£{8SPACE}*{RVOFF,ORANGE,2SPACE}G 63110 PRINT,"M{RVSON}TTTTTTTTTTTTTT{RVOFF}G 63111 PRINT,"M{RVSON,14SPACE,RVOFF}G":GOTO 63000
Diesen Artikel als PDF herunterladen
Diesen Artikel auf Mastodon teilen