Loops/While: Difference between revisions

Content added Content deleted
(Added FreeBASIC)
(Added Agena)
Line 109: Line 109:
end loop;
end loop;
end;</lang>
end;</lang>

=={{header|Agena}}==
Tested with Agena 2.9.5 Win32
<lang agena>scope
local i := 1024;
while i > 0 do
print( i );
i := i \ 2
od
epocs</lang>


=={{header|Aime}}==
=={{header|Aime}}==