home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / TPDB314.ZIP / STATUS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-01-31  |  646 b   |  29 lines
  1. {$A+,B+,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  2. {$M 65520,0,655360}
  3. Program Status;
  4.  
  5. Uses Crt,Dos,TPDB,TPDBScrn;
  6.  
  7. VAR
  8.         CurrFile : ^DBF;
  9.  
  10. begin
  11.      CursorOff;
  12.      If ParamCount = 0 then
  13.      begin
  14.           ClrScr;
  15.           Beep;
  16.           Flash(1,1,LightRed+BlackBG,'Syntax: STATUS filename.ext');
  17.           CursorOn;
  18.           Halt(1);
  19.      end;
  20.           NEW(CurrFile,Init(ParamStr(1)));
  21.           SetDBColor(LightCyan,Black);
  22.           CurrFile^.ShowStatus;
  23.           CurrFile^.Done;
  24.           SetDBColor(Black,Black);
  25.      ClrScr;
  26.      FlashC(12,Yellow+BlackBG,'Copyright 1991 Brian Corll');
  27.      CursorON;
  28. end.
  29.