OBT6, Ti-82-style!
PROGRAM:OBT6
:0->D
:For(I,0,A)
int(rand*B)+1->C
:If C=B
:Then I-2->I
:Else
:D+C->D
:End
:End
:Disp D
För användning, spara antalet tärningar i A, och tärningsstorleken i B; kör så det ryker. Önskas felsökning, tryck in ett "Disp C" innan If-satsen för att se enskilda...