Loops/Do-while: Difference between revisions
Content deleted Content added
Applesoft BASIC |
|||
Line 525:
loop while a mod 6 <> 0</lang>
==={{header|Applesoft BASIC}}===
{{works with|Commodore BASIC}}
<lang gwbasic> 0 REMADE FOR DO WHILE
1 DEF FN MOD6(N) = N - INT (N / 6) * 6
2 LET V4LUE = 0
3 FOR DO = 0 TO 1
10 LET V4LUE = V4LUE + 1
20 PRINT V4LUE" ";
30 WHILE = FN MOD6(V4LUE) < > 0:DO = NOT WHILE: NEXT</lang>
==={{header|ASIC}}===
ASIC does not have a <code>do .. while</code> construct. Equivalent using <code>WHILE</code>:
|