Fish %€‚'ÿYêFish by Ken Rylett from ZX Computing Oct/Nov'85 èñupdate=9500% òñend=9600€% ü í9000(#  ën=1Ì13 ñd(n)=n $ñd(n+13 )=n .ñd(n+26)=n 8ñd(n+39')=n Bón L Vën=1Ì524 `ña=º(¥*524+1) jñb=º(¥*524+1) túa=bËì1130j ~ñc=d(a) ˆ ñd(a)=d(b) ’ñd(b)=c œón ¦ °ën=1Ì7 ºña=d(n) Äñp(a)=p(a)+1 Îñb=d(n+7) Øñs(b)=s(b)+1 âón ì öç5:Ú5:Ù0:û .õÚ6;Ü1;¬0,12 ;" FISH "  ]õÚ2;Ü1;Ù7;¬3,0;" PLAYER ";pb;¬3,20;" SPECTRUM ";sb KõÚ1;Ü1;Ù7;¬8,3;" A 2 3 4 5 6 7 8 9 T J Q K " ën=9 Ì13 (<õÚ6;Ü1;¬n,3;" " 2ón < ÐêPLAYER'S TURN Ú äíupdate î/îÚ0;Ù7;Ü1;"WHICH CARD? ";Êa$ ø)úa$(1)="T"Ëñc=10 :ì21004 )úa$(1)="J"Ëñc=11 :ì21004  )úa$(1)="Q"Ëñc=12 :ì21004 )úa$(1)="K"Ëñc=13 :ì21004  (úa$(1)="A"Ëñc=1:ì21004 *2ñc=¯a$-480:úc<1Åc>13 Ëì2030î 4’úp(c)=0ËõÜ1;Ú7;Ù2;¬18,11 ;Û1;" CHEAT ":ën=1Ì250ú:ón:õ¬18,11 ;" ":ì2030î >£ús(c)=0Ætop<535Ëõ¬18,12 ;Ú2;Ù7;Ü1;Û1;" GO FISH ":ën=1Ì250ú:ón:õ¬18,12 ;" ":ì2500Ä H$ús(c)>0Ëõ¬18,9 ;Ú1;Ù7;Ü1;Û1;" GOOD FISHING ":ën=1Ì250ú:ón:õ¬18,9 ;" ":ñflag=1:ñp(c)=p(c)+s(c):ñs(c)=0:ñt(c)=1:íupdate:úp(c)=4Ëñpb=pb+1:ñt(c)=0:íupdate:íend:úpb=7Ëì9700ä% R(úflag=1Ëñflag=0:ì2030î \ ì3000¸ Ćñd=d(top):ñtop=top+1:ñp(d)=p(d)+1:íupdate:úp(d)=4Ëñpb=pb+1:ñt(d)=0:íupdate:íend:úpb=7Ëì9700ä% Ζúc=dËõ¬18,9 ;Ú1;Ù7;Ü1;Û1;" GOOD FISHING ":ën=1Ì250ú:ón:õ¬18,9 ;" ":ì2030î Ø@õ¬18,8;Ú7;Û1;Ü1;" You fished a "; âDúd>1Æd<11 ËõÚ7;Û1;Ü1;d;" ":ì2700Œ ì:úd=1ËõÚ7;Û1;Ü1;"ACE ":ì2700Œ ö<úd=11 ËõÚ7;Û1;Ü1;"JACK ":ì2700Œ =úd=12 ËõÚ7;Û1;Ü1;"QUEEN ":ì2700Œ $õÚ7;Û1;Ü1;"KING " ŒCën=1Ì250ú:ón:õ¬18,8;" " ¸êSPECTRUM'S TURN Â Ì ñe=1 Ö9út(e)=1Æs(e)>0Æs(e)<4Ëñf=e:ì3060ô à%úe<13 Ëñe=e+1:ì3030Ö ê@ñf=º(¥*13 )+1:ús(f)=0Ås(f)=4Ëì3050ê ôEõÚ2;Ù7;Ü1;Û1;¬21,9 ;" HOW MANY "; þDúf=1ËõÚ2;Ù7;Ü1;Û1;"ACES ":ì3200€ Fúf=11 ËõÚ2;Ù7;Ü1;Û1;"JACKS ":ì3200€ Gúf=12 ËõÚ2;Ù7;Ü1;Û1;"QUEENS ":ì3200€ Fúf=13 ËõÚ2;Ù7;Ü1;Û1;"KINGS ":ì3200€ &,õÚ2;Ù7;Ü1;Û1;f;"s " €î" ";Êa$ Š2ñc=¯a$-480:úc<0Åc>13 Ëì3200€ ”'õ¬21,9 ;" " žzúp(f)ÉcËõ¬18,11 ;Ü1;Û1;" CHEAT ":ën=1Ì250ú:ón:õ¬18,11 ;" ":ì3060ô £$úc=0Ætop<535Ëì3260¼ ¨„ñs(f)=s(f)+p(f):ñp(f)=0:ñt(f)=0:ñflag=1:íupdate:ús(f)=4Ëñsb=sb+1:íupdate:íend:úsb=7Ëì9700ä% ²(úflag=1Ëñflag=0:ì3020Ì · ì2000Ð ¼ñc=d(top):ñtop=top+1 Æ]ñs(c)=s(c)+1:íupdate:ús(c)=4Ëñsb=sb+1:íupdate:íend:úsb=7Ëì9700ä% ËúcÉfËì2000Ð ÐGõÚ1;Ù7;Ü1;Û1;¬18,9 ;" I FISHED A "; ÚCúc=1ËõÚ1;Ù7;Ü1;Û1;"ACE ":ì3500¬ äEúc=11 ËõÚ1;Ù7;Ü1;Û1;"JACK ":ì3500¬ îFúc=12 ËõÚ1;Ù7;Ü1;Û1;"QUEEN ":ì3500¬ øEúc=13 ËõÚ1;Ù7;Ü1;Û1;"KING ":ì3500¬ +õÚ1;Ù7;Ü1;Û1;c;" " ¬Lën=1Ì250ú:ón:õ¬18,9 ;" ":ì3020Ì #(êSET-UP #2 #<ép(13 ):êPlayer's #Fés(13 ):êSpectrum's #Péd(524):êDeck #Zét(13 ):êSpec's loses #déa$(2):êRequest #n #xñtop=15:ñflag=0 #‚ñpb=0:ñsb=0 #Œô23658j\,8 #–þ %êUPDATE %& %0ùõÚ0;Ù7;Ü1;¬11 ,3;" ";p(1);" ";p(2);" ";p(3);" ";p(4);" ";p(5);" ";p(6);" ";p(7);" ";p(8);" ";p(9 );" ";p(10 );" ";p(11 );" ";p(12 );" ";p(13 );" " %:EõÚ2;Ù7;Ü1;¬3,8;pb;¬3,30;sb %Dþ %N %€êCHECK FOR FINISH %Š %” ñcheck1=0:ñcheck2=0 %žël=1Ì13 %¨+ús(l)>0Æs(l)<4Ëñcheck1=1 %²+úp(l)>0Æp(l)<4Ëñcheck2=1 %¼ól %Æ!úcheck1>0Æcheck2>0Ëþ %Ð %ä êEND OF GAME %î %ø1îÚ0;Ù7;Ü1;"ANOTHER GAME? ";Êa$ &)úa$(1)="Y"Ëí9000(#:ì1040 & â °roçË\¬inåò