Dice Roller for the TI-83 

"•" = space

PROGRAM:DICE
:ClrHome
:Disp "••TENS:"
:Output(1,9,randInt(1,10
:Output(1,12,randInt(1,10
:Disp "••FOUR:"
:Output(2,9,randInt(1,4
:Disp "•EIGHT:"
:Output(3,9,randInt(1,8
:Disp "•SIXES:"
:Output(4,9,randInt(1,6
:Output(4,12,randInt(1,6
:Output(4,15,randInt(1,6
:Disp "TWELVE:"
:Output(5,9,randInt(1,12
:Disp "TWENTY:"
:Output(6,9,randInt(1,20

October 6, 1998
By Tim C. Koppang

    Source: geocities.com/suptk/content

               ( geocities.com/suptk)