static char sccsid
[] = "@(#)print.c 4.2 %G%";
* Bell Telephone Laboratories
/* printing and io conversion */
IF (flags
&prompt
)==0 ANDF cmdadr
THEN
prs(cmdadr
); prs(colon
);
THEN
write(output
,s
,length(s
)-1);
REG
char *abuf
; REG POS a
, i
; INT pr
, d
;
abuf
=numbuf
; pr
=FALSE
; a
=n
;
DO
IF (pr
|= (d
=a
/i
)) THEN
*abuf
++=d
+'0' FI
WHILE (c
= *cp
, digit(c
)) ANDF c ANDF r
>=0
DO r
= r
*10 + c
- '0'; cp
++ OD