home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST293.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  1.1 KB  |  52 lines
  1. *******************
  2.  
  3. FUNCTION Netuse
  4.  
  5.    PARAMETER _thefile, _exuse, _howlong, _thealias
  6.  
  7.    IF PCOUNT() = 2
  8.       _thealias = ""
  9.       _howlong = IF((TYPE("scrnet2") != "U"), scrnet2, 5)
  10.  
  11.    ELSEIF PCOUNT() = 3
  12.      _thealias = ""
  13.  
  14.    ELSEIF PCOUNT() = 4
  15.      * This is a Good scenario
  16.    ELSE
  17.       RETURN(.F.)
  18.    ENDIF
  19.  
  20.    IF TYPE("_thefile")+TYPE("_exuse")+TYPE("_howlong")+TYPE("_thealias") != "CLNC"
  21.       RETURN(.F.)
  22.    ENDIF
  23.  
  24.    PRIVATE _4ever, _pause
  25.  
  26.    _pause = IF((TYPE("scrnet1") != "U"), scrnet1, 10)
  27.  
  28.    _4ever = (_howlong=0)
  29.    DO WHILE (_4ever .OR. _howlong > 0 )
  30.       IF _exuse
  31.          IF EMPTY(_thealias)
  32.             USE (_thefile) EXCLUSIVE
  33.          ELSE
  34.             USE (_thefile) EXCLUSIVE ALIAS &_thealias
  35.          ENDIF
  36.       ELSE
  37.          IF EMPTY(_thealias)
  38.             USE (_thefile)
  39.          ELSE
  40.             USE (_thefile) ALIAS &_thealias
  41.          ENDIF
  42.       ENDIF
  43.       IF !NETERR()
  44.          RETURN(.T.)
  45.       ENDIF
  46.       INKEY(_pause)
  47.       _howlong = _howlong - 1
  48.    ENDDO
  49.    RETURN(.F.)
  50.  
  51. * End of File
  52.