home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / MISC / DATAREP.ZIP / WRITEF.INC < prev   
Encoding:
Text File  |  1990-02-22  |  1.5 KB  |  42 lines
  1. {When stimulus files are created or modified, the results can be  }
  2. {written to disk.                                                 }
  3.  
  4. PROCEDURE Write_file (Which_file: CHAR);
  5.         VAR I, Number_in_set: INTEGER;
  6.         File_name: VARYING [10] OF CHAR;
  7.         Working_file: FILE OF Stimulus;
  8.         BEGIN
  9.         Bottom_line;
  10.         CASE Which_file OF 
  11.              'F','f': BEGIN 
  12.                       File_name:= 'Ffile'; 
  13.                       Number_in_set:= Number_present_in_set ('F') 
  14.                       END;
  15.              'G','g': BEGIN
  16.                       File_name:= 'Gfile';
  17.                       Number_in_set:= Number_present_in_set ('G')
  18.                       END;
  19.              'T','t': BEGIN
  20.                       File_name:= 'Tfile';
  21.                       Number_in_set:= Number_present_in_set ('T')
  22.                       END;
  23.              END;
  24.         OPEN (Working_file, File_name, NEW);
  25.         REWRITE (Working_file);
  26.         WRITELN;
  27.         Bottom_line;
  28.         WRITE  ('Writing', Number_in_set:3,' stimuli to ', 
  29.                  Which_file:1, ' file.');
  30.         FOR I:= 1 TO Number_in_set DO
  31.                 BEGIN
  32.                 CASE Which_file OF
  33.                      'F','f': Working_file^:= F_set [I];
  34.                      'G','g': Working_file^:= G_set [I];
  35.                      'T','t': Working_file^:= T_set [I];
  36.                      END;
  37.                 PUT (Working_file);
  38.                 END;
  39.         WRITELN;
  40.         CLOSE (Working_file);
  41.         END;
  42.