TI-83 Shadowrun Dice Roller 

"->" = store arrow
"•" = space

PROGRAM:SRDICE
:ClrHome
:1->E
:1->F
:0->H
:0->I
:Input "NUM.•OF•DICE?", A
:Input "TARGET•NUM.?,B
:ClrHome
:For(C,1,A
:randInt(1,6)->G
:G->D
:While G=6 and DG
:G+D->D
:End
:If D³B
:H+1->H
:If D=1
:I+1->I
:Output(E,F,D
:F+4->F
:If F=17
:Then
:E+1->E
:1->F
:End
:If E=9
:Then
:Pause
:ClrHome
:1->E
:End
:End
:Pause
:ClrHome
:Disp "NUM.•OF"
:Disp "SUCCESSES:"
:Output(2,12,H
:If I=A
:Then
:Output(2,12,"ALL"
:Output(3,12,"ONES!"
:End

May 14, 1999
By Tim C. Koppang

    Source: geocities.com/suptk/content