0  REMADE FOR DO WHILE
 1  DEF  FN MOD6(N) = N -  INT (N / 6) * 6
 2  LET V4LUE = 0
 3  FOR DO = 0 TO 1
 10  LET V4LUE = V4LUE + 1
 20  PRINT V4LUE" ";
 30 WHILE =  FN MOD6(V4LUE) <  > 0:DO =  NOT WHILE: NEXT