RosettaCodeData/Task/Loops-Do-while/Sinclair-ZX81-BASIC/loops-do-while-2.basic

7 lines
106 B
Plaintext

10 REM Loops/Do-while
20 LET I = 0
30 LET I = I + 1
40 PRINT I
50 IF (I / 6) * 6 <> I THEN GOTO 30
60 END