home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / vipf.zip / vipf.mod < prev   
Text File  |  1994-03-02  |  575b  |  24 lines
  1. MODULE VIPF;
  2.  
  3.   (* Text mode IPF file viewer for IBM OS/2 2.0
  4.    * (c)1994 by rps *)
  5.  
  6.   IMPORT Lib, IO, Window, IPF, IPFView;
  7.  
  8.  
  9. VAR
  10.   InputName: ARRAY [0..79] OF CHAR;
  11. BEGIN (*TView*)
  12.   IO.WrStr( "VIPF - OS/2 text mode IPF viewer  (c)1994 by rps" );
  13.   IF Lib.ParamCount() = 0 THEN
  14.     IO.WrLn; IO.WrStr( "Syntax: VIPF inffile" );
  15.   ELSE
  16.     Lib.ParamStr( InputName, 1 );
  17.     IO.WrLn; IO.WrStr( "Reading " ); IO.WrStr( InputName ); IO.WrStr( "... " );
  18.     IPF.Open( InputName );
  19.     IPFView.BrowseToc;
  20.     IPF.Close;
  21.     Window.Clear;
  22.   END;
  23. END VIPF.
  24.