Kortare variant
Förlåt om jag är taskig, men det går att korta ner koden avsevärt. Bättre på detta sedan (vet att det går):
ClrHome
Input "ANTAL T6OR:",A
DelVar B
{0->L1
Repeat A=0
randInt(1,6->C
augment(L1,{C->L1
If C=6
Then
A+1->A
Else
A-1->A
B+C->B
End
End
Disp B
Pause L1
Nyttigt...