home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol063 / newfile.pas < prev    next >
Pascal/Delphi Source File  |  1984-04-29  |  747b  |  38 lines
  1. PROGRAM newfile ;    {$e+ error msgs}
  2.  
  3.   TYPE
  4.     $STRING0 =    STRING 0;
  5.     $STRING255 =     STRING 255;
  6.  
  7.   VAR
  8.     new_file:    TEXT;    {output file}
  9.     file_name:    STRING 12;
  10.  
  11.     in_string:    STRING 80;
  12.  
  13.     nchars:        INTEGER;
  14.     line_count:    INTEGER;    {#lines in file}
  15.  
  16. {PROCEDURE}
  17.  
  18. FUNCTION LENGTH (x: $STRING255) :INTEGER;  EXTERNAL;
  19.  
  20.  
  21.   BEGIN  {main procedure}
  22.     READLN(file_name);
  23.     WRITELN('Create new file named ',file_name);
  24.  
  25.     REWRITE(file_name, new_file);
  26.     nchars := 99;  {not zero}
  27.     WHILE nchars <> 0 DO BEGIN
  28.         WRITELN(':');
  29.         READLN(in_string);
  30.         nchars := LENGTH (in_string);
  31.         IF nchars > 0 THEN BEGIN
  32.             WRITELN(new_file,in_string);
  33.         END{IF};
  34.     END{WHILE};
  35.  
  36.     WRITELN(line_count,' lines in file ',file_name);
  37. END{PROGRAM new_file}.
  38.