5H£| uv>F >þÿÿ~ ¬Nw¬:É  Œ F4(8,8):®(1000) + Š J=0 ™ 8 :F4$(J,1)="-":F4$(J,2)="-":‹ J d P=63488+65*16:¡ pcg addres n& Š A=P ™ P+16*5-1:¡ putting in chars x “ B : Ÿ A,B ‚ ‹ A Œ* ” 0,0,0,60,60,60,0,0,0,0,60,60,60,0,0,0 –( ” 0,0,0,0,0,0,60,60,60,60,0,0,0,0,0,0  ' ” 0,0,0,60,60,60,0,0,0,0,0,0,0,0,0,0 ª' ” 0,0,0,0,0,0,0,0,0,0,60,60,60,0,0,0 ´$ ” 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ¾K Q1$=" ":Q2$=" ":Q3$=" ":Q4$=" ":Q5$=" ":Q6$=" ":Q7$=" ":T1$=" " ÈH R1$=" ":R2$=" ":R3$=" ":R4$=" ":R5$=" ":R6$=" ":R7$=" ":T2$="" Ò U=0:V=0:T=0:K1$="":F1=0 Ü" ·:–"What is your name ? ";N1$ @ ’ 15000 A „ V>12 ‰ 2000 J ’ 8010 ^6 ƒ:–"Which dice do you wish to keep. eg ACD ? "K1$ h* O=¼(Ï(K1$)):„ O>0 ³ O<14 ‰ S=O: 1005 |* A1=Í(A):B1=Í(B):C1=Í(C):D1=Í(D):E1=Í(E) † ’ 15000 ‡ „ V=13 ‰ 2000 š ’ 12000 Ì ’ 8010 Ñ „ T=3 ‰ 1000 : 350 Ô. ƒ "That number is allocated. Try again.. " Þ V=V-1 è4 ƒ:–"What number do you want this stored in ? ";S í' T=0:K1$="":K=0:L=0:M=0:N=0:P=0:V=V+1 ò „ S=1 ³ Q1$>" " ‰ 980 ü „ S=2 ³ Q2$>" " ‰ 980  „ S=3 ³ Q3$>" " ‰ 980  „ S=4 ³ Q4$>" " ‰ 980  „ S=5 ³ Q5$>" " ‰ 980 $ „ S=6 ³ Q6$>" " ‰ 980 . „ S=7 ³ R1$>" " ‰ 980 8 „ S=8 ³ R2$>" " ‰ 980 B „ S=9 ³ R3$>" " ‰ 980 L „ S=10 ³ R4$>" " ‰ 980 V „ S=11 ³ R5$>" " ‰ 980 ` „ S=12 ³ R6$>" " ‰ 980 j „ S=13 ³ R7$="0" ‰ 980 t „ S>6 ‰ 1300 ~ Y=0:„ A = S ‰ Y=Y+1 ˆ „ B = S ‰ Y=Y+1 ’ „ C = S ‰ Y=Y+1 œ „ D = S ‰ Y=Y+1 ¦ „ E = S ‰ Y=Y+1 ° Y = Y * S º „ S=1 ‰ Q1$ =Ý(Y) Ä „ S=2 ‰ Q2$=Ý(Y) Î „ S=3 ‰ Q3$=Ý(Y) Ø „ S=4 ‰ Q4$=Ý(Y) â „ S=5 ‰ Q5$=Ý(Y) ì „ S=6 ‰ Q6$=Ý(Y) ñ T1$=Ý(¼(Ï(T1$)) + Y) ó T2$=Ý(¼(Ï(T2$)) + Y) ö Y=0 ù „ U>0 ‰ 1290 ûO „ ¼(Ï(T1$))>62 ‰ Q7$=Ý(35):T1$=Ý(¼(Ï(T1$)) + 35):U=U+1:T2$=Ý(¼(Ï(T2$))+35)   320  „ S <> 13 ‰ 1350 O „ A=B ³ B=C ³ C=D ³ D=E ‰ R7$=Ý(¼(Ï(R7$)) + 50) ˆ „ F1=1 ‰ 980 ˆ R7$="0" # „ F1=1 ‰ V=V-1 % „ R7$="0" ‰ 1330 ( T2$=Ý(¼(Ï(T2$)) + 50):F1=1 2 320 F „ S <> 12 ‰ 1400 P R6$=Ý(A+B+C+D+E) Z T2$=Ý(¼(Ï(T2$)) +A+B+C+D+E) d 320 x „ S <> 11 ‰ 1500 ‚3 „ A=B´A=C´A=D´A=E´B=C´B=D´B=E´C=D´C=E´D=E ‰ 1480 Œ& „ A=1´B=1´C=1´D=1´E=1 ‰ 1425 ˆ 1430 ‘ „ A=6´B=6´C=6´D=6´E=6 ‰ 1480 – R5$="40"   T2$=Ý(¼(Ï(T2$)) + 40) ª 1490 È R5$="0" Ò 320 Ü G=0:H=0:Z=0:W=0:Z1=0 á „ A=B ‰ G=2 ˆ G=1:H=1 æ, „ C=A ‰ G=G+1 ˆ „ C=B ‰ H=H+1 ˆ Z=1 ð? „ D=A ‰ G=G+1 ˆ „ D=B ‰ H=H+1 ˆ „ D=C ‰ Z=Z+1 ˆ Z1=1 úK „ E=A ‰ G=G+1 ˆ „ E=B ‰ H=H+1 ˆ „ E=C ‰ Z=Z+1 ˆ „ E=D ‰ Z1=Z1+1  „ S<>7 ‰ 1600  R1$="0" "D „ G>2 ´ H>2 ´ Z>2 ‰ R1$=Ý(A+B+C+D+E):T2$=Ý(¼(Ï(T2$))+A+B+C+D+E) , 320 @ „ S<>8 ‰ 1650 J R2$="0" T> „ G>3 ´ H>3 ‰ R2$=Ý(A+B+C+D+E):T2$=Ý(¼(Ï(T2$))+A+B+C+D+E) ^ 320 r „ S<>9 ‰ 1700 | R3$="0" †" „ G=3 ´ H=3 ´ Z=3 ‰ 1675 ˆ 1680 ‹< „ G=2 ´ H=2 ´ Z=2 ´ Z1=2 ‰ R3$="25":T2$=Ý(¼(Ï(T2$))+25)  320 ¤ „ S<> 10 ‰ 1900 ® R4$="0" ¸ Y1$=Ý(A)+Ý(B)+Ý(C)+Ý(D)+Ý(E)  Q=Á (Y1$,"3"):„ Q=0 ‰ 1850 Ì Q=Á (Y1$,"4"):„ Q=0 ‰ 1850 Ö Q=Á (Y1$,"5"):„ Q=0 ‰ 1800 à Q=Á (Y1$,"6"):„ Q=0 ‰ 1810 ê R4$="30" ô T2$=Ý(¼(Ï(T2$))+30) þ 1850  Q=Á (Y1$,"1"):„ Q=0 ‰ 1850  Q=Á (Y1$,"2"):„ Q=0 ‰ 1850  R4$="30" & T2$=Ý(¼(Ï(T2$))+30) : 320 l- ƒ"A NUMBER BETWEEN 1 AND 13 PLEASE.": 990 Ð ¡ PRINT TOTAL & SCORE CARD ä% ƒ:ƒ N1$;" REACHED A TOTAL OF ";T2$ å& ƒ:ƒ"PRESS ANY KEY TO CONTINUE....." æ Z4$=Þ:„ Z4$=""‰ 2022 è ’ 20000 î) ƒ:ƒ "DO YOU WISH TO PLAY AGAIN (Y/N)" ø Z4$=Þ:„ Z4$=""‰ 2040 ! „ Z4$="N" ´ Z4$="n" ‰ ‘ ˆ 190 p ‘ @ ¡ SUB FOR DICE J T=T+1:ƒ:ƒ"Throw number ";T T8 ƒ" A B C D E" ^ Š F=1 ™ 5 h ƒ" "; j X=¼(Ì*6)+1 k „ F=1 ³ K>0 ‰ X=¼(A1) l „ F=2 ³ L>0 ‰ X=¼(B1) m „ F=3 ³ M>0 ‰ X=¼(C1) n „ F=4 ³ N>0 ‰ X=¼(D1) o „ F=5 ³ P>0 ‰ X=¼(E1) r ’ 10000 | „ F=1 ‰ A=X † „ F=2 ‰ B=X  „ F=3 ‰ C=X š „ F=4 ‰ D=X ¤ „ F=5 ‰ E=X ® ƒ" "; ¸ ‹ F ½ ƒ  • '& ¡ subroutine to print a random dice '$. °: X 10030,10040,10050,10060,10070,10080 '. ƒ"EBE";: 10090 '8 ƒ "EAE";: 10090 'B ƒ "CBD";: 10090 'L ƒ "AEA";: 10090 'V ƒ "ABA";: 10090 '` ƒ "AAA";: 10090 'j ª:• .à! K=Á(K1$,"A"):„K=0:K=Á(K1$,"a") .ê! L=Á(K1$,"B"):„L=0:L=Á(K1$,"b") .ô! M=Á(K1$,"C"):„M=0:M=Á(K1$,"c") .þ! N=Á(K1$,"D"):„N=0:N=Á(K1$,"d") /! P=Á(K1$,"E"):„P=0:P=Á(K1$,"e") / • :˜" ¡ subroutine to print scorecard :¢ · :¬ ƒ ›(17) N1$;"'s scorecard" :Ô[ ƒ"1 = aces ";:°:ƒ"EBE";:ª:ƒ ›(20-À(Q1$));Q1$;›(41);"7 = 3 of a kind";›(63-À(R1$));R1$ :Þ[ ƒ"2 = twos ";:°:ƒ"EAE";:ª:ƒ ›(20-À(Q2$));Q2$;›(41);"8 = 4 of a kind";›(63-À(R2$));R2$ :èZ ƒ"3 = threes ";:°:ƒ"CBD";:ª:ƒ ›(20-À(Q3$));Q3$;›(41);"9 = full house";›(63-À(R3$));R3$ :ò\ ƒ"4 = fours ";:°:ƒ"AEA";:ª:ƒ ›(20-À(Q4$));Q4$;›(40);"10 = sm straight";›(63-À(R4$));R4$ :ü\ ƒ"5 = fives ";:°:ƒ"ABA";:ª:ƒ ›(20-À(Q5$));Q5$;›(40);"11 = lg straight";›(63-À(R5$));R5$ ;W ƒ"6 = sixes ";:°:ƒ"AAA";:ª:ƒ ›(20-À(Q6$));Q6$;›(40);"12 = CHANCE";›(63-À(R6$));R6$ ;I ƒ"BONUS IF>62 ";›(21-À(Q7$));Q7$;›(40);"13 = YAHTZEE";›(63-À(R7$));R7$ ;I ƒ"SUB-TOTAL = ";›(20-À(T1$));T1$;›(40);"GRAND TOTAL=";›(63-À(T2$));T2$ ; • N + ¡ array for score of best out of eight N* Š J=7 ™ 0 š -1 N/ I=J N4* „ ¼(Ï(T2$))>¼(Ï(F4$(J,1))) ‰ ‹* J 20040 N> ‹ J NC 20080 NH Š O=0 ™ I NR* F4$(O,1)=F4$(O+1,1):F4$(O,2)=F4$(O+1,2) N\ ‹ O Nf F4$(I,1)=T2$:F4$(I,2)=N1$ Np · Nz ƒ\\:G7=0 N„ Š J=7 ™ 0 š -1 N‰ G7=G7+1 NŽ+ ƒ ›(15);G7;›(20);F4$(J,2);›(45);F4$(J,1) N˜ ‹ J N¢ • ÿÿYAHTZE€ 5260 ‚+ ƒ "HOW DO YOU AFFORD ALL THE TALLY HO'S" Œ. ƒ "DO YOU