xref: /csrg-svn/usr.bin/f77/libF77/CCI/outstr_.c (revision 47942)
1*47942Sbostic /*-
2*47942Sbostic  * Copyright (c) 1991 The Regents of the University of California.
3*47942Sbostic  * All rights reserved.
4*47942Sbostic  *
5*47942Sbostic  * This code is derived from software contributed to Berkeley by
6*47942Sbostic  * Computer Consoles Inc.
7*47942Sbostic  *
8*47942Sbostic  * %sccs.include.proprietary.c%
929957Smckusick  */
1029957Smckusick 
11*47942Sbostic #ifndef lint
12*47942Sbostic static char sccsid[] = "@(#)outstr_.c	5.2 (Berkeley) 04/12/91";
13*47942Sbostic #endif /* not lint */
14*47942Sbostic 
1529957Smckusick #include <stdio.h>
1629957Smckusick 
1729957Smckusick /* print a character string */
outstr_(s,n)1829957Smckusick outstr_(s, n)
1929957Smckusick register char *s;
2029957Smckusick register long n;
2129957Smckusick {
2229957Smckusick while ( --n >= 0)
2329957Smckusick 	putchar(*s++);
2429957Smckusick }
25