'=========================================================================== ' Subject: YAHTZEE Date: 11-24-96 (04:32) ' Author: Daniel Kalna Code: QB, PDS ' Origin: comp.lang.basic.misc Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"YAHTZEE.ZIP",4^6:Z&=10432:?STRING$(50,177); U"%up()%9%%%.-%PM/RF]]&ZhvFI%%3_%%%0%.%%(f.my)j%jSgfjxfLTS=#BacY4 U"&xIhA)6am/n4Z'5B%ARO;tkQAqE.OC*,0tgXJ_j9nM[FNDBB8Z=/km_#XC?Z*Ek U"Pvk&iA*4O1r;*CBE%rg/1z5iM3333=i]N(TP>nv7S),hK1]lInM-.f<*\Vx(rxgq#4g%fThy U"Jmh_[5(0F,N4V8>36O8u3UFj;X>wOBXkX^DSUoM=f*G[4?tQqK(vl*[MBLobabD U"8A6JI^ho*T6roM8(LhaNtW/GvbI,g1[StAoglPZ]##5s6Hq]t'HcD<&fj,X?e4d U";/WJ,u;n:?ZM.#h?A$PK5Pckl+sO&wU^MF$aFqB(,dY\q$I3whr^\#w4iNbsuFO U"?I5>efGL7;&:P>2l)z&gaL+LiFg)arP)jH8/;xElJ9h3B'4_x*t7W*Gl)mj2RW^ U"\[j(3hu0TNfquPnNhoYhDZrnk*#)\)KN*-M\KOT.G#hG,Ys+Z*d*8K&%f%M\5gu U",xqCP]#OBm_WlL-fKwUu.b\>siuqn)cD\P1?66IY.+-J'>6mAN_0 U"4i?'r4/c\TTU/jHeJkLBd*HcMo<-j';$^['j^ai]v0I**I#U(zhnGoEh; U"MTSWR*8-&8el8N9^sH)[Ym]MiolIJ[[>=n&OMETb,g-Wf#(m(y:-HJF=11.(m*z U"0GOSzGXn77W$G3&=XSn9MY%%O&nSexCjh:-1oNE7EW/*^qzJq$EuE0juNvf[gd& U"I0ez\sMgLSpC%tgO833_/S35_]O:t)*vcxIB.Z&q6IP#6UjWrE6KoQUnNNJ$CJ9 U"Y=jh*D[Dq+q:,0B6g08.6/#w4zh9tT.y3#,GTAtsc;1hYn:bwGN_sR2.pu\D*D% U"t/#I]21b5g9V#B8(M-?Wyj)K<#fhLV)u564XnA%S5A%jJx$/=f\Z?.s*DNSNq>) U"iT^hpv&9CjVo.+DpwM)#AB3qod;ZUuaoq-Nh,3i>7QNn$MridSSe1R+fd7I7s7< U"0F9s%X5kaC)WSsBP'VKi-z-(I+,AN[c[8NOtUHX#kF0vUMbtjE[%lwQTLb$T4U/-1_u+uNFl4 U"#[qbNX4eIID([HTKzb:G+46/ U"GXI_TAAZ])mjuW1?6VoAcZ#R$A1=^6H(4)g U"xJDUBG$#j-l(87fJ$\rnV;)'0[iD2#2el6+D[u%=q\#gzoRrB[j]7i<8-:k7;,z U"Tm7YT)=X1J;Dj.cB95B^UW/\(RmTRWp.4^7w*8^e\-&2]<2NNN0dr$-Wsg5bo(Q U"a\=kJMEx=W_)u*:?]Qgf0NwC)aaX06sj_aY U"L0\79xSN%8Or'8a4($iG3M,WrA5%ZeFuL\2*=_$?o]=b]7Ucftk%x$lRN>A*#;x U"#RZhy)AqA$9nh&0msR)P)QH)aASw#SNu-=5N?-UN)H#494[yp%1n[D)rB-*W=8% U"V1zGt+Sq0ZWaM3RI>Iw+V=/2T<4Zc+u/pdTM.TUF8Ju&[f\4Zr^E?l'78+iF.ah U"(Je9S*U1;?e\Y?65\-9)*Pi#?_fo__:QsiPJ>Mei6G&ticq^>'4-+7v7VQb9B+T U"G6m^WsmxzSWh+7d&R9*W5W)ktDM=wWNOffoa;ODWH./?t#65q]f2L:kZOIU];Ye U"1.I^oZ+YYfT=.k,5a=kgnkB-TN8<)8j8^wiPWDaE+<5Xl8XBn>Sgh+fDnit51i? U"kxHuex^o9_SJJ^i*SLH3f2#rw62%IL[Spe$D1&US:q+>6:'AQ?=GDa^kJ>(Tfw2 U"EU8d?9\Ga#12u4/hSAlpTBpE]VPg%7:H,gV*J.W3pS(-&B-eWgl2]$pIJAOl?O) U"')Pf\]W1'e9EFlFu=I(Z8zid:g#G.MN(G6^NkJCTadF[^R'I,iTzQ/3(^_ZlQ0A U"^zXY%WQu9]WR9*_&74sbGe^#_dL=g1hT?nK39i?QNHa-9Ip>-#t2&$7h_uj.3TH U"zZnWD,glWy?f=%f.BTjbt(MHHwd87M7]FTI40FN7I?w$eN^8/YnRwI13dK;s:.% U"JQv#>OGHBBvk,/G9HCjOJK=Tij4$jE9fOf>IY*'+zw/zPxwIVSTu,g-Q,7l'-_L+9)9>]EHj2THfFB9FFw98\Sxh](L1+N7EEIb3Kesy= U"^WXF(MG_S'A2[WpRBG40*IISA)A$C8nQ)3V[HJy4&lBR=4le/ U"VcUe.0nlNbPB=Efh2V%;%PrCAmo+ZDNqts?2W'h:7n6?=qPnMCRA[m4oJ U"xXF_##[=%DQNw*0+v;V#=DH(VX1kd\yn8;'b>Zm(gtzlPxTief%RtA%bVQSAl3Q U"R(:yL?u%])3Kcb2aNBG9:JqF4M+mg U"hLui4edtY;nK;xAb*?sd&LYX:E,ai]gtW^kzEGs> U"Pq1PlZqQS%h(YI3Bn-L-wgSnY%YBO]]oSm^O.M-i[)+jup\q^?&tKvl7R%vgp50;b7^0J1^El8[C\v#nz\,)K+0d%,a*_rab<1#7tQ_W U"0_awVAXmrm4ER,S#71eC;z,I:/A==\&DX(aNjX6j=6HQ<2[[\] U"9WW;P*N2KlcG#9+=afFm62jxFpN5v(aOyp^_Ypho=)3FLhEX*tapz4Ck(u3Rc4C U"#OkA2gk8f_.h11<3wnMGqErXr_6?r>+#^E/$jeG^1_we11.Audth?*:Q0US=E_ U"f+b&Gw5mnI>\e:mQ(_3\NP3EA05KXHum6CfS?;btVUjX#mx?0wA#*A?qqn'wTML U"WMp(oGF*1ifqwADh[t6B1erKCg_&qL&Nm_'b'a>NE;/mL?/3)#CH*4lM)JT9gee U"E=XjiyZl_.?LkShP08IcsCVB;2$'bCcCap#S/=ntrlON4(DP2d)\)\ROD1^FDsY U"SVXE^hsh^P,VHXG U"\0pFt2;-'Jit;-QTKWf0?jaVGnPp06T4p]r5dQ-K U",VaL-mA+r90$Q%-)c_WSx/NLcHQRrMTtMctHbjiqk+;duE87QgRO,t%i?V5Y+h, U"uE8qFgRQt1Q\pyWldI>2N^(Y6kmlx*EG9hV;dqT\R=j2,0fiMS23*-IjjLkZ8bS1ie[a U"E\iMD?_B^QTU?l/_SwZn/qTnCI>k(UerO]c1O+.U88kSjRS$=^6*z3VauQWUS^+ U"\lU_d9Y?;)Yi3i_Nuiq4>PSZV0/:d.q+)YE#Us(VndLl=+OUm^:/(Y2JB]]_I(# U"[F-38&i[%+4kWGSXjiK?DauE[xsYdgy*x88W.j),X#mg+vKf4^Ha-RJ=*D/'HFB U"5e&,paVHmS%AhXj-j=7LOHOq$G6+>xcUVm/J]]kF7^w^U-4%Ndr6muM;)AB_(W2 U",JTI6C%0_Lz.x;jP0mOteXI,L-q;STJ6C?W2BpEuGkiLu,i/ U"](cFOc_hd.i:nzQDH*iUv%G6S$ROoLs*R1KDbbJ6.nI$;6PZ<,dHL#_MX(RRz U"q[-*S.&dp5_csqB_0:D*IstF\E/R.H,(=iRjSe^^)BSE9EW:^6Cxe\6iLTBQmK2 U")'-(6$A\:XROPX6CC9r;7-uoy+H>mm3uAqBYK,lUOYEYmM/f]bHoA&mzG[M(=1Z8bwLLp) U"f4,RPP&l]r6Q^RnsSE+Lh*Q^8lM2$4BHJh-s1deN%,gMHKFWT/$3dYR74Ujv<_b U"H1C3XR;^(2NSa&/?DZh3Z+dZE]76F#hI/+l0cnG5JBYhIYp$_Jm(6;BdOau:__m U"bG1G(N+W-3JR)Wn=Eg^M3]'?xobI]gfk*b8P#KluXi.5quFPKmKn.4H7Kk(c_/n U"cK$%7xf6]V)dj4H73f$33iE(u'IN)r#3QkoBDE<^qtL_msH' U"WUs<.x#cD/8N_<&B7G:zy&BKCGF2+Mvjb\TLZ U"lhK>no^fh8nSG&rS=F6j)S,-Spgq6\2V^0W$M,bc>qQqTk#gN6:HA>?U_;7>_pj U"wNhKRgXyoI:ftQsn:u)sbFANZ$8Om]rRhFN1VaRvT$v$C\(?_reK(>8VuHY6(x= U"ti7,+RP6CbQ$uBEh$%FWAFOK,/g/m+pIP>N:(Ivqr?KQ;8P_D:7dUMg%V);vn0=V;>G U"3U4v&mH'<67*bMq&*-6V1'm]BM\mS;y=ryeJ)=CiWzlIQLhAfF^:$DV7C?h?=qE U"W[iFcuI=4FNoBJ;u*ru)mY*(=XrsCh>g)2U U";AK4Euy?<_1=RRg85dd)cI:=VV)r1s(q,or:YeK&T,((xIdn*c;5^l-t*mmMs1A U"Kp5t,=4/%]l/'jEdFaY\]aN-Z1W3WAQX>$S0Hm]j9IQmLG6+d0eQ:QDOo6Z2%2$ U"^PP$4vin+=_17fXicK2&_JeOKP#oTIL*bikWI%:duE+D%H0:s&KENqpG:o8YM#\ U"l&zT9I/1J4x0Cjrf>vJXQTdB%4LIXu?ub.DK%Ffa#G4sP64\bMRC3lei$gC\B,w U"]-U^P:V,CYEjln\3HWa[CkrJ8)l.aUVe7ZC&rJ=akl[h2?jIJQs7(=PCt4w,Fh= U"bA^Oz%3N2xKYPE2qCLd]#\*YGW0$Uk_Yuci U"-hIBBVhH5Jv#$W(duu4d_PoV^gtmsfWL&A>rcH_AJktk;Z=&n*^Y>^iw20SlnM) U"^JIHKd[aZsAwhhu8xw8YB7x-+nt].ib.2/5A8NGOxtC:8OT,rjbthGbAEeEWRtg?62[N8x8%gkm-5 U"(Qw:3-C3]e2=:izS?fB=%\8gT[*LDx/TOkAfkp1vj&1PL(dD83*Sc(SLDEh2VtV U"PiV[+blUcHwXbJ/<$)Yx:1gt8-j2K]Is]p,TpS4\u-LS>f3our_.rjP)mt+]>6^ U"*s1rJaCuVdR#v'7v8f3OSIhG,j,Syj6p:%qsbi5YTS+YY&a'v762;nXL\?:YbG+Ojbkts]T U"S?HMPVHShYje:wC7qBrhky=c1O(8bqr[PO(8C2b^j&?TbdIZ%5vaExP1)Eq\:?t U"I4ZTUot&Sv9*b)RPVp7b)XgJ_1dkweRe%nD4jq>oa>q&]kLX]$,G>GvuZ;DJ3CQ U"MliSaJXF;e[1JNpc,Xnc^]#bYa#81*'pkD/:)o2mFV8B$sew6nS4'at&wG3KJy) U"p:-611o+fm;zse/5_/rwe)oe+THyBx#;nYf2.q440;%p.nMl/bCNf^v\q->HaQ? U"XC6i%1a9,1HSu?,CiP)>GE:>-4=r(d>DpFod>49S4J]dJrK#NjQ8Db=N1:nrmpd U"6p)^T)9*s_(kw=DaE>sC6bCo6qWau%N8$:,I3PQ:^SI(3W U"?Fr?YLHM>v+8F+uP8BX%#(qXlam?9bK=;=[g5Xa04QJ5J_Irh2%yaLT5gIpek,6 U"4)H1kw_q_G(^)aS,g;lbgp,A1LL4ThoRYTO%o:m+Cwl7WR7n8L5Mmo7[^7HK?Gq U"xK/mCy+I%,fq/wUfMwqP%(_k/np]'7bZIO[D_Fmo7Mf_da^OiFWR#B)mC5jd+>U U"lJVMTLMc>JhDNmT>R#-l%HsxlaZIPIs3I&:JYp(Na;q7DY2n_vg$-*iMF[ngq&M U"CvZ'+OWR;#4hxHx.r#Sd2Teo?$3=YlJ.t(&cJ\'Dxz[J\Gq5qzgap+yR7z?w+sL U"lUE>r5TijQ2&,hNn*?Pake=c:_FpbVfX*468,iSU\Yn#4;_%TlgK<9>5sF,m_j5 U"FbIsV8:Of3i&djwV8 U"K:Y(h-VHQ.4av&lvnIwX-:k*5S$IYQq1+;c85,D,O\-T(ZN4kpV(JKG7Nc$lEV$?f$ U"Ya+r8vg6r8SL$sHcmDq,7uZK<4nQ9lVbP8ukk3+yYR?)Y,^ZeTtjEl72z- U"DMGj41K6EX$ucrD7bhY$]14bCOza/*UUKsJiV?w]68)c U"$RU#kqUbh#R2LR*d/v>o_9<'EZrjt2_&1C(8]KM7F;aJe8bHHN/d07oirV6idFa U"R9KvUBL;(^kuhDSLD/^BYH,X^mk#;.tn/dHh^Om]')1^idjmHLOC-*eAQOaD%]Q U"NC1$:x=^oPr:V(oX46iI1tpx&,\tHV<#Cb<%9EOBF;Q\d#CXRE1-bGL7CEvaBI9Mu&Hi U"jLGX/s6m]9?q6t3k9K3;^biI+kQ27cjXqJ/RuX_W3P)%+z5v4g9EG7o7)^_Bh?b U"[it7g8s?.])adj/B5t.]tdLw(c^$IxOZHKl-sYj2#g.*4_CL>]Y5_Aa\*fkV>L'l)cV]U]lht_)I=a#hie>Xoi1>0l1i$d U")b[_^J366Xrl)X7r>>BZ5svfT)?6WE#\RK(]8N$gE9ciP0k>9kP*>H>gh))G_$g2#PFh;_;sPf91h%VMP+n U"([qd^^HZrfd*H.?qd[F7xHU_5&4:%cWlf0t&KD3S?Xuj$>Kp(oc_muHwmq+NNDF U"V?+%.ro5RB9MZ*:FH]ObMd]J?Vp8A:OrVlQQGGlM<)<[vXn*#rn3#GDOB[[)Yc3 U":v3;qZesFI%0/eHl2J5epKYPq-KR==6w)^fiZ5sf0]xX>UhKGwegWcss U"'x&up%()9%%%%-%/dw'Fs]Fu7&R&%%%]G%%%-%%%%inhj%SifyoOdp\lT2,,, U":7b,Y#=lAI%?qb7V$KC\Wl>,DPe-bjVDmVLhE9$9FUR-gq(]A25g;ACp3;g^*5& U"R\[N#/NA5g;R);A99\QE/],7S$_&*iXafcceKJ;/3HOQ*0XU>+cNG#A1GqUV.ZA][F6KH U"MZ6f(gD0SB0GeM34U;3L=Eh0U$;3*A#t#=06+5(I;z\,[o8cw5:SVJ$fT$J&tlf U"pek*86p9J$T$ft_lVFl-60f+X_p#&Rkg0e)/4,voHqn%%eviMiSBpW?n%=[G$R/ U"5igqWlz&Z]XZbtKD^i*D;780K+Zlr&HOV6:K*aAMH6J6fXk6tabtCguRWRWuRWR U"WZR8bRoEcAe;Rdfvq4Mp-slWRd-eeTu%p()9%%%%-F%UMR(FBTk5K=\YxUD><&hH.VIw9lyrPU6i/Ei%qDI8f:27 U"m4_W+ip0ir-nV$oSEw8UR5Eb=hFEE_D=HdNQ8uCD:*KxlLB#AElo_VrOQ6DOS.'CV\&FsImlL_E$qI6\RX=>CS6W:C64Iif>8FQbDS+?UKxD>&9c:KHaR5R*n75ZMK]_NSuUjm/MEWY#0my U"B[6-$k2w8Fne0'?IQUGXjOTbK[OEdofer%24M,NyB%;b(M]io(*>QuIN9\;dZeV U"8X:a:&$0L>z0.Rl,FzPKBN$v<8:f_a^^VoGJDZ) U"LdFqdmwYcC5WWZ/Mr[E)B+Nl>\9FD?]6Xo8G4ThBfxv_:GjKHV^.KTdu4>nbur[ U"pcMKMv3_9#4eY2AD'\z1F\uawu\db?Y-S*AMgp;tjx*BQWZ*MrKv##=p^%NDNeJte\h9b U"?IwMR4pW\Y]5\/9z?'WMV8H3,EP>-RX^o88#x=Qr&%%%/%% U"%%wj%firj.Sy'y8ZqEM&xorz=uIit[SvU-o-YL]f^w?E9DTBm%Rw-M=rCBqq%?B U"H=rEEx7mtEr.zmyyn?nEDaqFvi=sEBp7)Ooy7msEx%mozM[orqG%mrvmaQ*wiam U"FnF*D?MR7nQCnBP(wIexNt58+e^c?rrR/,8rj/*2d/58*e_;mPI$$55_tPs9$$$ END SUB SUB V2 U":Nc]P(%49WBlowZBkwpCI97BA49KYw1xDO+49$f;^Jv'N)vOyIN$cus,uaNMp%4 U"9_C,tKu)ODl__ISi263cTiJSMs43_sQRHFE(aE2XJhCe*7bBkppO.oXZ:F7lw_p U"Br#D%*%up%&'9%%9%%%.-%PM/RF]]&ZhvFI%%3_%%%0%%%%%%%%%&%%E%%%%%%% U"%&(fmy&)jjS%gfxu%p&'9%%9%%#%-%d(w'F]ZFu7R%&%%]%G%%-%%%%%%%%%%%% U"E%%(%IF%%%inh%jSif%yup&%'9%9%%%%-F%UMR(F&%%% U"/%%%%%%%%%&%%E%%%'%K%%%wjfi%rjSy&'yup%*+%%%%%)%7)%Y%7%%CL%%%%% END SUB V2 CLOSE:IF S=73AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad! SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32 IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1 S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB