/********************************************************************** * Copyright (c) Digital Equipment Corporation 1984, 1985, 1986. * * All Rights Reserved. * * Reference "/usr/src/COPYRIGHT" for applicable restrictions. * **********************************************************************/ /* * SCCSID: @(#)system_.c 3.0 4/22/86 */ /* f77 interface to system routine */ system_(s, n) register char *s; long int n; { char buff[1000]; register char *bp, *blast; blast = buff + (n<1000 ? n : 1000L); for(bp = buff ; bp<blast && *s!='\0' ; ) *bp++ = *s++; *bp = '\0'; system(buff); }