1 rem"┏━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┓ 2 rem"┃ --- der weg nach bree --- ┃ 3 rem"┃ -ein teiladventure aus- ┃ 4 rem"┃ ---- der herr der ringe ---- ┃ 5 rem"┃ (c)1986 by ┃ 6 rem"┃ holger schemel ┃ tel. ┃ 7 rem"┃ moselweg 64 ┃ 05205┃ 8 rem"┃ 4800 bielefeld 11 ┃ /6544┃ 9 rem"┗━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━┛ 10 poke 53248+21,0:sys 58451 11 print"{clr}{down}{down}{down}{down}{down}{rght}{rght}{rght}{rght}momentchen bitte..." 12 rem basic-erweiterung 14 data76,24,1,177,251,145,251,200,208,249,230,252,202,208,244,96,120,160,0,169 16 data 160,132,251,133,252,162,32,32,11,1,169,224,132,251,133,252,162,32,32,11 18 data 1,169,53,133,1,88,96:for i=264 to 310:read x:poke i,x:next:sys 264 20 for i=710 to 730:read x:pokei,x:next 22 data 208,3,76,29,168,32,192,2,32,19,166,56,165,95,233,1,164,96,76,36,168 24 poke 40996,197:poke 40997,2:poke1,54 26 for i=43168 to 43170:read x:poke i,x:next 28 for i=704 to 709:read x:pokei,x:next 30 data 32,192,2,32,138,173,76,247,183 40 gosub 50000:gosub 61000 50 z=14:r(0)=z:rem zimmernummer (a:14) 60 poke 646,0 70 poke 53280,0:poke 53281,14 80 goto 1230 100 rem ----- befehlseingabe ----- 110 b$="" 120 print"{down} >{blk} {left}"; 130 poke 204,0 140 get x$:if x$=""then 140 150 i=asc(x$) 160 if i=20 then 200 170 if i=13 then 240 180 if i<65 or i>90 then if i<>32 then 140 185 if len(b$)>30 then for i=1 to 33:print" {left}{left}<{left}";:next:print"{up}";:goto 100 190 b$=b$+x$:print"{wht}"x$"{blk} {left}";:goto 140 200 if len(b$)=0 then 140 210 b$=left$(b$,len(b$)-1) 220 poke 204,1 230 print" {left}{left} {left}";:goto 130 240 if b$="" then 140 250 poke 204,1:print" {left}_" 260 rem ----- befehlscodierung ----- 270 v=0:g=0:o=0:p=0:r=0:ic=0:w=0 275 if len(b$)<3 then 500 280 for i=1 to vz 290 if left$(b$,3)=left$(ve$(i),3) then v=i:ic=1 300 next 305 if ic=0 then print"unbekanntes verb":goto 100 307 if len(b$)=len(ve$(v)) or len(b$)<4 then w=1:return 310 ic=0:for i=1 to gz 320 if right$(b$,4)=right$(ge$(i),4) then g=i:ic=1 330 next:if ic=1 then return 340 for i=1 to oz 350 if right$(b$,4)=right$(ob$(i),4) then o=i:ic=1 360 next:if ic=1 then return 370 for i=1 to pz 380 if right$(b$,3)=right$(pe$(i),3) then p=i:ic=1 390 next 400 if ic=0 then print"unbekanntes nomen":goto 100 410 return 500 rem --- richtungen --- 510 for i=1 to 10 520 if b$=r$(i) then r=i:ic=1 530 next:goto 305 1000 rem ----- hauptprogramm ----- 1100 gosub 100:rem befehlseingabe 1110 if v=13 then v=4 1120 if left$(pe$(1),4)="tote"then p1=1 1130 if left$(pe$(2),4)="tote"then p2=1 1140 if z=17 and r<>0 then if c2=0 or c1=1 then 1800 1200 rem gehen in ein neues zimmer 1210 if r=0 then 1500 1220 if r(r)=0 then print"in diese richtung fuehrt kein weg.":goto 1000 1225 z=r(r):r(0)=z:print o$ 1230 restore 10000+z*100 1235 for i=1 to 10:read r(i):next 1240 goto 20000 1250 gosub 10000+z*100 1260 if id=1 then print"{rvon}{up}"; 1270 print"----------------------------------------{rvof}"; 1300 print"{down}richtungen: "; 1310 ic=0:for i=1 to 10:if r(i)<>0 then print r$(i);"-";:ic=1 1320 next 1330 if ic=1 then print chr$(20) 1340 if ic=0 then print"-" 1350 print"gegenstaende: "; 1360 ic=0:for i=1 to gz:if ge(i)=z then print ge$(i);"-";:ic=1 1370 next 1380 if ic=1 then print chr$(20) 1390 if ic=0 then print"-" 1400 print"besonderheiten: "; 1410 ic=0:for i=1 to oz:if oo(i)=z then print ob$(i);"-";:ic=1 1420 next 1430 for i=1 to pz:if po(i)=z then print pe$(i);"-";:ic=1 1440 next 1450 if ic=1 then print chr$(20) 1460 if ic=0 then print"-" 1470 if id=1 then 1475 1471 if r=0 then 1000 1472 if p1=0 then print"{down}sam tritt ein.":po(1)=z 1473 if p2=0 then print"merry folgt.":po(2)=z 1474 goto 1000 1475 poke 198,0 1480 for i=1 to 6:poke 1977+i,100:next 1485 x$="return":for i=1 to 6:poke 2017+i,asc(mid$(x$,i,1))+64:next 1490 getx$:ifx$<>chr$(13)then 1485 1493 poke vc+21,0 1495 id=0:print"{clr}----------------------------------------du bist ";:goto 1250 1500 rem ---- reaktion auf befehle ---- 1600 if w=0 then 1620 1610 if v<3 or v>6 then if v<>16 then print a$(4):goto1000 1620 if p<>0 and po(p)<>z then print a$(3):goto 1000 1625 if o<>0 and oo(o)<>z then print a$(3):goto 1000 1630 if g=0 then 1700 1640 if ge(g)<>z and v=1 then print a$(3):goto 1000 1650 if ge(g)<>-1 then if v=2 or v=7 or v=11 or v=15 then print a$(2):goto 1000 1700 gosub 2000+v*100 1750 if id=1 then id=0:goto 1225 1800 gosub 10000+z*100+20 1900 goto 1000 2100 if o<>0 or p<>0 then print a$(5) 2110 if ge(g)=z thenge(g)=-1:printo$ 2130 return 2200 if o<>0 or p<>0 then print a$(0) 2220 if ge(g)=-1 thenge(g)=z:printo$ 2230 return 2300 print"ich habe:{up}" 2310 ic=0:for i=1 to gz 2320 if ge(i)=-1 then printtab(10);ge$(i):ic=1 2330 next 2340 if ic=0 thenprinttab(10);"nichts." 2350 return 2400 if w=1 then id=1:return 2405 if g=0 then 2430 2410 if ge(g)<>z and ge(g)<>-1 then print a$(3):return 2415 if g=9 then print"es hat einen fahlen glanz.":return 2420 if g=7 then print"er ist golden und ohne jede verzierung.":return 2425 goto 2490 2430 if o=0 then 2465 2435 if o=7 then print"sie scheint unueberwindbar zu sein.":return 2440 if o=9 then print"er ist aus weichem sandstein gemacht.":return 2445 if o=6 and ge(8)=0 then print"du findest etwas darunter.":ge(8)=z:return 2450 if o=14 then print"du entdeckst darauf eine inschrift.":oo(13)=28:return 2455 if o=13 then print"es sind elbenrunen, die du nicht lesen kannst.":return 2460 goto 2490 2465 if left$(pe$(p),5)="toter"then9100 2470 print p$(p):return 2490 print"sieht ganz normal aus." 2495 return 2500 print"willst du wirklich aufhoeren? (j/n)" 2510 getx$:ifx$=""then 2510 2520 if x$<>"j"then print"wusste ich es doch!":return 2530 end 2600 if w=0 then print a$(0):return 2610 x$="":for i=1 to 40:x$=x$+" ":next 2620 for i=1 to vz:x$=x$+ve$(i)+"-" 2630 next:x$=left$(x$,len(x$)-1) 2640 for i=1 to 40:x$=x$+" ":next 2650 x=peek(211):y=peek(214) 2660 for i=1 to len(x$)-39 2670 poke 211,0:poke 214,23:sys 58732 2680 print mid$(x$,i,40); 2685 for j=1 to 100:next j:next i 2690 poke 211,x:poke 214,y:sys 58732 2695 return 2700 if p<>0 then print a$(0):return 2710 if g=0 then 2740 2720 if g<>1 then print a$(6):return 2725 if tu(0)=0 then print a$(1):return 2730 print o$:tu(0)=0:ge(7)=z:print a$(7):return 2740 if o>5 then print a$(6):return 2745 if tu(o)=0 then print a$(1):return 2750 if o=5 and ge(4)<>-1 then print"du hast keinen schluessel.":return 2755 if o=2 then print a$(6):return 2760 print o$:tu(o)=0 2770 if o=3 or o=4 then print"es faellt etwas heraus." 2780 if o=3 then ge(3)=z:ge(4)=z 2790 if o=4 then ge(5)=z 2795 return 2800 if p=0 then print a$(0):return 2810 if ge(2)<>-1 and ge(9)<>-1 then print a$(8):return 2815 if left$(pe$(p),5)="toter" then print"er ist bereits tot.":return 2817 if p<>3 and p<7 and ge(2)<>-1 then print a$(8):return 2820 if p<>3 and p<7 then print"du erschlaegst ihn mit deiner axt." 2825 if p<>3 and p<7 then pe$(p)="toter "+pe$(p):return 2830 if p=3 then print"{clr}{wht}er spaltet dich mit seinem schwert.":goto 9000 2840 if p=7 and ge(9)=-1 then print"der grabunhold zerfaellt zu staub." 2845 if p=7 and ge(9)=-1 then po(7)=0:return 2850 if p=7 and ge(9)<>-1 then print"solche waffen schaden ihm nicht.":return 2860 if p=8 and ge(9)=-1 and c1=1 then print"der troll sackt tot zusammen." 2865 if p=8 and ge(9)=-1 and c1=1 then po(8)=0:return 2867 if p=8 and c1=0 then print"{clr}{wht}er sieht dich, wehrt deinen schlag ab," 2868 if p=8 and c1=0 then print"und befoerdert dich ins jenseits.":goto 9000 2870 if p>7 then print"er lacht dich nur aus.":return 2900 if p=0 then print a$(0):return 2905 if left$(pe$(p),5)="toter"thenprint"tote koennen nicht mehr reden.":return 2910 if p=1 and z=28 and oo(13)=28 then print i$:tu(10)=0:return 2912 ifp=2 andz=28 andoo(13)=28 thenprint"merry kann auch kein elbisch.":return 2915 if p=1 then print"er sagt 'zu ihren diensten, herr'" 2920 if p=1 and ge(1)=0 then print"und gibt dir etwas.":ge(1)=-1:p1=0 2922 if p=2 andz=20 andge(3)<>-2thenprint"er fragt, was du hier willst.":return 2925 if p=2 and z=21 thenprint"er zeigt dir eine lichte stelle in der hecke." 2930 if p=2 and z=21 thentu(7)=0:return 2935 if p=2 then print"er drueckt dir die hand" 2940 if p=2 andge(6)=0 thenprint"und gibt dir ein stueck papier.":ge(6)=-1:p2=0 2945 if p=4 then print"er fragt dich unwirsch, was du willst." 2950 if p=5 and tu(8)=0 then print"aragorn wartet schon auf deinen besuch." 2953 if p=5 andtu(8)=1thenprint"er sagt:'bist du nicht frodo, bilbos neffe?" 2955 if p=6 then print"er sagt:'gibt dich dem reiter nicht zu erkennen.'" 2960 if p=9 then print"er sagt:'ich bin aragorn,arathorns sohn,koenig von"; 2965 if p=9 then print" gondor; doch meine koenigs- krone ist verschollen." 2970 if p=3 or p=7 or p=8 then print"er antwortet dir nicht." 2990 return 3000 if g=0 then print a$(5):return 3010 if g=7 and ge(g)=-1 thenprint"du traegst ihn jetzt am finger.":c1=1:return 3020 if g=5 and ge(g)=-1 then print"du huellst dich in den mantel.":c2=1:return 3030 if ge(g)=-1 then print a$(1):return 3040 if ge(g)=z then print"versuch's mit 'nimm'.":return 3050 return 3100 if g=0 then print a$(0):return 3110 ic=0:for i=1 to pz 3115 if po(i)=z then ic=1 3120 next:if ic=0 then print"ich sehe hier niemanden.":return 3125 ge(g)=-2 3130 if z=12 then print"der wanderer nimmt es dankend entgegen.":return 3135 if z=17 then print"der reiter zerschlaegt es spoettisch.":return 3140 if z=27 and g=8 then print"der unhold nimmt das gold und verliert etwas." 3145 if z=27 and g=8then ge(9)=z:return 3150 if z=31 then print"der troll steckt es grinsend in seine tasche.":return 3155 if z=33 and g=6 then print"er liest es und oeffnet dir das tor von bree." 3160 if z=33 and g=6 thentu(9)=0:return 3165 if z=27 then print"er grabscht danach und wirft es weg.":return 3170 if z=36and g=10thenprint"{clr}{wht}{down}{down}{down}{down}{down}{down}aragorn setzt sich die krone aufs haupt!" 3171 if z=36 and g=10 then 8000 3173 ifz=34andg=1thenprint"er liest ihn und oeffnet den vorhang":tu(8)=0:return 3175 if z=34 then print"er nimmt es entgegen.":return 3180 ifz=20 andg=3thenr(4)=21:print"merry gibt den weg nach osten frei.":return 3185 if po(1)=z then print"sam nimmt es dankend an.":return 3187 if po(2)=z then print"merry nimmt es mit freuden entgegen." 3190 return 3200 if o=0 then print a$(0):return 3210 if o=11 then print"sie ist verschlossen.":return 3220 if o=1 and tu(1)=0 then id=1:r=1:return 3225 if o=2 and tu(2)=0 then id=1:r(1)=6:r=1:return 3230 if o=6 then print"steh gefaelligst auf,du alter faulpelz!":return 3240 if o=7 and tu(7)=0 then id=1:r(4)=22:r=4:return 3245 if o=7 and tu(7)=1 then print"ich sehe keinen durchgang.":return 3250 if o=10 and tu(6)=0 then id=1:r(10)=35:r=10:return 3255 if o=3 or o=4 or o=5 or o=8 or o=9 or o=12 then print a$(0):return 3280 print"ist verschlossen." 3290 return 3400 if o=0 then print a$(0):return 3410 if ge(2)<>-1 then print"du hast kein richtiges werkzeug.":return 3420 if o=1 or o=5 or o=11 then print"zu stabil.":return 3430 if o=2 and z=9 then print o$:tu(2)=0:return 3440 if o=2 and z=10 then print"zu stabil.":return 3450 if o=9 and tu(6)=1 then tu(6)=0:print"der boden bricht ein.":return 3455 if o=8 and ob$(8)="zerhackte weide" then print a$(1):return 3460 if o=8 then print"du hackst sie kaputt.":ob$(8)="zerhackte weide":return 3470 print a$(0):return 3500 if g=0 then 3550 3510 if g=1 and tu(0)=1 then print"der brief ist noch verschlossen.":return 3520 if g=1 and tu(0)=0 then gosub 6000:return 3530 if g=3 then gosub 6300:return 3540 if g=6 then gosub 6500:return 3550 if o=13 then print"ich kann es nicht entziffern.":return 3560 print a$(0):return 3600 print"pause. weiter mit 'f1'." 3610 getx$:if x$<>"{f1}"then 3610 3620 return 6000 rem ----- inhalt des briefes ----- 6010 print"{clr}"chr$(14) 6020 poke 53280,4:poke 53281,7 6030 print" Lieber Neffe Frodo !" 6040 print"{down} Nun habe ich mich also endgueltig ent-" 6050 print" schlossen, den Rest meines Lebens bei" 6060 print" den Hochelben in Rivendell zu ver-" 6070 print" bringen. Ich hoffe, dieser Brief hat" 6080 print" Dich noch rechtzeitig erreicht." 6090 print" Meine Bitte an Dich ist, einem alten" 6100 print" Freund von mir, einem Koenigssohn," 6110 print" wieder zu seiner Koenigswuerde zu" 6120 print" verhelfen. Diese kann er aber nur im" 6130 print" Besitz der alten Krone erlangen, die" 6140 print" vor langer Zeit im Norden des Landes" 6150 print" verschollen ist." 6160 print" Finde diese Krone und bringe sie nach" 6170 print" Bree, wo mein Freund, Aragorn heisst" 6180 print" er, auf Deine Ankunft wartet." 6190 print" Als Hilfe auf Deinem Weg schenke ich" 6200 print" Dir meinen Zauberring, der seinen" 6210 print" Traeger unsichtbar macht." 6220 print" Nun kann ich Dir nur noch viel Glueck" 6230 print" wuenschen." 6240 printtab(20)"Dein Bilbo." 6250 poke 198,0 6260 getx$:if x$<>chr$(13)then 6260 6270 id=1:print chr$(142)chr$(147):poke 53280,0:poke 53281,14:return 6300 rem ----- inhalt der urkunde ----- 6310 print"{clr}"chr$(14) 6320 poke 53280,4:poke 53281,7 6330 print"{down} KAUFVERTRAG" 6340 print" -----------" 6350 print"{down} Ausgestellt in Beutelsend,Hobbingen" 6360 print"{down}{down} Ich, der Unterzeichnende, erklaere" 6370 print" hiermit, das Landgut Krickloch fuer" 6380 print" 130 Goldstuecke an Bilbo Beutlin von" 6390 print" Beutelsend, Hobbingen, verkauft zu" 6400 print" haben." 6410 print" Festes und bewegliches Inventar geht" 6420 print" automatisch an den Besitzer ueber," 6430 print" einschliesslich des Apfelbaumes" 6440 print" hinter dem Haus." 6450 printtab(20)"{down}{down}Bungo Altbock" 6460 poke 198,0 6470 getx$:if x$<>chr$(13)then 6470 6480 id=1:print chr$(142)chr$(147):poke 53280,0:poke 53281,14:return 6500 rem ----- inhalt des papiers ----- 6510 print"{clr}"chr$(14) 6520 poke 53280,4:poke 53281,7 6530 print"{down}{down} EMPFEHLUNGSSCHREIBEN" 6540 print" {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}" 6550 print"{down} An den Torwaechter von Bree." 6560 print" Der Traeger dieses Schreibens ist" 6570 print" absolut vertrauenswuerdig und mit" 6580 print" einem dringenden Auftrag nach hier" 6590 print" unterwegs." 6600 print" Der Besitzer und seine Gefaehrten" 6610 print" sind daher unverzueglich und ohne" 6620 print" Verzoegerungen einzulassen." 6630 print"{down}{down}{down} Ausgestellt von Gerstenmann " 6640 print" Butterblume; Besitzer des" 6650 print" Gasthauses 'Zum taenzelnden" 6660 print" Pony', Bree." 6670 poke 198,0 6680 getx$:if x$<>chr$(13)then 6680 6690 id=1:print chr$(142)chr$(147):poke 53280,0:poke 53281,14:return 8000 rem ----- gewonnen ----- 8002 restore 60250 8005 poke 53281,0 8007 print"{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(6)"du hast das spiel gewonnen !" 8010 restore 60400 8020 for i=832 to 832+62 8030 read x:poke i,x:next 8040 poke 2040,13 8050 poke vc,162:poke vc+1,128 8060 poke vc+29,1:poke vc+23,1 8070 poke vc+39,7 8080 poke vc+28,1 8090 poke vc+37,2 8100 poke vc+38,6 8110 poke vc+21,1 8120 a=1:for i=1 to 200 8130 a=1-a 8140 poke vc+21,a 8150 poke 53280,int(rnd(1)*255) 8160 next:poke vc+21,1 8170 printtab(12)"noch ein spiel ?" 8180 getx$:ifx$=""then 8180 8190 if x$="j"then run 8200 if x$="n"then end 8210 goto 8180 8999 end 9000 rem ----- spieler tot ----- 9002 restore 60250 9005 for i=832 to 832+62 9007 read x:poke i,x:next 9010 poke 2040,13 9012 poke vc,162:poke vc+1,128 9014 poke vc+29,1:poke vc+23,0 9016 poke vc+39,15:poke vc+28,0 9020 poke vc+21,1 9030 poke 53281,0 9040 printtab(10)"{down}{down}du bist tot !!!" 9050 printtab(10)"{down} noch ein spiel ?" 9060 getx$:ifx$=""then 9060 9070 if x$="j"then run 9080 if x$="n"then end 9090 goto 9060 9100 ifp=1andge(1)=0thenprint"du findest etwas bei der leiche.":ge(1)=z:return 9110 ifp=2andge(6)=0thenprint"du nimmst etwas aus seiner hand.":ge(6)=z:return 9120 print"die leiche ist blutig." 9130 return 10000 rem ----- spielkarte ----- 10100 data 0,0,0,0,0,0,0,0,3,0 10105 print"im keller von beutelsend. es ist sehr staubig." 10120 return 10200 data 0,5,0,0,0,0,0,0,0,0 10205 print"in bilbo's gesellschaftszimmer einer komfortablen kleinen stube." 10220 return 10300 data 0,6,0,4,0,0,0,0,0,1 10305 print"auf den fluren von beutelsend{down}" 10320 return 10400 data 0,7,3,5,0,0,0,0,0,0 10405 print"auf den fluren von beutelsend{down}" 10420 return 10500 data 2,8,4,0,0,0,0,0,0,0 10505 print"auf den fluren von beutelsend{down}" 10520 return 10600 data 3,0,0,0,0,0,0,0,0,0 10605 print"in bilbo's schlafraum. unter dem fenster steht das gemachte bett." 10620 return 10700 data 4,0,0,0,0,0,0,0,0,0 10705 print"im arbeitszimmer, einem raum mit blick auf sandigmanns muehle." 10720 return 10800 data 5,11,0,0,0,0,0,0,0,0 10805 print"in der empfangshalle im eingang von beutelsend." 10820 return 10900 data 0,0,0,10,0,0,0,0,0,0 10905 print"auf einem pfad vor den fenstern von beutelsend." 10920 oo(2)=9 10930 return 11000 data 0,0,9,11,0,0,0,12,0,0 11005 print"auf einem pfad vor den fenstern von beutelsend." 11020 oo(2)=10 11030 return 11100 data 0,12,10,0,0,0,0,0,0,0 11105 print"vor der tuer von beutelsend. sie ist rund und gruen gestrichen." 11120 return 11200 data 11,13,0,0,10,0,0,0,0,0 11205 print"auf der buehlstrasse. sie fuehrt zum beutlinschen anwesen." 11220 return 11300 data 0,14,0,0,0,0,0,0,0,0 11305 print"am stadttor von hobbingen. das eichentor ist verschlossen." 11320 if tu(1)=0 then r(1)=12 11330 return 11400 data 13,0,14,15,0,0,0,16,0,0 11405 print"auf der wasserauer strasse, die durch hobbingen fuehrt." 11420 return 11500 data 0,16,14,15,0,0,0,17,0,0 11505 print"auf der wasserauer strasse. sie endet auf der oststrasse." 11520 return 11600 data 15,0,16,17,14,0,0,0,0,0 11605 print"auf der grossen oststrasse. sie fuehrt im osten nach bree." 11620 return 11700 data 0,18,16,17,15,0,0,0,0,0 11705 print"auf der von vielerlei wanderern passierten oststrasse." 11710 return 11720 if r=0 then return 11725 if c1=1 then print"{clr}{wht}du hast den herrscherring getragen und" 11730 if c1=1 then print"dich so saurons diener offenbart." 11735 if c1=1 then print"du starbst einen schnellen tod.":goto 9000 11740 if c2=1 then return 11745 print"{clr}{wht}der schwarze reiter hat dich erkannt" 11750 print"und gefangengenommen. ich glaube kaum," 11755 print"dass du saurons folter lange stand-" 11760 print"halten wirst....":goto 9000 11800 data 17,19,0,0,0,0,0,0,0,0 11805 print"auf einer landstrasse, die durch bockland fuehrt." 11820 return 11900 data 18,0,0,0,0,0,0,0,0,0 11905 print"vor der tuer von krickloch, einem kleinen anwesen in bockland." 11920 if tu(5)=0 then r(4)=20 11930 return 12000 data 0,0,19,0,0,0,0,0,0,0 12005 print"in krickloch, dem von bilbo kuerzlich gekauften landgut." 12020 if ge(3)=-2 then r(4)=21 12030 return 12100 data 21,21,20,0,0,0,0,0,0,0 12105 print"vor einer riesigen, undurch- dringlichen dornenrosenhecke." 12120 return 12200 data 24,23,21,30,25,30,23,25,0,0 12205 print"in einem dichten wald. die baeume wirken bedrohlich." 12220 return 12300 data 22,25,30,22,25,30,24,25,0,0 12305 print"im alten wald. man sagt, es wuerde hier spuken." 12320 return 12400 data 30,25,22,25,22,30,23,26,0,0 12405 print"im wald. hier soll es noch ents, baumaehnliche wesen, geben." 12420 return 12500 data 30,25,24,22,23,22,30,24,0,0 12505 print"im alten wald. wenig licht dringt auf deinen pfad." 12520 return 12600 data 30,25,23,22,24,24,25,28,0,0 12605 print"auf einer waldlichtung, die mit wilden farnen ueberwuchert ist." 12610 return 12620 if ob$(8)<>"alte weide"thenreturn 12630 print"{clr}{wht}{down}die alte weide hat dich in sich ein- geschlossen und dich so"; 12640 print" erstickt.":goto 9000 12700 data 0,0,0,0,0,0,0,0,0,0 12705 print"in einem duesteren huegelgrab, das von fahlem licht erhellt wird." 12720 if po(7)=0 then r(1)=28 12730 return 12800 data 29,0,26,30,28,25,28,0,0,0 12805 print"auf den huegelgraeberhoehen. ich sehe einen schwarzen obelisk." 12820 if tu(10)=0 then r(2)=27 12830 return 12900 data 31,28,0,0,31,31,28,0,0,0 12905 print"auf einem nebligen pfad, der nach norden leicht abfaellt." 12920 return 13000 data 24,25,22,30,23,25,23,22,0,0 13005 print"im alten wald. die baeume scheinen dir auszuweichen." 13020 return 13100 data 0,29,17,33,32,33,30,0,0,0 13105 print"wieder auf der oststrasse an- gelangt. es beginnt zu regnen." 13120 if po(8)=0 then r(1)=32 13130 return 13200 data 0,31,0,0,0,0,0,31,0,0 13205 print"in fornost, dem totendeich. ein eiskalter wind blaest hier." 13220 if tu(6)=0 then oo(10)=32 13230 return 13300 data 0,0,31,0,32,0,29,0,0,0 13305 print"vor dem westtor von bree. hier gibt es noch gute gasthaeuser." 13320 if tu(9)=0 then r(4)=34 13330 return 13400 data 0,0,33,0,0,0,0,0,0,0 13405 print"im gasthaus 'zum taenzelnden pony'. hier ist es behaglich warm." 13420 if tu(8)=0 then r(1)=36 13430 return 13500 data 0,0,0,0,0,0,0,0,32,0 13505 print"in einem unterirdischen altar- raum. es ist hier seltsam ruhig." 13510 return 13520 ic=0:for i=1 to 9 13525 if ge(i)=-1 then ic=1 13530 next 13535 if ic=1 then print"der boden bricht unter der last deines gepaecks ein." 13540 if ic=1 goto 9000 13550 return 13600 data 0,34,0,0,0,0,0,0,0,0 13605 print"in einem kleinen gemuetlichen raum, der verdunkelt worden ist." 13620 return 20000 rem ----- rahmen zeichnen ----- 20010 print"{blk}{clr}":gosub 30000 20020 s1=0:m1=0:g1=0:g2=0:h1=0:v1=0 20030 s2=0:m2=0:h2=0:v2=0 20050 gosub 40000+z*100 20060 if ge(7)=z then print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(19)"{yel}W" 20100 print"{home}{blk}"; 20120 print"{rvon} {rvof}"; 20130 for i=1 to 13 20140 print"{rvon} {rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvon} {rvof}";:next 20150 print"{rvon}----------------------------------------{rvof}"; 20160 print"{rvon} {rvof}"; 20170 print"{rvon} {rvof}"; 20200 gosub 45000 20250 print"{up}{up}{blk}{rvon} du bist "; 20300 id=1:goto 1250 30000 rem ----- grafiken ----- 30100 if z>8 and z<>20 and z<>27 and z<>35 and z<>34 and z<>36 then 30300 30110 rem ----- zimmer ----- 30115 if z=34 and tu(8)=0 then r(1)=36 30117 if z=20 and ge(3)=-2 then r(4)=21 30120 for i=1 to 2 30130 printtab(7)spc(i)"M"spc(24-i*2)"N":next 30140 printtab(7)" O{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}P" 30150 for i=1 to 7 30160 printtab(7)" {CBM-H}"spc(18)"{CBM-M} ":next 30170 printtab(7)" L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}" 30180 for i=2 to 1 step -1 30190 printtab(7)spc(i)"N"spc(24-i*2)"M":next 30200 if r(3)=0 then 30210 30205 print"{home}{down}{down}{down}"tab(7)"M{down}{left}MM{down}{left}{left}{CBM-N}P{down}{left}{left}{CBM-M}{CBM-M}{down}{left}{left}{CBM-M}{CBM-M}{down}{left}{left}{CBM-M}{CBM-M}{down}{left}{left}{CBM-M}{CBM-M}{down}{left}{left}{CBM-M}{CBM-M}{down}{left}{left}{SHIFT-@}{CBM-M}{down}{left}{left}{CBM-M}{SHIFT-@}{down}{left} " 30210 if r(4)=0 then 30220 30215 print"{home}{down}{down}{down}"tab(32)"N{down}{left}{left}NN{down}{left}{left}O{CBM-H}{down}{left}{left}{CBM-G}{CBM-G}{down}{left}{left}{CBM-G}{CBM-H}{down}{left}{left}{CBM-G}{CBM-G}{down}{left}{left}{CBM-H}{CBM-G}{down}{left}{left}{CBM-H}{CBM-G}{down}{left}{left}{CBM-H}L{down}{left}{left}L{CBM-G}{down}{left}{left} " 30220 if r(1)=0 then 30237 30225 print"{home}{down}{down}{down}{down}"tab(17)"{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-M}M{CBM-P}{CBM-P}{CBM-P}{CBM-P}N{CBM-G}" 30230 for i=1 to 5:printtab(16)"{CBM-M}{CBM-M} {CBM-G}{CBM-G}":next 30235 printtab(16)"{SHIFT-@}N{up}DDDD{down}ML{left}{left}{left}{left}{left}{left} " 30237 goto 31400:rem teppich 30240 if r(9)=0 then 30255 30245 print"{home}{down}"tab(10)"{CBM-P}{CBM-I}{rvon}{CBM-U}{CBM-U}{rvof}{CBM-I}{CBM-P}{down}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-U}OP{CBM-U}{CBM-T}" 30250 fori=1 to10:printtab(12)"OP":next 30255 if r(10)=0 then 30270 30260 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(25)"{CBM-G}{CBM-M}{down}{left}{left}{left}{left}{CBM-@}{CBM-O}OP{CBM-O}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{CBM-Y}{rvon}{CBM-I}{CBM-O}{CBM-O}{CBM-I}{rvof}{CBM-Y}" 30270 return 30300 rem ----- landschaften ----- 30310 if z<9 or z>11 and z<>13 and z<>19 and z<>33 then 30400 30320 for i=1 to 7:printtab(7)"{red}{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}{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}" 30325 printtab(7)"{red}{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}{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}":next:if z=11 then 30600 30330 if z=13 then 30800 30331 if z=19 then 31100 30332 if z=33 then 31200 30335 print"{home}{down}{down}":printtab(9)"{grn}{rvon}====={blk}{rvof}O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}P{grn}{rvon}====={rvof}" 30340 for i=1 to 6:printtab(9)"{grn}{rvon}====={blk}{rvof}{CBM-H}{blu}{rvon} {CBM-L}{CBM-J} {rvof}{blk}{CBM-N}{grn}{rvon}====={rvof}":next 30345 printtab(9)"{grn}{rvon}====={blk}{rvof}L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{grn}{rvon}====={rvof}" 30350 printtab(12)"{blk}{rvon}{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}{CBM-U}{CBM-U}{rvof}" 30355 print"{home}{down}{down}{down}{down}"tab(15)"{blu}{rvon}{down}{rght}N{up}N{down}N{down}{left}{left}NN{down}{left}{left}{left}{left}N{rght}N{down}{left}N{down}{left}{left}N N{up}{up}{up}{up}{up}{rght}{rght}N N{down}{left}{left}NN{down}{left}{left}N "; 30360 print"{blu}{rvon}N{down}{left}{left}{left}{left}N N{down}{left}{left}{left}N N{down}{left}{left}N" 30390 return 30400 if z<>29 and z<>31 then if z<14 or z>18 then 30500 30410 print"{home}{down}" 30415 printtab(7)" {yel}Q{gry3} {wht} {CBM-@}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T}{CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-O}{CBM-P}{CBM-P}{CBM-@}" 30417 printtab(7)"{gry3} {wht}{CBM-T}{CBM-Y}{CBM-U}{CBM-U}{rvon}{CBM-I}{CBM-O}{CBM-O}{CBM-I}{rvof}{CBM-U}{CBM-Y}{CBM-Y}{CBM-T}" 30420 printtab(7)"{down}{down}{down}{brn}F{SHIFT-*}DEE{CBM-Y}ED{SHIFT-*}FR{CBM-P}{CBM-P}{CBM-P}{CBM-P}RRF{SHIFT-*}DEED{SHIFT-*}F{SHIFT-*}" 30425 printtab(7)"{brn} {CBM-@}{CBM-P}{CBM-@} DE{CBM-Y}EDF{CBM-P} F{SHIFT-*}DEED {CBM-P}FD" 30430 printtab(7)"{brn} E{CBM-Y}{CBM-T} {CBM-T}{CBM-Y}DF {CBM-Y}E{SHIFT-*}{SHIFT-*}F{CBM-P}RF{SHIFT-*}" 30435 printtab(7)"{brn}F{SHIFT-*}DE {CBM-Y}ED{SHIFT-*}F{CBM-Y}EDF{CBM-P}R{SHIFT-*}E F{SHIFT-*}DE{SHIFT-*}" 30440 if r(1)=0 then 30460 30445 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}"tab(18)"{brn}{rvon}{SHIFT-POUND} {down}{left}{left}{left}{left}{SHIFT-POUND} {rvof}{CBM-H}{down}{left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND} {rvof}{CBM-K}{down}{left}{left}{left}{left}{left}{left}{left}{rvon}{SHIFT-POUND} {CBM-N}" 30450 printtab(14)"{brn}{rvon}{SHIFT-POUND} {down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND} {rvof}{CBM-H}" 30460 if r(3)=0 and r(4)=0 then 30480 30465 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}"tab(7)"{rvon} {CBM-T}{CBM-Y}{CBM-Y}{CBM-T} {CBM-T}{CBM-T}{CBM-Y}{CBM-T} {CBM-T}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-T}" 30470 printtab(7)"{rvon} " 30480 return 30500 if z<>30 then if z<22 or z>26 then 30700 30510 print"{home}" 30515 printtab(7)"{grn} {CBM-POUND}{CBM-POUND}{CBM-POUND} {CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND} " 30520 printtab(7)"{yel} Q{grn} {CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}" 30525 printtab(7)"{grn}{CBM-+}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-POUND}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}" 30530 printtab(7)"{grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}" 30535 printtab(7)"{grn}{CBM-+}{CBM-+}{CBM-+}{blk}{rvon}{CBM-J}{rvof}{grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{brn}{rvon}{CBM-K}{rvof}{grn}{CBM-+}{CBM-+}{brn}{rvon} {grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}" 30540 printtab(7)"{grn}{CBM--}{brn}{rvon} {rvof}{CBM-J}{blk}{rvon}{CBM-J}{rvof}{CBM-J}{brn}{CBM-L}{rvon}{CBM-L}{rvof}{gry1}{CBM-N}{rvon} {CBM-L}{rvof}{grn}{CBM-+}{brn}{rvon}{CBM-J}{CBM-L}{rvof}{CBM-L}{rvon} {CBM-H}{rvof}{gry1}{CBM-M}{rvon} {CBM-L}{rvof}{grn}{CBM-+}{blk}{rvon} {rvof}{grn}{CBM--}{CBM-+}{brn}{rvon}{CBM-L}{rvof}{CBM-L}{rvon} {rvof}" 30545 printtab(7)"{brn}{CBM-M}{rvon} {rvof}{CBM-J}{blk}{rvon}{CBM-H}{rvof}{CBM-J}{brn}{CBM-L}{rvon}{CBM-M}{rvof}{gry1}{CBM-N}{rvon} {CBM-N}{rvof}{brn}M{rvon}{CBM-H}{CBM-L}{rvof}{CBM-L}{rvon} G{rvof}{gry1}{CBM-L}{rvon} {rvof}{blk}{CBM-L}{rvon} {rvof}{CBM-K}{brn}{CBM-N}{rvon}{CBM-M}{rvof}{CBM-L}{rvon} {rvof}" 30550 printtab(7)"{brn}{CBM-L}{rvon} {rvof}{CBM-K}{blk}{rvon}{CBM-G}{rvof}{CBM-K}{brn}{rvon}{CBM-J}{CBM-L}{rvof}{gry1}{CBM-L}{rvon} {CBM-L}{rvof}{brn} {rvon} {CBM-M}{rvof}{rvon}{CBM-K} T{rvof}{gry1}{rvon}G {CBM-M}{rvof}{blk}{rvon}{CBM-K} {CBM-L}{rvof}{brn}{CBM-L}{rvon}{CBM-M}{rvof}{rvon}{CBM-J} {rvof}{CBM-H}" 30555 printtab(7)"{brn}{CBM-M}{rvon} {rvof}{CBM-J}{blk}{rvon}{CBM-J}{rvof}{CBM-J}{brn}{CBM-L}{rvon}{CBM-L}{rvof}{gry1}{CBM-N}{rvon} {CBM-M}{rvof} {brn}{rvon}{CBM-G}{CBM-L}{rvof}{CBM-L}{rvon} {CBM-H}{rvof}{gry1}{CBM-M}{rvon} {CBM-L}{rvof}{blk}{CBM-M}{rvon} {rvof}{CBM-K}{brn}{CBM-N}{rvon} {rvof}{CBM-L}{rvon} {rvof}" 30560 printtab(7)"{brn}{CBM-M}{rvon} {rvof}{CBM-K}{blk}{rvon}{CBM-G}{rvof}{CBM-K}{brn}{rvon}{CBM-J}{CBM-M}{rvof}{gry1}{CBM-N}{rvon} {rvof}N{brn}{rvon}{CBM-G}{CBM-M}{rvof}{CBM-N}{rvon} G{rvof}{gry1}{CBM-M}{rvon} {CBM-M}{rvof}{blk}{rvon}{CBM-K} {CBM-L}{rvof}{brn}{CBM-L}{rvon} {rvof}{rvon}{CBM-J} {rvof}{CBM-H}" 30565 printtab(7)"{brn}{CBM-L}{rvon} {rvof}{CBM-K}{blk}{rvon} {rvof}{CBM-K}{brn}{rvon}{CBM-H}{CBM-M}{rvof}{gry1}{CBM-L}{rvon} {rvof}{CBM-G}{brn}{rvon} {CBM-M}{rvof}{rvon}{CBM-J} G{rvof}{gry1}{rvon}G {rvof}{blk}{rvon}{CBM-J} {CBM-M}{rvof}{brn}{CBM-L}{rvon} {rvof}{rvon}{CBM-J} {rvof}{CBM-H}" 30570 printtab(7)"{brn}{rvon}{CBM-J} {rvof}{CBM-K}{blk}{rvon} {CBM-N}{rvof}{brn}{rvon}{CBM-H} {rvof}{gry1}{CBM-L}{rvon} {rvof}{CBM-J}{brn}{rvon} {rvof}{rvon}{CBM-H} G{rvof}{gry1}{rvon}G {rvof}{blk}{rvon}{CBM-H} {CBM-M}{rvof}{brn}{CBM-L}{rvon} {rvof}{rvon}{CBM-G} {rvof}{CBM-H}" 30575 if z<>26 then printtab(7)"{brn}{rvon}R{SHIFT-*}D {blk}FR{gry1}{CBM-P}{CBM-@}D{brn}D{SHIFT-*}{gry1}FEDFR{brn}DE{SHIFT-*}D{blk}EF{brn}D{SHIFT-*}EF":return 30580 printtab(7)"{brn}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}" 30585 printtab(10)"{up}{up}{brn}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}{rvof}" 30590 printtab(12)"{up}{up}{brn}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}{rvof}" 30595 printtab(14)"{up}{up}{brn}{rvon}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rght}{rght}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{rvof}" 30599 return 30600 print"{home}{down}{down}{down}"tab(18)"{red}{SHIFT-POUND}{grn}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{red}{CBM-*}" 30610 for i=1 to 8:printtab(18)"{grn}{rvon}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}":next 30620 printtab(18)"{red}{rvon}{CBM-*}{grn}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-@}{red}{SHIFT-POUND}{rvof}{up}{up}{up}{up}{up}{left}{left}{left}{left}{left}{yel}Q" 30690 return 30700 if z<>28 then 30800 30710 print"{home}{down}{down}{down}{down}"tab(9)" {yel}Q" 30715 printtab(7)"{down} {brn}{CBM--}{gry1} {CBM-P}RFR{CBM-@} " 30720 printtab(7)"{brn}{CBM--}{CBM-+}{gry1}DE{CBM-Y} {CBM-T}{CBM-Y}E{SHIFT-*}FR{CBM-P}{CBM-P}R{SHIFT-*}E{CBM-Y}EDFRF" 30725 printtab(7)"{brn}{CBM-+}{CBM-+}{CBM--}{brn}{CBM-P}RF{SHIFT-*}E{CBM-Y}EDF{CBM-P}R{SHIFT-*}DED{SHIFT-*}R{CBM-P}FDE{CBM-Y}D" 30730 printtab(7)"{brn}{CBM-+}{CBM-+}{CBM-+} " 30735 printtab(7)"{brn}{rvon}{CBM--}{CBM--}{rvof}{CBM--} " 30740 printtab(7)"{lgrn}{rvon} {CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-@}{CBM-P}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-T} {CBM-T}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-P}{grn}{CBM-P}FDE" 30745 printtab(7)"{lgrn}{rvon} {CBM-P}FD{CBM-Y} {CBM-Y}{rvof}{CBM-I}{CBM-P}" 30750 printtab(7)"{lgrn}{rvon}FD{CBM-Y} " 30755 printtab(7)"{lgrn}{rvon} " 30760 return 30800 if z<>13 then 30900 30810 print"{home}{down}{down}{down}{down}" 30830 for i=1 to10:printtab(15)"{blk}{rvon} {CBM-M}{CBM-G} {rvof}":next 30840 print"{home}"tab(15)"{down}{down}{down}{down}{down}{down}{blk}{rvon}{CBM-I}K{rght}{rght}{rght}{rght}{rght}{rght}J{CBM-I}" 30850 printtab(15)"{blk}{CBM-I}{rvon}I{rght}{rght}{rght}{rght}{rght}{rght}U{rvof}{CBM-I}" 30855 printtab(19)"{down}{rvon}{SHIFT-@}L" 30860 printtab(15)"{down}{blk}{rvon}{CBM-I}K{rght}{rght}{rght}{rght}{rght}{rght}J{CBM-I}" 30870 printtab(15)"{blk}{CBM-I}{rvon}I{rght}{rght}{rght}{rght}{rght}{rght}U{rvof}{CBM-I}" 30890 return 30900 if z<>21 then 31000 30910 print"{home}" 30920 printtab(26)"{yel}Q{down}" 30925 printtab(7)"{lgrn}UI{red}A{lgrn}JI{wht}Z{lgrn}IUI{wht}A{red}X{lgrn}UI{wht}AZ{red}A{lgrn}I{wht}Z{lgrn}IUIUIUDI" 30930 printtab(7)"{lgrn}JDIUKUKJJFI{red}Z{lgrn}JDIUKUKJIUKJFI" 30935 printtab(7)"{lgrn}UDKJIJFRFIJI{wht}A{lgrn}UKJIJD{CBM-R}KJIIUK" 30940 printtab(7)"{lgrn}{CBM-Q}IUUKUUIUKU{SHIFT-+}FKUDKIUKUUKHGI" 30945 printtab(7)"{lgrn}JF{CBM-W}GIGJIJIUKUIJIUKJF{CBM-W}{CBM-Q}FKJ{CBM-W}" 30950 printtab(7)"{lgrn}UUK{CBM-Q}KJIGUGJIJIUKHJII{CBM-Q}KUIIH" 30955 printtab(7)"{lgrn}GJIJIUKJ{CBM-W}JF{CBM-W}UKHUKUKHJIJIJ{CBM-W}" 30960 printtab(7)"{lgrn}JIHUKHUUKUKH{CBM-Q}FKHUHUKUKITIH" 30965 printtab(7)"{lgrn}U{SHIFT-+}KHUKHJIGUKJIUKJ{CBM-W}J{CBM-R}KUKG{CBM-Q}K" 30970 printtab(7)"{lgrn}K{CBM-Q}FKHUKUKJ{CBM-W}UUKGIUKUKUKI{CBM-Q}K " 30975 printtab(7)"{lgrn}UKUDKJIHUFKJ{CBM-W}UKJ{CBM-E}I{CBM-Q}FKUKJDI" 31000 if z<>12 then 31300 31010 print"{home}" 31015 printtab(7)"{down} {yel}Q {down} {brn}{CBM-P}{CBM-I}{rvon}{CBM-U}{CBM-U}{rvof}{CBM-I}{CBM-P}" 31020 printtab(7)" {rvon}{CBM-V} {CBM-C}" 31025 printtab(7)" {rvon}{CBM-V} {CBM-C}" 31030 printtab(7)" X{CBM-P}{rvon}{CBM-V} {CBM-V}{CBM-V}{CBM-V}{CBM-V}{CBM-V}Q{CBM-C} {CBM-C}{rvof}{CBM-P}X" 31035 printtab(7)"{CBM-I}{rvon}{CBM-U}{CBM-Y} {CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-*}{rvof}{CBM-*}{rvon}{CBM-T} {CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@}X" 31040 for i=1 to 6:printtab(7)"{rvon} ":next 31045 printtab(20)"{up}{up}{up}{up}{up}{up}{SHIFT-POUND} {down}{left}{left}{left}{SHIFT-POUND} {rvon}{CBM-H}{rvof}{down}{left}{left}{left}{left}{left}{SHIFT-POUND} {rvon}{CBM-J}{rvof}{down}{left}{left}{left}{left}{left}{left}{SHIFT-POUND} {rvon}{CBM-K}{rvof}" 31050 printtab(16)"{SHIFT-POUND} {CBM-L}{down}{left}{left}{left}{left}{left}{left}{left}{left}{SHIFT-POUND} {CBM-M}" 31055 printtab(9)"{up}{up}{up}{up}{up}{up}{rvon}X{rght}A{up}X{down}X{down}{left}{left}{left}XX{down}{left}{left}{left}{left}{left}X{down}XX{up}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}X{rght}A{down}XX{down}{left}{left}X{down}X{down}{rght}X" 31090 return 31100 print"{home}{down}{down}{down}" 31110 printtab(9)"{blk}O{CBM-Y}{CBM-Y}{CBM-Y}P{rght}{rght}{rght}{brn}{rvon}{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}{rvof}{rght}{rght}{rght}{blk}O{CBM-Y}{CBM-Y}{CBM-Y}P" 31120 for i=1 to 3:printtab(9)"{blk}{CBM-H} {CBM-N}{rght}{rght}{rght}{brn}{rvon}{SHIFT--} {SHIFT--}{rvof}{rght}{rght}{rght}{blk}{CBM-H} {CBM-N}":next 31130 printtab(9)"{blk}L{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}{rght}{rght}{rght}{brn}{rvon}{CBM-Q}I {SHIFT--}{rvof}{rght}{rght}{rght}{blk}L{CBM-P}{CBM-P}{CBM-P}{SHIFT-@}" 31140 for i=1 to 4:printtab(17)"{brn}{rvon}{SHIFT--} {SHIFT--}":next 31150 printtab(17)"{brn}{rvon}{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}" 31190 return 31200 print"{home}" 31210 printtab(7)"{blk}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}{CBM-@}{$a0}" 31220 printtab(7);:for i=1 to 13:print"{red}{rvon} {rvof}{blk}L";:next:print"{down}" 31230 printtab(7)"{rght} {rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} " 31240 printtab(7)"{lgrn}{rght}{CBM-@}{CBM-P}{rght}{CBM-O}{CBM-I}{rght}{rvon}{CBM-U}{CBM-Y}{rvof}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-P}{CBM-O}" 31250 printtab(7)"{lgrn}{rvon}{rght} {rght} {rght} {rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght} {up}{up}" 31260 for i=1 to 9:printtab(18)"{brn}{rvon} {SHIFT--} ":next 31270 print"{home}{down}{down}{down}{down}{down}":printtab(18)"{brn}{rvon}{CBM-P}{down}{left}{CBM-K}{down}{left}{CBM-Y}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-P}{down}{left}{rvof}{CBM-K}{rvon}{down}{left}{CBM-Y}{down}{left}{left}{left}{left}{left}{CBM-Q}DI{down}{left}{left}^" 31280 printtab(18)"{up}{up}{down}{brn}{rvon}{CBM-P}{down}{left}{CBM-K}{down}{left}{CBM-Y}{up}{up}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{CBM-P}{down}{left}{rvof}{CBM-K}{rvon}{down}{left}{CBM-Y}" 31300 if z<>32 then return 31310 print"{home}" 31315 printtab(7)"{yel} {down}Q{up} {wht}{CBM-P}{CBM-I}{rvon}{CBM-U}{CBM-Y}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{CBM-@}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{CBM-T}{CBM-U}{rvon}{CBM-I}{CBM-O}{CBM-O}{CBM-O}{CBM-I}{rvof}{CBM-U}{CBM-T}" 31320 printtab(7)"{brn} {CBM--} 31325 printtab(7)"{brn}{CBM--} {CBM-+} 31330 printtab(7)"{brn}{CBM-+} {CBM-+}{CBM--} 31335 printtab(7)"{brn}{CBM-+}{CBM--}{gry3} {CBM-P}{CBM-I}{rvon}{CBM-U}{rvof}{CBM-I}{CBM-O}{CBM-P}{brn}{rvon}{CBM-J}{rvof}{gry3}{CBM-P}{CBM-I}{rvon}{CBM-Y}{CBM-T} {CBM-T}{CBM-Y}{rvof}{CBM-I}{CBM-P}" 31340 printtab(7)"{brn}{rvon}{CBM-K}{rvof}{gry3}{CBM-P}{CBM-I}{rvon}{CBM-Y} {CBM-P}FD {CBM-Y}{rvof}{CBM-I}{CBM-P}" 31345 printtab(7)"{gry3}{rvon} ED{SHIFT-*}D{CBM-Y} {CBM-P}RF{SHIFT-*}DE{CBM-Y}{CBM-Y}DF{CBM-P} " 31350 printtab(7)"{gry3}{rvon} {CBM-Y}EDF{CBM-P}RF{SHIFT-*}D{CBM-Y}DF{CBM-P} {CBM-Y}DF{CBM-P} " 31355 printtab(7)"{gry3}{rvon}R{CBM-P}{CBM-@} {CBM-Y}DCF{CBM-P} " 31360 printtab(7)"{gry3}{rvon} {CBM-T}{CBM-Y}E{SHIFT-*}R{CBM-@} " 31365 printtab(7)"{gry3}{rvon}{SHIFT-*}FF{SHIFT-*}DE{CBM-Y}{CBM-T}E{SHIFT-*}FR{CBM-P} " 31370 printtab(7)"{gry3}{rvon} " 31380 return 31400 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}":poke 646,z 31410 printtab(9)"{rvon}{SHIFT-POUND} {CBM-*}" 31420 printtab(8)"{rvon}{SHIFT-POUND} {CBM-*}" 31430 poke 646,0:if z<>35 then 30240 31450 print"{home}{down}{down}{down}{down}{down}{down}{down}{down}" 31460 printtab(18)"{blk}{rvon}{SHIFT-POUND} N M {CBM-*}" 31470 printtab(18)"{blk}{rvon}{CBM-T}{CBM-T}O{CBM-Y}{CBM-Y}P{CBM-T}{CBM-T}" 31480 printtab(18)"{blk}{rvon} {CBM-G} {CBM-M} " 31490 printtab(19)"{blk}{rvon}{CBM-H}{CBM-T}{CBM-T}{CBM-T}{CBM-T}{CBM-N}" 31500 goto 30240 40000 rem ----- sprites ----- 40100 print"{home}{down}{down}{down}{down}{down}{down}"; 40110 if tu(4)=1 then printtab(22)"{down}{down}{brn}{rvon}{SHIFT-POUND}M {CBM-*}{down}{left}{left}{left}{left}{left}M M {CBM-*}{down}{left}{left}{left}{left}{left}{left} MN{CBM-T}{CBM-T}{CBM-T}{CBM-*}"; 40120 if tu(4)=0 then printtab(29)"{brn}{rvon}{SHIFT-POUND}{CBM-*}{down}{left}{left}{left}{SHIFT-POUND}N {CBM-*}{down}{left}{left}{left}{left}{left}{SHIFT-POUND}N N"; 40130 if tu(4)=0 then print"{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}M {CBM-M}M N{rvof}{SHIFT-POUND}{down}{left}{left}{left}{left}{left}{left}{left}{left}{left}{left}{rvon} M {CBM-M} MN{rvof}{SHIFT-POUND}{left}{left}"; 40140 print"{down}{left}{left}{left}{left}{left}{left}{left}{brn}{rvon} O{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{down}{left}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon} {CBM-G}JFK {down}{left}{left}{left}{left}{left}{left}{rvof}{CBM-*}{rvon}{CBM-G} {down}{down}" 40150 if ge(5)=1 then s1=6:f1=0:h1=1:v1=1:x1=145:y1=116 40190 return 40200 if po(1)=2 then s1=10:f1=0:v1=1:x1=200:y1=110:m1=1:g1=8:g2=9 40290 return 40300 return 40400 return 40500 return 40600 s1=9:f1=9:h1=1:x1=215:y1=126:m1=1:g1=1:g2=2 40610 if ge(8)=6 then s2=2:f2=8:x2=115:y2=136 40690 return 40700 print"{home}{down}{down}{down}{down}{down}{down}{down}" 40710 printtab(10)"L{CBM-P}{CBM-P}{CBM-P}{CBM-P}{down}{left}{left}{left}{left}{left}{left}N N{CBM-H}{down}{left}{left}{left}{left}{left}{left}{left}O{rvon}DDD{rvof}P {CBM-H}{down}{left}{left}{left}{left}{left}{left}{left}{CBM-H}{rvon}{CBM-I}{rvof}D{rvon}{CBM-I}{rvof}{CBM-N} L"; 40720 print"{down}{left}{left}{left}{left}{left}{left}{left}LO{CBM-Y}P{SHIFT-@}N" 40750 if ge(4)=7 then printtab(23)"{up}{yel}{rvon}W{CBM-R}{CBM-S}" 40760 if ge(3)=7 then s1=1:f1=0:x1=170:y1=140 40790 return 40800 return 40900 return 41000 return 41100 return 41200 if left$(pe$(6),3)="tot"then s1=12:f1=0:x1=155:y1=140:m1=1:g1=8:g2=9:h1=1 41210 if left$(pe$(6),3)<>"tot"thens1=13:f1=0:x1=180:y1=118:m1=1:g1=8:g2=9:v1=1 41290 return 41300 return 41400 return 41500 return 41600 if ge(2)=16 then s1=8:f1=1:x1=155:y1=137:h1=1 41690 return 41700 s1=17:f1=0:x1=180:y1=109:h1=1:v1=1 41790 return 41800 return 41900 return 42000 if po(2)=20 then s1=10:f1=0:x1=180:y1=109:v1=1:g1=8:g2=9:m1=1 42090 return 42100 return 42200 return 42300 return 42400 return 42500 return 42600 return 42700 if po(7)=27 then s1=11:f1=0:x1=190:y1=112:v1=1:g1=8:g2=1:m1=1 42710 if ge(9)=27 and po(7)=27 then s2=3:f2=13:x2=130:y2=139 42720 if ge(9)=27 and po(7)=0 then s1=3:f1=13:x1=130:y1=139 42790 return 42800 s1=5:f1=0:x1=190:y1=99:v1=1 42890 return 42900 return 43000 return 43100 if po(8)=31 then s1=15:f1=0:x1=100:y1=117:h1=1:v1=1:m1=1:g1=8:g2=11 43190 return 43200 s1=4:f1=0:x1=190:y1=130:h1=1 43290 return 43300 return 43400 print"{home}{down}{down}" 43410 printtab(15)"{rvon}DDDDDDDDDD{rvof}" 43420 if r(1)=36 then 43450 43430 for i=1 to 8:printtab(16)"{red}{rvon}G{SHIFT--}{SHIFT--}HYHG{SHIFT--}{rvof}":next:goto 43460 43450 for i=1 to 8:printtab(16)"{red}{rvon}GTT{rvof}":next 43460 if left$(pe$(5),3)="tot"then s1=12:f1=0:x1=117:y1=133:m1=1:g1=1:g2=9:h1=1 43470 if left$(pe$(5),3)<>"tot"thens1=14:f1=0:x1=125:y1=110:m1=1:g1=8:g2=1:v1=1 43490 return 43500 if ge(10)=35 then s1=7:f1=7:x1=189:y1=108:m1=1:g1=2:g2=6 43590 return 43600 s1=16:f1=0:x1=175:y1=110:m1=1:g1=8:g2=9:v1=1 43690 return 45000 rem ----- sprite-darstellung ---- 45100 rem --- sprite 1 --- 45110 if s1=0 then return 45120 restore 60050+s1*50 45130 for i=832 to 832+62 45140 read x:poke i,x:next 45150 poke 2040,13 45160 poke vc,x1:poke vc+1,y1 45170 poke vc+39,f1 45180 poke vc+29,h1:poke vc+23,v1 45190 poke vc+28,m1 45200 poke vc+37,g1 45210 poke vc+38,g2 45220 poke vc+21,1 45300 rem --- sprite 2 --- 45310 if s2=0 then return 45320 restore 60050+s2*50 45330 for i=896 to 896+62 45340 read x:poke i,x:next 45350 poke 2041,14 45360 poke vc+2,x2:poke vc+3,y2 45370 poke vc+40,f2 45380 poke vc+29,h1+2*h2:poke vc+23,v1+2*v2 45390 poke vc+28,m1+2*m2 45400 poke vc+37,g1 45410 poke vc+38,g2 45420 poke vc+21,3 46000 return 49000 return 49999 end 50000 rem ----- worttabellen ----- 50010 restore 50000 50100 rem --- verben --- 50110 data nimm,lege,list,siehe,ende,befehle,oeffne,toete,frage,trage,gib,gehe 50120 data untersuche,zerschlage,lies,pause 50190 vz=16:dim ve$(vz):for i=1 to vz:read ve$(i):next 50200 rem ----- gegenstaende ----- 50210 data brief,0 50215 data rostige axt,16 50220 data urkunde,0 50225 data schluessel,0 50230 data alter mantel,0 50235 data papier,0 50240 data ring,0 50245 data sack mit gold,0 50250 data elbenmesser,0 50255 data goldene krone,35 50290 gz=10:dim ge$(gz):dim ge(gz):for i=1 to gz:read ge$(i):read ge(i):next 50300 rem ----- objekte ----- 50310 data stadttor,13 50320 data fenster,9 50330 data schreibtisch,7 50335 data eichentruhe,1 50340 data tuerschloss,19 50345 data bett,6 50350 data hecke,21 50355 data alte weide,26 50360 data grab,32 50365 data oeffnung,0 50370 data tuer,11 50375 data vorhang,34 50380 data inschrift,0 50385 data obelisk,28 50390 oz=14:dim ob$(oz):dim oo(oz):for i=1 to oz:read ob$(i):read oo(i):next 50400 rem ----- personen ----- 50410 data sam,2 50415 data merry,20 50420 data schwarzer reiter,17 50425 data torwache,33 50430 data gastwirt,34 50435 data wanderer,12 50440 data grabunhold,27 50445 data troll,31 50450 data aragorn,36 50490 pz=9:dim pe$(pz):dim po(pz):for i=1 to pz:read pe$(i):read po(i):next 50500 rem ----- strings ----- 50505 o$="ok." 50510 data n,s,w,o,nw,no,sw,so,h,r 50515 for i=1 to 10:read r$(i):next 50520 a$(0)="rede keinen unsinn." 50525 a$(1)="hast du bereits." 50530 a$(2)="hast du nicht bei dir." 50535 a$(3)="sehe ich hier nicht." 50540 a$(4)="bitte objekt angeben." 50545 a$(5)="zu schwer." 50550 a$(6)="laesst sich nicht oeffnen." 50555 a$(7)="etwas faellt klimpernd heraus." 50560 a$(8)="du hast keine geeignete waffe." 50600 p$(1)="samweis gamdschie ist dein gaertner und treuer diener." 50605 p$(2)="merry ist ein entfernt mit dir verwandter junger hobbit." 50610 p$(3)="du hast einen von saurons dunklen dienern vor dir stehen!" 50615 p$(4)="es ist ein finster dreinblickender bewohner von bree." 50620 p$(5)="es ist gerstenmann butterblume, der besitzer des gasthauses." 50625 p$(6)="er ist ein wanderer, der aus rhun im osten mittelerdes kommt." 50630 p$(7)="der graesslich anzusehende grabunhold glueht gruenlich." 50635 p$(8)="es ist ein troll von den trollhoehen oestlich von bree." 50640 p$(9)="aragorn ist ein waldlaeufer, der einen adeligen eindruck macht." 50650 i$="er liest vor:'gehe nach sueden,um zu denhuegelgraebern zu gelangen." 50700 rem ----- variablen ----- 50705 tu(0)=1:rem brief 50710 tu(1)=1:rem stadttor 50715 tu(2)=1:rem fenster 50720 tu(3)=1:rem schreibtisch 50725 tu(4)=1:rem eichentruhe 50730 tu(5)=1:rem tuerschloss 50735 tu(6)=1:rem graboeffnung 50740 tu(7)=1:rem heckenloch 50745 tu(8)=1:rem vorhang 50750 tu(9)=1:rem tor von bree 50755 tu(10)=1:rem huegelgrab 50770 p1=1:p2=1 50800 vc=53248 50900 return 60000 rem ----- sprite-datas ----- 60100 rem --- urkunde --- 60110 data 63,255,252,64,0,18,128,0,33,128,0,33,127,255,241,8,0,2,8,119,210,16 60120 data 0,4,16,174,132,16,0,4,16,251,228,16,0,4,16,223,68,16,0,4,8,3,242,8,0 60130 data 2,127,255,241,128,0,33,128,0,33,64,0,18,63,255,252 60150 rem --- sack mit gold --- 60160 data 0,0,0,0,32,0,1,243,128,7,255,224,3,255,128,0,254,0,0,124,0,0,254,0,3 60170 data 255,0,7,255,192,15,255,224,31,255,240,31,255,112,63,255,184,55,255 60180 data 184,119,255,188,123,255,124,123,255,120,61,254,240,30,255,224,7,255 60190 data 128 60200 rem --- elbenmesser --- 60210 data 240,0,0,184,0,0,220,0,0,238,0,0,119,0,0,59,128,0,29,192,0,14,224,0,7 60220 data 112,96,3,184,224,1,221,192,0,239,128,0,119,0,0,62,128,0,29,64,0,58 60230 data 160,0,117,80,0,226,168,0,193,88,0,0,176,0,0,96 60250 rem --- grab --- 60260 data 0,56,0,0,56,0,0,56,0,0,254,0,0,254,0,0,254,0,0,254,0,0,56,0,0,56,0,0 60270 data 56,0,0,56,0,0,56,0,1,255,0,3,125,128,6,254,192,13,255,96,27,255,176 60280 data 48,0,24,127,255,252,127,255,252,127,255,252 60300 rem --- obelisk --- 60310 data 0,124,0,0,254,0,1,255,0,1,255,0,3,255,128,3,255,128,7,255,192,7,255 60320 data 192,15,255,224,15,255,224,15,255,224,31,255,240,31,255,240,31,255 60330 data 240,31,255,240,31,255,240,31,255,240,31,255,240,15,255,224,7,255,192 60340 data 1,255,0 60350 rem --- mantel --- 60360 data 0,0,0,0,0,0,0,124,0,3,199,128,7,199,192,15,239,224,31,255,240,63,255 60370 data 248,127,239,252,187,255,186,83,255,148,35,239,136,3,255,128,3,255 60380 data 128,3,239,128,3,255,128,3,255,128,3,255,128,2,170,128,1,255,0,0,0,0 60400 rem --- krone --- 60410 data 0,0,0,0,0,0,0,32,0,0,16,0,0,32,0,0,168,0,3,187,0,2,154,0,6,222,64,10 60420 data 86,128,139,103,136,165,101,104,41,169,160,42,170,160,10,170,128,10 60430 data 170,128,11,171,128,11,187,128,10,186,128,2,170,0,0,0,0 60450 rem --- rostige axt --- 60460 data 0,0,0,6,0,0,15,0,0,11,128,0,13,192,0,250,224,0,193,112,0,192,184,0 60470 data 224,92,0,224,238,0,112,151,0,124,139,128,63,133,192,15,130,224,0,1 60480 data 112,0,0,184,0,0,92,0,0,46,0,0,23,0,0,11,0,0,6 60500 rem --- bett --- 60510 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,2,128,0,2,129,80,2,133 60520 data 84,14,149,85,126,149,85,254,149,85,254,170,170,170,170,170,170,170 60530 data 170,170,136,0,34,136,0,34,136,0,34,128,0,2 60550 rem --- sam/merry --- 60560 data 0,252,0,3,87,0,13,153,192,13,85,192,13,153,192,1,101,0,0,84,0,0,220 60570 data 0,15,255,192,63,255,240,255,255,252,243,255,60,243,255,60,242,170,60 60580 data 81,85,20,17,85,16,1,69,0,1,69,0,1,69,0,1,69,0,63,207,240 60600 rem --- grabunhold --- 60610 data 0,48,0,0,240,0,0,252,0,3,239,0,3,175,0,3,171,0,195,171,0,243,171,192 60620 data 179,239,192,191,255,240,255,255,124,63,254,252,63,250,252,15,250,240 60630 data 15,251,192,1,255,192,3,255,192,3,255,240,3,255,252,15,254,240,21,245 60640 data 192 60650 rem --- leiche --- 60660 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,0,0,10,0,20,14,40,85,12,170,85 60670 data 204,170,85,252,170,85,252,169,85,252,181,85,240,245,85,192,245,87 60680 data 192,245,67,240,5,3,254,0,0,254,0,0,58,0,0,40 60700 rem --- wanderer --- 60710 data 0,60,0,0,255,0,0,111,192,1,87,192,0,103,192,0,151,0,0,84,0,0,28,0 60720 data 128,255,0,131,255,192,127,255,192,191,247,192,128,95,192,128,255,192 60730 data 128,170,128,128,85,64,129,81,64,129,81,80,129,64,80,129,64,80,143 60740 data 195,240 60750 rem --- gastwirt --- 60760 data 3,223,0,15,87,192,13,85,192,5,153,64,5,85,64,1,153,0,1,101,0,0,84,0 60770 data 11,155,128,43,171,160,43,255,160,47,255,224,47,255,224,31,255,208,15 60780 data 255,192,7,255,64,5,253,64,1,85,0,1,69,0,1,69,0,10,138,128 60800 rem --- troll --- 60810 data 3,255,0,15,87,192,13,153,192,13,85,192,13,169,192,1,85,0,0,84,0,1,85 60820 data 0,5,85,64,21,85,80,85,85,84,85,85,84,81,85,20,81,85,20,82,170,20,19 60830 data 255,16,3,255,0,3,207,0,3,207,0,3,207,0,21,69,80 60850 rem --- aragorn --- 60860 data 0,252,0,3,87,0,13,153,192,13,85,192,1,169,0,0,84,0,3,223,0,63,255 60870 data 240,255,255,252,255,255,252,243,255,60,243,255,60,240,252,60,80,168 60880 data 20,16,84,16,1,85,0,1,85,0,5,69,64,5,1,64,5,1,64,42,2,160 60900 rem --- reiter --- 60910 data 0,24,0,0,60,0,8,102,0,100,103,0,30,111,0,63,127,128,127,63,128,255 60920 data 191,128,239,255,224,127,255,246,123,255,255,119,255,251,119,255,251 60930 data 47,255,251,15,255,251,7,191,179,11,54,185,11,110,88,11,28,88,11,0 60940 data 176,22,1,96 61000 rem ----- titelbild ----- 61010 poke 53280,0:poke 53281,0 61020 print chr$(8)chr$(142) 61100 rem --- mond --- 61110 data 1,255,192,7,255,240,15,255,248,31,255,252,63,255,252,127,254,14,127 61120 data 248,0,255,224,0,255,224,0,255,192,0,255,192,0,255,192,0,255,192,0 61130 data 255,224,0,127,224,0,127,240,0,63,252,0,31,255,128,15,255,240,7,255 61140 data 192,1,255,0 61150 restore 61000 61160 for i=832 to 832+62 61170 read x:poke i,x:next 61175 poke 2040,13 61180 poke vc+39,7 61190 poke vc,250 61200 poke vc+1,80 61210 poke vc+29,0:poke vc+23,0 61220 poke vc+28,0 61230 poke vc+21,1 61300 rem --- titel --- 61310 print"{clr}{down}{down}{down}{down}{down}{down}" 61325 print"{grn}{CBM--}" 61330 print"{grn}{CBM-+}" 61335 print"{grn}{CBM-+}{CBM--}" 61337 print"{grn}{CBM-+}{CBM-+}" 61340 print"{grn}{CBM-+}{CBM-+}{CBM--}" 61342 print"{grn}{CBM-+}{CBM-+}{CBM-+}" 61345 print"{grn}{CBM-+}{CBM-+}{CBM-+}{CBM--}" 61347 print"{grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}" 61350 print"{grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM--}" 61352 print"{grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-+}{CBM-POUND}" 61355 print"{grn}{CBM-+}{CBM-+}{CBM-+}{CBM-+}" 61356 print"{brn}{rvon} {CBM-L}" 61357 print"{brn}{rvon} {CBM-M}" 61360 print"{gry1}{CBM-U}{CBM-U}DFR{CBM-P}RF{SHIFT-*}DEE{CBM-Y}{CBM-Y}{CBM-Y}EDD{SHIFT-*}FFRF{SHIFT-*}D{SHIFT-*}{SHIFT-*}FFFRR{CBM-P}{CBM-P}RF{SHIFT-*}DE{CBM-Y}" 61370 print"{gry1} RF{SHIFT-*}F{SHIFT-*}DE{CBM-Y}{CBM-Y}EED{SHIFT-*}FF{SHIFT-*}D{SHIFT-*} EED{SHIFT-*}FRFF{SHIFT-*}" 61380 print"{home}{lblu} {CBM-R}DI {CBM-R} {CBM-R}" 61400 print" {SHIFT--} H G H" 61410 print" {SHIFT--} YUDI{CBM-R}DI G {CBM-R} HUDIUD{CBM-S}" 61420 print" {SHIFT--} H{CBM-Q}F{CBM-X}{SHIFT--} G {SHIFT--} H{CBM-Q}F{CBM-X}G {SHIFT--}" 61430 print" {CBM-E}FKJFK{CBM-E} JF{CBM-E}FKJFKJF{CBM-W}" 61440 print" JFK" 61445 printtab(10)"{down}{down}{down} {CBM-R}DDI" 61450 printtab(10)" {CBM-S} {SHIFT--} H" 61460 printtab(10)"{CBM-R}DIUDIUDI{CBM-Q}DI {CBM-Q}{SHIFT-*}{SHIFT-*}{CBM-W}{CBM-R}DIUDIUDI" 61470 printtab(10)"{SHIFT--} {SHIFT--}UD{CBM-W}G {SHIFT--} H {SHIFT--} H{SHIFT--} {CBM-Q}F{CBM-X}{CBM-Q}F{CBM-X}" 61480 printtab(10)"{CBM-E} {CBM-E}JF{CBM-X}JFK{CBM-E} {CBM-E} {CBM-E}FFK{CBM-E} JFKJFK" 61490 printtab(13)"{down}{down}{down}{lgrn}(c)1986 by a r t s o f t" 61500 print"{down}{down}{down}{down}{down}{down}{wht} written by holger schemel{home}" 61510 poke 198,0 61520 get x$:if x$=""then 61520 61530 poke vc+21,0 61600 rem ----- anleitung ----- 61610 poke 53280,4:poke 53281,7 61620 poke 646,0 61630 print"{clr}"chr$(14) 61640 printtab(10)"- DER{$a0}WEG{$a0}NACH{$a0}BREE -" 61650 printtab(5)"{down}{down}[ Der Herr der Ringe; Teil 1 ]" 61660 printtab(3)"Nach dem Roman von J.R.R. Tolkien" 61670 print"{down}{down}{down}Anleitung:" 61680 print"{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}" 61690 print" Willkommen in der Welt des Abenteuers!" 61700 print" Du bist Frodo Beutlin, der Neffe des" 61710 print" ruhmreichen alten Hobbits Bilbo." 61720 print" Mach dich auf den gefahrenvollen Weg" 61730 print" von Hobbingen zur Siedlung Bree, die" 61740 print" oestlich des Auenlandes liegt." 61750 print" Dein Weg fuehrt dich durch den Nord-" 61760 print" westen Mittelerdes, der fantastischen" 61770 print" Welt, in der dieses Adventure spielt." 61780 print" Dass du nicht das einzige Lebewesen" 61790 print" in diesem Adventure bist, wirst du" 61800 print" bald feststellen." 61810 print"{down} (Weiter mit RETURN){home}" 61815 poke 198,0 61820 getx$:if x$<>chr$(13) then 61820 61830 rem ----- anleitung befehle ----- 61840 print"{clr}" 61850 print"{down}{down} Du kannst mich mit deutschen Ein-" 61860 print" oder Zweiwort-Befehlen durch das" 61870 print" Adventure fuehren." 61880 print" Die Satzlehre ist dabei: Verb bzw." 61890 print" Verb Nomen." 61900 print"{down} Beispiele:" 61910 print"{down} 'LIST' zeigt die Gegenstaende, die man" 61920 print" bei sich traegt;" 61930 print"{down} 'BEFEHLE' listet den Wortschatz auf" 61940 print" und erspart so sinnloses Rumraten;" 61950 print"{down} 'NIMM{$a0}KRONE' usw..." 61960 print"{down} Richtungen werden mit einem ('N') oder" 61970 print" zwei ('SO') Buchstaben abgekuerzt." 61980 print"{down} Und nun viel Spass !!" 61990 poke 198,0 62000 getx$:ifx$<>chr$(13) then 62000 62010 printchr$(147)chr$(142):return