00001 /* Copyright INRIA */ 00002 #include <string.h> 00003 #include "machine.h" 00004 00005 extern void C2F(out)(); 00006 00007 void Cout(str) 00008 char *str; 00009 { 00010 int l; 00011 l = strlen(str) + 1; 00012 C2F(out)(str,l); 00013 }