RosettaCodeData/Task/Loops-Break/S-BASIC/loops-break-1.basic

14 lines
187 B
Text
Raw Permalink Normal View History

2024-07-13 15:19:22 -07:00
var n = integer
while (1 = 1) do
begin
n = int(rnd(1) * 20)
print n;
if n = 10 then goto 0_done
n = int(rnd(1) * 20)
print n
end
0_done print " That's all!"
end