\START82\
\COMMENT=Program file dated 04/10/96, 18:39
\NAME=DICE
:ClrHome
:0\->\E
:0\->\F
:Input "HOW MANY:",A
:Lbl 1
:ClrHome
:1\->\G
:0\->\H
:Input "NUM SIDES:",B
:Input "NUM ROLLS:",C
:F+1\->\F
:Lbl 2
:iPart randB+1\->\D
:Disp D
:H+D\->\H
:IS>(G,C)
:Goto 2
:E+H\->\E
:Pause 
:If A\<>\F
:Goto 1
:Disp "TOTAL",E
:Stop
:COPYRIGHT STEPHEN OSTERMILLER 1996
\STOP82\