\start83P\
\comment=Program file dated 04/10/96, 18:39
\protected=FALSE
\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

\stop83P\