Loops/Do-while: Difference between revisions
Loops/Do-while in various BASIC dialents (QBasic, XBasic and Tiny BASIC)
(Loops/Do-while in Asymptote) |
(Loops/Do-while in various BASIC dialents (QBasic, XBasic and Tiny BASIC)) |
||
Line 516:
=={{header|BASIC}}==
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
{{works with|Just BASIC}}
Line 610 ⟶ 611:
60 END
</lang>
==={{header|QBasic}}===
{{works with|QBasic|1.1}}
{{works with|QuickBasic|4.5}}
{{works with|Just BASIC}}
<lang qbasic>a = 0
DO
a = a + 1
PRINT a;
LOOP WHILE a MOD 6 <> 0</lang>
==={{header|Sinclair ZX81 BASIC}}===
Line 618 ⟶ 629:
==={{header|True BASIC}}===
<lang basic>LET i = 0
LET i = 0▼
DO
Line 626 ⟶ 636:
LOOP WHILE REMAINDER(i, 6) <> 0
PRINT
END</lang>
</lang>▼
==={{header|XBasic}}===
{{works with|Windows XBasic}}
<lang xbasic>PROGRAM "Do/While"
VERSION "0.0001"
DECLARE FUNCTION Entry ()
FUNCTION Entry ()
a = 0
DO
a = a + 1
PRINT a;
LOOP WHILE a MOD 6 <> 0
END FUNCTION
END PROGRAM</lang>
==={{Header|Tiny BASIC}}===
<lang Tiny BASIC> REM TinyBasic does not have a do .. while construct. Equivalent using conditional jump:
▲ LET i = 0
10 LET i = i + 1
PRINT i
IF (i / 6) * 6 <> i THEN GOTO 10
▲ END</lang>
==={{header|Yabasic}}===
| |||