>>>>>>>>>>>>>>>>>>>>>>>>>> MAKEDATA.TEXT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>


Program  make_kermit_data;

var  setupname, dest_vol : string;
     tf : text;
     df : file of integer;
     infile : array[1..28] of integer;
     i  : integer;


begin
  writeln('name of the kermit setup text file? ');
  readln( setupname );
  writeln('write final kermit.data file to which volume? ');
  readln( dest_vol );
  reset( tf, setupname );
  for i := 1 to 28 do readln( tf, infile[i] );
  close( tf );
  rewrite( df, concat( dest_vol, 'KERMIT.DATA' ) );
  for i := 1 to 28 do
    begin
      df^ := infile[i];
      put( df );
    end;
  close( df, lock );
  writeln('ready');
end.