home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / 173ADWNF.ZIP / NOTROH-A.SB4 < prev    next >
Encoding:
Text File  |  1990-02-15  |  2.0 KB  |  55 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against C:\CPC17-3A\RBBSSUB4.BAS to produce RBBSSB4-.BAS
  3. * C:\CPC17-3A\RBBSSUB4.BAS:  Date 2-11-1990  Size 120641 bytes
  4. * ------------[ Created 02-14-1990 18:24:34 ]------------
  5. * REPLACING old line(s) by new
  6. 57010 IF ZAutoDownDesired THEN _
  7. * ------[ first line different ]------
  8.          ZAutoDownYes = ZFalse : _
  9.          GOTO 57020
  10. '     IF NOT ZAutoDownVerified THEN _                                  'RH021501
  11.          CALL TestUser
  12.       IF NOT ZAutoDownYes THEN _
  13.          CALL QuickTPut1 ("Your comm pgm does not support AUTODOWNLOAD") : _
  14.          ZAutoDownDesired = ZTrue
  15. * REPLACING old line(s) by new
  16. * ------[ first line different ]------
  17. 57030 IF ZAutoDownYes THEN ZAutoDownDesired = ZTrue                    'RH021501
  18.      IF NOT ZAutoDownYes THEN ZAutoDownDesired = ZFalse                'RH021501
  19.      ZOutTxt$ = "Autodownload " + FNOffOn$(ZAutoDownDesired)
  20.      CALL QuickTPut1 (ZOutTxt$)
  21.      RETURN
  22. * REPLACING old line(s) by new
  23. 59400 ' $SUBTITLE: 'LogPDown -- subroutine to record private downloads'
  24. ' $PAGE
  25. '
  26. '  NAME    -- LogPDown
  27. '
  28. '  INPUTS  --   PARAMETER     MEANING
  29. '
  30. '  OUTPUTS --
  31. '
  32. '  PURPOSE -- Puts a "!" in place of an "*" in private directory
  33. '             after downloaded
  34. '
  35. * ------[ first line different ]------
  36.       SUB LogPDown (PrivateDnld,ZAnsIndex) STATIC                      'RH021501
  37.       IF NOT PrivateDnld THEN _
  38.          EXIT SUB
  39.       ZWasEN$ = ZPersonalDir$
  40.       WasBX = &H4
  41.       ZSubParm = 9
  42.       CALL FileLock
  43.       WasL = 36 + ZMaxDescLen + ZPersonalLen
  44.       CLOSE 2
  45.       IF ZShareIt THEN _
  46.          OPEN ZWasEN$ FOR RANDOM SHARED AS #2 LEN=WasL _
  47.       ELSE OPEN "R",2,ZPersonalDir$,WasL
  48.       FIELD #2,WasL AS PersonalRec$
  49.       ZWasA = VAL(MID$(ZUserIn$(0),5 * (ZAnsIndex - 1) + 1,5))         'RH021501
  50.       GET #2,ZWasA
  51.       MID$(PersonalRec$,WasL-2,1) = "!"
  52.       PUT #2,ZWasA
  53.       CALL UnLockAppend
  54.       END SUB
  55.