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

6 lines
78 B
Plaintext

A=0
REPEAT
A=A+1
PRINT(A)
UNTIL A MOD 6=0 !UNTIL A-6*INT(A/6)=0 for C-64