RosettaCodeData/Task/Loops-Do-while/Commodore-BASIC/loops-do-while.basic
2023-07-01 13:44:08 -04:00

7 lines
141 B
Text

50 rem does not have do-while simultate using for-next
100 x=0
120 for b=-1 to 0 step 0
130 x=x+1
140 print x
150 b=x/6<>int(x/6)
160 next x