RosettaCodeData/Task/Loops-For/TransFORTH/loops-for.fth

7 lines
81 B
Forth

: PRINTSTARS ( ROWS -- )
1 + 1 DO
I 0 DO
PRINT " * " LOOP
CR LOOP ;
5 PRINTSTARS