Name

emits:forth_usual — ordinary primitive

Synopsis

FORTH

EMITS ( n char -- )();
p4:"emits";

Description

Emit _char_ _n_ times.

 : EMITS             ( n char -- )
    SWAP 0 ?DO  DUP EMIT  LOOP DROP ;

also compare

 : SPACES BL EMITS ;
 : SPACE BL EMIT ;