:59468,12:PK12D YAHTZEE COPYRIGHT (C) 1979 GLEN FISHERJ:f CURSOR #9, APRIL,1979 BOX 550, GOLETA, CA 93017 AS OF FEB 18 80ZPG$"YAHTZEE":NM$"9":62000dDI(5),DI$(6,6),T(5),SC(4,13),TL(4,3),NM$(4)nI16:J16:DI$(I,J):J,IVx" "," "," "," "," ",""," "," "," "," "," "y" "," "," "," "," "," ",""," "," "," "," "z" "," "," "," "," "," "," "," "," "," "," "{" "," "," "DN$""2"HOW MANY PLAYERS? ";:60000:pNP(IN$):NP1NP4"ONE TO FOUR PLAYERS, PLEASE.":200"ENTER THEIR NAMES, PLEASE.":"(FIVE LETTERS LONG, MAX.)"I1NP:"PLAYER";I;": ";:60000:NM$(I)IN$:TL(I,0)96I5(IN$):I8,I14:J113:SC(I,J)1:J:J13:TL(I,J)0:J,IWPL0:RD1:10000:DN$;"";|I1NP:TL(I,0));NM$(I);"":II15:DI(I)0:I:RL0PLPL1:PLNPPL1:RDRD1:RD13500011000DN$;"ROUND";RD;TL(PL,0));NM$(PL)PR$"? ":9100:RL0IN$"00000"-IN$""2000_(IN$,1)"Z"ZER1:IN$(IN$,2):IN$""2000wN1:A1:I1(IN$)T$(IN$,I,1):T$"A"T$"M"A0T$"0"T$"6"N0 IA3000 N02000 *RLRL1:RL3PR$"NO MORE ROLLS ALLOWED.":3500) 4I1(IN$):T((IN$,I,1))O 9J15:DI(J)TDI(J)0:N0:2115V >Jn CI:NRLRL1:3500 E"ROLL";RL H9000:8000:RV$"":DN$; \I16:SCSC(0,I):SC(PL,I)02500:""; f:I:: pI713:SCSC(0,I):SC(PL,I)02500:""; z:I:2000A 116PL);RV$;(" "(SC),3):X 116PL);" :":{ RV$"":T(IN$)64:ADDSC(0,T) T12ADD0SC(PL,T)0ADD100:3100 SC(PL,T)0PR$"YOU'VE ALREADY TAKEN IT.":3500 ADD0ZER13100 PR$"REALLY ZERO IT? ":9100) (IN$,1)"Y"2000<  XT:T6XX2W ! SC(PL,T)0SC(PL,T)0z & :DN$;("",X); 0 RV$"":SCADDSC(PL,T):SC(PL,T)SC : 2500:T63300 ("",7T);:XTL(PL,1):SCXADD:TL(PL,1)SC X62SC633250- XSC:SC35:XXSC:"";:2500:TL(PL,1)XK TL(PL,3)TL(PL,3)SC:SCXh 2500:"";:3400 ("",14T); SCTL(PL,2)ADD:TL(PL,2)SC:2500 H SCTL(PL,3)ADD:TL(PL,3)SC:RV$"":2500 z DN$;:I16:SC(PL,I)02510:"";  :I/ "":I713:SC(PL,I)02510:"";8 :I^ DN$;"";TL(PL,0));NM$(PL):1500 DN$;"";PR$:I11000:I:2000 TMTI300:I1NP:J1NP1 TL(J,3)TL(J1,3)5040 TTL(J,3):TL(J,3)TL(J1,3):TL(J1,3)TT$NM$(J):NM$(J)NM$(J1):NM$(J1)T$J,I.TITM5050I"FINAL STANDINGS:"lI1NP:TL(I,3);5);NM$(I):I"PLAY AGAIN? ";:60000(IN$,1)"N"300:XT$:T$""7000b@I113:SC(0,I)0:I:CT0:SUM0JI15:TDI(I):XSC(0,T):X0CTCT1:TSC(0,T)X1:SUMSUMT:I:SC(0,13)SUM[rCT8100,8200,8150,8300,8400SC(0,12)50:SC(0,8)SUM:SC(0,7)SUM:8500I16:SC(0,I)3SC(0,7)SUMI:8500 CT0:I16:SC(0,I)1CTCT1 I:SC(0,7)SUM0 CT0SC(0,9)25: CT1SC(0,8)SUM#D 85008l MN7:MX0:I16Lv SC(0,I)08340[ IMNMNIj IMXMXIq I MXMN3SC(0,10)30 8500 SC(0,1)0SC(0,6)0SC(0,11)40:SC(0,10)30:8500 SC(0,2)0SC(0,5)0SC(0,10)30:8500 8500 IMXMXI I;!MXMN4SC(0,10)30:SC(0,11)40[4!I16:SC(0,I)SC(0,I)I:Ia>!k(#"";2#I13::J15:DI(J)07J);" ";<#J,I:I15F#DI(I)0Q((1)61):T(I)3((1).5)3:CT(Q)CT(Q)1:DI(I)QP#IZ#"";:I13:.d#J15:7J);DI$(IT(J),DI(J));:J,I6n#:r#DN$;" ":PR$;#60000:'"":11000$'T$"==TOTAL================================".'DN$;"A:ACES":"B:TWOS":"C:THREES" 8'"D:FOURS":"E:FIVES":"F:SIXES"%B'" >=63 BONUS":T$[L'"G:3 OF A KIND":"H:4 OF A KIND":"I:FULL HOUSE"V'"J:SMALL STRAIGHT":"K:LARGE STRAIGHT"`'"L:YAHTZEE":"M:CHANCE"j'T$:" GRAND TOTAL"t'*T$" ":U$" ":V$" ":S$""+"";S$;T$;T$;T$;T$;T$:I13M +S$;U$;U$;U$;U$;U$:I:S$;V$;V$;V$;V$;V$;""n +"   "t*+`IN$" ":ZTTI:ZC2:ZD$(20)jZ$:Z$""60070tZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI15~60010Z(Z$):ZL(IN$):(Z127)32" ";:60110FFL(Z127)64(Z127)91Z$((Z128)255)XZL25460010sIN$IN$Z$:Z$;ZD$;Z$;Z13IN$(IN$,2):CR$;:Z20ZL1IN$(IN$,ZL1):"";:60010Z141Z$(20(ZL1)):Z2ZL:Z$;:Z:6000060010 (PN060250-6050022"PRESS RETURN TO ";O"LARGE STRAIGHT: A RUN OF ALL FIVE DICE.[H"WORTH40 POINTS.R"YAHTZEE: ALL FIVE DICE OF THE SAME\"NUMBER. WORTH50 FOR THE FIRST ONE, ANDf"100 FOR EACH ONE THEREAFTER.p"CHANCE: ANYTHING AT ALL. WORTH THE SUMz"OF THE DICE."E"TO ROLL THE DICE, TYPE THE NUMBERS ONp"THE DICE TO ROLL. TO SCORE, TYPE THE"LETTER OF THE COMBINATION.""TO ZERO A COMBINATION, TYPE A'Z'"FOLLOWED BY THE LETTER.60200