home *** CD-ROM | disk | FTP | other *** search
/ Monster Disc 2: The Best of 1992 / MONSTER1.ISO / bbs / rbbs / edit174.zip / R-PCEDIT.MRG < prev    next >
Text File  |  1992-07-05  |  5KB  |  90 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCEDIT.BAS
  3. * RBBS-PC.BAS:  Date 4-4-1992  Size 173476 bytes
  4. * ------------[ Created 04-04-1992 19:24:55 ]------------
  5. * REPLACING old line(s) by new
  6. * ------[ first line different ]------
  7. 2100 AnsiedUsed = ZFalse                                             ' ED070501
  8.      GOSUB 2101                                                      ' ED070501
  9.      IF NOT ZYes THEN _                                              ' ED070501
  10.         GOTO 2120                                                    ' ED070501
  11.      GOTO 2110                                                       ' ED070501
  12. * INSERTING new line(s)
  13. 2101 ZYes = ZFalse                                                   ' ED070501
  14.      IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN ' ED070501
  15.         ZOutTxt$ = "Use the ANSI Screen Editor (Y,[N])"              ' ED070501
  16.         GOSUB 12930                                                  ' ED070501
  17.      END IF                                                          ' ED070501
  18.      RETURN                                                          ' ED070501
  19. '*                                                                   ' ED070501
  20. '* EDIT SysOp's: Want ANSIED to default to yes?  Comment out the     ' ED070501
  21. '* six lines above (starting with 2101), and remove the comment      ' ED070501
  22. '* from the following SEVEN lines:                                   ' ED070501
  23. '*                                                                   ' ED070501
  24. ' 2101 ZYes = ZFalse                                                   ' ED070501
  25. '      IF (ZUserGraphicDefault$ = "C" OR NOT ZHiLiteOff) AND NOT ZGetExtDesc THEN ' ED070501
  26. '         ZOutTxt$ = "Use the ANSI Screen Editor ([Y],N)"              ' ED070501
  27. '         GOSUB 12930                                                  ' ED070501
  28. '         IF NOT ZNo THEN ZYes = ZTrue                                 ' ED070501
  29. '      END IF                                                          ' ED070501
  30. '      RETURN                                                          ' ED070501
  31. 2110 AnsiedUsed = ZTrue                                              ' ED070501
  32.      CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)                ' ED070501
  33.      I = ZSubParm                                                    ' ED070501
  34.      CALL SkipLine (1)                                               ' ED070501
  35.      IF I = -2 THEN      ' Sleep Disconnect                          ' ED070501
  36.         GOTO 10590                                                   ' ED070501
  37.      ELSEIF I = -1 THEN  ' Lost Carrier                              ' ED070501
  38.         GOTO 10595                                                   ' ED070501
  39.      ELSEIF I = 1 THEN   ' Save Message                              ' ED070501
  40.         GOTO 3400                                                    ' ED070501
  41.      ELSEIF I = 2 THEN   ' Abort Message                             ' ED070501
  42.         GOTO 2430                                                    ' ED070501
  43.      END IF                                                          ' ED070501
  44. 2120 ZOutTxt$ = "Enter Your " + _
  45.           ZMsgHeader$ + _
  46.           STR$(ZMaxMsgLines) + _
  47.           " Lines Max.  Press [ENTER] By Itself for Menu."           ' UG070501
  48.      GOSUB 12979                                                     ' UG070501
  49.      GOSUB 3200
  50. * REPLACING old line(s) by new
  51. 3405 IF ZSysopMsg THEN _
  52.         MsgPswd$ = "^READ^" _
  53.      ELSE Temp$ = MsgPswd$ : _
  54.           CALL MsgProt (MsgTo$,Found,MsgPswd$) : _
  55.           IF MsgPswd$ = "" THEN _
  56.              MsgPswd$ = Temp$ : _
  57. * ------[ first line different ]------
  58.              IF AnsiedUsed THEN GOTO 2110 ELSE GOTO 2300             ' ED070501
  59.      SaveReplyStatus = ZReply
  60.      ZReply = ZTrue
  61.      ZSysopMsg = ZFalse
  62.      ZReply = SaveReplyStatus
  63.      GOSUB 4910
  64.      MsgRecSave$ = ZMsgRec$
  65.      MsgCorrected = ZFalse
  66.      GOSUB 23100
  67.      ZWasSL = 0
  68.      ZWasN$ = ""
  69.      ZLastIndex = 0
  70.      HighMsgNumber = HighMsgNumber + 1
  71. * REPLACING old line(s) by new
  72. 4626   ZWasZ$ = "L"
  73.        WasL = 1
  74. * ------[ first line different ]------
  75.        GOSUB 2101                                                    ' ED070501
  76.        IF ZYes THEN                                                  ' ED070501
  77.           GOSUB 2110                                                 ' ED070501
  78.        ELSE                                                          ' ED070501
  79.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  80.              CALL QuickTPut ("Warning: Message Must Be Shorter Than" + _
  81.                          STR$(ZMaxMsgLines) + " Lines.",1)           ' UG070501
  82.           IF NOT MsgFwd THEN _
  83.              ZOutTxt$ = "Use C to Continue Reply.  Please Delete Unneeded Quoted Lines." : _ ' UG070501
  84.              GOSUB 12975                                             ' UG070501
  85.           GOSUB 3200
  86.           GOSUB 3020
  87.           GOSUB 2300
  88.        END IF
  89.        GOTO 4628
  90.