home *** CD-ROM | disk | FTP | other *** search
/ ftp.wwiv.com / ftp.wwiv.com.zip / ftp.wwiv.com / pub / BBS / RBTCH220.ZIP / EXAMPLE.ZIP / MRG1230.ZIP / README.1ST < prev   
Text File  |  1992-01-01  |  4KB  |  86 lines
  1. Here are new merges to be used along with RBatch 1.50/1.51
  2.  
  3. The only changes have occured in line 20475 and they were
  4. the removal of two lines, and move/edit of two lines.
  5.  
  6. ------------------------
  7. Here is the old section:
  8. ------------------------
  9. Note:  ### = Lines removed from old merge
  10.  
  11. 20475 ZWasZ$ = ZUpldDriveFile$
  12.       CALL FindFree
  13.       IF VAL(ZFreeSpace$) < 4096 THEN _
  14.          GOSUB 21895 : _                                             ' KG012402
  15.          IndexSave = ZLastIndex + 1 : _                              ' KG020201
  16.          RETURN
  17. * ------[ first line different ]------
  18.       IF ZBatchProto <> 0 OR ZUserXferDefault$ = "N" THEN _          ' ds112801
  19.          IF (IndexSave < LastUpld) OR DupeCount > 0 THEN _           ' ds112801
  20.             RETURN                                                   ' ds112801
  21.       IF (ZUserIn$(1) = "U" OR ZUserIn$(1) = "u") THEN _             ' ds121401
  22.          ZUserIn$(1) = ZUserIn$(2)                                   ' ds121401
  23. ###   IF (ZBatchProto <> 0 OR ZUserXferDefault$ = "N") AND IndexSave > 1 THEN _  ' ds112801
  24.          ZFileNameHold$ = ZUserIn$(1) : _                            ' ds112801
  25.          CALL AllCaps(ZFileNameHold$)                                ' ds112801
  26.       IF ZBatchProto = 0 AND ZuserXferDefault$ <> "N" THEN _         ' ds112801
  27. ###      ZFileName$ = ZUserIn$(1) : _                                ' ds112801
  28.          ZLastIndex = 1                                              ' ds112801
  29.       ZOutTxt$ = "Upload disk has" + _
  30.            ZFreeSpace$
  31.       GOSUB 21640
  32.       IF ZFileSysParm > 1 THEN _
  33.          RETURN
  34.       ZLine25$ = "(U) " + _
  35.                  ZFileNameHold$
  36.       ZSubParm = 2
  37.       CALL Line25
  38.       ZOutTxt$ = ""
  39.       ZOK = ZTrue
  40.  
  41.  
  42. ------------------------
  43. Here is the new version:
  44. ------------------------
  45.  
  46. 20475 ZWasZ$ = ZUpldDriveFile$
  47.       CALL FindFree
  48.       IF VAL(ZFreeSpace$) < 4096 THEN _
  49.          GOSUB 21895 : _                                             ' KG012402
  50.          IndexSave = ZLastIndex + 1 : _                              ' KG020201
  51.          RETURN
  52. * ------[ first line different ]------
  53.       IF ZBatchProto <> 0 OR ZUserXferDefault$ = "N" THEN _          ' ds112801
  54.          IF (IndexSave < LastUpld) OR DupeCount > 0 THEN _           ' ds112801
  55.             RETURN                                                   ' ds112801
  56.       IF (ZUserIn$(1) = "U" OR ZUserIn$(1) = "u") THEN _             ' ds121401
  57.          ZUserIn$(1) = ZUserIn$(2)                                   ' ds121401
  58.       ZFileNameHold$ = ZUserIn$(1)                                   ' ds123001
  59.       CALL AllCaps(ZFileNameHold$)                                   ' ds123001
  60.       IF ZBatchProto = 0 AND ZuserXferDefault$ <> "N" THEN _         ' ds112801
  61.          ZLastIndex = 1                                              ' ds112801
  62.       ZOutTxt$ = "Upload disk has" + _
  63.            ZFreeSpace$
  64.       GOSUB 21640
  65.       IF ZFileSysParm > 1 THEN _
  66.          RETURN
  67.       ZLine25$ = "(U) " + _
  68.                  ZFileNameHold$
  69.       ZSubParm = 2
  70.       CALL Line25
  71.       ZOutTxt$ = ""
  72.       ZOK = ZTrue
  73.  
  74.  
  75. Note that two lines have been removed from the new merge (noted as ###
  76. in the old merge listing), and two lines were moved to the left (noted
  77. with 'ds123001 notation) with one line getting the : _ removed from the end.
  78.  
  79. Thanks again to David Brodmann of Brodmann's Place BBS, for finding this
  80. problem and also making the fix.
  81.  
  82.  
  83.       Dan Shore - SysOp
  84.       THE SHORELINE BBS
  85.         301-946-2771
  86.