New Page 1

I'm not exactly the download expert, but you should be able to cut and paste this program. I'm open to suggestions on how I could make this process simpler. I used TI-85 Graph Link software to link my calculator to the computer. Once the program was on the computer in Graph Link, I selected all and copied. Then I opened Notepad and pasted. As a result, some of the symbols did not transfer. Here is what I noticed:

ü is a right arrow, from pushing the "STO>" button

ô is the degree symbol

÷ is a less-than-or-equal-to sign

ù is a greater-than-or-equal-to sign

ø an is-not-equal-to sign

ú is the negative(-) sign -- (not the minus sign)

If this is too much work, I apologize. If you have TI-85 Graph Link software, try this .85p file: Ytzee.zip

This program uses very bad programming practice, with numerous Goto statements. But the limited TI programming language requires them in order to use the Menu function. Also, remember that the TI language is case-sensitive, meaning that a "y" is different than a "Y".

The program uses 5603K memory, but it is alot of fun, and even keeps track of the high scores!

Ytzee

:ClLCD
:Outpt(2,8,"YAHTZEE")
:Outpt(4,4,"by Doug Dodson")
:Outpt(5,8,"version"
:Outpt(6,6,"999,999,999")
:Outpt(8,4,"High Score: ")
:Outpt(8,16,max(HISC))
:Pause
:ClLCD
:For(X,1,5)
:0üH(X)
:End
:0üTSC
:0üON:0üTW:0üTH:0üFO:0üFI:0üSI:0üK3:0üK4:0üFH:0üSM:0üLG:0üYH:0üCH
:0üTON:0üTTW:0üTTH:0üTFO:0üTFI:0üTSI:0üTK3:0üTK4:0üTFH:0üTSM:0üTLG:0üTYH:0üTCH
:0üCO:0üTE
:Lbl RL
:0üTVW
:If CO==3
:Goto MNU
:0üSCO
:CO+1üCO
:Lbl RLR
:ClLCD
:Outpt(4,2,"-----")
:Outpt(4,8,"-----")
:Outpt(4,14,"-----")
:Outpt(1,1,"|")
:Outpt(2,1,"|")
:Outpt(3,1,"|")
:Outpt(5,1,"|")
:Outpt(6,1,"|")
:Outpt(7,1,"|")
:1üp
:ú4üq
:1ür
:1üs
:For(X,1,5)
:q+6üq
:If X==4
:Then
:p+4üp
:2üq
:5ür
:1üs
:End
:s+6üs
:Outpt(r,s,"|")
:Outpt(r+1,s,"|")
:Outpt(r+2,s,"|")
:If H(X)==1
:Goto SKR
:int (6rand+1)üRN(X)
:Lbl SKR
:0üTVW
:If RN(X)>5
:Then
:Outpt(p,q,"ô ô ô")
:Outpt(p+2,q,"ô ô ô")
:Else
:If RN(X)>4
:Then
:Outpt(p,q,"ô ô")
:Outpt(p+1,q+2,"ô")
:Outpt(p+2,q,"ô ô")
:Else
:If RN(X)>3
:Then
:Outpt(p,q,"ô ô")
:Outpt(p+2,q,"ô ô")
:Else
:If RN(X)>2
:Then
:Outpt(p,q,"ô")
:Outpt(p+1,q+2,"ô")
:Outpt(p+2,q+4,"ô")
:Else
:If RN(X)>1
:Then
:Outpt(p,q,"ô")
:Outpt(p+2,q+4,"ô")
:Else
:Outpt(p+1,q+2,"ô")
:End:End:End:End:End
:End
:Lbl HD
:If SCO==1
:Goto MNU
:If TVW==1
:Then
:For(X,1,5)
:1üH(X)
:End
:End
:If TVW==1
:Goto RLR
:For(X,1,5)
:0üH(X)
:End
:FIG1="#"
:1üFST
:0üF1:0üF2:0üF3:0üF4:0üF5
:Lbl HDR
:If mod(FST,2)=0
:Then
:FF="1"
:SS="2"
:TT="3"
:Else
:FF="4"
:SS="5"
:TT=" "
:End
:If CO==3
:Goto SC
:Menu(1,FIG1,A,2,FF,B,3,SS,C,4,TT,D,5,"Done",MNU)
:Lbl A
:FST+1üFST
:Goto HDR
:Lbl B
:If mod(FST,2)=0
:Then
:F1+1üF1
:1üV
:3üW
:If mod(F1,2)=0
:Then
:1üH(1)
:IT="*"
:Else
:0üH(1)
:IT=" "
:End
:Else
:F4+1üF4
:5üV
:3üW
:If mod(F4,2)=0
:Then
:1üH(4)
:IT="*"
:Else
:0üH(4)
:IT=" "
:End
:End
:Goto CF
:Lbl C
:If mod(FST,2)=0
:Then
:F2+1üF2
:1üV
:9üW
:If mod(F2,2)=0
:Then
:1üH(2)
:IT="*"
:Else
:0üH(2)
:IT=" "
:End
:Else
:F5+1üF5
:5üV
:9üW
:If mod(F5,2)=0
:Then
:1üH(5)
:IT="*"
:Else
:0üH(5)
:IT=" "
:End
:End
:Goto CF
:Lbl D
:If mod(FST,2)=0
:Then
:F3+1üF3
:1üV
:15üW
:If mod(F3,2)=0
:Then
:1üH(3)
:IT="*"
:Else
:0üH(3)
:IT=" "
:End
:End
:Lbl CF
:If IT=="*"
:Then
:ITT="**"
:Else
:ITT=" "
:End
:Outpt(V,W,IT)
:Outpt(V,W+2,IT)
:Outpt(V+1,W-1,ITT)
:Outpt(V+1,W+2,ITT)
:Outpt(V+2,W,IT)
:Outpt(V+2,W+2,IT)
:Goto HDR
:Lbl EX
:1üTE
:Goto VW
:Lbl MNU
:1üTVW
:Menu(1,"Xgame",EX,2,"View",VW,3,"Score",SC,4,"Hold",HD,5,"Roll",RL)
:Lbl SC
:If SCO==1
:Goto MNU
:0üCO
:1üFIG6
:1üTSC
:1üSCO
:sortA RNüRN
:Lbl VW
:1üTVW
:ClLCD
:Outpt(1,1,"SCOREBOARD: ")
:13üY
:For(X,1,5)
:Outpt(1,Y,RN(X))
:Y+2üY
:End
:Outpt(2,1,"Ones")
:Outpt(3,1,"Twos")
:Outpt(4,1,"Threes")
:Outpt(5,1,"Fours")
:Outpt(6,1,"Fives")
:Outpt(7,1,"Sixes")
:Outpt(2,11,"3Kind")
:Outpt(3,11,"4Kind")
:Outpt(4,11,"FullH")
:Outpt(5,11,"SmStr")
:Outpt(6,11,"LgStr")
:Outpt(7,11,"YAHTZ")
:Outpt(2,8,ON)
:Outpt(3,8,TW)
:Outpt(4,8,TH)
:Outpt(5,8,FO)
:Outpt(6,8,FI)
:Outpt(7,8,SI)
:Outpt(2,17,K3)
:Outpt(3,17,K4)
:Outpt(4,17,FH)
:Outpt(5,17,SM)
:Outpt(6,17,LG)
:Outpt(7,17,YH)
:If TCH==0
:Then
:Outpt(7,20,"Ch")
:Else
:Outpt(7,20,CH)
:End
:If TON==1 and TTW==1 and TTH==1 and TFO==1 and TFI==1 and TSI==1 and TK3==1 and TK4==1 and TFH==1 and TSM==1 and TLG==1 and TYH==1 and TCH==1
:Goto E
:If TE==1
:Goto E
:If TSCø1
:Goto MNU
:Lbl DSC
:0üTSC
:If FIG6==1
:Then
:FIG5="<"
:Else
:FIG5="÷"
:End
:If FIG6==5
:Then
:FIG9=">"
:Else
:FIG9="ù"
:End
:If FIG6==1
:Then
:FFF="Ones"
:GGG="Twos"
:HHH="Three"
:Else
:If FIG6==2
:Then
:FFF="Fours"
:GGG="Fives"
:HHH="Sixes"
:Else
:If FIG6==3
:Then
:FFF="3Kind"
:GGG="4Kind"
:HHH="FullH"
:Else
:If FIG6==4
:Then
:FFF="SmSt"
:GGG="LgSt"
:HHH="YAHTZ"
:Else
:If FIG6==5
:Then
:FFF="Chanc"
:GGG=" "
:HHH=" "
:End:End:End:End:End
:Lbl MENU2
:Menu(1,FIG5,AAA,2,FFF,BBB,3,GGG,CCC,4,HHH,DDD,5,FIG9,EEE)
:Lbl AAA
:If FIG6==1
:Goto MENU2
:FIG6-1üFIG6
:Goto DSC
:Lbl BBB
:If FIG6==1
:Then
:If TON==1
:Goto MENU2
:For(X,1,5)
:If RN(X)==1
:ON+1üON
:End
:1üTON
:Else
:If FIG6==2
:Then
:If TFO==1
:Goto MENU2
:For(X,1,5)
:If RN(X)==4
:FO+4üFO
:End
:1üTFO
:Else
:If FIG6==3
:Then
:If TK3==1
:Goto MENU2
:If (RN(1)==RN(2) and RN(2)==RN(3)) or (RN(2)==RN(3) and RN(3)==RN(4)) or (RN(3)==RN(4) and RN(4)==RN(5))
:Then
:sum RNüK3
:Else
:0üK3
:End
:1üTK3
:Else
:If FIG6==4
:Then
:If TSM==1
:Goto MENU2
:0üTESV
:If RN(3)>RN(2)+1 or RN(4)>RN(3)+1
:1üTESV
:For(X,1,4)
:If RN(X+1)ø(RN(X)+1)
:TESV+1üTESV
:End
:If TESV÷1
:Then
:30üSM
:Else
:0üSM
:End
:1üTSM
:Else
:If FIG6==5
:Then
:If TCH==1
:Goto MENU2
:sum RNüCH
:1üTCH
:End:End:End:End:End
:Goto VW
:Lbl CCC
:If FIG6==1
:Then
:If TTW==1
:Goto MENU2
:For(X,1,5)
:If RN(X)==2
:TW+2üTW
:End
:1üTTW
:Else
:If FIG6==2
:Then
:If TFI==1
:Goto MENU2
:For(X,1,5)
:If RN(X)==5
:FI+5üFI
:End
:1üTFI
:Else
:If FIG6==3
:Then
:If TK4==1
:Goto MENU2
:If (RN(2)==RN(3)) and (RN(3)==RN(4))
:Then
:If (RN(1)==RN(2)) or (RN(4)==RN(5))
:sum RNüK4
:Else
:0üK4
:End
:1üTK4
:Else
:If FIG6==4
:Then
:If TLG==1
:Goto MENU2
:0üTESV
:For(X,1,4)
:If RN(X+1)ø(RN(X)+1)
:Then
:TESV+1üTESV
:End
:End
:If TESV==0
:Then
:40üLG
:Else
:0üLG
:End
:1üTLG
:Else
:Goto MENU2
:End:End:End:End
:Goto VW
:Lbl DDD
:If FIG6==1
:Then
:If TTH==1
:Goto MENU2
:For(X,1,5)
:If RN(X)==3
:TH+3üTH
:End
:1üTTH
:Else
:If FIG6==2
:Then
:If TSI==1
:Goto MENU2
:For(X,1,5)
:If RN(X)==6
:SI+6üSI
:End
:1üTSI
:Else
:If FIG6==3
:Then
:If TFH==1
:Goto MENU2
:If (RN(1)==RN(2)) and (RN(4)==RN(5))
:Then
:If (RN(2)==RN(3)) or (RN(3)==RN(4))
:Then
:25üFH
:Else
:0üFH
:End
:Else
:0üFH
:End
:1üTFH
:Else
:If FIG6==4
:Then
:If TYH==1
:Goto MENU2
:If (RN(1)==RN(2)) and (RN(2)==RN(3)) and (RN(3)==RN(4)) and (RN(4)==RN(5))
:Then
:50üYH
:Else
:0üYH
:End
:1üTYH
:Else
:Goto MENU2
:End:End:End:End
:Goto VW
:Lbl EEE
:If FIG6==5
:Goto MENU2
:FIG6+1üFIG6
:Goto DSC
:Lbl E
:ON+TW+TH+FO+FI+SIüTU
:If TUù63
:TU+35üTU
:K3+K4+FH+SM+LG+YH+CHüTL
:TU+TLüGT
:Outpt(8,1,"UPPER")
:Outpt(8,8,TU)
:Outpt(8,11,"LOWER")
:Outpt(8,17,TL)
:Outpt(1,1," GRAND TOTAL: ")
:Outpt(1,15,GT)
:Pause
:ClLCD
:GTüHISC(6)
:If GTùHISC(5)
:Disp "úúúCONGRATULATIONSúúú"
:sortD HISCüHISC
:5üdimL HISC
:Outpt(2,8,"TOP FIVE")
:Outpt(3,8,"--------")
:For(X,1,5)
:Outpt(X+3,9,X)
:Outpt(X+3,12,HISC(X))
:If HISC(X)==GT
:Outpt(X+3,11,"*")
:End
:Stop