CLS : INPUT m, s, n, k: DIM sm(m)
FOR i = 1 TO m: sm(i) = 0: NEXT i
i = 0: pointm = s - 1
DO
 IF i MOD 2 = 0 THEN
   stepm = 1: endm = n
 ELSE
   stepm = -1: endm = k
 END IF
 summ = 0
 DO
   pointm = pointm + stepm
   IF stepm = 1 THEN
     pointm = (pointm - 1) MOD m + 1
   ELSE
     IF pointm < 1 THEN pointm = m
   END IF
   IF sm(pointm) = 0 THEN summ = summ + 1
 LOOP UNTIL summ = endm
 sm(pointm) = 1: PRINT pointm; : i = i + 1
LOOP UNTIL i = m
END