#include "forth.h"
/* Printed output. */

PRIMITIVE (".", Fdot, Sdot, NON_IMMEDIATE, ( n -- ) )
{
  fprintf (outfile, "%ld", (signed long) POP);
}


PRIMITIVE ("emit", Femit, Semit, NON_IMMEDIATE, ( n -- ) )
{
  fprintf (outfile, "%c\n", (unsigned char) POP);
}


PRIMITIVE ("cr", Fcr, Scr, NON_IMMEDIATE, ( -- ) )
{
  fprintf (outfile, "\n");
}