1*29957Smckusick /* 2*29957Smckusick * @(#)system_.c 5.1 (Berkeley) 11/03/86 3*29957Smckusick */ 4*29957Smckusick 5*29957Smckusick /* f77 interface to system routine */ 6*29957Smckusick 7*29957Smckusick system_(s, n) 8*29957Smckusick register char *s; 9*29957Smckusick long int n; 10*29957Smckusick { 11*29957Smckusick char buff[1001]; 12*29957Smckusick register char *bp, *blast; 13*29957Smckusick 14*29957Smckusick blast = buff + (n<1000 ? n : 1000L); 15*29957Smckusick 16*29957Smckusick for(bp = buff ; bp<blast && *s!='\0' ; ) 17*29957Smckusick *bp++ = *s++; 18*29957Smckusick *bp = '\0'; 19*29957Smckusick system(buff); 20*29957Smckusick } 21