home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / MRG0619.ZIP / RSB40619.MRG < prev    next >
Encoding:
Text File  |  1990-06-23  |  1.3 KB  |  34 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RBBSSUB4.NEW
  3. * RBBSSUB4.BAS:  Date 5-21-1990  Size 122396 bytes
  4. * ------------[ Created 06-23-1990 23:39:55 ]------------
  5. * REPLACING old line(s) by new
  6. 60180 ' $SUBTITLE: 'TimeLock - Test TIME LOCK for premium features'
  7. ' $PAGE
  8. '
  9. '  NAME    --  TimeLock  (written by Doug Azzarito)
  10. '
  11. '  INPUTS  --  PARAMETER                   MEANING
  12. '              ZTimeLockSet               SECONDS/SESSION TO LOCK
  13. '
  14. '  OUTPUTS --  ZSubParm     -1 if feature is LOCKED
  15. '
  16. '  PURPOSE -- Check elapsed time for lock duration
  17. '
  18.       SUB TimeLock STATIC
  19.       CALL TimeRemain(MinsRemaining)
  20.       IF ZSecsUsedSession! >= ZTimeLockSet THEN _
  21.          ZOK = ZTrue : _
  22.          EXIT SUB
  23.       ZOutTxt$ = ZFirstName$
  24.       CALL NameCaps(ZOutTxt$)
  25.       CALL QuickTPut1 ("Sorry, " + ZOutTxt$ + ", function locked" + _
  26.                    STR$(INT((ZTimeLockSet-ZSecsUsedSession!)/60)) + _' DA11102
  27.                    " more minutes" + _
  28.                    STR$(INT(ZTimeLockSet-ZSecsUsedSession!) MOD 60) + " seconds")
  29.       CALL BufFile(ZHelpPath$+"TIMELOCK"+ZHelpExtension$,WasX)
  30.       ZOK = ZFalse
  31. * ------[ first line different ]------
  32.       ZLastIndex = 0                                                 ' KG061501
  33.       END SUB
  34.