7 lines
210 B
Text
7 lines
210 B
Text
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
|