#include "bbs.h"

#define DSKBUFF   20480L                  /* For Sending */
extern char Xprlib[];
extern UBYTE serin[];
extern char prototitle[];
// extern BYTE ZWindow;
char diskbuff[DSKBUFF];

int Zmodem_Send(char *flname)
{
 int c;
 char *p, *q;
 char temp[100];


	if(Whence_The_Logon>=REMOTE_LOGON)
		{
		AEPutStr("\r\n");
		AEPutStr(prototitle);
		AEPutStr(": Ready to Send\r\nControl-X to Cancel\r\n");

//		if(strcmp(Xprlib,"INTERNAL") && GET_BIT(ACS_XPR_SEND))
//			{
			XPRSend(flname);
			return(1);
//			}

/*
     sprintf(temp,"[Node %d] Transmit Window",Cmds->AcLvl[LVL_NODE_NUMBER]);
     strcpy(ZModemInfo.TitleBar,temp);
     ZModemInfo.RecPos=ZModemInfo.Filesize=ZModemInfo.ErrorPos=
	    ZModemInfo.LastTime=ZModemInfo.ApxTime=ZModemInfo.Cps=
	    ZModemInfo.Eff=ZModemInfo.ResumePos=0;
     OpenZDisplay();
     ZWindow=1;
	    Delay(50L);
	    AbortIO(ReadSerReq);
	    WaitIO(ReadSerReq);

	    q = strlen(flname)+flname+1;
	    for(p = flname; p <= q; p++) {
		    if(*p==' ') { *p = '\0'; continue; }
		    if(*p=='\0') { *(++p) = '\0'; break; }
	    }

 if(!CheckIO(TimerMsg)) AbortIO(TimerMsg);
          WaitIO(TimerMsg);
   
   	c = proto(ReadSerReq, WriteSerReq, TimerMsg, &diskbuff[0], DSKBUFF,
                   (long)Online_Baud, flname, 1, 0);


	    /* should restart all pending IO's */

	    ReadSerReq->IOSer.io_Command = CMD_READ;
	    ReadSerReq->IOSer.io_Data    = (APTR)&serin[0];
	    ReadSerReq->IOSer.io_Length  = 1L;
	    SendIO(ReadSerReq);

     CloseZDisplay();
     ZWindow=0;
	    Delay(70L);

     AEPutStr(prototitle);
     if(c) AEPutStr(" download successful\r\n");
     else  AEPutStr(" download unsuccessful\r\n");

	    return c;

*/

 }
  else	AEPutStr("\r\nNot supported locally...");

return(0);
}