home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / HSPASCAL.LZH / HSPASCAL / NEW.PAS / SAVE_FIC.PAS < prev   
Pascal/Delphi Source File  |  1992-05-11  |  330b  |  22 lines

  1. Program tst_fichier;
  2.  
  3. Uses Dos,UtilUnit;
  4.  
  5. Const
  6.         Nom_fichier = 'e:\test.tst';
  7.  
  8. Procedure save_fichier;                
  9. Var   O : Text;
  10.  
  11. Begin
  12.       Rewrite(O,Nom_fichier);
  13.       WriteLn(O,'This is a test');
  14.       Close(O);
  15.       Writeln('Done.');
  16. End;
  17.  
  18. BEGIN
  19.         Clrscr;
  20.         Save_fichier;
  21. END.
  22.