[impersonalis]

Реализация прохода переменной x всех значений из [0;b-1]
x = ( x + 1 ) Mod b

b=5
x=0
For i=1 To 10
	x=(x+1)Mod *b
	Print x
Next
WaitKey()