1 rem adventure by fredrik haglund 10 print"{clr}You have angered a ghost. It locked you in. Get out!"chr$(14)chr$(8) 15 gosub9000 20 gosub7000:gosub2000:gosub6000:iflen(m$)>1thengosub3000 30 goto20 2000 iflo<>5orp(1)<>0thenreturn 2010 print"There is a rumble. A voice says YOU{$a0}ARE{$a0}FREE" 2020 print"At the same time the castle doors open.{down}{down}{down}" 2030 goto9900 2999 return 3000 onint(v/2+1)goto3010,3020,3030,3040,3050,3060 3010 ifs$="do"thens$="d" 3011 ifs$="we"andlo=5thenlo=6:return 3012 ifs$="pa"thenlo=8:return 3014 ifs$="wi"andp(3)=0andlo=4thenlo=1:return 3019 m$=left$(s$,1):goto6500 3020 fora=1to3:ifs=a*2-1andp(a)=lothenp(a)=0:print"Ok.":return 3021 next:goto4990 3030 fora=1to3:ifs=a*2-1andp(a)=0thenp(a)=lo:print"Ok.":return 3031 next:goto4990 3040 ifs$="do"andlo=5andp(2)=0thenp(5)=-1:p(4)=5:n%(5,3)=7:print"{down}Ok.":return 3048 iflo<>5thenprint"Is there a door here?":return 3049 print"You have no key.":return 4990 gosub6050:return 5900 b=0:print"{clr}You are carrying:":fora=1to5:ifp(a)=0thenprintp$(a):b=1 5910 next:ifb=0thenprint"nothing" 5920 poke198,0:wait198,1:return 6000 poke198,0:m$="":input"{down}AND NOW";m$:iflen(m$)=1thengosub6500:return 6010 fora=1tolen(m$):ifmid$(m$,a,1)=" "thenv$=left$(m$,2):s$=mid$(m$,a+1,2):goto6030 6020 next:print"{down}WHAT?":goto6000 6030 fora=1tolen(w$)step2:ifmid$(w$,a,2)<>v$thennext:gosub6050:goto6000 6040 v=a:fora=1tolen(t$)step2:ifmid$(t$,a,2)<>s$thennext:gosub6050:goto6000 6045 s=a:return 6050 print"I can't"chr$(34)m$chr$(34):return 6500 fora=1tolen(o$):ifm$=mid$(o$,a,1)then6520 6510 next:print"n=north u=up w=west e=east s=south d=down":return 6520 ifa<7thenifn%(lo,a-1)<>0thenprint"Ok.":lo=n%(lo,a-1):return 6525 ifa<7thenifn%(lo,a-1)=0thenprint"{down}DON'T TRY!{down}":return 6530 ifa=7thengosub5900 6540 ifa=8thenprint"{clr}" 6999 return 7000 print"{down}You are ";l$(lo)" ";:fora=0to5:ifp(a)=lothenprintp$(a)". "; 7010 next:print:print"{down}You can move:":fora=0to5:ifn%(lo,a)<>0thenprinth$(a+1) 7020 next:return 8999 end 9000 diml$(8),n%(8,5),p$(5),p(5):restore:fora=1to8:readl$(a):next:fora=1to8:forb=0to5 9010 readn%(a,b):nextb,a:fora=1to5:readp(a),p$(a):next:lo=5:o$="nsewudir" 9020 w$="gotadrop":t$="bikeflpawewidonosoeaweupdo":fora=0to6:readh$(a):next:return 9030 data"in a light tower. window. stairs.","in a cranky staircase" 9040 data"in a dark room. stairs. secret way.","on a stone roof. ladder. window." 9050 data"on a big courtyard. well. ladder.","in a dried up well." 9060 data"in a dim dining room. painting.","in a light armory. small door." 9070 data,,,,,2,,,,,1,3,7,,,,2,,,,,,,5,,,,,4,,,,,,5,,,,5,,,,,7,,,, 9080 data1,"big key",6,"key",8,"fly feet",-1,"open door",5,"locked door", 9100 datanorth,south,east,west,up,down 9900 geta$:print"{up}{up}Do you want to play again? "a$:ifa$="n"thenend 9910 ifa$<>"y"then9900 9920 run