6 lines
No EOL
75 B
Text
6 lines
No EOL
75 B
Text
Filename:S-DICE
|
|
Lbl 2
|
|
Int (Ran#*A)+1->U
|
|
If U<B
|
|
Then Goto 2
|
|
Else Return |