{********** 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}