{$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
{$M 65520,0,655360}
Program Status;

Uses Crt,Dos,TPDB,TPDBScrn;

VAR
        CurrFile : ^DBF;

begin
     CursorOff;
     If ParamCount = 0 then
     begin
          ClrScr;
          Beep;
          Flash(1,1,LightRed+BlackBG,'Syntax: STATUS filename.ext');
          CursorOn;
          Halt(1);
     end;
          NEW(CurrFile,Init(ParamStr(1)));
          SetDBColor(LightCyan,Black);
          CurrFile^.ShowStatus;
          CurrFile^.Done;
          SetDBColor(Black,Black);
     ClrScr;
     FlashC(12,Yellow+BlackBG,'Copyright 1991 Brian Corll');
     CursorON;
end.