yahtzee  ?32719:V=1:"1000": :236099\,70F:23658j\,8:"2000" s(14,p):f(p):b(p) Pr=V13 :q=Vp U%V;V,14+4*q;5;q Zl18,0;"PLAYER ";5;q;7;19,0;V;n$(q);21,0;"TURN ";r _2r=13 21,0;V;"LAST TURN" da$=" ":d(5) i$19,17;"A B C D E" n7t=V3:21,10 ;V;7;"ROLL ";t ;x=V5:n=V5:a$(n)=(64@+x)"150" n d(x)=(*6)+1 x IX=V5:2;21,15+2*X;(158+d(X)):X N"HOLD (A-E) OR SCORE ? ";a$:a$=a$+" ":a$>10 "200" 4a$(V)>47/Ưa$(V)<58:232 t 1"SELECT SCORE (1-13) PLEASE ";a$:a$="""230" a=a$ a13 "230" s(a,q)0"230" sort=0 ?n=V4:d(n)>d(n+V)sort=d(n):d(n)=d(n+V):d(n+V)=sort n ,Mx=V5:2;21,15+2*x;(158+d(x)):x 6sort0"250" T x=0 ^"3000+100*a"  s(a,q)=x 1z=4*q+13 :x<10 z=z+V a>6a=a+V  a+V,z;x f(q)=f(q)+x 0z=4*q+13 :f(q)<10 z=z+V 17,z;f(q) *x=02,-30:"490" Ex=502n=V3:.25~,n:.6,n*5:n:"490" &.5,5:.75@,12 r=13 "900"  "100" +0;V,14+4*q;5;q &q Xr p=V"750" s$(11 ) sort=0 n=Vp-1 [f(n)="I":5 H="N""880" R :10 p_:N=021:.5,-40(:n,(*23);ڥ*7;9 ;"DEFEATIST":N z"890"  a=V6 s(a,q)<3*a"980" a 'b(q)=35#:V;8,z;b(q) &f(q)=f(q)+35#:17,z;f(q) Wn=V5:.25~,n:.6,n*5:n:0;8,z;b(q):"510" 8,z+V;b(q):"500" 7:7:V: " " " " " " "" " "" " $"" " ),9 ,6;" DEREK BARBER 1983" .)"5000":N=2293 88X=(*6):7,N;2;(159+X) B.25~,N-12 :N L):" A DICE GAME FOR 2 TO 4 PLAYERS" V:" After each roll you can hold any dice for the next roll by entering the corresponding reference letter(s). After 3 rolls, or earlier if you wish, you must select the category to which you wish to allocate your score." `D:" To do this enter the number from the score selection list." j'" Press < ENTER > to continue";q$ t:23692\,255 &13 ;1;3;"SCORES" %:"ONES, TWOS, THREES, .... SIXES." R:" As many ONES, etc. as possible"::" SCORE = Sum of scoring dice." $"________________________________" "B.O.N.U.S." ]:" Awarded for scoring at least 3 of each of categories 1 to 6."::" SCORE = 35" $"________________________________" $"THREE OF A KIND / FOUR OF A KIND" ]:" At least 3 (or4) dice showing the same number."::" SCORE = Total of all 5 dice" $"________________________________" $" Press < ENTER > to continue ";q$ :::::::  !14,0;"FULL HOUSE." ;:" 3 of one number + 2 of another."::" SCORE = 25" $"________________________________" $" Press < ENTER > to continue ";q$ (:::::::: 2#13 ,0;"LOW STRAIGHT." <6:" Any 4 consecutive numbers."::" SCORE = 30" A$"________________________________" F$" Press < ENTER > to continue ";q$ P::::::::: Z$12 ,0;"HIGH STRAIGHT." d6:" Any 5 consecutive numbers."::" SCORE = 40" i$"________________________________" n$" Press < ENTER > to continue ";q$ x::::::::: &12 ,0;"YAHTZEE." ;:" All 5 dice showing same number."::" SCORE = 50" $"________________________________" $" Press < ENTER > to continue ";q$ :::::::: 13 ,0;"CHANCE." A:" Any combination."::" SCORE = Total of all five dice." $"________________________________" "::11 ;V;V;"GOOD LUCK." $" Press < ENTER > to continue ";q$  >"HOW MANY PLAYERS? (2 - 4) ";p:p<2p>4"2000" n$(p,11 )  n=1p *"PLAYERS NAME? (11 letters max) ";n$(n) n 3;7;0,0;"SCORE SELECTIONS";0,21;"PLAYERS";V,18;"1 2 3 4" 7:0  "1..ONES.......... .. .. .."'"2..TWOS.......... .. .. .."'"3..THREES........ .. .. .."'"4..FOURS......... .. .. .."'"5..FIVES......... .. .. .."'"6..SIXES......... .. .. .."'"...B.O.N.U.S..... .. .. .."  "7..3 OF A KIND... .. .. .."'"8..4 OF A KIND... .. .. .."'"9..FULL HOUSE.... .. .. .."'"10.LOW STRAIGHT.. .. .. .."'"11.HIGH STRAIGHT. .. .. .."'"12.YAHTZEE....... .. .. .."'"13.CHANCE........ .. .. .."''" TOTAL... .. .. .." 20 n=V5 &d(n)=Vx=x+V 0n : n=V5 d(n)=2x=x+2 n  n=V5 d(n)=3x=x+3 n  Hn=V5 Rd(n)=4x=x+4 \n f n=V5 d(n)=5x=x+5 n  n=V5 d(n)=6x=x+6 $n . t6d(1)=d(2)d(2)=d(3)"3740" ~:d(2)=d(3)d(3)=d(4)"3740" 6d(3)=d(4)d(4)=d(5)"3740"  >x=d(1)+d(2)+d(3)+d(4)+d(5)  Pd(1)=d(2)d(2)=d(3)d(3)=d(4)"3830" Pd(2)=d(3)d(3)=d(4)d(4)=d(5)"3830"   "3740"