ZXTape! 0Created with Ramsoft MakeTZXGORGON  "\ Gorgon & Grang  By B.G. Cornhill 1983 Phipps Associates 57863 0:0:0: P#1;1,0;6;" Program loading: wait "; ("GORGON-SA" 2"GORGON-SB" '"GORGON"1 GORGON-SA d:\ R;;!*=\s#r>n R;;! v THIS PROGRAM IS PROTECTED  1983 PHIPPS ASSOCIATESB< 3MwVvV\GWqcv>![[w+6+![<B&B>$8BBBBB@c!$8DDDDC@00 0` $<@ @ 0@d 'H HHH@HHD0G@@PPUPUPUPUPUPUPUP  0P`0<0@@HDDDD|DCH aH@`e8? @ ?@OPP?%@%@e@E==@E@M@Q@x<# `Pq< <0p@H@&HDPDYDDADx@@ ?@OPP? @ @@@ @ @ @p(h.0<0@@DDDDDHHpH|P89 #L@OPP? {?H`P808 80@@L$DD HD DD HHH@@ @OPP? @ @@@ @ @ @[!Pw#$ !@| ` @ `@,C0 @A `@``@@ @ B@@88 ` @ @  @@b <@8`>0`@ @  x @p@@ 0`@ ` 0A `@x @?x<A`8 @  @@ @ @ ` @@f?0`000f<@`` @ @` `@ ?0  pfp0` @`@b@Z`<~?p8`000@@@$~` @ `  `@x` @!X>w# x 0@@?@   䤔#LP2  e'%)𹤢%%9) %4 %%%%%',0#O_ uPuPuuPuPu#O_ɅՅ88|||((8P>89|8H88X(@@!>(>(#+>Ⱦ(6!>(>(#+>Ⱦ(6>!6# x >>>>C6\@>>><!:(((N!=(,#N9=(#N9#= XKxo_x@gW:w$ P P P 88 MV V\GWq !v>9 C--------@@@@|88((xfa?BZZ~~>>>>w<~ffZ$?@p``𰐐``````@@GORGON-SB ]@f5]0`m~2X@}~%$ I$)) I$*W" 0A0 ~`@`qG$, @v9$$$^"  @A yBz@$ `@?RRJJ(dJJR~A`A0 A(@A I@M` ;IJI))I$ JQI))J `@@A0 t I$@ %)I$i)NI$*W`~A0A8@;A$ i$@p9$ d-$V@ 7|A$B !RPJD RJJR JJRZ@`A08A0 ~A@  IHI)$ ~JJ@I))J RRI))Jh II$*U  JQ*T RR}@DDff0@ ? `%%V"0 )HS IJ_[kkﯭJR @R !00JRZ"@$N00 %) DDff )I ` J`RR)JhA80}`0%p+  IJD*T RRT_[kkﯭ@ 0 0%)"SIISpp0088  JHDDffRR@ 8@0`RN@``%%NXXhhl,40 )(}` II@(A``@?J8@DDff 0_[kkﯭ0%% |`@?0??????>>>>>>>>777777777777777777777777777777777777777777777777777777777777777777777777777777777777777007777777777777777777777777777770007777777777777777777000077777000077777777777777777700007770000000777117777777777777700000000000001771177777777777777700000000000111111777777777777777000000000777111177777777777777777000000711111111177777777777777777000777111111111777777777777777770000771111111117777772777777777770000777777777777777222777777777700007777777777777722227777777777007777777777777772222277777777777777777777777777722222777777777777777777777777777222777111111111111111111111117772777771111111111111111111111777277777111111111111111111111117772777771111111111111111111111777277777111111111111111111111110000000000000000000000000000000000000000000000000000000000000000>!p(h.0!3#xx# <@``''0'\\\\ ]\ 'xSX!!@P!!80' Wic K SR P Gorgon & Grang  1983 Phipps Associates 0:0:7:  !Allways=65021:9860& :allways=65021:9946&:Pillar place=9800H& gorgon=9600% )appear=9615%:disappear=9650% ;a(z)=l(z,1)*32 +l(z,2)+22528X stoned=0 Wall=9700% flood=8300l !20,0:255,0:0,175:-255,0:0,-175:2,8;" YOUR RATING ";7,3;"LEVEL 1 = SUPER-HEROIC";9 ,3;"LEVEL 2 = HEROIC";11 ,3;"LEVEL 3 = DODDLE":"Enter level: ";l$:l$<"1"l$>"3"űl$133! "lev=l$:ssh=2*lev:ssh=ssh+(4l$="3"):levi=lev:sl=(3lev=1)+(6lev=2)+(12 lev=3) #25+lev*2,0;1;1,, $ 100d %Hmc=(15lev=1)+(10 lev=2)+(0lev=3) &Igc=(20lev=1)+(24lev=2)+(27lev=3) 'sh=ssh (Llev=lev+(0lev=1)+(5lev=2)+(10 lev=3) )l$="" 2:#1;1,0;"By ZEUS wait a mo'" pillar place Wall gorgon =#1;1,0;"press any key to start":0  level=lev :man=(*28+2) 64370r 21,man;148 level1level=1 levels=level appear t6527825520,man;" ":man=man-(man>0):man164952:sh=ssh+(4-levi) $v3276625520,man;" ":man=man+(man<31):man3064976:sh=ssh+(4-levi) )man=0man=1 *man>30man=30 +/cx=man-l(z,2):cy=21-l(z,1) .:6502225520,man;151:l$="l" 825734225520,man;150 B:4915025520,man;149:l$="r" DCn=111 -ssh:water=64340T:64390:=""n Gwater=65535flood H.sh=sh-1:sh020,man;" " L_levels=levels-1:levels<08000@:disappear:level=level-1:1020 j 1050 =:#1;0,0;"You now run to GRANG's cave " @8:8:236066\,236:236077\,248 Bcol=2:md=-1:man<15col=25:md=1 713 ,col;33!;34";35#;36$ 714,col;37%;38&;39';40( 715,col;41);42*;43+;44, 716,col;45-;46.;47/;480  6000p 21,man;64@ 120,man;66B;21,man;67C 120,man;65A;21,man;32 C19,man;1;66B;20,man;0;67C "[19,man;1;66B;19,man;65A;20,man;0;32 ,[19,man;1;65A;19,man;67C;18,man;1;66B 6R19,man;1;67C;18,man;66B;18,man;65A @[18,man;1;65A;18,man;67C;17,man;0;66B JC18,man;1;67C;17,man;0;64@ O 0 Tmd=11635c V17,man;68D Xn=man4md:6 Z)17,n-1;69E;70F \)17,n-1;68D;32 ^n:1650r c17,man;73I dn=man26:6 e!17,n;71G;72H g!17,n;32 ;73I hn r17,n;64@ w236066\,0:236077\,60<:#1;0,0;" THE DOOR SWINGS OPEN ":236066\,236:236077\,248 | 6000p &cl=26:col=2cl=3 "14,cl;491;502 "15,cl;513;524 "16,cl;535;546 30:6000p "14,cl;557;568 "15,cl;579;58: "16,cl;59;;60< 30:6000p  14,cl+1;61=  15,cl+1;62>  16,cl+1;63? 30:6000p +236066\,0:236077\,60< 0:0:0: r=23670v\ ^#1;0,0;"You have entered: wait for your eyes to get used to the dark " 59856  100d n=14 63971,n 63964 100d:n:11 ,23;1;6;" ";12 ,23;" ";13 ,22;5;" ";14,22;" " #1;0,0;"Now to fight for your life! ":n=0191:n+23040Z,6:.005y# =,n/5:n:6:2070 c59822,43+:59823,226:59825,mc:59826,80P:59819: d59822,235:59823,229:59825,gc:59826,80P:59819:  d59822,203:59823,231:59825,gc:59826,80P:59819:  d59822,219:59823,230:59825,gc:59826,80P:59819:  d59822,187:59823,232:59825,gc:59826,80P:59819:  c59822,27:59823,227:59825,mc:59826,80P:59819:  c59822,11 :59823,228:59825,mc:59826,80P:59819: d59822,251:59823,228:59825,mc:59826,80P:59819: 2055:2056 #t=0:tm=0:gm=0  th=0:pm=2:pg=2:mw=10 -5*(levi=1):gw=20-levi*5+5*(levi=1):c=0:0,0;8;9 ;mw;29;gw; 4C="s"2062:2055:pm=1:tm=2:2170z >V="w"2062:2060 :pm=2:tm=2:th=(levi=1):2170z HV="x"2062:2061 :pm=3:tm=2:th=(levi=1):2170z Ry="d"gc-mc>52060 :mc=mc+(mc<22):2060 :pm=2:tm=0:th=(levi=1):2170z \h="a"mc2062:mc=mc-1:2060 :pm=2:tm=0:th=(levi=1):2170z p8levi1="0"tmpmpggc-mc<62320 vFlevi=1thƦ="0"tmpmpggc-mc<6th=0:2320 ztmtm=tm-1 K23670v\,r::r=23670v\:t=(r/128):tgmpmpg2340$ Zgc-mc62058 :gc=gc-1:2058 :gm=0:pg=2:2310 =23670v\,r::t=(23670v\/64@):r=23670v\ Et2056+(t1)+(t=2):pg=t:gm=2:2310 G2059 :gc=gc+(gc<27):2056+(pg1)+(pg=2) gmgm=gm-1 <n=17-ssh:water=64340T:64390:n water=65535flood .02{# =,60<:21004 pm1gw=gw-1:2060 :mc=mc+1:2060 :mc=mc+1:2060 :2060 +(pm=3):0,23;1;1;2;" ";0;0;9 ;" ";gw;" ":.3,10 :0,23;1;1;" ":2062:mc=mc-1:2062:mc=mc-1:2062:2056+(pg1)+(pg=2):2060 +(pm=3):gw2335 pm12170z 2060 :mc=mc+1:2060 :mc=mc+1:2060 :2055:2062:mc=mc-1:2062:mc=mc-1:2062:2056+(pg1)+(pg=2):2055  2310 gl=1621:l,gc;1;2;" ":l:0,0;"Grang is dead":2400` $pg1mw=mw-1:2057 :gc=gc-1:2057 :gc=gc-1:2057 :2058 -(pg=3):0,0;mw;3;1;1;2;" ":.3,20:0,3;1;1;" ":2059 :gc=gc+1:2059 :gc=gc+1:2059 :2055+5*(pm1)+(pm=3):2058 -(pg=3):mw23553 &pg12310 .2057 :gc=gc-1:2057 :gc=gc-1:2057 :2056:2059 :gc=gc+1:2059 :gc=gc+1:2059 :(2055pg=1)+(2061 pg=3)+(2060 pg=2):2056 0 2310 3Zl=1621:l,mc;1;2;" ":l:0,0;"you are dead" 8Hadd1=(43+pm=1)+(27pm=2)+(11 pm=3) 9Kadd2=(226pm=1)+(227pm=2)+(228pm=3) : add3=mc B2410j :8307s `Kadd1=(235pg=1)+(219pg=2)+(203pg=3) aKadd2=(229pg=1)+(230pg=2)+(231pg=3) c+add3=gc:2410j :30:2460 d22405e :n=23296[23306 [:m:n,m:n eg62>,255,33!,184,251,1,0,2,237,177,201 ff=23296[: j257891#,add1:57892$,add2:57887 tcrumble=40( ~57864 a59822,0:59823,91[:59825,add3:59826,80P:59819 .crumble=crumble-1:crumble2430~ /n=30-20-2:.01z# =,n:n  0:0:6: Vn=031:0,n;"";1,n;"";20,n;"";21,n;"":n nn=2192:n,0;"";n,31;"";n+1,0;"";n+1,31;"":n ;5,2;5;"YOU HAVE SUCCEEDED IN GETTING" L7,5;3;"THE ";6;"GOLDEN ";5;"CHALICE AND" 2404d :F=512-F 89 ,3;4;" SAVED THE VILLAGE FROM " =11 ,3;2;"FLOODING WITH ";F;" FEET TO GO" w13 ,5;"AT ";"SUPER HEROIC LEVEL"LEVi=1;"HEROIC LEVEL"LEVi=2;"THE DODDLE LEVEL"LEVi=3 8307s p,n=12:.2~L,-32 :n: @.05|L,-20 E-236066\,88X:236077\,254 J"cxx=l(z,2)*8+3 Ocxy=cy*8+7 TI1,8,cxx,cxy:1,8,cx*8,-(cxy-10 ) U:cx(20,man)40(1;0,60< V>cxl$="r"ƾ23677}\<2351;20,0 W>cxl$="l"ƾ23677}\>191;-20,0 Y<.05|L,30:.05|L,-10 :.05|L,0 ^I1,8,cxx,cxy:1,8,cx*8,-(cxy-10 ) _:cx(20,man)40(1;0,60< `>cxl$="r"ƾ23677}\<2351;20,0 a>cxl$="l"ƾ23677}\>191;-20,0 d'(20,man)=40(8070 h5(20,man)=37%cx=cy-18200 r2(20,man)=38&cx=08200 |8(20,man)=39'cx=(cy-1)8200 +236066\,0:236077\,60<  Sb=120:.05|L,0:.08}# =,-10 :.1}L,-20:b +236066\,0:236077\,60< F#1;0,0;1;"YOU HAVE BEEN TURNED INTO STONE" !stoned=stoned+1:502 :stoned<4#1;0,0;("You have "+(3-stoned)+(" lives"stoned2)+(" life"stoned=2)+" left: Any key")stoned<3;"This is your last life: Any key"stoned=3:200: I#1;1,0;"You do not have any lives left":30: S#1;1,0;"The village will now be FLOODED":502:8300l +236066\,0:236077\,60< +a(z),120x:a(z)-32 ,120x ^#1;0,0;" GORGON HAS BEEN TURNED INTO STONE " 4n=110 :o=10 -10 -10 &.05|L,o:o:n 0 1500 l1:1:6: nn=-20222:21,0;"":3582 :.05|L,n:.05|L,n+5:.05|L,n+1:.05|L,n+6:n p15:.353333,-20 s`#1;1,0;"Another game? (y/n) ":0:"Y"Ʀ"y"Ʀ"N"Ʀ"n"8307s tF"":="n"Ŧ="N"#1;"O.k.! Try again another time!":0: u 25 % l(18,2):n=1 %o=16 %>l(n,1)=p(o,1):l(n+1,1)=p(o,1) %Nl(n,2)=p(o,2)-1:l(n+1,2)=p(o,2)+2 %n=n+2:o %o=112 %^6;l(o,1),l(o,2);155;l(o,1)-1,l(o,2);154 %o: % %z=(*12 +1) %)a(z),491:a(z)-32 ,491 % %)a(z),546:a(z)-32 ,546 % % %)PAPER=(*7+1):INK=0 %n=0302 %$PAPER;INK;18,N;147 %,PAPER;INK;19,N+1;147 %N %X65002,35#:65175,2:236066\,88X:236077\,254 %7PAPER=(*7+1):65004,8*PAPER %N=0302 %765001,18:65000,N+1:Allways %/65001,19:65000,N:Allways %n %-236066\,0:236077\,60<: &HP(6,2) &Jn=16 &LGP(n,2)=(*27+2):P(n,1)=(*8+4) &Mn=10n &Nfo=1n-1:P(o,2)P(n,2)-2P(o,2)P(n,2)+29804L& &Po:n &\C65004,480:236066\,88X:236077\,254 &`n=16 &b0p(n,1),p(n,2);32 +33! &dp(n,1)-1,p(n,2);34";p(n,1)-2,p(n,2);34";p(n,1)-3,p(n,2);34" &fq65001,p(n,1)-4:65000,p(n,2):65002,33!:65175,2:Allways &hB65000,65000+1:65002,32 :Allways &jB65001,65001+1:65002,34":Allways &l,65001,65001+1:Allways &n,65001,65001+1:Allways &o0n:236066\,0:236077\,60<: & p$="GORGON" &'n=110 :.05|L,0 &PAPER=(*8) &)ink=0:paper<3ink=7 &LINE=(*21) &COLUMN=(*31) &ATT=(*4) &-ATT=0.05|L,10 :9895& &,ATT=1.05|L,5:9915& &-ATT=2.05|L,15:9930& &6.05|L,20:CoLUMN>25COLUMN=25 &PAPER;ink;LINE,COLUMN;P$ & 9941& &R65175,0:65004,(PAPER*8)+ink:LINE<6LINE=6 &&65000,COLUMN:65001,LINE &VS=16:65002,P$(S):Allways:65001,65001-1:S & 9941& &T65175,1:65004,(PAPER*8)+ink:LINE>16LINE=16 &&65000,COLUMN:65001,LINE &VS=16:65002,P$(S):Allways:65001,65001+1:S & 9941& &V65175,2:65004,(PAPER*8)+ink:COLUMN<6COLUMN=6 &&65000,COLUMN:65001,LINE &VS=16:65002,P$(S):Allways:65000,65000-1:S &n &6#1;1,0;" PHIPPS ASSOCIATES 1983" & bp=69E &cN=100d0-1:.02{# =,bp:bp=bp-.5:#1;1,28;N;" ":N: &):12 ;6;0;"GORGON"' &author B Cornhill jan/83 &6:6:0:: '%23681\,0:x=57700d '9991' 'A"":#1;1,10 ;8;9 ;"Press a key"; ' ñ9993 ' ' .="^"23681\,1:x=57700d: '  ' ;"GORGON"9998':"GORGON-SA"57700d,7836: '57699c:"GORGON-SA": 'y"GORGON-SA"57700d,7836:"GORGON-SB"16384@,23641Y\+256*23642Z\-16383?:9990' xd