SNAPPER a Z0:0:0::12 ,5;7;1;"LOADING FRUIT SNAPPER" K16384@,*255:16385@,*255:16386@,*255 23659k\,0 "" Fruit WSPW?[:   FRUIT SNAPPER By Scott Jones COPYRIGHT 1984 d"Fruit"5:"Fruit 2"53000,46.*256:"F "g,6912 DKEYS=0:0:0:0:0:7:"" #"":16385@=255 0:7:23659k\,0:16384@=0ƾ16385@=011 ,0;"Please Reload Program From Beginining":9 Ki=23672x\:f=16384@16386@:i,f:f,0:i=i+1:f [:23356<[,240:7:0:TI=0:65365U>200TI=1 \s$=" Welcom (tt)(ouu) fr(ouu)(tt) Snap(er) (bb)(ii) Scot J(oo)ns":1 YOUR=1 MONW=0 MONL=0 4HO1=1:HO2=10 :HO3=3:A1=0 ٲm(R,P,D,I,N)=59000x:z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " hQWQ=0:YOR=1:FH=40(:HO=999:WIN=0:WIN1=0:YR=1:1200 23659k\,0:z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " 23560\,0  9000(#:MONL=MONL+.1}L 0:*FH>5YOR=YOUR:YOUR=1:2,23;1;" ";3,23;" ";4,23;" ":1011 rYOR=YOUR:2,23;1;" ";3,23;" ";4,23;" "  2000 'FH=11 :HO=20:QWQ=0 8$23560\=115s1200 BGl=M(1,9000(#,1,-512,10 ):l=:10797 Kl=M(2,5000,1,-256,20):9000(#:1 YORYOUR23728\,YOR:L=57000:Z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " ho1065369Y,1:h1=(*22)+1:a=-11:a1=h1+a+1:65373]+a,r$(1,a1):65376`+A,r(1,a1):a ho2065370Z,1:h2=(*22)+1:a=-11:a1=h2+a+1:65379c+a,r$(2,a1):65382f+A,r(2,a1):a ho3065371[,1:h3=(*22)+1:a=-11:a1=h3+a+1:65385i+a,r$(3,a1):65388l+A,r(3,a1):a l=54000 s0:17,3;1;" ";17,8;1;" ";17,13 ;1;" "  5000 @1:0:0:B=B+1:236077\,250:R$(B1,B)="A"R1,RE;"8<";R1+1,RE;":=":236077\,60<: JSR$(B1,B)="B"R1,RE;"#$";R1+1,RE;"%&":236077\,60<: TQR$(B1,B)="C"R1,RE;"14";R1+1,RE;"c7":236077\,60<: ^OR$(B1,B)="D"R1,RE;"'(";R1+1,RE;"/0":236077\,60<: hOR$(B1,B)="E"R1,RE;"'(";R1+1,RE;")*":236077\,60<: rOR$(B1,B)="F"R1,RE;"@A";R1+1,RE;">?":236077\,60<: |OR$(B1,B)="G"R1,RE;"89";R1+1,RE;":;":236077\,60<: OR$(B1,B)="H"R1,RE;"23";R1+1,RE;"56":236077\,60<: AR$(B1,B)="I"R1,RE;1;"+,";R1+1,RE;1;"-." 236077\,60< WIN=0:WIN1=0: 'HO1=1:HO2=1:HO3=1 :a=65369Y65371[:a,0:a:*HO10 #s$=" (HH)(oo)(ll)(dd)":1 HO1=1:HO2=1:HO3=1:17,3;1;" ";17,8;1;" ";17,13 ;1;" " l=:HO1=1Ʀ="1"L=M(1,200,10 ,10 ,10 ):.1}L,1:HO1=0:17,3;1;" " HO2=1Ʀ="2"L=M(1,300,,10 ,10 ,10 ):.1}L,5:HO2=0:17,8;1;" " HO3=1Ʀ="3"L=M(1,400,10 ,10 ,10 ):.1}L,10 :HO3=0:17,13 ;1;" " E="0"L=M(1,60<,5,-1,60<):2020  $23560\115s2030   5&QWQ=2QWQ=0:1000 >VYR=YOUR:YOUR=YOUR+R(1,H1+1)+R(2,H2+1)+R(3,H3+1) CYOUR>36$YOUR=36$ HYOUR=YR2200 IA=YR YOUR:A=YRA JYOUR=A pgZ(YR,2),Z(YR,3);1;8;" ";Z(YR,2)+1,Z(YR,3);" " t FGF=0:A=YRFGF=1 uYR=A xz(your,2),z(your,3);1;8;" ";z(your,2)+1,z(your,3);1;" " $FGF=0.007ye`A,20+A H=14:H:A:Z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " -Z(YOUR,1)1000Z(YOUR,1)  1000 23659k\,0:23560\,0:L=M(1,5000,2,-250,20)+M(1,1000,4,100d,10 ) s$="B(OUU)ss(tt)":1 A=16 h1:3:A=17,19;"  ";8,19;"  " <A=27,21;" ";8,21;" " <A=37,23;" ";8,23;" " <A=47,25;" ";8,25;" " <A=57,27;" ";8,27;" " <A=67,29;" ";8,29;" " 23560\="b"4100 '.0009vkC,a*10 :A:4010 5a=a+(*2):a>6a=(*2)+1 O7,19;"  ";8,19;"  " @a>17,21;" ";8,21;" " "@a>27,23;" ";8,23;" " ,@a>37,25;" ";8,25;" " 6@a>47,27;" ";8,27;" " @@a>57,29;" ";8,29;" " J0:0 T95:TY=17+(A*2):A=YOUR+1YOUR+A ^wZ(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" ":YOUR=A coZ(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " hJTY<307,TY;1;" ";8,TY;1;" " jTY=TY-2 mJ.1}L,5:.1}L,5:C=3033!:.003xD,C:C rA |yz(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" "  2200 IW$=R$(1,H1+1)+R$(2,H2+1)+R$(3,H3+1) _WIN=0:WIN1=0:V(3):B=H1H1+2:R$(1,B)="I"V(1)=1 ;B:B=H2H2+2:R$(2,B)="I"V(2)=1 ;B:B=H3H3+2:R$(3,B)="I"V(3)=1 B DV(1)=1V(2)=1WIN1=.2~L:WIN=.2~L \V(1)=1V(2)=1V(3)=1WIN1=1:WIN1>WINWIN=WIN1 =W$(1)=W$(2)W$(2)=W$(3)5100 <W$(1)=W$(2)WIN1=.2~L:WIN1>WINWIN=WIN1  6000p #W$="AAA"WIN=2:6000p #W$="BBB"WIN=2:6000p #W$="CCC"WIN=2:6000p  -W$="DDD"WIN=.73333:WIN112 QW=0:NU=nu-1:9286F$ $wn1=0:n2=0:n3=0:="q"n1=-1:nu=nu-1:"g",1:"g"+1,2:r1=9 $"S="w"n2=-1:nu=nu-1:"g",2:"g"+1,2:r1=9 $'S="1"n1=1:nu=nu-1:"g",1:"g"+1,1:r1=13 $,S="e"n3=-1:nu=nu-1:"g",3:"g"+1,2:r1=9 $1S="2"n2=1:nu=nu-1:"g",2:"g"+1,1:r1=13 $2S="3"n3=1:nu=nu-1:"g",3:"g"+1,1:r1=13 $37h1=h1+n1:h2=h2+n2:h3=h3+n3:h1<1h1=25 $4h2<1h2=25 $5h3<1h3=25 $6h3>25h3=1 $7h2>25h2=1 $8h1>25h1=1 $<.0:19,0;NU;" NUDGES LEFT" $@n10l=53000:re=3:b1=1:b=h1+n1:1600@:R(1,h1+n1+1)0r1,3;r(1,h1+n1+1) $A N10.007ye`A,1 $Bn20l=53000:re=8:b1=2:b=h2+n2:1600@:R(2,h2+n2+1)0r1,8;r(2,h2+n2+1) $C!N20.007ye`A,10 $Dn30l=53000:re=13 :b1=3:b=h3+n3:1600@:R(3,h3+n3+1)0r1,13 ;r(3,h3+n3+1) $E!N30.007ye`A,15 $F{NU<17:19,0;" ":0:0:0:QWQ=2:FH=15:5000 $IGr$(1,h1+1)=r$(2,h2+1)nu=0:9286F$ $J 9225 $ $TNU=89221$ $U1:NU=217,21;" ";18,21;" ";13 ,25;" ";14,25;" ";11 ,27;" ";12 ,27;" " $VNU=411 ,27;" ";12 ,27;" ";17,21;" ";18,21;" ";19,19;" ";20,19;" " $WNU=619,19;" ";20,19;" ";11 ,27;" ";12 ,27;" ";9 ,29;" ";10 ,29;" " $[D19,0;"GAMBLE OR COLLECT";20,4;"(G OR C)" $\23560\,0 $]Ja=(*20):.2~L,-2:23560\=103g9340|$ $^7.2~L,10 :23560\=103g9340|$ $_#23560\99c9309]$ $h7:1:1:17,21;" ";18,21;" ";11 ,27;" ";12 ,27;" ";19,19;" ";20,19;" ";9 ,29;" ";10 ,29;" ";13 ,25;" ";14,25;" " $sv0:0:8:NU=217,21;" ";18,21;" ":YOUR=7 $t\NU=411 ,27;" ";12 ,27;" ":YOUR=13 $u\NU=619,19;" ";20,19;" ":YOUR=21 $v0:0:0:NU=89 ,29;" ";10 ,29;" ":YOUR=31:9221$ $w 9221$ $|GAMBLE $}%NU=2A1=3:A2=13 $~%NU=4A1=7:A2=21 $&NU=6A1=13 :A2=31 $&NU=8A1=21:A2=31 $A>10 NU=NU-2:Q=20-10 -1:.01z# =,Q:Q:Z(YOUR,2),Z(YOUR,3);" ";Z(YOUR,2)+1,Z(YOUR,3);" ":T=YOURA1-1:Z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" ":YOUR=T:Z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" ":.007ye`A,T:T $A10 NU=NU+2:Q=-10 20:.01z# =,Q:Q:Z(YOUR,2),Z(YOUR,3);" ";Z(YOUR,2)+1,Z(YOUR,3);" ":T=YOURA2:Z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" ":YOUR=T:Z(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" ":.007ye`A,T:T $)1:1:7:17,21;" ";18,21;" ";11 ,27;" ";12 ,27;" ";19,19;" ";20,19;" ";9 ,29;" ";10 ,29;" ";13 ,25;" ";14,25;" " $(0:0:0:7 $D19,0;" ";20,4;" " $8NU=00:0:YOUR=3:9770*& $A>10 9221$ %!23659k\,0:9300T$ %!Cs$=" misT(er)i win ":A=15:.003xD,*30:A %&H.003xD,*40(:.003xD,*30:MY=(*36$)+1 %0sLI=Z(MY,1):LI=9950&LI=1000LI=4000LI=9500%LI=9150#LI=9100#9510&% %5$C=1:MY<12 C=-1 %:A=12 MYC %DoZ(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " %NYOUR=A %boz(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " %l6L=M(1,A*2,1,1,A*2):A %vwz(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " %{ 2200 %ST=60<:H=13:L=M(1,ST,H*3,-1,60<)+M(1,ST-59;,H*3,1,59;):ST=ST+10 :H:1 %wz(YOUR,2),Z(YOUR,3);1;8;" ";Z(YOUR,2)+1,Z(YOUR,3);" " %-A=13:65368X+a,1:A %Fs$=" Spin A win ":1:AS=(*3)-1:H3=H3+AS %dA=-11:A1=H1+A+1:65373]+A,R$(1,A1):65376`+A,R(1,A1):A %dA=-11:A1=H2+A+1:65379c+A,R$(2,A1):65382f+A,R(2,A1):A %dA=-11:A1=H3+A+1:65385i+A,R$(3,A1):65388l+A,R(3,A1):A %L=54000 %0:5000 %1H1=3:H2=12 :H3=4:9600% & 2H1=21:H2=24:H3=3:9600% &* 10p &4s$=" ten p(ee)":3:WIN=.1}L:23560\,"c":.1}L,1:FH=90Z:C1=7:C2=16:.2~L,5:6150 &R9s$="(wh)on p(ow)nd":502:WIN=1:6000p &1H1=2:H2=9 :H3=10 :9600% &.s$="w(ow)":1:WIN=2:6000p 'd=.76B\):k=10 :18:.5*d,-10 +k:.07}\(*d,-12 +k:.5*d,-10 +k:.1}L*d,-12 +k:.4L*d,-7+k:.55 *d,-4+k '7:.5*d,-10 +k:.07}\(*d,-12 +k:.5*d,-10 +k:.4L*d,-9 +k:.55 *d,-13 +k '7:.5*d,-10 +k:.07}\(*d,-12 +k:.5*d,-10 +k:.1}L*d,-12 +k:.4L*d,-7+k:.55 *d,-4+k ' .1}L*d,-3+k:.1}L*d,-2+k:.1}L*d,-4+k:.1}L*d,-5+k:.1}L*d,-6+k:.15~*d,-7+k:.15~*d,-9 +k:.368Q*d,-10 +k ',s$=" Jacpot":1:23560\,"c": eyi{\@@ v"!mouon&ffhon@ooowo iin~t(;g~Ln$ $ !$*&   ###% #     % #*&&H&  #  & *&  & ҉,AIBHDEHEDHEDHGEDCHEDHFDEHAI CIAGFGCFGBGFHCGFDGFBEFGHFCI GIDFHDGHAEBHFGHGEDHDFGCDEGI ,CI!&ZdB\)k WDGCM 1.3N 13S* (HH)(oo)(ll)(dd)g@ Fruit 2 .S.>!"6!~o&"x6!~o&"|6*|"6!,[!s6!-[!xs6!A[!s6!B[!s6!$[! s6!&[!s6!!Hs6!!Hs6! !ws6!!ws6*x!>=6!%[!s6!'[!s6!!s6!!s6!!s6!!s6*x!>=}6!%[!s6!'[! cAs6!!s6!!s6!! s6!! s6*x!>=6!%[! s6!'[!s6!! s6!! s6!!s6!!s6!!#S"6!"6!!#S"6!!i6*!>=<6*"6!6*|!>=ҹ6!"6!"6*!>=ҹ6!!s6! ! s6!!s6!"6!!?i6*|!>=<6!"6!"6*!>=<6!!Ms6! !s6!!s6!"6!"6*#"[ҧR6*#"[ҧR6<< MN+N WqM!P P P P 3MR1R \Wq !v>!"6!Y~o&"6!Z~o&"6![~o&"6*"6*"6*"6!!#S"66!6*#"[ݧRY6!2[!s6!,[!s6*!>=ү6j6!]"6!Ͷ!#S"6!"6**ѧR" 6* ~o&" 66!6!`*ѧR"6*~o&!>>V6:! !J*~o&b͗6*#"[ާR6!"6B6*!>=Ҕ6Ð6!"6!!#S"66!6*#"[ݧR6!c"6!Ͷ!#S"6!"6**ѧR" 6* ~o&" 66!6!f*ѧR"6*~o&!>>|6:! !J*~o&b͗6*#"[ާR6!"6B6*!>=Һ66!i"6!"6!"6!!#S"66!6*#"[ݧR6!Ͷ!#S"6! "6**ѧR" 6* ~o&" 66!6!l*ѧR"6*~o&!>>ҭ6:! ! J*~o&b͗6*#"[ާR'6!"6B6M !}ͭ:6:!!J>!} !!J>!} #!! J>!} E͗6U&o!>=s6W666!2[!s6!,[!s6!-[!xs6!!Ms6! !s6!!s6!$[! s6!&[!s6*!>=06!%[!s6!'[!s6!"6!"6*!>=y6!%[!s6!'[! s6!"6!"6*!>=6!%[! s6!'[!s6!"6!"666M >!}ͭ:6M >!}ͭ:6M >!}ͭ:6!7\!s6!6* !A>=Ғ6:! *J:=D͗66:! *J8<o͗6!7\!<s66* !B>= 6:! *J%&͗66:! *J#$͗6!7\!<s66* !C>=Ҁ6:! *Jc70͗66:! *J14[͗6!7\!<s66* !D>=6:! *J/0͗66:! *J'(͗6!7\!<s66* !E>=j6:! *J)*͗66:! *J'(G͗6!7\!<s66* !F>=6:! *J>?͗66:! *J@A͗6!7\!<s66* !G>=R6:! *J:;͗66:! *J89/͗6!7\!<s66* !H>=6:! *J56x͗66:! *J23͗6!7\!<s66* !I>=B6:! *J>!}-.͗66:! *J>!}+,#͗6!7\!<s66!!#S"6!!_i6!*#S"6*#"[ݧRw6!!i6!*#S"6*#"[ݧR6*#"[ާRU66i Gk cBf'(7MGMMAXM3WMH= P P P 3aMiVhV\GWq !v>!"6$                  'Õ!H!"!!H#S)"+"-*)Ke\) d *-͌*)#")[+RM >!}ͭ:M >!}ͭ:!\~o&"1*1Ke\) d ͑"5*1!$Ke\) d ͑"9*5!"=:*5*9J j*=*9J ͗*1!ѧR"1*1!>=Ҽ*1Ke\) d ͑"5*5!"=*1!$Ke\) d ͑"9:*5*9J *=*9J 0͗*1! "A!1*1ѧR!Y"E*E!>>҃!&"E!*E#SI"K!!i!*A#SE"G*E#"E[GR!!_i!*A#SE"G*E#"E[GR*I#"I[KRM >!}ͭ:M >!}ͭ:II ''!ѧR"!Ke\) d **KE̓%͙`i͌*!ѧR"Z>HO@gygyo>wБ}o> БwO@gygyoyH}o> Б> *\#6# B> *"+:G K> M%\b'b ZX COMPILER V1.0  1982 THRELFALL and HODGSON "[!͌2Y<2!""">2*"*>!͸!>"͸*S\###"]\>2\R(-̮p:̝O<ʯ̃]̵+̨̊80!M Ͷ͡!Ͷ!:Ͷ*]\~:$S Iͯ*]\#~# }2J{!90){dͦKB#))yx0|g}o(yx{yOxGx¶D|ܶ|G|¶|/g}/o#ɯ=| }l&@R0?jj\jgW< U>?$U*6!7͵! r U>L$>$UB (. (e+(-( 0ڷ:ҷ y n$*[ w*[ 6 !*[ ~ (+(-(0)))_*[~-̶y> $>$$> $>$ U>?$U>$!x$ *w#"[[Rѯɯ>)(P (L+(- #gx !DMͻ2>!i`͸/(*z!EͶz!Y>+(z!ͻ!Rͻz>>!( ( E:00O *]\"]\>}|V#^"l\"I\͗b> $͖͌[͌[R8"[\RK>:(>*l\͸!>ö!6ö> +-:*\*\>ׯ>U>ׯ>2 U"\"\6h!|+s#r#^#V#*#͑B*R#>͖͑ø>*]\#~ ("]\ ( ( :($:> !Ͷ>2͢!ö>DM >2\2\::k\GD>2k\D:[v\c.zRR_PR0#"v\˼DM>*!x\͸>"!v\ø|(>-$Ͷ'ͭ0ͭ0dͭ0 ͭ0ͳͳdͳ ͳͳR>0R8<$˯Z!ö*e\d [\BR)*e\d #6!Kͻ!e\ͻ!) ͻ>!d͸> >!Ͷ!ûͦ>*͸!#"ͻͻ##>>[͸>!R͸>͑͸ͦͼ>#!Sͻͻ>"##͸[͌ͼͩ!sû,*6##[͌>!.Ͷ!k ö!ö| =!öͼg.>ͻ!Ͷ*l\#͖͑>͸<(=($>(((( R7?R7?R7?R7?_.K&Eͻ!"ö!.Ͷ8 ͩ͡!:Ͷ x>2 ~"'ʜ,Y;ʚ>ʇ-ԡR:(! Ͷͦ>"͸j!bͶ^>**]\#~$"("]\q#>͸>͸!ö!6ö>}|ͼͩ!Jö>{}, >>.&͸Ú;ʚ'x!ͶÚ!Ͷ*]\+"]\>}!$Ͷ> $!ͶÚA˯[[*]\#~08:8 A8˯[0˯ &o))K !Z[2 o 7n +n+([!4~ w+[[Ro(w:!Fwͦ >&=~| !ͻ!ö>"ø !~oͻ!&û C"( !ö˯A&o>͸>*!{\͸"> `i !UͶ>&!oø"o&>!͸"!2ö !|ͻ>!ø !5ö||.&¶^>>&h.͸!&û !ö %!%ͼ.K&EͻͶ!Ͷ.`&iû !"r(>!&j͸é>>-((0 A v!öͦ&>*ø>!øN#F #:K\:L\::\2\>M n(:\ 6:\.&8͸_|(ULGö*o>>&͸.}&û>}!"öͩo !w$Ͷ ͩo!#Ͷ>.&͸~>.&͸!.Ͷ8͡rͩoͩo!-#Ͷ*l\#͖͑>͸*| *"*[͌-̶ͻ ( ͩ>ܯ*"!ͻ~͖͑###>!͸>"!øͦ!Ͷ>"͸ ~*| ͑~# ͑"ͼͩ>>!iø!Ͷ>2â>@@\ !-L^RrR^L-! r?sJJsJRRRJJrRRR???(D`h9}xs78|<66????8????JJrRRR??? !-L^RrR^L-! r?sJJsJRRRJJrRRR???(D`h9}xs78|<66????8????JJrRRR???()D`h9}xs78|<44F @SxpD!$@?ǜ?"@$H0 `E@ ?@??D!'@q8"@  ;;0 "`D**UU?????`EwpXD!$@Ϝ?"@pq$H0 ;;`..݀]?????`?????`    0'+G}~$    p"]  ?????`    @@%#D@'    =x"U 00 0?`    @'D?@  #  ;"]`  0x@  @$G!  bA !  7؀"Q 0`  H1   9@   "A !  Ѐ"Q`  @ '  ]?.  @"A!  s 00 0`  @ D  wp}~$;  "A!    `  @  #D  mm$  "A!  ` `` ` $@` `> @` `!!@` ` t>@t` ` @` `!8` `$>` `` `!?88888888888888888888888888888888888888888888888888===88888888888888>>&>88888888888=**=8=======88888>>>>99;;<<==<;;9=*=99======88888>>>>99;;<<==<;;8===8=======88888>>>>8888888888888888888888888888888888888888888888888888888888888888888888888888>>>>>>>>>>>>88888888888888888888>>>>>>>>>>>>8888xx888xx888xx8888zzxxzzyyxxyy8888xx888xx888xx8888zzxxzzyyxxyy8888xx888xx888xx8888xxxx{{xxyyxx8888xx888xx888xx8888xxxx{{xxyyxx8888xx888xx888xx8888||xxxxzz{{xx8888xx888xx888xx8888zzxxxxzz{{xx88888888888888888888xxxxxxxxxxzz88888888888888888888xxxxxxxxxxzz8888<<888<<888<<8888xxyyxx{{xxxx88888888888888888888xxyyxx{{xxxx88888888888888888888yyxxzzxx{{}y88888888888888888888yyxxzzxx{{}y8888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888d