home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / DWNTIME.ZIP / RSB5TIME.MRG < prev    next >
Text File  |  1993-03-13  |  4KB  |  85 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 6-20-1992  Size 116575 bytes
  4. * ------------[ Created 09-02-1992 21:42:52 ]------------
  5. * INSERTING new line(s)
  6. 20789 ZSubParm = 2                                                   ' DS090201
  7.       CALL Line25
  8.       ZOutTxt$ = "Transfer Time:" + _
  9.          STR$(INT(ZBlocksInFile# / 60)) + _
  10.          " min," + _
  11.          STR$(INT(ZBlocksInFile# - (INT(ZBlocksInFile# / 60) * 60))) + _
  12.          " sec (approx)"
  13.       GOSUB 21650
  14.       IF ZFileSysParm > 1 THEN _
  15.          RETURN
  16. * REPLACING old line(s) by new
  17. * ------[ first line different ]------
  18. 20790 CALL CheckTimeRemain (MinsRemaining)                           ' DS090201
  19.       IF ZSubParm = -1 THEN _
  20.          ZFileSysParm = 6 : _
  21.          RETURN
  22.       ZOK = ZTrue
  23.       Temp = ZExtraDnldTime
  24.       CALL ChkAddedTime (Temp)
  25.       Temp = MinsRemaining + Temp
  26.       ZWasA = INT(ZBlocksInFile# / 60) + 1
  27.       IF ZWasA <= Temp THEN _
  28.          GOTO 20793
  29.       NoTimeDnFlag = 1                                               ' TG031201
  30.       IF ZDownFiles < 2 THEN _                                       ' DS090201
  31.          CALL AllCaps (ZFileNameHold$) : _                           ' DS090201
  32.          ZOutTxt$ = ZFileNameHold$ + " Not enough minutes left!  Need" _
  33.                   + STR$(ZWasA) + "  have" + STR$(Temp) : _          ' DS090201
  34.          CALL QuickTPut1 (ZOutTxt$) : _                              ' DS090201
  35.          IF NoTimeDnFlag THEN _                                      ' DS090201
  36.             CALL UpdtCalr (ZOutTxt$,2)                               ' DS090201
  37.       IF ZDownFiles < 2 THEN _
  38.          GOTO 20791                                                  ' DS090201
  39.       CALL OpenWork (2,ZNodeWorkFile$)                               ' DS090201
  40.       WHILE NOT EOF(2) AND NoTimeDnFlag                              ' DS090201
  41.             CALL ReadDir (2,1)                                       ' DS090201
  42.             CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue)     ' DS090201
  43.             ZFileName$ = ZWasY$ + WasX$                              ' DS090201
  44.             ZOutTxt$ = ZFileName$ + " Not enough minutes left!  Need" _
  45.                        + STR$(ZWasA) + "  have" + STR$(Temp)         ' DS090201
  46.             CALL UpdtCalr (ZOutTxt$,2)                               ' DS090201
  47.       WEND                                                           ' DS090201
  48.       NoTimeDnFlag = 0                                               ' DS090201
  49.       CLOSE 2                                                        ' DS090201
  50.       ZOutTxt$ = "Not enough minutes left!  Need"  _
  51.                   + STR$(ZWasA) + "  have" + STR$(Temp)              ' DS090201
  52.       CALL QuickTPut1 (ZOutTxt$)                                     ' DS090201
  53. * REPLACING old line(s) by new
  54. * ------[ first line different ]------
  55. 20791 IF ZDownFiles < 2 THEN _                                       ' DS090201
  56.          GOTO 20792
  57.       ZLastIndex = 0
  58.       ZOutTxt$ = "Edit files to download ([Y],N)"
  59.       ZTurboKey = - ZTurboKeyUser
  60.       GOSUB 21668
  61.       IF ZNo THEN _
  62.          LastDnld = 0 : _
  63.          GOTO 20792
  64.       Temp = 0
  65.       CALL OpenWork (2,ZNodeWorkFile$)
  66.       WHILE NOT EOF(2)
  67.          CALL ReadDir (2,1)
  68.          CALL BreakFileName (ZOutTxt$,DR$,ZWasY$,WasX$,ZTrue)
  69.          ZFileName$ = ZWasY$ + WasX$
  70.          ZOutTxt$ = "Download " + ZFileName$ + " (Y,[N])"
  71.          ZTurboKey = - ZTurboKeyUser
  72.          GOSUB 21668
  73.          IF ZYes THEN _
  74.             Temp = Temp + 1 : _
  75.             ZOutTxt$(Temp) = ZFileName$
  76.       WEND
  77.       CLOSE 2
  78.       ZAnsIndex = 1
  79.       ReStart = (Temp > 0)
  80.       LastDnld = Temp
  81.       ZLastIndex = Temp
  82.       FOR WasX = 1 TO  Temp
  83.          ZUserIn$(WasX) = ZOutTxt$(WasX)
  84.       NEXT
  85.