Filename:S-DICE
Lbl 2
Int (Ran#*A)+1->U
If U<B
Then Goto 2
Else Return