FRUIT *X*?* &HITI=0:9900&:6010z ?23672x\,0:23673y\,0:23674z\,0 2dcr=0:ml=10 :re1=1:re2=1:re3=1:r1=1:r2=2:r3=3 < ti=0 d80:7:0:0:0:0: n 0 s 9100# xa0:0:55000:0,0;" GREEN FISH SOFTWARE ENTERPRISE " }Y7:0:15,25;" TIME: ";16,26;7;0;"0" $9200#:9300T$:9400$ main 3re1=1:re2=1:re3=1:5600 :21,0;7;1;0;"MONEY LEFT= ":21,12 ;7;1;1;ml:rc1=3+(*3):rc2=rc1+(*3):rc3=rc2+(*3) c17,5;2;1;" ";17,11 ;" ";17,17;" " :cr=-15700D t=11+r1+r2+r3 (rc1>1re1=1r1=r1+1 (rc2>1re2=1r2=r2+1 (rc3>1re3=1r3=r3+1 E16,26;1;6;2;ti:.01z# =,0 ti=ti+1 %r1=16re1=1r1=1 %r2=16re2=1r2=1 %r3=16re3=1r3=1 0rc1>1re1=19510&%+*1 0rc2>1re2=19512(%+*1 0rc3>1re3=19514*%+*1 re1=1rc1=rc1-1 re2=1rc2=rc2-1 re3=1rc3=rc3-1 cr=-15700D  3re1=1rc1<1rc1>-19200# 3re2=1rc2<1rc2>-19300T$ 3re3=1rc3<1rc3>-19400$ rc1.05|L,-20 rc2.05|L,-20 rc3.05|L,-20 Bt:9800H& G 1000 start/coin test H21,0;7;1;0;"MONEY LEFT= ";ml;" " 'a=(*6):a>37800x cr=05700D ~17,1;1;0;3;" ";18,2;1;0;5;" ";19,2;" " Ea=120:="s"cr=cr-1:ml=ml-5:1002 a ~17,1;1;1;7;" ";18,2;1;1;7;" ";19,2;" " Ea=120:="s"cr=cr-1:ml=ml-5:1002 a : 5610 D insert coin E17,5;1;1;2;" ";17,11 ;" ";17,17;" ";17,21;" " Iml05900  NC21,0;1;7;3;"Press 1 or 2 plays" Oj11 ,0;1;1;7;" ";12 ,0;" ";13 ,0;" " S 5750v Xs11 ,0;1;1;2;1;" ";12 ,0;" ";13 ,0;" " ]5750v:5711O va=110 :a$= z a$="1"cr=1:1000 {+a$="2"ml>9 cr=2:1000 a:  out of money ]b=110 :20,25;1;1;" ";21,25;" " a=020:a: R20,25;1;0;1;" ";21,25;" "  a=020:a: *b:6000p pintro q.a=050210 :.005y# =,a:a rTI>HITIHITI=TI zA0:7:0:0:0:0:0: 2,8;"GREEN FISH  1985";1,10 ;"BY SAJ BROAD.";0,10 ;"FRUIT MACHINE" 5,1;"TRY TO GET THE LONGEST TIME AS";6,1;"POSSIBLE,BY PLAYING THE FRUIT";7,0;"MACHINE FOR AS LONG AS POSSIBLE" N21,0;"PRESS ANY KEY NOW!" .15,5;"HIGHEST TIME TODAY=";HITI =""6040  15 Xp45000ȯ:0:0:0:0:0:0::0:"""a":""55000:1 W"FRUIT"7000X:"ch""a",21*8:"c1"55000,6912+100d  xhold }ml05700D ~cr05700D p7,0;1;1;3;1;" ";8,0;" ";9 ,0;" " {18,6;1;1;7;" ";18,12 ;" ";18,18;" ";18,21;" " {19,6;1;1;7;" ";19,12 ;" ";19,18;" ";19,21;" " ~17,1;1;0;3;" ";18,2;1;0;5;" ";19,2;" "  7850 ~17,1;1;1;7;" ";18,2;1;1;7;" ";19,2;" " p7,0;1;7;1;1;" ";8,0;" ";9 ,0;" " 18,6;1;1;4;" ";18,12 ;" ";18,18;" ";18,21;2;" " 19,6;1;1;4;" ";19,12 ;" ";19,18;" ";19,21;2;" "  7850  7805} a=110 :a$= I="1"re1=0:17,5;1;1;7;" " J="2"re2=0:17,11 ;1;1;7;" " J="3"re3=0:17,17;1;1;7;" " 1="s"cr=cr-1:ml=ml-5:1002 ="4"re1=1:re2=1:re3=1:17,5;2;1;" ";17,11 ;" ";17,17;" " a  #( #)[b=110 :20,26;1;1;" ";21,26;" " #2%a=020:a:55000 #<a=020:a:b #A 1000 #Fj11 ,0;1;7;1;" ";12 ,0;" ";13 ,0;" " #K #strings for reels #+z$(2,4):r$(3,15) # r$(1)="acdadeccdbabddea" # r$(2)="acacedbcadebdded" # r$(3)="abdcdbcebdbadbec" # #reel a #A10 ,6;7;1;" ";13 ,6;" " #<r$(1,r1)="a"z$(1)="":z$(2)="" #<r$(1,r1)="b"z$(1)="":z$(2)="" #<r$(1,r1)="c"z$(1)="":z$(2)="" #<r$(1,r1)="d"z$(1)="":z$(2)="" #<r$(1,r1)="e"z$(1)="":z$(2)="" #O11 ,6;1;7;z$(1);12 ,6;z$(2) #q=(*4)*4:14,6;1;7;2;(144+q);(144+q+1);15,6;(144+q+2);(144+q+3) #q=(*4)*4:8,6;1;7;2;(144+q);(144+q+1);9 ,6;(144+q+2);(144+q+3) $" $Treel b $UC10 ,12 ;7;1;" ";13 ,12 ;" " $Y<r$(2,r2)="a"z$(1)="":z$(2)="" $Z<r$(2,r2)="b"z$(1)="":z$(2)="" $[<r$(2,r2)="c"z$(1)="":z$(2)="" $\<r$(2,r2)="d"z$(1)="":z$(2)="" $]<r$(2,r2)="e"z$(1)="":z$(2)="" $^Q11 ,12 ;1;7;z$(1);12 ,12 ;z$(2) $_q=(*4)*4:14,12 ;1;7;2;(144+q);(144+q+1);15,12 ;(144+q+2);(144+q+3) $`q=(*4)*4:8,12 ;1;7;2;(144+q);(144+q+1);9 ,12 ;(144+q+2);(144+q+3) $ $reel c $C10 ,18;7;1;" ";13 ,18;" " $<r$(3,r3)="a"z$(1)="":z$(2)="" $<r$(3,r3)="b"z$(1)="":z$(2)="" $<r$(3,r3)="c"z$(1)="":z$(2)="" $<r$(3,r3)="d"z$(1)="":z$(2)="" $<r$(3,r3)="e"z$(1)="":z$(2)="" $Q11 ,18;1;7;z$(1);12 ,18;z$(2) $ìq=(*4)*4:8,18;1;7;2;(144+q);(144+q+1);9 ,18;(144+q+2);(144+q+3) $Įq=(*4)*4:14,18;1;7;2;(144+q);(144+q+1);15,18;(144+q+2);(144+q+3) $ %spin %&Xa=158-1:a,6;7;1;3+*2;"":a: %'Xa=158-1:a,6;7;1;2+*2;"":a: %(Ya=158-1:a,12 ;7;1;4+*2;"":a: %)Ya=158-1:a,12 ;7;1;3+*2;"":a: %*Ya=158-1:a,18;7;1;5+*1;"":a: %+Ya=158-1:a,18;7;1;4+*2;"":a: &H;r$(1,r1)="a"9870&:ml=ml+5:1000 &I;r$(3,r3)="a"9870&:ml=ml+5:1000 &Jcr$(1,r1)="b"r$(2,r2)="b"r$(3,r3)="b"9870&:ml=ml+10 :1000 &Kcr$(1,r1)="c"r$(2,r2)="c"r$(3,r3)="c"9870&:ml=ml+10 :1000 &Lcr$(1,r1)="d"r$(2,r2)="d"r$(3,r3)="d"9870&:ml=ml+502:1000 &Mbr$(1,r1)="e"r$(2,r2)="e"r$(3,r3)"e"9870&:ml=ml+502:1000 &Ndr$(1,r1)="e"r$(2,r2)="e"r$(3,r3)="e"ml=ml+1000:9850z&:1000 &R &z jackpot &R21,0;7;1;1;1;" *J*A*C*K**P*O*T* " &Oa=0200:.004yn,a/3-10 :.005y# =,a/3:a: &(.2~L,0:.1}L,-10 : & a="u""u"+7:b:a,b:a & &01001010J &01001010J &01001010J &00010010 &00010010 &00010010 &01001010J &01001010J "" b-doc   ^ ch Xb7o_߿?4o_?? p@@  0y[z3̀ ;瀀?>~fs8>s&|JJJJJc1 dEf!@<,Az-4xHAz&50J%@z,l^ A2:z<<B<<~<BB~@H|B z $D 6@z RR-&9f@XЙ zSII`0` zzS z z .BBB@BB@BBBBBBBBBBBBD@B@@$8H@@"y@0z @@`P H@ z bb@-&6~@@LM@0z[E6D@A`2@0z @@@ z[@@@@ z000 z *<<B><<<"@0z@ ̓,`V@z~><<@-̬L&@"hM|zx@@Ƃ0d80@z@@8@8@8zx@8@@8@zz~~~ <!dz@e `6D~EAz-aAez`qzz`zz<<< Az Az<<<zTWTWAzDGWWz 3 z<<<AzAz @z@@z~~~ !@zWW z="x#@z 3  @z~~~=!@@@z!z<|~x>< @z@@@z   WW@@z z! 0z 3  @@z!  @z  @zBB@D@zz $$WWz77z! z3z! $z$$z@B|B<(z((z .WW(zǟ<z=.77( z3( z=. (( (z   z@|@B  0@0z   @z *@@WW z"#@0z*?0z  z*@@ z@@ @zBD@DBzz~~~ @WWzz=?zz~~~=@z@z<zz<<<"W"Wz"z 3zz<<<zz  Az9>>A>A>Azzzzz!@@@z@BI"A(@ "A( "A(z  !z|`<Ƅ!ߟ!!!z <|`<ƀ!/!z<|8 00 z .<|`~zN~B@BBJ@@@@zBB@|@  @zBJ"A("A("A)*z9zT Y@Xv__Sz`~~8@xz *``~~@@@@@zBBB@BBF@@@@zB$@D@zpBI>y>y>yɪzIJW{@z>`~f@@@p@z ~`~f@@@@@z