/*
       New functions for BDS C v1.4x: "lprintf" and "lputs"
       Written 1/18/81 by Leor Zolman
*/

#include <bdscio.h>
#define LISTDEV 2

/*
       Formatted output to the list device. Usage:

       lprintf(format, arg1, arg2, ...)
       char *format;

       Works just like "printf", except the output line is written
       to the lineprinter instead of to the console.
*/

lprintf(format)
char *format;
{
       char txtlin[MAXLINE];
       _spr(txtlin,&format);
       lputs(txtlin);
}

/*
       Put a line out to the list device. Usage:

       lputs(str)
       char *str;

       Works just like "puts", except the output line goes to the
       printer instead of to the console:
*/

lputs(str)
char *str;
{
       char c;
       while (c = *str++) {
               if (c == '\n') putc('\r',LISTDEV);
               putc(c,LISTDEV);
       }
}