{       @(#)sack.sa 1.1      }
 
PROGRAM sack(srecords, termin, termout);
{  INVOKE SACK FROM VERSADOS AS FOLLOWS:
   =SACK filename.mx,#CNxx,#CNxx  Where xx is your Terminal Id.
   Program will download an S-record file according to ACK/NACK flow control.
}
CONST
 ack     =6;
VAR
 srecords,termin,termout     :TEXT;
 sdata             :STRING[262];
 
FUNCTION getchar (VAR f: TEXT): char; FORWARD;
 
BEGIN
 reset (srecords);
 reset (termin);
 rewrite (termout);
 WHILE NOT eof(srecords) DO
  BEGIN
    readln (srecords, sdata);
    REPEAT
      writeln (termout, sdata);
    UNTIL (getchar(termin) = chr(ack));
  END
END.