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
/
BEEHIVE
/
COMMS
/
PMODEM.ARC
/
ASCII.INC
next >
Wrap
Text File
|
1991-08-11
|
896b
|
40 lines
{********** ascii.inc **********}
{ ASCII transfer }
(*procedure go_capture(local: char);
const
CapSize = 2048;
var
CapBuf: array[1..CapSize] of Char;
begin
end; {go_capture); *) {causes error}
procedure send_ascii;
label re_name, loop1, loop2;
var
fdata: data2;
local, local1, other: char;
numberofrecords, time_to_send, mins, secs, tries: integer;
L: byte;
textf, sourceFile: text;
begin
assign(textf,sourceName);
reset(textf);
{openFile(sourceName);}
repeat
readln(textf,fdata);
writeln(fdata);
if KeyPressed then goto LOOP2;
delay(800);
modem_out_line(fdata);
until EOF(textf);
writeln(BELL);
writeln('++ transfer completed ++');
LOOP2:
close(textf);
eraseOK:= false;
writeln;
terminal_mode;
end; {send_a_file}