home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol293 / wipe.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1986-12-17  |  640 b   |  23 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. char(0); {default drive}
  22.   result:=bdos(delete,addr(fcb[1]));
  23.   if result=255 then writeln('No f