RosettaCodeData/Task/Loops-Do-while/BASIC/loops-do-while-5.basic
2020-02-17 23:21:07 -08:00

4 lines
69 B
Text

10 LET X=0
20 LET X=X+1
30 PRINT X
40 IF X/6<>INT (X/6) THEN GOTO 20