home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / ENTERPRS / CPM / UTILS / S / TPASPGM.ARC / DEL.PAS < prev    next >
Pascal/Delphi Source File  |  1989-09-27  |  1KB  |  40 lines
  1. Program del ;
  2.   { Deletes a file from the directory.
  3.     To be called from within TURBO -- WPM, 9/15/84 }
  4.  
  5. {$I-  Turn off auto I/O check }
  6.  
  7. type
  8.     filename = string[14] ;
  9.  
  10. var
  11.     fname    : filename ;
  12.     delfile  : file ;
  13.     done     : boolean ;
  14.     i        : integer ;
  15.  
  16. begin
  17.     writeln ;
  18.     writeln ('This program deletes a file.') ;
  19.     writeln ('To quit, hit <Return> without entering anything.') ;
  20.     done := false ;
  21.     repeat
  22.         writeln ;
  23.         write   ('File to delete? (d:filename.ext) ') ;
  24.         readln  (fname) ;
  25.         if fname = '' then
  26.             done := true
  27.         else
  28.           begin
  29.             for i := 1 to length (fname) do
  30.                 fname[i] := upcase(fname[i]) ;
  31.             assign  (delfile, fname) ;
  32.             erase   (delfile) ;
  33.             if ioresult = 0 then
  34.                 writeln ('Done.')
  35.             else
  36.                 writeln ('No file.')
  37.           end
  38.     until done
  39. end.
  40.