ZXTape! 0Created with Ramsoft MakeTZXFOLSHAD OOzO50024h:"" 236066\,193:236077\,195:0:0:7::"PLEASE WAIT ABOUT 30 SECONDS WHILE I SET UP THE BOARD": M.PAGE 1986 |:A=0:B=1:C=2:D=3:E=4:F=5:G=6:H=7:J=8:K=9 :M=10 MON=A:T=255:A1=11 :A2=12 :A3=13 :A4=14:A5=15:A6=16:A7=17:A8=18:A9=19:A0=20:TN=A:PW=A r236099\,M:23658j\,J:Z1=236066\:Z2=236077\:B2=22:P()=(*D):Q()=(*G):PL=2010 KF$="You must miss a turn":D$=" ":E$="AAAA" OC$(81Q,G):L$(26,23):M$(81Q,24):O$(A0,23) 2N=B81Q:C$(N):N 4N=B26:L$(N):N 8N=B81Q:M$(N):N :N=BA0:O$(N):N dI=BC i7N=B100d:R1=(*81Q+B):R2=(*81Q+B) n*I=BA$=C$(R1):C$(R1)=C$(R2):C$(R2)=A$ s*I=CA$=M$(R1):M$(R1)=M$(R2):M$(R2)=A$ xN }I .N=B81Q:C$(N,FG)="01"X=N:140 N N=BK:C$(N,B)="0":N %N=73I81Q:C$(N,C)="0":N N=B73IK:C$(N,E)="0":N N=K81QK:C$(N,D)="0":N M$(X,B)=" "170 N=B81Q 3M$(N,B)=" "NXM$(N)=M$(X):M$(X)="":170 N 2.1}L,A0::"DO YOU WANT INSTRUCTIONS (Y/N)?" I$= I$=""172 I$="N":200 I$="Y"7000X 172 :"HOW MANY PLAYERS (1-4)?" I$= I$=""201 *(I$<491)(I$>524)201 R=I$:.1}L,30 L(R,42*):N$(R,J) 589M:.1}L,H 1:"ENTER PLAYERS' NAMES (MAXIMUM 8 LETTERS):" N=BR A$ .A$>JA$="""NAME WRONG LENGTH!":210 A$(A$)=32 210 A$:.1}L,1:N$(N)=A$ N N=BR uL(N,B)=P()+G:L(N,C)=P()+G:L(N,D)=P()+C:L(N,E)=P()+C:L(N,F)=P()+C:L(N,G)=E:L(N,H)=X:L(N,42*)=L(N,C) N dH:B::B:N=A21:500:A;F;B;N,A;"AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA":N:510 0G;B;C;B,B;"FOREST OF LONG SHADOWS M.PAGE" ?H;B;B;D,C;"PLAYER:";D,21;"CASTLES:";E,B2;"TURNS:" RA;F;F,C;"STR:";H,C;"END:";K,C;"MAG:";A1,C;"AGI:";A3,C;"PER:";A5,C;"RES:" B;B;F;G,B2;"*ACTIONS*";J,B2;"1:FIGHT";K,B2;"2:RUN";M,B2;"3:GREET";A1,B2;"4:MAGIC";A2,B2;"5:SAVE/QT";A3,B2;"6:INVENT";A4,B2;"7:SCROLLS";A5,B2;"N*S*E*W*" X500:A;H;E,A3;"HHHHH";F,A3;"HIJKH";G,A3;"HLMNH";H,A3;"HOPQH";J,A3;"HHHHH" .A;H;K,M;"HHHHHHHHHHH";A5,M;"HHHHHHHHHHH"  FN=MA4:A;H;N,M;"H";N,A0;"H":N:510:520:525   1000 Z1,491:Z2,194: Z1,97a:Z2,193: Z1,193:Z2,195: N=A$:N=(32 -N)/C: <500:N=MA4:A;E;N,A1;"GGGGGGGGG":N:510:  N=A7A0:N,B;D$:N: N=A8A0:N,B;D$:N: *N=Y$B-1:Y$(N)" "Y$=Y$(N): N %525 :500:H;A2,A5;"B" &C$(X,B)="1"H;M,A5;"B";A1,A5;"B" 'C$(X,C)="1"H;A3,A5;"B";A4,A5;"B" C$(X,E)="1"H;A2,A1;"BBBB" C$(X,D)="1"H;A2,A6;"BBBB"  NN=C$(X,FG):N<23H;E;A1,A3;"CBBBD";A2,A3;"BBBBB";A3,A3;"EBBBF" !+:N -I$="E"578B .I$="W"582F /I$=""550& 1 550& :C$(X,B)="0"586J ; C$(X-K,C)="0"PY=B:587K <X=X-K:588L: >C$(X,C)="0"586J ? C$(X+K,B)="0"PY=C:587K @X=X+K:588L: BC$(X,D)="0"586J C C$(X+B,E)="0"PY=D:587K DX=X+B:588L: FC$(X,E)="0"586J G C$(X-B,D)="0"PY=E:587K HX=X-B:588L: J<527:A9,F;"There's not a pathway!":B,-20:LP KQ527:A9,G;"The path is blocked":RN=B:.1}L,D:.1}L,A:590N L520:535: MN=B150:N: N%L(Z,24)=BL(Z,J)=PY:PW=TN+C O b+.008zn,A5:B;B;A0,26;"SPACE" gI$= hI$=" ":.02{# =,A0: j 615g l*Y$(A3)"E"Y$(A3)"O"P$=P$(̱P$-C)+" " n vpL(QQ,G)=L(QQ,G)-B:L(QQ,C)=L(QQ,42*)+L(QQ,38&)+L(QQ,39')+3*L(QQ,29):MON900 w610b:L(QQ,G)557)684 HL(QQ,I$+A0)=A527::A9,H;"You haven't got it!":B,-20: =L(QQ,D)23PJ=A0:PT=M I M$(X,B)" "1500 PT=K1800 >610b:527:A9,B;"Do you want to fight a player?" I$= I$=""1435 I$="N"2000 I$="Y"525 :1444  1435 A8,J;"Select Player No." I$= I$=""1452 -(I$<491)(I$>R+480)1452 )QL=I$:L(QL,H)L(Z,H)QL=Z1452  4500  4000  N=A1A8  <C$(X,FG)=NL(Z,N-C)=AL(Z,N-C)=B:FL=A:N*A0+1620T N LP 06Q()>CA8,B;"You get sucked into the swamp!":FL=B 1FLQQ=Z:650:630v:L(Z,G)=L(QQ,G):L(Z,H)=L(QQ,H):633y:500:A;F;B;H,G;E$::510:A;F;H,G;A:PL 2LP DAQ()>CA8,B;"You get sucked into the water":FL=B:18411 FLP XuQ()>CA8,E;"You drink at the fountain";A9,K;"and gain MAGic":L(Z,D)=L(Z,D)+C:A;F;K,G;L(Z,D):610b:PL ZLP lJQ()>CA8,D;"You are attacked by eagles":FL=B:L(Z,C)=L(Z,C)-(P()+B) mFLL(Z,C)CA8,D;"You fall over in the dark":FL=B:L(Z,C)=L(Z,C)-C:1901m LP qQ()>CA8,d;"You pray to God for extra"; A9,A2;"STRength":L(Z,B)=L(Z,B)+B:A;F;F,G;L(Z,B):610b:PL LP cQ()>CA8,B;"You are blessed by the Bishop":L(Z,F)=L(Z,F)+B:A;F;A3,G;L(Z,F):610b:PL LP Q()>CA8,D;"You swim in pool and gain";A9,A1;"ENDurance":L(Z,C)=L(Z,C)+C:L(Z,42*)=L(Z,42*)+C:A;F;H,G;L(Z,C):610b:PL LP X610b:527:A9,E;"PRESS N,S,E,W,4,5,6 or 7":550&:L(Z,H)=X:610b 9000(#:90157# Z:1000 C610b:LP=4000:527:A8,G;"Select option 1 to 7" I$= +(I$<491)(I$>557)4005 I$=""4005 =I$="4"527:A8,C;"Select option '1' for combat":LP I$="5"6050 I$="6"6100 I$="7"6000p I$="1"4200h I$="2"4100 I$="3"41506 CLP=4140,:RN=A:RUN=L(Z,E)+Q()-F:RUNȰM$(X,A2)4140,  <M$(X,B)="1"M$(X,B)="2"527:4130":4200h 527:4130":PL 0A9,M;"You run away!":L(Z,H)=X:610b:PL "-A8,F;"You were unsuccessful!":610b: ,1527:A8,H;"Select N,S,E or W":550& .RN=B610b:4105  1 4120 6>GR=A:527:GREET=Q()+C+L(Z,F):GREETȰM$(X,GH)GR=B ;hGR=BM$(X,B)="3"A8,B;"You win the denizen's favour!";A9,C;"The denizen gives you:":4195c:PL @GR=B4190^:PL E"GR=AM$(X,B)="3"4190^:PL JVGR=AA8,C;"He's not interested in your";A9,M;"friendship!":610b:4200h ^5A8,B;"The denizen seems indifferent.":610b: cI=M$(X,JK):A0,D;O$(I):AA=M$(X,M):L(Z,AA)=L(Z,AA)+M$(X,A1):L(Z,I+A0)=B:A;F;AA*C+D,G;L(Z,AA):M$(X)="":610b:PL hpMON=B:525 :MST=M$(X,CD):MEN=M$(X,EF):Y$=M$(X):530:A$=Y$(A3):515:C;B;A7,N-B;A$ mVSP1=A:527:660:C;B;M,A2;"DENIZEN";A2,A3;"STR";MST;A4,A3;"END";MEN r7QQ=Z:670:SP1=SPELL:L(Z,D)=L(QQ,D):610b w 880p |;ZZ=(Q()+SP1+L(Z,B))-(Q()+MST):N=BA5:.01z# =,*H:N ^ZZAQQ=Z:870f:4215w FZZ=A527:A8,G;"No-one has been hit.":610b:4215w  ZZ>AMEN=MEN-ZZ:MENAY$=M$(X):530:527:A$="The "+Y$(A3):515:A8,N;A$;A9,M;"has been hit!":610b:4215w CMEN=A527:A8,C;"You have killed the denizen!":610b ?M$(X,B)="3"ƨQ()>BA9,C;"You find on the body:":4195c M$(X,B)="2"527:A8,B;"You gain 2 PERsonality points.":L(Z,F)=L(Z,F)+C:500:A;F;B;A3,G;E$:510:A;F;A3,G;L(Z,F):610b M$(X)="":PL ]SP1=A:SP2=A:527:660:Y$=N$(QL):530:A$=Y$:515:B;B;M,N-B;A$ sD;A2,A1;"ST";L(QL,B);A6;"AG";L(QL,E);A3,A1;"EN";L(QL,C);A6;"PE";L(QL,F);A4,A1;"MA";L(QL,D);A6;"RE";L(QL,G) {QQ=Z:670:SP1=SPELL:L(Z,D)=L(QQ,D):610b:527:QQ=QL:670:SP2=SPELL:L(QL,D)=L(QQ,D):610b  880p CZZ=(Q()+SP1+L(Z,B))-(Q()+SP2+L(QL,B)):N=BA5:.01z# =,*H:N ^ZZAQQ=Z:870f:4515 FZZ=A527:A8,G;"No-one has been hit.":610b:4515 EZZ>AL(QL,C)=L(QL,C)-ZZ:860\:A3,A3;" ":D;A3,A3;L(QL,C) HZZ>AL(QL,C)=AQQ=QL:800 :L(QL,G)=L(QQ,G):L(QL,H)=L(QQ,H):PL .ZZ>AL(QL,C)>AQQ=QL:870f:4515 ["111019","110120","101121","011122","111101","111119","111024","110125","101126","111102" ["011123","111124","111020","110121","111103","101122","011119","111120","111025","111104" ["110126","101123","011124","111125","111105","111021","110122","111106","101119","011120" ["111107","111121","111022","110119","111108","011120","111121","111026","110123","111109" ["101124","111110","011125","111022","110119","111111","101120","011121","111112","111122" ["111119","111120","111113","111021","110122","101119","111114","011120","111121","111122" ["110119","111115","101120","011121","111122","111026","111116","110123","101124","011125" d"111126","111117","111019","101123","110120","101121","111118","011122","111119","111120","111121"  "ABCJolly Aardvark Inn","DEDCraigmoor Castle","DEDNilgrack Castle","DEDKandos Castle","DEDSorbozon Castle","FGFCity of Sunset" "HHHTown of Khadash","ICCVillage of Hightree","ICCVillage of Lowmarsh","ICCVillage of Deathmeet","JJJThe Swamp","KLMThe Lake","NOPThe Fountain","QQQThe Ruins","RSTThe Cavern","UVWThe Church","XYZThe Abbey","KLMThe Pool" "000A lonely glade","000An open clearing","000A sinister glade","000A forest clearing","000Twisting pathways","000Forest paths","000Shady pathways","000Desolate pathways" "112121200005Giant","","312120908138White Knight","","215152000007Balrog","","312101009237Black Knight","","106081100003Orc","" d"310090810326Elf","","4","","105050900002Goblin","","309090911322Dwarf","","216201000009Dragon","" j"304040712410Hobbit","","5","","110081300006Manticore","","313110713429Ranger","","212129900008Demon","" {"311070707333Wizard","","105049900000Zombie","","308060914524Thief","","305060601343Magic User","","110101500005Troll","" {"307060615612Hermit","","108061000003Gargoyle","","310061004342Witch","","113139900000Golem","","308080905343Sorcerer","" |"6","106049900001Skeleton","105051000004Wolf","","307050816511Priest","","108071000001Lizard Man","","309080717333Monk","" |"109101500002Werewolf","","310080806333Magician","","112129900000Yeti","","313130618217Paladin","","308080803333Cleric","" ך"214129900007Wraith","","311100719216Warrior","","211109900005Wight","","304060520120Merchant","","104049900001Giant Spider","","307070702333Spellmaker" J"1:Scroll (+1 RES)","2:Scroll (+2 AGI)","3:Scroll (+2 PER)","4:Scroll (Change Paths)","5:Scroll (Fireball)","6:Scroll (Invisibility)","7:Scroll (Fear)" Oh"Sword (+3 STR)","Armour (+3 END)","Amulet (+2 MAG)","Staff (+2 MAG)","Dust (+1 AGI)","Boots (+2 AGI)" T"Ring (+2 PER)","Potion (+1 RES)","Holy Water (+1 PER)","Armband (+3 MAG)","Helmet (+1 END)","Shield (+1 END)","Gauntlets (+2 STR)" pW527:A8,E;"(1)Scroll(+1 RES):Adds 1";A9,F;"point to RESurrection.":610b uS527:A8,E;"(2)Scroll(+2 AGI):Adds 2";A9,H;"points to AGIlity.":610b zW527:A8,E;"(3)Scroll(+2 PER):Adds 2";A9,F;"points to PERsonality.":610b ~527:A8,B;"(4)Scroll(Change paths):If a";A9,F;"pathway is blocked, the";A0,B;"corresponding path (cont)":610b 527:;A8,C;"can be opened in an adjacent";A9,C;"location, providing you cast";A0,C;"spell in following turn.":610b SA$="A combat spell.":527:A8,G;"(5)Scroll(Fireball):";A9,K;A$:610b A527:A8,E;"(6)Scroll(Invisibility):";A9,K;A$:610b 9527:A8,J;"(7)Scroll(Fear):";A9,K;A$:610b I527:A8,B;"ALL SPELLS COST 3 MAGIC POINTS";A9,A2;"TO CAST.":LP F527:A9,C;"S)ave, N)ew Game, Quit G)ame";A0,M;"Quit P)layer" I$= I$=""6051 I$="N"GB=A:6060 I$="G"GB=C:6060 I$="P"GB=B:6060 I$="S"6070  6051 "527:A9,K;"ARE YOU SURE?" I$= I$="Y"GB+6066  I$="N"LP  6062 C 2QQ=Z:L(QQ,G)=-1:631w:633y:PL A 527:A8,B;"This routine SAVEs the entire";A9,B;"program. To LOAD the tape back";A0,B;"-type LOAD """"CODE & ENTER":610b:"folsSAVE"16384@,34753 "527:B;A9,A3;"SAVED":LP $FG=A:527:A8,J;"You have:" N=2140( IL(Z,N)=BA9,J;O$(N-A0):I=B502:I::.05|L,M:FG=B:A9,B;D$ N:FG527 "FGA9,A2;"NOTHING!":75K LP +527:A9,F;"Which Scroll (1 to 7)?" I=B502:I  I$= I$=""6155  +(I$<491)(I$>557)6155  VI$>E527:A9,B;"That is for use in combat only":B,-20:610b:PL SL(Z,I$+A0)=A527:A9,H;"You haven't got it!":B,-20:610b:PL $TL(Z,D)F #2]L(Z,N+A5)=AL(Z,N+A5)=B:L(Z,41))=L(Z,41))+B:H;B;B;D,29;L(Z,41)) #4 #7L(Z,41))=EưC$(X,FG)=B527:Y$=N$(Z):530:A$="CONGRATULATIONS "+Y$:515:B;C;A8,N;A$;A9,F;"YOU HAVE WON THE GAME!":N=BB2:.15~,N:N:A0,M;"ANOTHER GAME?":9020<# #: #<I$= #>I$=""9020<# #? I$="N"A #A I$="Y"C #F 9020<# 'c:"FOLSHAD"1:1,1:"FOLSCODE"50025i,1112X:1,1:"":"" \FOLSCODE XinZ?OIy> BB8||T||8|8((<~Z~~  ~V~T8?s? @ $ZZ< hi <<<~@ ;; p(DD:$$@ UUUU??8T8T?ڶo```D BRbర"xD9|8 llllllll>X<|0f8l8vv0 000 0 0f<f<0 0`0 ~~`0 0`fff~fff~~ xflxlf```bf8ll8ff|``8lvff|lfff>|`lvff8<ff<`flxl8<lfffffff<ll8lfff>|~ 0~pppv