home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / BBS_UTIL / RBTCH242.ZIP / EXAMPLE.ZIP / MRG1230.ZIP / BATCH174.MRG next >
Text File  |  1992-01-01  |  5KB  |  90 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce RBBSSUB5.NEW
  3. * RBBSSUB5.BAS:  Date 12-3-1991  Size 132993 bytes
  4. * ------------[ Created 12-11-1991 22:08:17 ]------------
  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.          IndexSave = ZAnsIndex                                       ' KG020201
  16. * ------[ first line different ]------
  17.          IF (ZBatchProto = 0 AND ZuserXferDefault$ <> "N") AND IndexSave > 1 THEN _  ' ds112801
  18.             IndexSave = LastUpld + 1 : _                             ' ds112801
  19.             EXIT FOR                                                 ' ds112801
  20.          GOSUB 20471                                                 ' KG012902
  21.          GOSUB 20435
  22.          FirstUpld = FirstUpld + 1
  23.          IF ZFileSysParm > 1 THEN _
  24.             IndexSave = LastUpld + 1                                 ' KG020201
  25.          ZAnsIndex = IndexSave                                       ' KG020201
  26.       NEXT
  27.       IF (DupeCount > 0 AND IndexSave <> 1) _                        ' ds112801
  28.             AND (ZBatchProto <> 0 OR ZUserXferDefault$ = "N") THEN _ ' ds112801
  29.         CALL QuickTPut1 (" ") : _                                    ' ds112801
  30.         CALL QuickTPut1 ("List of Duplicate Files:") : _             ' ds112801
  31.         CALL QuickTPut ("-------------------------",1) : _           ' ds112801
  32.         FOR DCount = 1 to DupeCount : _                              ' ds112801
  33.             CALL QuickTPut1 ("     " + ZUserIn$(DCount)) : _         ' ds112801
  34.         NEXT : _                                                     ' ds112801
  35.         CALL QuickTPut1 (" ") : _                                    ' ds112801
  36.         CALL QuickTPut1 ("Please remove noted files from your Batch Upload List") ' ds112801
  37.       ZCmdTransfer$ = ""
  38.       RETURN
  39. * REPLACING old line(s) by new
  40. 20435 ZFileNameHold$ = ZUserIn$(ZAnsIndex)
  41.       ExtSrch = ZFalse
  42.       IF INSTR(ZFileNameHold$,".") = 0 THEN _
  43.          ZFileNameHold$ = ZFileNameHold$ + "." + ZDefaultExtension$
  44.       CALL AllCaps(ZFileNameHold$)
  45.       ZFileName$ = ZFileNameHold$
  46. * ------[ first line different ]------
  47.       ZUserIn$(ZAnsIndex) = ZFileName$                               ' ds112801
  48.       ZViolation$ = "Upload "
  49.       CALL NoPath (ZFileName$,BadFileNameIndex)
  50.       IF BadFileNameIndex THEN _
  51.          GOTO 20451
  52.       CALL BadFile (ZFileName$,BadFileNameIndex)
  53.       ON BadFileNameIndex GOTO 20440,20451,20515
  54. * REPLACING old line(s) by new
  55. 20454 CALL QuickTPut1 ("Thanks, but we already have " + ZFileNameHold$)
  56. * ------[ first line different ]------
  57.       IF ZBatchProto <> 0 OR ZUserXferDefault$ = "N" THEN _          ' ds112801
  58.          DupeCount = DupeCount + 1 : _                               ' ds112801
  59.          ZUserIn$(DupeCount) = ZUserIn$(ZAnsIndex)                   ' ds112801
  60.       CALL UpdtCalr ("Upload duplicate " + ZFileNameHold$,1)
  61.       RETURN
  62. * REPLACING old line(s) by new
  63. 20475 ZWasZ$ = ZUpldDriveFile$
  64.       CALL FindFree
  65.       IF VAL(ZFreeSpace$) < 4096 THEN _
  66.          GOSUB 21895 : _                                             ' KG012402
  67.          IndexSave = ZLastIndex + 1 : _                              ' KG020201
  68.          RETURN
  69. * ------[ first line different ]------
  70.       IF ZBatchProto <> 0 OR ZUserXferDefault$ = "N" THEN _          ' ds112801
  71.          IF (IndexSave < LastUpld) OR DupeCount > 0 THEN _           ' ds112801
  72.             RETURN                                                   ' ds112801
  73.       IF (ZUserIn$(1) = "U" OR ZUserIn$(1) = "u") THEN _             ' ds121401
  74.          ZUserIn$(1) = ZUserIn$(2)                                   ' ds121401
  75.       ZFileNameHold$ = ZUserIn$(1)                                   ' ds123001
  76.       CALL AllCaps(ZFileNameHold$)                                   ' ds123001
  77.       IF ZBatchProto = 0 AND ZuserXferDefault$ <> "N" THEN _         ' ds112801
  78.          ZLastIndex = 1                                              ' ds112801
  79.       ZOutTxt$ = "Upload disk has" + _
  80.            ZFreeSpace$
  81.       GOSUB 21640
  82.       IF ZFileSysParm > 1 THEN _
  83.          RETURN
  84.       ZLine25$ = "(U) " + _
  85.                  ZFileNameHold$
  86.       ZSubParm = 2
  87.       CALL Line25
  88.       ZOutTxt$ = ""
  89.       ZOK = ZTrue
  90.