home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / ARCVIE13.ZIP / ARC_VIEW.PRG next >
Text File  |  1992-07-01  |  1KB  |  27 lines
  1. /*
  2.     ARC_VIEW.PRG
  3.     Author:  Eric J. Givler
  4.     Written: 06/05/92
  5.     Mods:    06/26/92 - Documented support for ARJ files.  Some 'mite' fixes.
  6.                         Added PAK support by modifying ARCDIR.PRG to not
  7.                         choke on 2nd char after chr(26) being > 12.
  8.     Purpose: View .ARC, .ARJ, .LZH, .PAK, .ZIP, .ZOO.  Will support more
  9.              later.  Secondfile option added as quick-kludge to show off
  10.              multi-browse (I use this in Mega-Cat Diskette Catalogger.)
  11. */
  12.  
  13. FUNCTION Main( filetoview, secondfile )
  14. LOCAL lmissing := .F., ncursor := setcursor(0)
  15.  
  16.     if ! empty( filetoview ) .and. (lmissing := file(filetoview))
  17.         FileView({ filetoview, secondfile })
  18.     else
  19.         ? 'ARC_VIEW 1.10, (c)1991,1992, Eric J. Givler, All Rights Reserved.'
  20.         ? 'Supports ARC, ARJ, LZH, PAK, ZIP, ZOO files.'
  21.         ? 'Syntax: ARC_VIEW <arcname> [<2ndfile>]'
  22.         ? 'Error: ' + if(lMissing, '<File not found>', '<Argument Missing>')
  23.     endif
  24.     setcursor(ncursor)
  25.  
  26. RETURN NIL
  27.