home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / QBASIC / QBARCV3.ARC / RSB3.PAT < prev    next >
Encoding:
Text File  |  1989-03-21  |  1.2 KB  |  36 lines
  1. Make the following change to line 20143 of RBBSSUB2.BAS and re-compile with the
  2. new QBARCV3.OBJ, and your version of RBBS will be able to view the new Crushing
  3. method used with PAK10.EXE and PAK151.EXE .. and PKZIP!
  4.  
  5. 20143 Z$ = B$(ARC.INDEX)
  6.       CALL ALLCAPS (Z$)
  7.       CALL BRKFNAME (Z$,DRV$,PREFIX$,EXT$,FALSE)
  8.       IF EXT$ = "" THEN _
  9.          Z$ = Z$ + _
  10.               ".ARC" _
  11.       ELSE IF EXT$ <> "ARC" AND EXT$ <> "PAK" AND EXT$ <> "ZIP" THEN _  : Toad Hall
  12.               CALL QTPUT ("Only .ARC and .PAK files can be viewed",1) : _ 'RJS
  13.               RETURN
  14.       FILE.NAME.HOLD$ = Z$
  15.       FILE.NAME$ = Z$
  16.       CALL BADFILE (PREFIX$,BAD.FILE.NAME.INDEX)
  17.       ON BAD.FILE.NAME.INDEX GOTO 20144,20146,20147
  18.  
  19.  
  20.  
  21.                                                         Robert J. Simoneau
  22.                                                         DownEast Connection
  23.                                                         919-447-4324
  24.  
  25. v1.3 updates:
  26.  
  27. If you wish the "default" archive file type to be 'ZIP',
  28. change the above code to read:
  29.     IF EXT$ = "" THEN _
  30.       Z$ = Z$ + _
  31.         ".ZIP" _
  32.  
  33. David Kirschbaum
  34. Toad Hall
  35. (virtual complete rewrite of QBARC)
  36.