home *** CD-ROM | disk | FTP | other *** search
/ kermit.columbia.edu / kermit.columbia.edu.tar / kermit.columbia.edu / ucsdappleii / makedata.text < prev    next >
Text File  |  1986-04-07  |  677b  |  30 lines
  1. >>>>>>>>>>>>>>>>>>>>>>>>>> MAKEDATA.TEXT >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
  2.  
  3.  
  4. Program  make_kermit_data;
  5.  
  6. var  setupname, dest_vol : string;
  7.      tf : text;
  8.      df : file of integer;
  9.      infile : array[1..28] of integer;
  10.      i  : integer;
  11.  
  12.  
  13. begin
  14.   writeln('name of the kermit setup text file? ');
  15.   readln( setupname );
  16.   writeln('write final kermit.data file to which volume? ');
  17.   readln( dest_vol );
  18.   reset( tf, setupname );
  19.   for i := 1 to 28 do readln( tf, infile[i] );
  20.   close( tf );
  21.   rewrite( df, concat( dest_vol, 'KERMIT.DATA' ) );
  22.   for i := 1 to 28 do
  23.     begin
  24.       df^ := infile[i];
  25.       put( df );
  26.     end;
  27.   close( df, lock );
  28.   writeln('ready');
  29. end.
  30.