Filename:DICE
0->A~Z
Lbl 1
If A=0 And B=0
Then "Upper limit"?->A
"Lower limit"?->B
"                     "
Else If BA
Then 0->A~Z
ClrText
Goto 1
IfEnd
Lbl 2
Int (Ran#*A)+1->U
If U<B
Then Goto 2
Else X+1->X
If X>6 Or X<5
Then 5->X
IfEnd
0->L
Do
L+1->L
Locate L,X,"."
LpWhile L<21
Locate 1,X,"                     "
Locate 1,X,U[DISP]
IfEnd
IfEnd
Goto 1