home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / AED243A.ZIP / R-PCEDIT.MRG < prev    next >
Encoding:
Text File  |  1990-06-10  |  1.7 KB  |  55 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCEDIT.BAS
  3. * RBBS-PC.BAS:  Date 5-26-1990  Size 156425 bytes
  4. * ------------[ Created 06-10-1990 01:55:35 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 2100 GOSUB 2101
  8.      IF NOT ZYes THEN _
  9.         GOTO 2120
  10.      GOTO 2110
  11. * INSERTING new line(s)
  12. 2101 ZYes = ZFalse
  13.      IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN
  14.         ZOutTxt$ = "Use the ANSI Screen Editor (Y,[N])"
  15.         GOSUB 12930
  16.      END IF
  17.      RETURN
  18. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  19.      I = ZSubParm
  20.      CALL SkipLine(1)
  21.      IF I = -2 THEN      ' Sleep Disconnect
  22.         GOTO 10590
  23.      ELSEIF I = -1 THEN  ' Lost Carrier
  24.         GOTO 10595
  25.      ELSEIF I = 1 THEN   ' Save Message
  26.         GOTO 3400
  27.      ELSEIF I = 2 THEN   ' Abort Message
  28.         GOTO 2430
  29.      END IF
  30. 2120 ZOutTxt$ = "Type " + _
  31.           ZMsgHeader$ + _
  32.           STR$(ZMaxMsgLines) + _
  33.           " lines max" + _
  34.           ZPressEnter$
  35.      GOSUB 12975
  36.      GOSUB 3200
  37. * REPLACING old line(s) by new
  38. 4626   ZWasZ$ = "L"
  39.        WasL = 1
  40. * ------[ first line different ]------
  41.        GOSUB 2101
  42.        IF ZYes THEN
  43.           GOSUB 2110
  44.        ELSE
  45.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  46.              CALL QuickTPut ("Msg cannot exceed" + _
  47.                          STR$(ZMaxMsgLines) + " lines! ",0)
  48.           IF NOT MsgFwd THEN _
  49.              CALL QuickTPut1 ("C continues reply.  Please 1st delete unneeded lines (eg. d 1 5)")
  50.           GOSUB 3200
  51.           GOSUB 3020
  52.           GOSUB 2300
  53.        END IF
  54.        GOTO 4628
  55.