%dA(15),C(15),V(38),W(38) :2540AnX115:A(X)0:C(X)0:GxRS0:3d0,8,7:4,7,31,1:A(7)A(1)A(2)A(3)A(4)A(5)A(6):A(7)62A(7)A(7)352320:R0:K0:SS1:S132330:AA0:AB0:AC0:AD0:AE0 BA0:BB0:BC0:BD0:BE0:BF0C" 1 2 3 4 5"o" "" "" "" "" "&:E" 1) ONE ="A(1)d" 2) TWO ="A(2)" 3) THREE ="A(3)"" 4) FOUR ="A(4)," 5) FIVE ="A(5)6" 6) SIX ="A(6) @" TOTAL = "A(7)"5J" 8)3 OF A KIND =":C(7)1340:350`T""A(8)"":360^""A(8)h" 9)4 OF A KIND =":C(8)1370:380r""A(9)"":390|""A(9)#" 10)FULLHOUSE =":C(9)1400:410O""A(10)"":420p""A(10)" 11)SM. STREET =":C(10)1430:440""A(11)"":450""A(11)" 12)BIG STREET =":C(11)1460:470C""A(12)"":480d""A(12)" 13)YATHZEE =":C(12)1490:500""A(13)"":510""A(13) " 14)CHANCE =":C(13)1520:5307""A(14)"":540X""A(14)"  END TOTAL = "A(15)""&K10023400AA((1)6)1:""A$(AA)DAB((1)6)1N""A$(AB)XAC((1)6)1 b""A$(AC)3lAD((1)6)1]v""A$(AD)pAE((1)6)1""A$(AE)RR1:R3670 :1050" "/"CHANGE HOW MANY STONES ?CAG:AG01050RAG71610y" ""WHICH "AF1AGU(AF):UAF:1,99,6:U0U6780:760" "."WHICH ":730= B1500:\U(1)900,930,960,990,1020k B1500:*U(2)900,930,960,990,10204B1500:>U(3)900,930,960,990,1020HB1500:RU(4)900,930,960,990,1020\B1500:fU(5)900,930,960,990,1020*pAF15:U(AF)0:3z660S"   "fAA((1)6)1""A$(AA):2610:"   "AB((1)6)1""A$(AB):2610:"   ""AC((1)6)1M""A$(AC):2610:"   "AD((1)6)1""A$(AD):2610:"   "AE((1)6)1O""A$(AE):2610:" "$"WAARHEEN".O:11108" "'B"WAARHEEN.LOBVO11250:1120V`O21310:1130jjO31370:1140~tO41430:1150~O51490:1160O61550:1170O81630:1180O91630:1190O101630:1200O112160:1210 O122170:1220"O132270:12307O142310:1240@150qC(1)11080:A(1)0:ՋAA1A(1)A(1)1:AA0AB1A(1)A(1)1:AB0AC1A(1)A(1)1:AC0AD1A(1)A(1)1:AD0 AE1A(1)A(1)1:AE0:C(1)1150"C(2)11080:A(2)0:ՋAA2A(2)A(2)2:AA0>(AB2A(2)A(2)2:AB0Z2AC2A(2)A(2)2:AC0v<AD2A(2)A(2)2:AD0FAE2A(2)A(2)2:AE0:C(2)1P150ZC(3)11080:A(3)0:ՋAA3A(3)A(3)3:AA0dAB3A(3)A(3)3:AB0 nAC3A(3)A(3)3:AC0' xAD3A(3)A(3)3:AD0J AE3A(3)A(3)3:AE0:C(3)1S 150 C(4)11080:A(4)0:ՋAA4A(4)A(4)4:AA0 AB4A(4)A(4)4:AB0 AC4A(4)A(4)4:AC0 AD4A(4)A(4)4:AD0 AE4A(4)A(4)4:AE0:C(4)1!1505!C(5)11080:A(5)0:ՋAA5A(5)A(5)5:AA0Q!AB5A(5)A(5)5:AB0m!AC5A(5)A(5)5:AC0!AD5A(5)A(5)5:AD0!AE5A(5)A(5)5:AE0:C(5)1!150!C(6)11080:A(6)0:ՋAA6A(6)A(6)6:AA0"AB6A(6)A(6)6:AB0""AC6A(6)A(6)6:AC0:",AD6A(6)A(6)6:AD0]"6AE6A(6)A(6)6:AE0:C(6)1f"@150"JA(7)A(1)A(2)A(3)A(4)A(5)A(6)"TA(7)62A(7)A(7)35:150"^AA1BABA1"hAB1BABA1"rAC1BABA1"|AD1BABA1#AE1BABA1#AA2BBBB1*#AB2BBBB1<#AC2BBBB1N#AD2BBBB1`#AE2BBBB1r#AA3BCBC1#AB3BCBC1#AC3BCBC1#AD3BCBC1#AE3BCBC1#AA4BDBD1#AB4BDBD1#AC4BDBD1$AD4BDBD1$AE4BDBD1&$&AA5BEBE18$0AB5BEBE1J$:AC5BEBE1\$DAD5BEBE1n$NAE5BEBE1$XAA6BFBF1$bAB6BFBF1$lAC6BFBF1$vAD6BFBF1$AE6BFBF1$O102020:1940$O91990:1950$O81960%C(7)11080:1970R%BA2BB2BC2BD2BE2BF21980:C(7)1:A(8)0:150v%A(8)AAABACADAE:C(7)1:150%C(8)11080:ՋBA3BB3BC3BD3BE3BF32010%C(8)1:A(9)0:150%A(9)AAABACADAE:C(8)1:150 &C(9)11080:ՋBA32030:20403&BB2BC2BD2BE2BF22150:2040H&BB32050:2060q&BA2BC2BD2BE2BF22150:2060& BC32070:2080&BA2BB2BD2BE2BF22150:2080& BD32090:2100&*BA2BB2BC2BE2BF22150:2100'4BE32110:2120+'>BA2BB2BC2BD2BF22150:2120@'HBF32130:2140i'RBA2BB2BC2BD2BE22150:2140'\A(10)0:C(9)1:150'fA(10)25:C(9)1:150'pC(10)11080:A(11)30:C(10)1:150'zC(11)11080:2180(AAABAAACAAADAAAE2190:22503(ABACABADABAEABAA2200:2250_(ACAAACABACADACAE2210:2250(ADAAADABADACADAE2220:2250(AEAAAEABAEACAEAD2230:2250(AA1AB1AC1AD1AE12260:2240 )AA6AB6AC6AD6AE62260:2250")A(12)0:C(11)1:150<)A(12)40:C(11)1:150T)C(12)11080:2280|)AAABAAACAAADAAAE2300:2290)A(13)0:C(12)1:150)A(13)50:C(12)1:150) C(13)11080:A(14)AAABACADAE:C(13)1:150* A(15)A(7)A(8)A(9)A(10)A(11)A(12)A(13)A(14):_* A(15)A(7)A(8)A(9)A(10)A(11)A(12)A(13)A(14):K100:180p*$ TT13000:*. A(15)2902360:2480*8 :P138*B V(P),W(P)*L 1,V(P),W(P) +V ""A(15)"";""A(15)"";""A(15)"";"Ӝ"A(15)"";+` PI+j 643,20,739,20,739,10,770,10,798,20,739,20,834,40+t 798,30,798,10,810,20,834,10,810,10,798,10,810,10+~ 834,20,770,10,739,10,770,10,798,10,770,20+ 1021,2 ,643,20,739,20,739,10,770,10,798,20,739,20,834,40,798,309, 798,10,810,10,834,10,798,10,810,10,770,30,739,10,1021,2,739,30?, P, TT13000:q, A(15)TTA(15):2490:2510, 1,2:0,1:4,1, "HIGHSCORE:"T"", TT13000:, "AGAIN (Y/N)?", A$:A$"Y"110:, A$(1)""- A$(2)"ѐ"&- A$(3)"ѐ"@- A$(4)"ѐ"\- A$(5)"ѐ"|- A$(6)"ѐ"-( -2 1,1000,6: