Name: Yatzy
Author: Camilo A. Reyes <camilo~1@rocketmail.com>
(c)Camilo A. Reyes 1997


OYATZYO
Mcl
Lbl 0
0 ->Q
Isz R
Range 1,95,0,1,63,0
Plot 10,60
Plot 10,50
Line
Plot 80,Y
Line
Plot 80,60
Line
Plot 10,Y
Line
10->A
40->B
Lbl 1
Plot A,B
Plot A,B-15
Line
Plot A+10,Y
Line
Plot X,B
Line
Plot A,B
Line
A>=70=>Goto 2
A+15->A
Goto 1
Lbl 2
Q=1=>Goto 0
J=0=>Int 6Ran#+1->E
K=0=>Int 6Ran#+1->F
L=0=>Int 6Ran#+1->G
M=0=>Int 6Ran#+1->H
N=0=>Int 6Ran#+1->I
14->A
0->P
0->J~N
Lbl 3
A->X
31->Y
E[P
Prog A
A>=74=>Goto 4
A+15->A
Isz P
Goto 3
Lbl 4
R=4=>Goto 5
Plot X,Y_
Y>40=>1->Q
Y>40=>Goto 2
X>=1=>X<=20=>1->J
X>=21=>X<=35=>1->K
X>=36=>X<=50=>1->L
X>=51=>X<=65=>1->M
X>=66=>X<=95=>1->N
Goto 4
Lbl 5
Plot 0,0_
E+F+G+H+I->T
E=F=>G=F=>T->S
E=F=>G=E=>H=G=>T+S->S
E=F=>G=F=>25+S->S
E=F=>G=F=>H=F=>I=H=>50+S->S
T+S->S
40->X
43->Y
S
Prog A
Plot 0,0

Store the next program in program area A

ONUMWRITEO
1->D
Ans>.1=>Int log Ans+1->D
Lbl 0
Int (10 Frac (Ans /10D->C						;The 10  itOs the 
Shift Log key
X->A
Y->B
C=1=>Dsz X
Plot X+2,B
Plot X,B+2
C<>2=>Line
Plot X,Y+2
C<>5=>C<>6=>Line
C=1=>Goto 1
Plot A,Y
C<>4=>Line
C=7=>Isz Y
Plot A,Y-2
C<>2=>C<>3=>Line
C=7=>Goto 1
Plot A+2,Y
C<>0=>Line
C=4=>Goto 1
Plot X,B
Plot A,B
Line
C<>3=>C<>5=>C<>9=>Plot  A,B+2
Line
Lbl 1
B->Y
A+4->X
Dsz D
Goto 0