/*
 * astget.c server function GET
 * implemented by B. Nebel
 */

#include <osbind.h>
#include <stdio.h>
#include "astinc.h"

getsw()
{
 int result;

 flushinput();
 spack('R',0,strlen(filnam1),filnam1);
 result = recsw();
 return (result);
}