home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB30.ZIP / ZAP.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1989-08-03  |  834 b   |  41 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. Program ZapFile;
  4.  
  5. (* Copyright 1989 Brian Corll *)
  6. (* DOS command line file zapper *)
  7. (* SYNTAX: ZAP filename.dbf *)
  8.  
  9. Uses Crt,TPDB;
  10. VAR
  11.     Message : String[80];
  12.     Zapper : ^DBF;
  13.  
  14. BEGIN
  15.     CursorOff;
  16.     IF ParamCount = 0 THEN
  17.     BEGIN
  18.         Beep;
  19.         ClrScr;
  20.         Flash(1,1,LightGreen+BlackBG,'ZAP filename.dbf');
  21.         CursorOn;
  22.         Halt(1);
  23.     END;
  24.     NEW(Zapper,Init(ParamStr(1)));
  25.     IF Zapper^.TotalRecs = 0 THEN
  26.     BEGIN
  27.         ClrScr;
  28.         Beep;
  29.         Message := 'Record count in file '+Upper(ParamStr(1))+' is already ZERO.';
  30.         Flash(1,1,LightGreen+BlackBG,Message);
  31.         CursorOn;
  32.         Halt(1);
  33.     END;
  34.     Zapper^.Zap;
  35.     DISPOSE(Zapper,Done);
  36.     ClrScr;
  37.     FlashC(12,White+BlackBG,'File has been zapped.');
  38.     FlashC(13,LightGreen+BlackBG,'Copyright 1989 Brian Corll');
  39.     CursorOn;
  40. END.
  41.