RosettaCodeData/Task/Loops-For/TransFORTH/loops-for.fth
2023-07-01 13:44:08 -04:00

6 lines
81 B
Forth

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