RosettaCodeData/Task/Loops-Do-while/BASIC/loops-do-while-5.basic

5 lines
69 B
Text
Raw Permalink Normal View History

2020-02-17 23:21:07 -08:00
10 LET X=0
20 LET X=X+1
30 PRINT X
40 IF X/6<>INT (X/6) THEN GOTO 20