home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / PMODEM.ARK / ASCII.INC next >
Text File  |  1987-02-22  |  896b  |  40 lines
  1. {********** ascii.inc **********}
  2.          { ASCII transfer }
  3.  
  4. (*procedure go_capture(local: char);
  5. const
  6.   CapSize = 2048;
  7. var
  8.   CapBuf: array[1..CapSize] of Char;
  9. begin
  10. end; {go_capture); *) {causes error}
  11.  
  12. procedure send_ascii;
  13. label re_name, loop1, loop2;
  14. var
  15.   fdata: data2;
  16.   local, local1, other: char;
  17.   numberofrecords, time_to_send, mins, secs, tries: integer;
  18.   L: byte;
  19.   textf, sourceFile: text;
  20. begin
  21.   assign(textf,sourceName);
  22.   reset(textf);
  23. {openFile(sourceName);}
  24.   repeat
  25.     readln(textf,fdata);
  26.     writeln(fdata);
  27.     if KeyPressed then goto LOOP2;
  28.     delay(800);
  29.     modem_out_line(fdata);
  30.   until EOF(textf);
  31.   writeln(BELL);
  32.   writeln('++ transfer completed ++');
  33. LOOP2:
  34.   close(textf);
  35.   eraseOK:= false;
  36.   writeln;
  37.   terminal_mode;
  38. end; {send_a_file}
  39.  
  40.