This program is written by David Stinemetze, davidstinemetze@rocketmail.com.
Feel free to distribute this program but please do not put any type of credit to yourself
unless you completely change the script.

PrgmJ:DiceRoll
:ClrHome
:2->X
:0->W
:Lbl L
:IPart Rand6+1->Z
:Disp Z
:Z+W-W
:DS<(X,1)
:Goto L
:Disp ""
:Disp "SUM"
:Disp W
:(6-abs (W-7))/36->P
:P*1000->P
:Int P->P
:P/10-P
:Disp "Probability"
:Disp "P