# sendsw - send one or more file to the remote system # integer function sendsw(x) include ratdef include kerdef include kercom # integer x,status integer sdata,sfile,seof,sinit,sbreak state=BIGS n=0 eol=CR numtry=0 status=YES call ttyraw # if your system does not support multi-tasking then take out the next line if(host==FALSE)task unhung,id=2,pri=255 while(status==YES){ if(state==BIGD)state=sdata(x) else if(state==BIGF)state=sfile(x) else if(state==BIGZ)state=seof(x) else if(state==BIGS)state=sinit(x) else if(state==BIGB)state=sbreak(x) else if(state==BIGC){ sendsw=TRUE # if no multi-tasking then take out this whole compund if statement if(host==FALSE){ call tidk(2,ier) call wait(1,2,ier) } call ttycook return } else if(state==BIGA){ sendsw=FALSE # if no multi-tasking then take out this whole compound if statement if(host==FALSE){ call tidk(2,ier) call wait(1,2,ier) } call ttycook return } else { status=NO sendsw=FALSE # if no multi-tasking then take out this whole compound if statement if(host==FALSE){ call tidk(2,ier) call wait(1,2,ier) } } } call ttycook return end