emits:forth_usual — ordinary primitive
FORTH
EMITS ( n char -- )();p4:"emits";
EMITS ( n char -- )(
)
Emit _char_ _n_ times.
: EMITS ( n char -- ) SWAP 0 ?DO DUP EMIT LOOP DROP ;
also compare
: SPACES BL EMITS ; : SPACE BL EMIT ;