|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »LPRINTF.C«
└─⟦23f778bf6⟧ Bits:30005378 BDS C v1.46 & Pascal/MT+ v5.5 (Callan format)
└─ ⟦this⟧ »LPRINTF.C«
└─⟦4ada80662⟧ Bits:30005446 Pascal/MT+ v5.5 & XREF & BDS C v1.46
└─ ⟦this⟧ »LPRINTF.C«
/*
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);
å
å
«eof»