Loops/While: Difference between revisions

m (→‎{{header|Minimal BASIC}}: {{works with|Nascom ROM BASIC|4.7}} added.)
Line 751:
40 END
</lang>
 
==={{Header|Tiny BASIC}}===
<lang Tiny BASIC> REM TinyBasic does not have a do ..no <code>while</code> construct. Equivalent using conditional jump:
<lang tinybasic> REM Loops/While
LET iI = 01024
10 IF (i / 6) * 6I <>= i0 THEN GOTO 1020
PRINT iI
10 LET iI = iI +/ 12
GOTO 10
20 END</lang>
{{out}}
<pre>
1024
512
256
128
64
32
16
8
4
2
1
</pre>
 
==={{header|True BASIC}}===
Line 760 ⟶ 784:
LOOP
END</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|bc}}==
Anonymous user