home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TPDB30.ZIP / STATUS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-08-03  |  642 b   |  33 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. Program Status;
  4.  
  5. (* Copyright 1989 Brian Corll *)
  6. (* DOS command line file status utility *)
  7. (* SYNTAX: STATUS filename.dbf *)
  8.  
  9. Uses Crt,Dos,TPDB;
  10.  
  11. VAR
  12.     CurrFile : DataObject;
  13.  
  14. BEGIN
  15.     CursorOff;
  16.     If ParamCount = 0 then
  17.     BEGIN
  18.         ClrScr;
  19.         Beep;
  20.         Flash(1,1,LightRed+BlackBG,'Syntax: STATUS filename.ext');
  21.         CursorOn;
  22.         Halt(1);
  23.     END;
  24.     NEW(CurrFile,Init(ParamStr(1)));
  25.     SetColor(LightCyan,Black);
  26.     CurrFile^.ShowStatus;
  27.     DISPOSE(CurrFile,Done);
  28.     SetColor(Black,Black);
  29.     ClrScr;
  30.     FlashC(12,Yellow+BlackBG,'Copyright 1989 Brian Corll');
  31.     CursorON;
  32. END.
  33.