RosettaCodeData/Task/Loops-For/BCPL/loops-for.bcpl

8 lines
111 B
Plaintext

get "libhdr"
let start() be
for i = 1 to 5
$( for j = 1 to i do wrch('**')
wrch('*N')
$)