home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / RBTCH151.ZIP / MRG1230.ZIP / BTCH173C.MRG < prev    next >
Encoding:
Text File  |  1992-01-11  |  4.2 KB  |  88 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 9-1-1991  Size 100075 bytes
  4. * ------------[ Created 11-28-1991 15:44:45 ]------------
  5. * REPLACING old line(s) by new
  6. 20400 CALL TimeBack (1)
  7. * ------[ first line different ]------
  8.       DupeCount = 0                                                    ' ds112801
  9.       GOSUB 20420
  10.       ZAutoLogOffReq = 0
  11.       FirstUpld = ZAnsIndex
  12.       GOTO 20430
  13. * REPLACING old line(s) by new
  14. 20432 FOR ZAnsIndex = FirstUpld TO LastUpld
  15. * ------[ first line different ]------
  16.          IF (ZBatchProto = 0 AND ZuserXferDefault$ <> "N") AND ZAnsIndex > 1 THEN _  ' ds112801
  17.             ZAnsIndex = LastUpld + 1 : _                             ' ds112801
  18.             EXIT FOR                                                 ' ds112801
  19.          GOSUB 20470
  20.          GOSUB 20435
  21.          FirstUpld = FirstUpld + 1
  22.          IF ZFileSysParm > 1 THEN _
  23.             ZAnsIndex = LastUpld + 1
  24.       NEXT
  25.       IF (DupeCount > 0 AND ZAnsIndex <> 1) _                          ' ds112801
  26.             AND (ZBatchProto <> 0 OR ZUserXferDefault$ = "N") THEN _   ' ds112801
  27.         CALL QuickTPut1 (" ") : _                                      ' ds112801
  28.         CALL QuickTPut1 ("List of Duplicate Files:") : _               ' ds112801
  29.         CALL QuickTPut ("-------------------------",1) : _             ' ds112801
  30.         FOR DCount = 1 to DupeCount : _                                ' ds112801
  31.             CALL QuickTPut1 ("     " + ZUserIn$(DCount)) : _           ' ds112801
  32.         NEXT : _                                                       ' ds112801
  33.         CALL QuickTPut1 (" ") : _                                      ' ds112801
  34.         CALL QuickTPut1 ("Please remove noted files from your Batch Upload List") ' ds112801
  35.       ZCmdTransfer$ = ""
  36.       RETURN
  37. * REPLACING old line(s) by new
  38. 20435 ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  39.       ExtSrch = ZFalse
  40.       IF INSTR(ZFileNameHold$,".") = 0 THEN _
  41.          ZFileNameHold$ = ZFileNameHold$ + "." + ZDefaultExtension$
  42.       CALL AllCaps(ZFileNameHold$)
  43.       ZFileName$ = ZFileNameHold$
  44. * ------[ first line different ]------
  45.       ZUserIn$(ZAnsIndex) = ZFileName$                               ' ds112801
  46.       ZViolation$ = "Upload "
  47.       CALL NoPath (ZFileName$,BadFileNameIndex)
  48.       IF BadFileNameIndex THEN _
  49.          GOTO 20451
  50.       CALL BadFile (ZFileName$,BadFileNameIndex)
  51.       ON BadFileNameIndex GOTO 20440,20451,20515
  52. * REPLACING old line(s) by new
  53. 20454 CALL QuickTPut1 ("Thanks, but we already have " + ZFileNameHold$)
  54. * ------[ first line different ]------
  55.       IF ZBatchProto <> 0 OR ZUserXferDefault$ = "N" THEN _            ' ds112801
  56.          DupeCount = DupeCount + 1 : _                                 ' ds112801
  57.          ZUserIn$(DupeCount) = ZUserIn$(ZAnsIndex)                     ' ds112801
  58.       CALL UpdtCalr ("Upload duplicate " + ZFileNameHold$,1)
  59.       RETURN
  60. * REPLACING old line(s) by new
  61. 20475 ZWasZ$ = ZUpldDriveFile$
  62.       CALL FindFree
  63.       IF VAL(ZFreeSpace$) < 4096 THEN _
  64.          CALL QuickTPut1 ("No room for uploads.  Try tomorrow.") : _
  65.          ZAnsIndex = ZLastIndex + 1 : _
  66.          RETURN
  67. * ------[ first line different ]------
  68.       IF ZBatchProto <> 0 OR ZUserXferDefault$ = "N" THEN _          ' ds112801
  69.          IF (ZAnsIndex < LastUpld) OR DupeCount > 0 THEN _           ' ds112801
  70.             RETURN                                                   ' ds112801
  71.       IF (ZUserIn$(1) = "U" OR ZUserIn$(1) = "u") THEN _             ' ds121401
  72.          ZUserIn$(1) = ZUserIn$(2)                                   ' ds121401
  73.       ZFileNameHold$ = ZUserIn$(1)                                   ' ds123001
  74.       CALL AllCaps(ZFileNameHold$)                                   ' ds123001
  75.       IF ZBatchProto = 0 AND ZuserXferDefault$ <> "N" THEN _         ' ds112801
  76.          ZLastIndex = 1                                              ' ds112801
  77.       ZOutTxt$ = "Upload disk has" + _
  78.            ZFreeSpace$
  79.       GOSUB 21640
  80.       IF ZFileSysParm > 1 THEN _
  81.          RETURN
  82.       ZLine25$ = "(U) " + _
  83.                  ZFileNameHold$
  84.       ZSubParm = 2
  85.       CALL Line25
  86.       ZOutTxt$ = ""
  87.       ZOK = ZTrue
  88.