home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / 1 / 173adwnf.zip / NOTROH-A.SB5 < prev    next >
Text File  |  1990-02-15  |  966b  |  20 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\CPC17-3A\RBBSSUB5.BAS to produce RBBSSB5-.BAS
  3. * C:\CPC17-3A\RBBSSUB5.BAS:  Date 2-10-1990  Size 86814 bytes
  4. * ------------[ Created 02-14-1990 18:25:12 ]------------
  5. * REPLACING old line(s) by new
  6. 20247 ZWasDF = 0
  7.       CALL BreakFileName (ZFileName$,DR$,WasX$,Extension$,ZFalse)
  8.       IF ZAutoDownInProgress THEN _
  9. * ------[ first line different ]------
  10.          ZUserIn$(ZAnsIndex) = ZFileName$ : _                          'RH021501
  11.          ZOutTxt$ = "Transferring -- " + _
  12.               ZUserIn$(ZAnsIndex) : _                                  'RH021501
  13.          GOSUB 21640 : _
  14.          IF ZFileSysParm > 1 THEN _
  15.             RETURN
  16.       IF INSTR("...WRK.FW .ARC.EXE.COM.OBJ.WKS.LBR.ZIP.PAK.ZOO.LZH.","."+Extension$+".") > 2 OR _
  17.          MID$(Extension$,2,1) = "Q" OR _
  18.          (ZRequireNonASCII AND Extension$ = "BAS") THEN _
  19.             ZWasDF = ZTrue
  20.