! Filename: YATZEE.BAS Date: 08/05/91

!*************************** AMUS Program Label ******************************
! Filename: YATZEE.BAS Date: 08/05/91
! Category: GAME Hash Code: 772-303-323-766 RUN Version: 1.0(101)
! Initials: ULTR/US Name: DAVID PALLMANN
! Company: ULTRASOFT CORPORATION Telephone #: 5163484848
! Related Files: YATZEE.SBR
! Min. Op. Sys.: AMOSL 1.3B/AMOS32 1.0 Expertise Level: BEG
! Special: Needs Put YATZEE.SBR in BAS:, load into memory for faster execut.
! Description: Alpha version of the popular dice game YAHTZEE
!*****************************************************************************

!****************************************************************************
!* *
!* "YAHTZEE" *
!* Computer Version of the Dice Game *
!* *
!****************************************************************************
!David Pallmann, UltraSoft Corporation
!
!Requires YATZEE.SBR

PROGRAM YATZEE, 1.0(101)

MAP1 BOTTOM,F,6
MAP1 CHAR,S,1
MAP1 COL,F,6
MAP1 DIR,F,6
MAP1 FLAG(6),F,6
MAP1 INDEX,F,6
MAP1 I,F,6
MAP1 J,F,6
MAP1 KEY,B,2
MAP1 MOVES,F,6
MAP1 NAME,S,30
MAP1 ROLL(6),F,6
MAP1 ROLLS,F,6
MAP1 ROW,F,6
MAP1 SCORE,F,6
MAP1 SCORE(13),F,6
MAP1 STRING,S,7
MAP1 TOP,F,6
MAP1 HIGH'SCORE,F,6
MAP1 HIGH'NAME,S,30

LOAD'SCORE:
LOOKUP "YATZEE.DAT", I
IF I=0 THEN GOTO INIT
OPEN #1, "YATZEE.DAT", INPUT
INPUT #1, HIGH'SCORE, HIGH'NAME
CLOSE #1

INIT: RANDOMIZE

NEW'GAME:
FOR I = 1 TO 13
SCORE(I) = -1
NEXT I
MOVES = 0

SCREEN: PRINT TAB(-1,0); TAB(-1,29);
CALL BACKGROUND
IF HIGH'SCORE=0 THEN GOTO MOVE
PRINT TAB(-1,11); TAB(24,1); "High score of"; HIGH'SCORE; "by "; HIGH'NAME; TAB(-1,12);

MOVE: IF MOVES=13 THEN GOTO END'GAME
MOVES = MOVES+1

FIRST'ROLL:
ROLLS = 1
PRINT TAB(6,62); SPACE(16);
PRINT TAB(8,62); SPACE(16);
PRINT TAB(10,62); SPACE(16);
CALL CLEAR'INSTRUCTIONS
ROW = 6
FOR I = 1 TO 5 : FLAG(I) = 1 : NEXT I
CALL GET'ROLL
CALL SORT
PRINT TAB(-1,12);
FOR I = 1 TO 5
PRINT TAB(ROW,I*3+61); STR(ROLL(I));
NEXT I
FR2: PRINT TAB(16,59); "Enter Y or N for";
PRINT TAB(17,59); "each die. If you";
PRINT TAB(18,59); "do not wish to";
PRINT TAB(19,59); "roll again, press";
PRINT TAB(20,59); "Q.";

ROW = 8
PRINT TAB(-1,11);
FOR I = 1 TO 5
FLAG(I) = 0
PRINT TAB(ROW,I*3+62); TAB(-1,31);
PRINT TAB(ROW,I*3+60); TAB(-1,30); STR(ROLL(I)); TAB(-1,31);
PRINT TAB(ROW,I*3+61);
FR2A: XCALL YATZEE, CHAR
CHAR = UCS(CHAR)
IF CHAR="N" OR CHAR=" " THEN GOTO FR3
IF CHAR="Y" OR CHAR="R" THEN GOTO FR2B
IF CHAR="Q" OR CHAR=CHR(27) OR CHAR=CHR(11) OR CHAR=CHR(10) &
THEN I = 5 : GOTO FR4
PRINT CHR(7);
GOTO FR2A
FR2B: PRINT TAB(-1,12);
PRINT TAB(ROW,I*3+60); " "; STR(ROLL(I)); " ";
PRINT TAB(-1,11);
FLAG(I) = 1
GOTO FR4
FR3: PRINT TAB(ROW,I*3+60); " "; STR(ROLL(I)); " ";
FR4: NEXT I
IF CHAR="Q" OR CHAR=CHR(27) OR CHAR=CHR(11) OR CHAR=CHR(10) THEN GOTO SELECT
IF FLAG(1)=FLAG(2) AND FLAG(2)=FLAG(3) AND FLAG(3)=FLAG(4) AND &
FLAG(4)=FLAG(5) AND FLAG(1)=0 THEN GOTO SELECT

SECOND'ROLL:
ROLLS = 2
CALL CLEAR'INSTRUCTIONS
ROW = 8
CALL GET'ROLL
PRINT TAB(-1,12);
FOR I = 1 TO 5
PRINT TAB(ROW,I*3+61); STR(ROLL(I));
NEXT I
SR2: PRINT TAB(16,59); "Enter Y or N for";
PRINT TAB(17,59); "each die. If you";
PRINT TAB(18,59); "do not wish to";
PRINT TAB(19,59); "roll again, press";
PRINT TAB(20,59); "Q.";

ROW = 10
PRINT TAB(-1,11);
FOR I = 1 TO 5
FLAG(I) = 0
PRINT TAB(ROW,I*3+62); TAB(-1,31);
PRINT TAB(ROW,I*3+60); TAB(-1,30); STR(ROLL(I)); TAB(-1,31);
PRINT TAB(ROW,I*3+61);
SR2A: XCALL YATZEE, CHAR
CHAR = UCS(CHAR)
IF CHAR="N" OR CHAR=" " THEN GOTO SR3
IF CHAR="Y" OR CHAR="R" THEN GOTO SR2B
IF CHAR="Q" OR CHAR=CHR(27) OR CHAR=CHR(11) OR CHAR=CHR(10) &
THEN I = 5 : GOTO FR4
PRINT CHR(7);
GOTO SR2A
SR2B: PRINT TAB(-1,12);
PRINT TAB(ROW,I*3+60); " "; STR(ROLL(I)); " ";
PRINT TAB(-1,11);
FLAG(I) = 1
GOTO SR4
SR3: PRINT TAB(ROW,I*3+60); " "; STR(ROLL(I)); " ";
SR4: NEXT I
IF CHAR="Q" OR CHAR=CHR(27) OR CHAR=CHR(11) OR CHAR=CHR(10) THEN GOTO SELECT
IF FLAG(1)=FLAG(2) AND FLAG(2)=FLAG(3) AND FLAG(3)=FLAG(4) AND &
FLAG(4)=FLAG(5) AND FLAG(1)=0 THEN GOTO SELECT

THIRD'ROLL:
ROLLS = 3
CALL GET'ROLL
PRINT TAB(-1,12);
FOR I = 1 TO 5
PRINT TAB(ROW,I*3+61); STR(ROLL(I));
NEXT I

SELECT: PRINT TAB(-1,29); TAB(-1,12);
CALL CLEAR'INSTRUCTIONS
PRINT TAB(16,59); "Use ARROW KEYS to";
PRINT TAB(17,59); "to select scoring";
PRINT TAB(18,59); "you wish to apply";
PRINT TAB(19,59); "this roll to.";
PRINT TAB(21,59); "Press SPACE BAR";
PRINT TAB(22,59); "to post score.";

ROW = 4
COL = 14
INDEX = 1
DIR = 1

MARK: IF SCORE(INDEX)<>-1 AND DIR=0 THEN GOTO UP
IF SCORE(INDEX)<>-1 THEN GOTO DOWN
CALL GET'SCORE
PRINT TAB(ROW,COL+6); TAB(-1,33); TAB(ROW,COL); TAB(-1,32);
PRINT USING "#####", SCORE;
PRINT TAB(-1,33);

GET: XCALL YATZEE, CHAR
CHAR = UCS(CHAR)
IF CHAR=CHR(11) THEN GOTO UP
IF CHAR=CHR(10) OR CHAR=CHR(13) THEN GOTO DOWN
IF CHAR=" " OR CHAR="Y" THEN GOTO RECORD
IF CHAR="Q" OR CHAR=CHR(27) THEN GOTO QUIT
IF (CHAR="R" OR CHAR=CHR(8) OR CHAR=CHR(12)) AND ROLLS=1 THEN GOTO BACK'1
IF (CHAR="R" OR CHAR=CHR(8) OR CHAR=CHR(12)) AND ROLLS=2 THEN GOTO BACK'2
PRINT CHR(7);
GOTO GET

BACK'1: PRINT TAB(ROW,COL); SPACE(7);
CALL CLEAR'INSTRUCTIONS
GOTO FR2

BACK'2: PRINT TAB(ROW,COL); SPACE(7);
CALL CLEAR'INSTRUCTIONS
GOTO SR2

UP: DIR = 0
IF SCORE(INDEX)=-1 THEN PRINT TAB(ROW,COL); SPACE(7);
IF INDEX=1 THEN INDEX = 13 : ROW = 16 : COL = 45 : GOTO MARK
INDEX = INDEX-1
ROW = ROW-2
IF INDEX<>6 THEN GOTO MARK
ROW = 14 : COL = 14
GOTO MARK

DOWN: DIR = 1
IF SCORE(INDEX)=-1 THEN PRINT TAB(ROW,COL); SPACE(7);
IF INDEX=13 THEN INDEX = 1 : ROW = 4 : COL = 14 : GOTO MARK
INDEX = INDEX+1
ROW = ROW+2
IF INDEX<>7 THEN GOTO MARK
ROW = 4 : COL = 45
GOTO MARK

RECORD: SCORE(INDEX) = SCORE

SHOW'SCORE:
PRINT TAB(ROW,COL);
PRINT USING "###### ", SCORE(INDEX);

TOP = 0

FOR I = 1 TO 6
IF SCORE(I)<>-1 THEN TOP = TOP+SCORE(I)
NEXT I

PRINT TAB(16,14);
PRINT USING "######"; TOP;

IF TOP>=63 THEN TOP = TOP+35 : PRINT TAB(18,14); " 35";

PRINT TAB(20,14);
PRINT USING "######"; TOP;

PRINT TAB(20,45);
PRINT USING "######"; TOP;

BOTTOM = 0

FOR I = 7 TO 13
IF SCORE(I)<>-1 THEN BOTTOM = BOTTOM+SCORE(I)
NEXT I

PRINT TAB(18,45);
PRINT USING "######"; BOTTOM;

PRINT TAB(20,45);
PRINT USING "######"; TOP;

PRINT TAB(22,45);
PRINT USING "######"; TOP+BOTTOM;

CALL CLEAR'INSTRUCTIONS
GOTO MOVE

END'GAME:
LOOKUP "YATZEE.DAT", I
IF I=0 THEN GOTO NEW'HIGH'SCORE
OPEN #1, "YATZEE.DAT", INPUT
INPUT #1, HIGH'SCORE, HIGH'NAME
CLOSE #1
IF (TOP+BOTTOM)<=HIGH'SCORE THEN GOTO ANOTHER

NEW'HIGH'SCORE:
PRINT TAB(24,1); "New high score! Please enter your name: ";
XCALL YATZEE, 24, 42, "*", 1, 30, "F", NAME, KEY
ON KEY GOTO ANOTHER
HIGH'SCORE = TOP+BOTTOM
HIGH'NAME = NAME
OPEN #1, "YATZEE.DAT", OUTPUT
PRINT #1, STR(TOP+BOTTOM);
PRINT #1, ","; CHR(34); NAME; CHR(34)
CLOSE #1

ANOTHER:
PRINT TAB(24,1); "Would you like to play again? "; TAB(-1,9); TAB(-1,28);
A1: XCALL YATZEE, CHAR
CHAR = UCS(CHAR)
IF CHAR="Y" OR CHAR=" " OR CHAR=CHR(13) THEN GOTO NEW'GAME
IF CHAR<>"N" AND CHAR<>"Q" AND CHAR<>CHR(27) THEN GOTO A1
! GOTO QUIT

QUIT: PRINT TAB(-1,28); TAB(-1,12); TAB(-1,0);
END

!**********
!* SORT *
!**********
!Function: Sort rolls into ascending order

SORT: I = 1
S1: IF I=5 THEN RETURN
IF ROLL(I+1)>=ROLL(I) THEN GOTO S2
J = ROLL(I)
ROLL(I) = ROLL(I+1)
ROLL(I+1) = J
IF I=1 THEN GOTO S1
I = I-1
GOTO S1
S2: I = I+1
GOTO S1

!************************
!* CLEAR'INSTRUCTIONS *
!************************
!Clear instruction box text from screen

CLEAR'INSTRUCTIONS:
FOR ROW = 16 TO 22
PRINT TAB(ROW,59); SPACE(19);
NEXT ROW
RETURN

!**************
!* GET'ROLL *
!**************
!Function: (Re-)roll 1-5 dice based on FLAG(1) through FLAG(5)

GET'ROLL:
FOR I = 1 TO 5
IF FLAG(I)=0 THEN GOTO GR1
ROLL(I) = INT(RND(0)*6)+1
FLAG(I) = 0
GR1: NEXT I
RETURN

!***************
!* GET'SCORE *
!***************
!Function: Calculate score, return in SCORE

GET'SCORE:
SCORE = 0
ON INDEX GOTO SCORE'1, SCORE'2, SCORE'3, SCORE'4, SCORE'5, SCORE'6, &
SCORE'3K, SCORE'4K, SCORE'FH, SCORE'SS, SCORE'LS, SCORE'Y, SCORE'C
END

SCORE'1:
FOR I = 1 TO 5
IF ROLL(I)=1 THEN SCORE = SCORE+1
NEXT I
GOTO GS'RTN

SCORE'2:
FOR I = 1 TO 5
IF ROLL(I)=2 THEN SCORE = SCORE+2
NEXT I
GOTO GS'RTN

SCORE'3:
FOR I = 1 TO 5
IF ROLL(I)=3 THEN SCORE = SCORE+3
NEXT I
GOTO GS'RTN

SCORE'4:
FOR I = 1 TO 5
IF ROLL(I)=4 THEN SCORE = SCORE+4
NEXT I
GOTO GS'RTN

SCORE'5:
FOR I = 1 TO 5
IF ROLL(I)=5 THEN SCORE = SCORE+5
NEXT I
GOTO GS'RTN

SCORE'6:
FOR I = 1 TO 5
IF ROLL(I)=6 THEN SCORE = SCORE+6
NEXT I
GOTO GS'RTN

SCORE'3K:
CALL SORT
IF ROLL(1)=ROLL(2) AND ROLL(2)=ROLL(3) THEN GOTO SCORE'C
IF ROLL(2)=ROLL(3) AND ROLL(3)=ROLL(4) THEN GOTO SCORE'C
IF ROLL(3)=ROLL(4) AND ROLL(4)=ROLL(5) THEN GOTO SCORE'C
GOTO GS'RTN

SCORE'4K:
CALL SORT
IF ROLL(1)=ROLL(2) AND ROLL(2)=ROLL(3) AND ROLL(3)=ROLL(4) THEN GOTO SCORE'C
IF ROLL(2)=ROLL(3) AND ROLL(3)=ROLL(4) AND ROLL(4)=ROLL(5) THEN GOTO SCORE'C
GOTO GS'RTN

SCORE'FH:
CALL SORT
IF ROLL(1)=ROLL(2) AND ROLL(3)=ROLL(4) AND ROLL(4)=ROLL(5) AND ROLL(1)<>ROLL(5) THEN SCORE = 25 : GOTO GS'RTN
IF ROLL(4)=ROLL(5) AND ROLL(1)=ROLL(2) AND ROLL(2)=ROLL(3) AND ROLL(1)<>ROLL(5) THEN SCORE = 25 : GOTO GS'RTN
GOTO GS'RTN

SCORE'SS:
CALL SORT

STRING = ""
FOR I = 1 TO 5
STRING = STRING+STR(ROLL(I))
NEXT I

STRING = " "+STRING+" "
FOR I = 1 TO 6
SS1: J = INSTR(1,STRING,STR(I)+STR(I))
IF J=0 THEN GOTO SS2
STRING = STRING[1,J-1]+STRING[J+1,LEN(STRING)]
GOTO SS1
SS2: NEXT I

STRING = STRING[2,LEN(STRING)-1]
IF INSTR(1,STRING,"1234")>0 THEN SCORE = 30 : GOTO GS'RTN
IF INSTR(1,STRING,"2345")>0 THEN SCORE = 30 : GOTO GS'RTN
IF INSTR(1,STRING,"3456")>0 THEN SCORE = 30 : GOTO GS'RTN
GOTO GS'RTN

SCORE'LS:
CALL SORT
STRING = ""
FOR I = 1 TO 5
STRING = STRING+STR(ROLL(I))
NEXT I
IF STRING = "12345" THEN SCORE = 40 : GOTO GS'RTN
IF STRING = "23456" THEN SCORE = 40 : GOTO GS'RTN
GOTO GS'RTN

SCORE'Y:
IF ROLL(1)=ROLL(2) AND ROLL(2)=ROLL(3) AND ROLL(3)=ROLL(4) AND &
ROLL(4)=ROLL(5) THEN SCORE = 50
GOTO GS'RTN

SCORE'C:
SCORE = ROLL(1)+ROLL(2)+ROLL(3)+ROLL(4)+ROLL(5)

GS'RTN: RETURN

!****************
!* BACKGROUND *
!****************
!Display background screen

BACKGROUND:
PRINT TAB(-1,29); TAB(-1,24); TAB(-1,12); TAB(-1,0); TAB(1,47);
PRINT TAB(-1,11); TAB(-1,23); TAB(-1,33); TAB(-1,33); TAB(-1,12);
PRINT TAB(1,31); TAB(-1,11); TAB(-1,32); TAB(-1,12); TAB(-1,24);
PRINT " Y A H T Z E E ";
PRINT TAB(-1,11); TAB(-1,23); TAB(-1,33); TAB(-1,33); TAB(-1,12);
PRINT TAB(3,1); TAB(-1,38); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,42); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,39); TAB(3,24); TAB(-1,24);
PRINT " ";
PRINT TAB(-1,23); TAB(-1,38); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,42); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,39); TAB(3,57); TAB(-1,38);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,39); TAB(4,1); TAB(-1,47); TAB(-1,24);
PRINT " 1s";
PRINT TAB(4,12); TAB(-1,23); TAB(-1,47); TAB(4,21); TAB(-1,47);
PRINT TAB(4,26); TAB(-1,47); TAB(4,28); TAB(-1,24);
PRINT "3 of a kind";
PRINT TAB(4,41);
PRINT "T";
PRINT TAB(4,43); TAB(-1,23); TAB(-1,47); TAB(4,52); TAB(-1,47);
PRINT TAB(4,57); TAB(-1,47); TAB(-1,24);
PRINT " DICE ROLLS ";
PRINT TAB(-1,23); TAB(-1,47); TAB(5,1); TAB(-1,44); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(5,26);
PRINT TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,48); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,43); TAB(5,57); TAB(-1,47); TAB(5,78);
PRINT TAB(-1,47); TAB(6,1); TAB(-1,47); TAB(-1,24);
PRINT " 2s";
PRINT TAB(6,12); TAB(-1,23); TAB(-1,47); TAB(6,21); TAB(-1,47);
PRINT TAB(6,26); TAB(-1,47); TAB(6,28); TAB(-1,24);
PRINT "4 of a kind";
PRINT TAB(6,41);
PRINT "T";
PRINT TAB(6,43); TAB(-1,23); TAB(-1,47); TAB(6,52); TAB(-1,47);
PRINT TAB(6,57); TAB(-1,47); TAB(6,59); TAB(-1,24);
PRINT "1st";
PRINT TAB(6,78); TAB(-1,23); TAB(-1,47); TAB(7,1); TAB(-1,44);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43);
PRINT TAB(7,26); TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(7,57); TAB(-1,47);
PRINT TAB(7,59); TAB(-1,24);
PRINT " ";
PRINT TAB(7,78); TAB(-1,23); TAB(-1,47); TAB(8,1); TAB(-1,47);
PRINT TAB(-1,24);
PRINT " 3s";
PRINT TAB(8,12); TAB(-1,23); TAB(-1,47); TAB(8,21); TAB(-1,47);
PRINT TAB(8,26); TAB(-1,47); TAB(8,28); TAB(-1,24);
PRINT "Full House";
PRINT TAB(8,40);
PRINT "25";
PRINT TAB(8,43); TAB(-1,23); TAB(-1,47); TAB(8,52); TAB(-1,47);
PRINT TAB(8,57); TAB(-1,47); TAB(8,59); TAB(-1,24);
PRINT "2nd";
PRINT TAB(8,78); TAB(-1,23); TAB(-1,47); TAB(9,1); TAB(-1,44);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43);
PRINT TAB(9,26); TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(9,57); TAB(-1,47);
PRINT TAB(9,78); TAB(-1,47); TAB(10,1); TAB(-1,47); TAB(-1,24);
PRINT " 4s";
PRINT TAB(10,12); TAB(-1,23); TAB(-1,47); TAB(10,21); TAB(-1,47);
PRINT TAB(10,26); TAB(-1,47); TAB(10,28); TAB(-1,24);
PRINT "Small Stra. 30";
PRINT TAB(10,43); TAB(-1,23); TAB(-1,47); TAB(10,52); TAB(-1,47);
PRINT TAB(10,57); TAB(-1,47); TAB(10,59); TAB(-1,24);
PRINT "3rd";
PRINT TAB(10,78); TAB(-1,23); TAB(-1,47); TAB(11,1); TAB(-1,44);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43);
PRINT TAB(11,26); TAB
(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(11,57); TAB(-1,40);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,41); TAB(12,1); TAB(-1,47); TAB(-1,24);
PRINT " 5s";
PRINT TAB(12,12); TAB(-1,23); TAB(-1,47); TAB(12,21); TAB(-1,47);
PRINT TAB(12,26); TAB(-1,47); TAB(12,28); TAB(-1,24);
PRINT "Large Stra. 40";
PRINT TAB(12,43); TAB(-1,23); TAB(-1,47); TAB(12,52); TAB(-1,47);
PRINT TAB(13,1); TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,48); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,43); TAB(13,26); TAB(-1,44); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43);
PRINT TAB(13,57); TAB(-1,38); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,39); TAB(14,1); TAB(-1,47);
PRINT TAB(-1,24);
PRINT " 6s";
PRINT TAB(14,12); TAB(-1,23); TAB(-1,47); TAB(14,21); TAB(-1,47);
PRINT TAB(14,26); TAB(-1,47); TAB(14,28); TAB(-1,24);
PRINT "Yahtzee";
PRINT TAB(14,40);
PRINT "50";
PRINT TAB(14,43); TAB(-1,23); TAB(-1,47); TAB(14,52); TAB(-1,47);
PRINT TAB(14,57); TAB(-1,47); TAB(-1,24);
PRINT " INSTRUCTIONS ";
PRINT TAB(-1,23); TAB(-1,47); TAB(15,1); TAB(-1,44); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(15,26);
PRINT TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,48); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,43); TAB(15,57); TAB(-1,47); TAB(15,78);
PRINT TAB(-1,47); TAB(16,1); TAB(-1,47); TAB(-1,24);
PRINT " subtotal";
PRINT TAB(16,12); TAB(-1,23); TAB(-1,47); TAB(16,21); TAB(-1,47);
PRINT TAB(16,26); TAB(-1,47); TAB(16,28); TAB(-1,24);
PRINT "Chance";
PRINT TAB(16,41);
PRINT "T";
PRINT TAB(16,43); TAB(-1,23); TAB(-1,47); TAB(16,52); TAB(-1,47);
PRINT TAB(16,57); TAB(-1,47); TAB(16,78); TAB(-1,47); TAB(17,1);
PRINT TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,43); TAB(17,26); TAB(-1,44); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(17,57);
PRINT TAB(-1,47); TAB(17,78); TAB(-1,47); TAB(18,1); TAB(-1,47);
PRINT TAB(-1,24);
PRINT " +35 (63) ";
PRINT TAB(-1,23); TAB(-1,47); TAB(18,21); TAB(-1,47); TAB(18,26);
PRINT TAB(-1,47); TAB(18,28); TAB(-1,24);
PRINT "BOTTOM";
PRINT TAB(18,43); TAB(-1,23); TAB(-1,47); TAB(18,52); TAB(-1,47);
PRINT TAB(18,57); TAB(-1,47); TAB(18,78); TAB(-1,47); TAB(19,1);
PRINT TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,43); TAB(19,26); TAB(-1,44); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(19,57);
PRINT TAB(-1,47); TAB(19,78); TAB(-1,47); TAB(20,1); TAB(-1,47);
PRINT TAB(-1,24);
PRINT " TOP ";
PRINT TAB(-1,23); TAB(-1,47); TAB(-1,24);
PRINT " ";
PRINT TAB(20,21); TAB(-1,23); TAB(-1,47); TAB(20,24); TAB(-1,24);
PRINT " ";
PRINT TAB(-1,23); TAB(-1,47); TAB(-1,24);
PRINT " TOP";
PRINT TAB(20,43); TAB(-1,23); TAB(-1,47); TAB(20,52); TAB(-1,47);
PRINT TAB(20,57); TAB(-1,47); TAB(20,78); TAB(-1,47); TAB(21,1);
PRINT TAB(-1,44); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,48); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,43); TAB(21,26); TAB(-1,44); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,48);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,43); TAB(21,57);
PRINT TAB(-1,47); TAB(21,78); TAB(-1,47); TAB(22,1); TAB(-1,47);
PRINT TAB(-1,24);
PRINT " ";
PRINT TAB(-1,23); TAB(-1,47); TAB(-1,24);
PRINT " ";
PRINT TAB(22,21); TAB(-1,23); TAB(-1,47); TAB(22,24); TAB(-1,24);
PRINT " ";
PRINT TAB(-1,23); TAB(-1,47); TAB(-1,24);
PRINT " SCORE";
PRINT TAB(22,43); TAB(-1,23); TAB(-1,47); TAB(22,52); TAB(-1,47);
PRINT TAB(22,57); TAB(-1,47); TAB(22,78); TAB(-1,47); TAB(23,1);
PRINT TAB(-1,40); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,45); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,41); TAB(23,24); TAB(-1,24);
PRINT " ";
PRINT TAB(-1,23); TAB(-1,40); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,45); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,41); TAB(23,57); TAB(-1,40);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46); TAB(-1,46);
PRINT TAB(-1,41); TAB(-1,28); TAB(-1,24);
RETURN