10  y /x=1168:"a"+(x-1),a(x):x 5:5: 2,2;" " (11 ,4;" AUTOMATA U.K. LTD. 1983";12 ,8;"by P.B. Software";14,15;"";15,14;" ";16,13 ;"";17,12 ;"";18,14;"";19,15;"" - 5 20,0;:"" K!4|4q@@ ?jHC@.@0 ?@pzd444ddaL;9 b0B<xx<>~~|<82 of 10 9l99!a$(4,8):6000p tctc=0:s(4):z(6):b(13 ,4):c(13 ,4):e(13 ,4):a(13 ,4):d(5):1:m=0:td=0:tc=0:ar=21:1:0:4:4::2300:10   10 !f=315:5+inp *0;6;f,11 ;" ":f: ,0;6;f,11 ;" ":f: .0;6;f,11 ;" ":f: 00;6;f,11 ;" ":f: 3:3,1;" 3 X 1 = ";4,1;" 3 X 2 =";5,1;" 3 X 3 =";6,1;" 3 X 4 =";7,1;" 3 X 5 =";8,1;" 3 X 6 =" 10 ,2;"3 SAME";11 ,2;"4 SAME";12 ,2;"F.HOUSE";13 ,2;"CHANCE";14,2;"RUN";15,2;"YAKZEE!"  16 jX=112p:F=1INP:X,152:0,-104h:X=X+16:F:Y=4801528:X-24-(16*INP),Y:8+INP*16,0:Y:x-32 ,480:15,0:0,-8:-15,0:0,8:X-24-(16*INP),152:0,-104h:96`,152:0,-104h: 80P:92\ .5,40( 60<:z$="0"19 R:tc=tc+1:1;5;21,31;tc;19,19;" ";  546 "tc=3tc=0:99c %20:ar,24;0;">" l="7"ar20.1}L,20:ar,24;" ":ar=ar-4:ar=17ar=18:32 m="6"ar210.1}L,20:ar,24;" ":ar=ar+4:ar=22ar=21:32 h="0"ar<21(ar,26)=96`0.1}L,30:7:35#:0:34" E="8"ar=180.1}L,30:7:5300:0 <="5"ar=180.1}L,30:0:5300 :="0"ar<210.1}L,30:0:35# !="0"ar=2119 " 25 #"y=ar:70F:f=yy:64@: 0 19 1 2f=yy:0:y-1,26;" ";y,26;" ";y+1,26;" ":64@:r=(*6+1):d(dd)=r:.03{u\,(r*7)+4:9000(#:r=1r=3r=59001)# 3ff=1̺(r/2)+1:a,b,c,d:208+a,yy+b:524:208+c,yy+d:524:f: 4Q0:1,0:0,-1:-1,0:0,1: 6pdd=0:y=2184:dd=dd+1:(y,26)=96`70F:502:y:568 7y: 8Cv=2184:(v,26)96`v:tc=3 9ptd=d(1)+d(2)+d(3)+d(4)+d(5):W=25:D(1)=D(W)W:5130  :150,24:20,0:0,-10 :-20,0:0,10 :19,19;1;5;td:td<10 19,19;1;5;" ";td ; <z$=:z$=""60< = @(ar<211;ar,27;" " AY208,f:20,0:0,-20:-20,0:0,20: Fy=2yy=166 Gy=6yy=134 Hy=10 yy=102f Iy=14yy=70F Jy=18yy=38& K P Q'm=m+1:m=pla+1m=1 R[1,8;6;0;a$(m):5:16,10 +(inp*2);" " STf=0inp*2:1;1;5;9 ,11 +f;32 :f Te15:td=0:19,19;5;" ":17,1;2;1;" " VBd=1inp:l=113 :9200#+(m*10 ):l:d X30;2;7;17,2;s(m) [ \e8,41):1:40(,0:0,-10 :-40(,0:0,10 ^0:n=121:n,26;" ";:n:f=16620-32 :64@:f:21,26;5;1;"ROLL 1" `150,24:20,0:0,-10 :-20,0:0,10 :19,19;1;5;td b c d[f=15:21-f,24;"<";22-f,24;" ":.1}L,9 :f f}f=112 -(inp*2):1;16,24-f;"<";16,25-f;0;" ":.01z# =,0:f g 3 n ogs=0:f=16:z(f)=0:f:xx=11 :sd=0:c1=0:c2=0:c3=0:c4=0:c5=0:c6=0 sgf=15:d(f)=1c1=c1+1:z(1)=z(1)+1:c1>2sd=1 tf xgf=15:d(f)=2c2=c2+1:z(2)=z(2)+1:c2>2sd=2 yf }gf=15:d(f)=3c3=c3+1:z(3)=z(3)+1:c3>2sd=3 ~f gf=15:d(f)=4c4=c4+1:z(4)=z(4)+1:c4>2sd=4 f gf=15:d(f)=5c5=c5+1:z(5)=z(5)+1:c5>2sd=5 f gf=15:d(f)=6c6=c6+1:z(6)=z(6)+1:c6>2sd=6 f Nc1=5c2=5c3=5c4=5c5=5c6=5220 Nc1=4c2=4c3=4c4=4c5=4c6=4221 Zsd>0c1=2c2=2c3=2c4=2c5=2c6=2222 Nc1=3c2=3c3=3c4=3c5=3c6=3223 gtd=15td=20c1<2c2<2c3<2c4<2c5<2c6<2224 isser Cyy=13 :212:(13 ,11 )=120x226 f=151-1:1;1;2;16,10 +(inp*2);" ":.05|L,f-10 :.03{u\,f-20:f:.5,-40( "0"184 Zf=1inp:n=113 :(n+2,11 +(f*2))=480188 n:f `r=(*13 )+3:(r,11 +(f*2))=4805000:190+(m-1) 188 s1;2;1;0;r,10 +(f*2);" ":a(r-2,f)=.5:yy=16:400 s1;2;1;0;r,10 +(f*2);" ":b(r-2,f)=.5:yy=16:400 s1;2;1;0;r,10 +(f*2);" ":c(r-2,f)=.5:yy=16:400 s1;2;1;0;r,10 +(f*2);" ":e(r-2,f)=.5:yy=16:400 31:0:21,15;" "  220 ?(yy,xx+(inp*2))=4807;1;yy,xx;" "  yy=15:212 #yy=11 :212:223 yy=12 :212 =yy=10 :212:yy=2+sd:212:225 yy=14:212 yy=13 :212 91;7;16,10 +(inp*2);" " 8f=315:(f,11 )=120x229 f:183 yy=16 ="7"250 ="6"260 ="0"269  230 yy=3260 .01z# =,0:yy,12 +(inp*2);" ":96`+(inp*16),152:0,-104h:yy=yy-1:1;yy,12 +(inp*2);"<":(yy,11 )120x250  yy>15 .01z# =,0:yy,12 +(inp*2);" ":96`+(inp*16),152:0,-104h:yy=yy+1:1;yy,12 +(inp*2);"<":(yy,11 )120x260   yy=16230 yy<9 gs=sd*z(sd) ,yy=13 yy=10 yy=11 gs=td yy=12 gs=25 yy=14gs=40( yy=16gs=.5 yy15279 tf=1inp:(15,11 +(2*f))=480gs=502+(15*(f-1)):284:279 f:279 2s(m)=s(m)+gs:5100:270+(10 *m) 3f=1inp:a(yy-2,f)=0282 f p1;4;0;yy,(f*2)+10 +1*(gs<10 );(gs):a(yy-2,f)=gs:400 Jg=1inp:(15,11 +(2*g))=80Pgs=gs-15 g: "3f=1inp:b(yy-2,f)=0292$ #f $n1;4;0;yy,(f*2)+10 +1*(gs<10 );gs:b(yy-2,f)=gs:400 ,3f=1inp:c(yy-2,f)=0302. -f .n1;4;0;yy,(f*2)+10 +1*(gs<10 );gs:c(yy-2,f)=gs:400 63f=1inp:e(yy-2,f)=03128 7f 8n1;4;0;yy,(f*2)+10 +1*(gs<10 );gs:e(yy-2,f)=gs:400  5(9 ,(f*2)+10 )=96`410 b=0:402+m Qn=16:b=b+a(n,f):n:a(7,f)=35#*(b>62>):409 Qn=16:b=b+b(n,f):n:b(7,f)=35#*(b>62>):409 Qn=16:b=b+c(n,f):n:c(7,f)=35#*(b>62>):409 Qn=16:b=b+e(n,f):n:e(7,f)=35#*(b>62>):409 vb>62>5120:s(m)=s(m)+35#:1;1;4;0;9 ,10 +(f*2);"35" 4;0;2;7;17,2;s(m) 1:20:f=12 +(inp*2)23:.01z# =,33!-f:yy,f;" ";yy,f+1;">":f:15:3:f=yy20:.01z# =,20-f:f,24;" ";f+1,24;">":f MPLA2010 Fe=315:(e,11 +(inp*2))=4802010 e  21004 20:100d:pla=119,19;5;" ":f=315:6;0;1;f,11 ;" ":f:9 ,11 ;1;5;" ":1;4;16,10 +(2*inp);" ":94^:.5,40(:19  16 41:1:5: >0,8;1;1;7;"  YAKZEE!  ":f=14:f*3,6;a$(f);" Scored ";s(f):f @ 2200 C\16,0;7;" PRESS '0' TO REVIEW ",,,,," PRESS '1' FOR NEW GAME" H="0"4:4:0::80P:19,19;4;" ";20,0;"Press '1' New game or '0' Review" M="1"2140\ N 2120H \ ]a5,2;" DO YOU WISH TO INPUT"," NEW NAMES etc";7,14;"(Y/N)" ^="y"Ŧ="Y"1 `="n"Ŧ="N"2 b 2142^ f 1: Zs(1)>s(2)s(1)>s(3)s(1)>s(4)f=3:2250 Zs(2)>s(1)s(2)>s(3)s(2)>s(4)f=6:2250 Zs(3)>s(1)s(3)>s(2)s(3)>s(4)f=9 :2250 [s(4)>s(1)s(4)>s(2)s(4)>s(3)f=12 :2250  J1;2;7;1;f,5;" "  ,f=23232Z23296[:f,96`:f: ,5400:k=16:a,b:a,b:k  10  fGS>19K=13:N=18:.008zn,N+40(:.009ztj,N*8:N:K  O=13:B=09 :9 ,4;1;ں(B/3)+1;9 ;"BONUS":.02{# =,B*4:B:O:B=9 0-1:.02{# =,B*4:B /1:502:9 ,4;" ":  [f=04:W=07:W:.01z# =,(M*4)+(W*2):W:f:4   1y=2184:ar=y:35#:y: v.01z# =,-14,.01z# =,-14,.01z# =,-14,.01z# =,-14,.73333,-14,1,-20 p&0:5:1:1: z>1,12 ;"YAKZEE!"''"  Automata U.K. Ltd. 1983." I7,0;" NUMBER OF PLAYERS"," UP TO FOUR CAN PLAY" ?P$=:P$<"1"P$>"4"l=(*40():.01z# =,l:6025  PLA=P$:8,27;PLA 1:502 D14,0;" NUMBER OF ROUNDS"," UP TO FOUR" ?P$=:P$<"1"P$>"4"l=(*40():.01z# =,l:6040 !INP=P$:15,27;INP 1:200: !4,10 ;"DO YOU WISH" A5,6;"TO ENTER YOUR NAME (Y/N)" 6,13 ;"(Y/N)" ="N"Ŧ="n"6080 ="Y"Ŧ="y"6070  6065 23658j\,8 KF=1PLA:g$=(f+480):8+(f*2),5;"PLAYER ";F 7"Maximum 8 letters. ";a$(f):h$=a$(f):n=1̱h$ Fh$(nn)<91[h$(nn)>64@H$(NN)=32 N:6077 1,-40(:6072 &a$(f)=" "a$(f)="PLAYER "+g$ =8+(f*2),16;a$(f):f:23658j\,0 1:(502*f): <f=14:g$=(f+480):a$(f)="PLAYER "+g$:f  S60<:z$="0"19 T60<:z$="0"19 #' #(5,-5,15,-15,5,-5,15,-15,15,-5,5,-15,15,-10 ,5,-10 #)o10 ,-10 ,10 ,-10 ,15,-5,5,-15,5,-5,15,-15 #PRINT SCORES from 86 #a(l,d)=0 #Ua(l,d)>9 1;4;0;l+2,(d*2)+10 ;a(l,d): #a(l,d)=.59250"$: #I1;4;0;l+2,(d*2)+10 ;" ";a(l,d): $ $b(l,d)=0 $Ub(l,d)>9 1;4;0;l+2,(d*2)+10 ;b(l,d): $b(l,d)=.59250"$: $ I1;4;0;l+2,(d*2)+10 ;" ";b(l,d): $  $c(l,d)=0 $Uc(l,d)>9 1;4;0;l+2,(d*2)+10 ;c(l,d): $c(l,d)=.59250"$: $I1;4;0;l+2,(d*2)+10 ;" ";c(l,d): $ $e(l,d)=0 $Ue(l,d)>9 1;4;0;l+2,(d*2)+10 ;e(l,d): $e(l,d)=.59250"$: $I1;4;0;l+2,(d*2)+10 ;" ";e(l,d): $! $"C1;2;1;l+2,(d*2)+10 ;" ": 3