home *** CD-ROM | disk | FTP | other *** search
/ Jason Aller Floppy Collection / 189.img / TCS120S.ZIP / NET.PAS < prev    next >
Pascal/Delphi Source File  |  1987-02-24  |  1KB  |  48 lines
  1. Overlay Procedure Net_Overlay;
  2.   var Ss:anystr;
  3.   Chrr:char;
  4.   Simplex:boolean;
  5.  
  6. function nextone:anystr;
  7. var zed,one:anystr;
  8. ct:integer;
  9. finished:boolean;
  10.    begin
  11.    finished:=false;
  12.    NEXTONE:='';
  13.    ct:=0;
  14.    while not finished and (ct<99) do begin
  15.            cT:=ct+1;
  16.                             zed:=strr(ct)+'.in';
  17.                 if not exist(UPLOADDIR+zed) then      begin
  18.                  nextone:=zed;finished:=true;end;
  19.                             end;
  20.    end;
  21.  
  22.  
  23. begin
  24. modeminlock:=false;modemoutlock:=false;local:=false;
  25. clrscr;
  26. writeln (^M' EmuleXmodem Transfer System -- Emulex System Linkup--'^M);
  27. ymodem:=false;super:=false;smodem:=false;kermit:=false;
  28.  
  29. repeat
  30.  
  31. repeat until (numchars>0) or (not carrier);
  32.   chrr:=waitchar;
  33.  
  34.  
  35.   if chrr='*' then begin
  36.      clearitall;
  37.  
  38.      simplex:=protocolxfer (False,true,uploaddir+NEXTONE);
  39.      CLEARITALL;
  40.      if simplex then writelog (' Emulex Mail Linkup, Message Received Xmodem ')
  41.      ELSE            writelog ('Emulex  Mail Linkup, Message Received aborted ');
  42.                    end;
  43.  
  44.  
  45. until (not carrier);
  46.  
  47. end;
  48.