home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / atarist / astget.c < prev    next >
C/C++ Source or Header  |  2020-01-01  |  244b  |  19 lines
  1. /*
  2.  * astget.c server function GET
  3.  * implemented by B. Nebel
  4.  */
  5.  
  6. #include <osbind.h>
  7. #include <stdio.h>
  8. #include "astinc.h"
  9.  
  10. getsw()
  11. {
  12.  int result;
  13.  
  14.  flushinput();
  15.  spack('R',0,strlen(filnam1),filnam1);
  16.  result = recsw();
  17.  return (result);
  18. }
  19.