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 / CPM / TURBOPAS / WIPE.PAS < prev    next >
Pascal/Delphi Source File  |  2000-06-30  |  521b  |  21 lines
  1. program wipe_bak_files;
  2. {
  3.  Delete  CP/M-80 *.bak files while in Turbo environment.
  4.  Ue by block reading to top of Turbo progrm, running, and then block erase.
  5.  
  6.                    ....Richard J. Hunter [70227,137]
  7.                        June 13, 1985
  8. }
  9. const
  10.   delete =  19; {bdos delete file function}
  11. var
  12.   fcb    :  string[12];
  13.   result :  integer;
  14.  
  15. begin {main}
  16.   fcb:='?????????BAK';
  17.   fcb[1]:=char(0); {default drive}
  18.   result:=bdos(delete,addr(fcb[1]));
  19.   if result=255 then writeln('No files found!');
  20. end. {main}
  21.