10 REM       Stonefear Castle 20 REM       by Clive Gifford 30 REM (c)Computing with the Amstrad 40 REM ------------ CPC ------------ 50 GOSUB 140 60 p=0:v=0:PRINT,,,,,,"YOU ARE IN THE ";L$(A):FOR t=1 TO 9:IF c(t)=-1 OR (t=9 AND a=9) THEN PRINT c$(t);" IS YOURS" ELSE IF ABS(c(t))=a THEN PRINT c$(t);" IS HERE":p=t 70 NEXT:IF a=9 THEN END ELSE INPUT "WHAT NEXT";a$:a$=UPPER$(a$):a$=LEFT$(a$,3):FOR t=0 TO 9:IF MID$(r$,(t*3)+1,3)=a$ THEN v=t:t=9 80 NEXT:IF v=0 THEN PRINT"NO SUCH COMMAND" ELSE IF v<5 THEN IF l(a,v)>0 THEN a=l(a,v) ELSE PRINT"CAN'T MOVE THAT WAY":GOTO 60 90 IF v=5 AND p>0 AND p<7 THEN c(p)=-1:PRINT"IT'S YOURS NOW":GOTO 60 100 IF v=8 THEN IF c(3)=-1 THEN PRINT"IT SAYS JUST ONE WORD: ";m$(1):GOTO 60 ELSE IF c(1)=-1 THEN PRINT"IT'S A SPECIAL ";m$(2) ELSE PRINT"NOT WORTH EXAMINING" 110 IF v<>7 OR a<>2 THEN 120 ELSE IF c(8)=a AND c(1)=-1 THEN c(3)=2:c(8)=0:c(7)=5:PRINT m$(4) ELSE PRINT"YOU ARE DEAD":v=9 120 IF v<>7 OR a<>5 OR c(7)<>a THEN 130 ELSE IF c(2)=-1 THEN PRINT m$(4);" YOU NOW MOVE FORWARD":a=9 ELSE PRINT"YOU DIE!":v=9 130 IF v=9 THEN PRINT"BYE":END ELSE IF a=6 AND v=a AND c(3)=-1 THEN PRINT"BOOM! ";m$(3);" ";m$(5):l(6,2)=7:GOTO 60 ELSE 60 140 r$="DUMNORSOUEASWESTAKABAFIGEXAQUI":DIM c$(9),cc$(9),c(9),ll$(9),l$(9),l(9,4),mm$(5),m$(5):a=1:n=0:RESTORE:FOR x=1 TO 9:READ cc$(x),c(x),ll$(x):FOR y=1 TO 4:READ l(x,y):NEXT:NEXT 150 FOR x=1 TO 9:c$(x)=RIGHT$(cc$(x),3)+LEFT$(cc$(x),(LEN(cc$(x))-3)):NEXT 160 FOR x=1 TO 9:l$(x)=RIGHT$(ll$(x),3)+LEFT$(ll$(x),(LEN(ll$(x))-3)):NEXT 170 FOR x=1 TO 5:READ mm$(x):m$(x)=RIGHT$(mm$(x),5)+LEFT$(mm$(x),(LEN(mm$(x))-5)):NEXT 180 RETURN 190 DATA "NIFEA K",6,"ESTFOR",0,4,0,0,"LICGAR",8,"ECAV",0,0,3,1,"OLLSCR",-2 200 DATA "TLE GROUNDSCAS",1,5,4,2,"EYA K",3,"TLE ENTRANCECAS",1,0,0,3,"ANDA W",4,"N TOWERMAI",3,0,6,0,"OINA C",1,"OURYARM",0,0,0,5,"AMPIREA V",0,"LERYGAL",6,0,8,0,"IANT TROLLA G",2," KITCHENSOLD",0,0,0,7,"AT WEALTHGRE",9,"AT HALL AND HAVE WONGRE",0,0,0,0 210 DATA "OMABAZO","-KILLING VARIETYTROLL","THERLY EXITA SOU","E KILLED IT!YOU'V","RSAPPEA"