Ultrix-3.1/src/libF77/outstr_.c

Compare this file to the similar file:
Show the results in this format: 


/**********************************************************************
 *   Copyright (c) Digital Equipment Corporation 1984, 1985, 1986.    *
 *   All Rights Reserved. 					      *
 *   Reference "/usr/src/COPYRIGHT" for applicable restrictions.      *
 **********************************************************************/

/*	SCCSID: @(#)outstr_.c	3.0	4/22/86
/*	(System 5)  outstr_.c  1.2  */
#include <stdio.h>

/* print a character string */
outstr_(s, n)
register char *s;
register long n;
{
while ( --n >= 0)
	putchar(*s++);
}