RosettaCodeData/Task/Loops-Do-while/ERRE/loops-do-while.erre

6 lines
78 B
Text
Raw Permalink Normal View History

2016-12-05 23:44:36 +01:00
A=0
REPEAT
A=A+1
PRINT(A)
UNTIL A MOD 6=0 !UNTIL A-6*INT(A/6)=0 for C-64