Loops/Do-while: Difference between revisions
Content deleted Content added
PascalABC.NET |
Add SmallBASIC |
||
| Line 826: | Line 826: | ||
30 PRINT X |
30 PRINT X |
||
40 IF X/6<>INT (X/6) THEN GOTO 20</syntaxhighlight> |
40 IF X/6<>INT (X/6) THEN GOTO 20</syntaxhighlight> |
||
==={{header|SmallBASIC}}=== |
|||
<syntaxhighlight lang="qbasic"> |
|||
repeat |
|||
v++ |
|||
print v |
|||
until(v mod 6 == 0) |
|||
</syntaxhighlight> |
|||
==={{Header|Tiny BASIC}}=== |
==={{Header|Tiny BASIC}}=== |
||