home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
os9.tar.gz
/
os9.tar
/
os9get.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-08-16
|
741b
|
35 lines
/*
* os9get.c
*/
#include "os9inc.h"
/*
* Kermit Get File from server function
*
* Implemented by W.G. Seaton, NASA SC-LPS-32 KSC,Fl
* File: kermget.c
* 12/11/84
*/
getsw()
{
int len, num, retries;
char rstate, sfile();
do {
state = 'R'; /* Issue receive from host server */
fp = NULL;
for (retries = 0;
(rstate = sfile()) == FALSE && retries < MAXTRY;
retries++)
;
if (rstate == FALSE)
return(FALSE);
state = recsw();
} while (gnxtfl());
return(state); /* task completed */
}