RosettaCodeData/Task/Loops-For/FOCAL/loops-for.focal

5 lines
64 B
Plaintext

01.10 FOR I=1,4; DO 2.0
02.10 FOR J=1,I; TYPE "*"
02.20 TYPE !