home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / batchmrg.zip / RBBSSUB5.MRG < prev    next >
Text File  |  1988-10-27  |  3KB  |  91 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB5.BAS to produce D:\LITE\RBBSSUB5.BAS
  3. * RBBSSUB5.BAS:  Date 10-2-1988  Size 55407 bytes
  4. * ------------[ Created 10-27-1988 18:54:09 ]------------
  5. * REPLACING old line(s) by new
  6. 20202 IF (TIME.LOCK AND 2) AND NOT TIME.LOCK.EXEMPT THEN _
  7.          CALL TIMELOCK : _
  8.          IF NOT OK THEN _
  9.             RETURN
  10.       LAST.DOWNLOAD = Q
  11.       FIRST.DOWNLOAD = B
  12.       COMMAND.TRANSFER$ = ""
  13.       IF AUTODOWNLOAD.AVAILABLE THEN _
  14.          COMMAND.TRANSFER$ = "X"
  15.       AUTODOWNLOAD.IN.PROGRESS = AUTODOWNLOAD.AVAILABLE
  16.       IF LAST.DOWNLOAD > FIRST.DOWNLOAD THEN _
  17.          Z$ = B$(LAST.DOWNLOAD) : _
  18.          CALL ALLCAPS(Z$) : _
  19.          IF LEN (Z$) = 1 AND INSTR(LEFT$(DFLTXFER$,LEN(DFLTXFER$)-1),Z$) > 0 THEN _
  20.             LAST.DOWNLOAD = LAST.DOWNLOAD - 1 : _
  21.             COMMAND.TRANSFER$ = Z$ : _
  22.             AUTODOWNLOAD.IN.PROGRESS = FALSE
  23.       BATCH.BYTES# = 0
  24.       BATCH.BLOCKS# = 0
  25. * ------[ first line different ]------
  26.       BATCH.FILES = 0                'Batch Fix
  27.       CALL KILLWORK (NODE.WORK.FILE$)
  28.       EC = 0
  29.       FOR DWN.INDEX = FIRST.DOWNLOAD TO LAST.DOWNLOAD
  30.          GOSUB 20205
  31.          IF FILESYS.PARAMETER > 1 THEN _
  32.             DWN.INDEX = LAST.DOWNLOAD + 1
  33. * REPLACING old line(s) by new
  34. 20760 BYTES.IN.FILE# = LOF(2)
  35.       NUM.DNLD.BYTS! = LOF(2)
  36.       OK = TRUE
  37.       IF SIZE.ONLY THEN _
  38.          SIZE.ONLY = FALSE : _
  39.          RETURN
  40.       BLOCKS.IN.FILE# = MAX.BLOCK
  41.       IF BATCH.TRANSFER THEN _
  42. * ------[ first line different ]------
  43.          BATCH.FILES = BATCH.FILES + 1 : _                'batch fix
  44.          BATCH.BYTES# = BATCH.BYTES# + BYTES.IN.FILE# : _
  45.          BATCH.BLOCKS# = BATCH.BLOCKS# + BLOCKS.IN.FILE# : _
  46.          CALL OPENWRKA (NODE.WORK.FILE$) : _
  47.          CALL PRNTWRKA (FILE.NAME$) : _
  48.          RETURN
  49. * REPLACING old line(s) by new
  50. 21760 GOSUB 21780
  51.       IF FILESYS.PARAMETER > 1 THEN _
  52.          RETURN
  53. * ------[ first line different ]------
  54. IF BATCH.TRANSFER THEN _                          'Batch fix
  55.   DOWNLOADS = DOWNLOADS +(BATCH.FILES - 1)     'BATCH FIX
  56.       IF NOT DOWNLOAD.COMPLETED THEN _
  57.          DF$ = " Aborted" _
  58.       ELSE CALL LOGDOWN (PERSONAL.DOWNLOAD,DWN.INDEX) : _
  59.            DOWNLOADS = DOWNLOADS + 1 : _
  60.            DLBYTES! = DLBYTES! + NUM.DNLD.BYTS! : _
  61.            DL.TODAY! = DL.TODAY! + 1 : _
  62.            BYTES.TODAY! = BYTES.TODAY! + NUM.DNLD.BYTS! : _
  63.            NUM.DNLD.BYTS! = 0 : _
  64.            CALL MUZAK (6) : _
  65.            DF$ = " Downloaded" : _
  66.            IF (DWN.INDEX = LAST.DOWNLOAD OR NOT CONCAT.FILES) THEN _
  67.               CALL SKIPLINE (1) : _
  68.               CALL QTPUT ("Download successful",1)
  69.       IF AUTODOWNLOAD.IN.PROGRESS THEN _
  70.          DF$ = " AUTO" + _
  71.               MID$(N$,2)
  72.       IF INSTR(N$,"Aborted") THEN _
  73.          AUTODOWNLOAD.IN.PROGRESS = 0
  74.       A$ = ""
  75. * REPLACING old line(s) by new
  76. 21773 CALL BRKFNAME (FILE.NAME$,DR$,X$,EXTENTION$,TRUE)
  77.       Z$ = X$ + _
  78.            EXTENTION$ + _
  79.            DF$ + _
  80.            " at " + _
  81.            TIM$ + _
  82.            " using " + _
  83.            FT$ + _
  84.            STR$(BYTES.IN.FILE#)
  85.       CALL UPDTCALR (Z$,2)
  86. * ------[ first line different ]------
  87.       IF BATCH.TRANSFER THEN _
  88.          Q = Q - 1 : _
  89.          GOTO 21772
  90.       CALL CHECKRATIO (FALSE)            'BATCH FIX
  91.