It goes bad after this! BTW: I don’t remember how to play. I wish I added the date to the comments. I assume it was 1980 or soon thereafter.
No sooner than I post the above…then I get this, although this is a different version. A screenshot wasn’t big enough to show so much. I think if I had a big volume nob I could more easily adjust the volume in small changes. Also a digital volume display would be nice like 1.1, 1.2, 1.3…up and down. Then I could more easily make small changes. The below was purely a guess if the volume is disturbed I wouldn’t know how much it was off. Oddly the last file on that tape side is Super Star Trek and it loaded/played fine. Looking at the visible code I can see there are 5 dice, and 13 rounds. Whatever that means. I don’t remember how to play.
10 'YAHTZEE
20 'PROGRAMMER: BILL
90 '
100 'YAHTZEE MAINLINE
120 CLEAR260
140 GOSUB3240 'PRINT HEADING
160 GOSUB7240 'INSTRUCTIONS?
180 CLS:PRINT@0,"HOW MANY PLAYERS (1-4) ?";
200 A$=INKEY$:IFA$=""THEN200ELSEPRINT@25,A$;
220 IFASC(A$)<49ORASC(A$)>52THENPRINT@25," ";:GOTO200:ELSENP%=VAL(A$)
240 GOSUB620 'INITIALIZE
260 GOSUB1560 'SET UP THE BOARD
280 FORR=1TO13 '13 ROUNDS
300 FORN2=1TONP 'LOOP FOR EACH PLAYER
320 IFNP>1GOSUB7120
340 PRINT@434,"<< ROUND"R">>";
360 PRINT@562,STRING$(10,32);
380 PRINT@562,":"NM$(N2);
400 GOSUB880 'ROLL 5 DICE
420 GOSUB1040 'TWO MORE ROLLS?
440 GOSUB1760 'SCORE A CATEGORY
460 IFNP>1THENPRINT@385,CHR$(239);:FORI=1TO3000:NEXTI
480 IFR=13THENGOSUB2160 'FINAL & GRAND TOTAL
500 NEXTN2,R
520 CLS:PRINT@155,"PLAY AGAIN ? ";
540 A$=INKEY$:IFA$=""THEN540ELSEPRINT@168,A$;
560 IFA$="Y"THENRUNELSEIFA$<>"N"THENPRINT@168," ";:GOTO540
580 CLS
600 END
620 'INITIALIZE
640 DEFINTA-Z
660 DIMPP(5),B$(5),DT(6),DC(4),DV(6),CT(NP,14),ST(NP,14),NM$(NP),GT(NP),UT(NP),SP(14)
680 FORI=1TONP
700 CLS
720 PRINT@87,CHR$(220);:PRINT@65,"ENTER PLAYER"I;CHR$(8)"'S NAME ";:INPUTNM$(I):IFLEN(NM$(I))>13THENCLS:PRINT@65,"NAME TOO LONG (1-13 CHARS.)";:FORJ=1TO900:NEXTJ:GOTO720
730 IFNM$(I)=""THEN720
740 NEXTI:CLS
760 PP(1)=65:PP(2)=78:PP(3)=91:PP(4)=104:PP(5)=117
'PP(X)=PRINT POSITION FOR DICE
780 FORI=1TO14:READSP(I):NEXTI
800 DATA590,654,718,782,846,910,620,684,748,812,876,940,1004,974