RosettaCodeData/Task/Loops-Continue/BCPL/loops-continue.bcpl
2023-07-01 13:44:08 -04:00

11 lines
169 B
Text

get "libhdr"
let start() be
for i = 1 to 10
$( writen(i)
if i rem 5 = 0
$( wrch('*N')
loop
$)
writes(", ")
$)