Almost ok

CLS

INPUT ; "offset"; offset

PRINT

DO

INPUT ; "index"; index

ind = (index + offset) MOD 5

PRINT "ind "; ind

LOOP

END

At least it works for the positives offset, and that's all i need :)

L