RosettaCodeData/Task/Loops-Continue/BCPL/loops-continue.bcpl

12 lines
169 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
get "libhdr"
let start() be
for i = 1 to 10
$( writen(i)
if i rem 5 = 0
$( wrch('*N')
loop
$)
writes(", ")
$)