home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / AED243A.ZIP / R-PCETOG.MRG < prev    next >
Encoding:
Text File  |  1990-06-10  |  5.7 KB  |  179 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBS-PC.BAS to produce R-PCETOG.BAS
  3. * RBBS-PC.BAS:  Date 5-26-1990  Size 156425 bytes
  4. * ------------[ Created 06-10-1990 02:02:27 ]------------
  5. * REPLACING old line(s) by new
  6. 760 GOSUB 755
  7.     CALL AllCaps (ZWasZ$)
  8.     LSET ZPswd$ = ZWasZ$
  9.     CALL QuickTPut1 ("Please REMEMBER your password")
  10.     ZUserTextColor = 37
  11.     ZTempSecLevel = ZUserSecLevel
  12.     CALL Protocol
  13.     ZUserXferDefault$ = "N"
  14.     ZProtoPrompt$ = "None"
  15.     IF ZNewUserSetsDefaults THEN _
  16.        GOSUB 42950 : _
  17.        ZBypassTimeCheck = ZTrue : _
  18.        GOSUB 43000 : _
  19.        ZBypassTimeCheck = ZFalse : _
  20.        CALL Graphic (ZUserGraphicDefault$,ZFileName$) : _
  21.        GOSUB 42805 : _
  22. * ------[ first line different ]------
  23.        GOSUB 42700 : _
  24.        GOSUB 42750 _
  25.     ELSE ZUpperCase = ZFalse : _
  26.          ZHiLiteOff = ZTrue : _
  27.          CALL SetGraphic (0,ZUserGraphicDefault$) : _
  28.          ZNulls = ZFalse : _
  29.          ZFullScreenEditor = ZFalse
  30.     ZPageLength = ZPageLengthDef
  31.     GOSUB 12900
  32.     GOSUB 5135
  33.     CALL DefaultU
  34. * REPLACING old line(s) by new
  35. 1500 IF ZAnsIndex < ZLastIndex THEN _
  36.         GOTO 1510
  37. * ------[ first line different ]------
  38.      ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     E)ditor   F)ile   H)ilite"
  39.      CALL ColorPrompt (ZOutTxt$)
  40.      CALL QuickTPut1 (ZOutTxt$)
  41.      ZOutTxt$ = "L)ine feeds  N)ulls   T)urboKey X)pert    !)bell"
  42.      CALL ColorPrompt (ZOutTxt$)
  43.      CALL QuickTPut1 (ZOutTxt$)
  44.      ZOutTxt$ = "Toggle which options on/off?" + ZPressEnter$
  45. * REPLACING old line(s) by new
  46. 1510 GOSUB 12930
  47.      IF ZWasQ=0 THEN _
  48.         RETURN
  49.      ZWasZ$ = ZUserIn$(ZAnsIndex)
  50.      CALL AllCaps (ZWasZ$)
  51. * ------[ first line different ]------
  52.      ZFF = INSTR("ABCFHLNTX!E",ZWasZ$)
  53.      IF ZFF < 1 THEN _
  54.         GOTO 1500
  55.      CALL Toggle (ZFF)
  56.      GOSUB 12997
  57.      GOTO 1500
  58. '
  59. ' ****  I - COMMAND FROM MAIN MENU (DISPLAY INITIAL WELCOME)  ***
  60. '
  61. * REPLACING old line(s) by new
  62. * ------[ first line different ]------
  63. 2100 IF NOT ZFullScreenEditor OR ZGetExtDesc THEN _
  64.         GOTO 2120
  65. * INSERTING new line(s)
  66. 2110 CALL Ansied (MsgTo$, OrigSubject$, MsgLockLines)
  67.      I = ZSubParm
  68.      CALL SkipLine(1)
  69.      IF I = -2 THEN      ' Sleep Disconnect
  70.         GOTO 10590
  71.      ELSEIF I = -1 THEN  ' Lost Carrier
  72.         GOTO 10595
  73.      ELSEIF I = 1 THEN   ' Save Message
  74.         GOTO 3400
  75.      ELSEIF I = 2 THEN   ' Abort Message
  76.         GOTO 2430
  77.      END IF
  78. 2120 ZOutTxt$ = "Type " + _
  79.           ZMsgHeader$ + _
  80.           STR$(ZMaxMsgLines) + _
  81.           " lines max" + _
  82.           ZPressEnter$
  83.      GOSUB 12975
  84.      GOSUB 3200
  85. * REPLACING old line(s) by new
  86. 4626   ZWasZ$ = "L"
  87.        WasL = 1
  88. * ------[ first line different ]------
  89.        IF ZFullScreenEditor THEN
  90.           GOSUB 2110
  91.        ELSE
  92.           IF ZLinesInMsg >= ZMaxMsgLines THEN _
  93.              CALL QuickTPut ("Msg cannot exceed" + _
  94.                          STR$(ZMaxMsgLines) + " lines! ",0)
  95.           IF NOT MsgFwd THEN _
  96.              CALL QuickTPut1 ("C continues reply.  Please 1st delete unneeded lines (eg. d 1 5)")
  97.           GOSUB 3200
  98.           GOSUB 3020
  99.           GOSUB 2300
  100.        END IF
  101.        GOTO 4628
  102. * REPLACING old line(s) by new
  103. 5410 CALL Toggle(-9)
  104.      GOSUB 43020
  105.      ZFF = INSTR(ZDefaultXfer$,ZUserXferDefault$)
  106.      CALL Toggle(-5)
  107.      GOSUB 42810
  108.      CALL Toggle(-3)
  109.      CALL Toggle(-6)
  110.      CALL Toggle(-7)
  111.      CALL Toggle(-10)
  112.      CALL Toggle(-2)
  113.      CALL Toggle(-4)
  114.      CALL Toggle(-8)
  115.      CALL Toggle(-1)
  116. * ------[ first line different ]------
  117.      CALL Toggle(-11)
  118.      IF ZRestrictByDate AND ZDaysInRegPeriod > 0 THEN _
  119.         IF ZUserSecLevel > ZExpiredSec THEN _
  120.            CALL QuickTPut1 ("Registration expires " + ZExpirationDate$)
  121.      RETURN
  122. '
  123. ' *****  B - COMMAND FROM UTILITY MENU (300 TO 450 BAUD CHANGE)  ****
  124. '
  125. * REPLACING old line(s) by new
  126. 9510 UserOptions = CVI(MID$(ZUserOption$,9,2))
  127.      ZPromptBell = (UserOptions AND 1) > 0
  128.      ZExpertUser = (UserOptions AND 2) > 0
  129.      CALL SetExpert
  130.      ZNulls = (UserOptions AND 4) > 0
  131.      ZUpperCase = (UserOptions AND 8) > 0
  132.      ZLineFeeds = (UserOptions AND 16) > 0
  133.      ZCheckBulletLogon = (UserOptions AND 32) > 0
  134.      ZSkipFilesLogon = (UserOptions AND 64) > 0
  135.      ZAutoDownDesired = (UserOptions AND 128) > 0
  136.      ZReqQuesAnswered = (UserOptions AND 256) > 0
  137.      ZMailWaiting = (UserOptions AND 512) > 0
  138.      WasX = (UserOptions AND 1024 ) > 0
  139.      CALL SetHiLite (NOT WasX)
  140.      IF NOT ZHiLiteOff THEN _
  141.         CALL QuickTPut (ZEmphasizeOff$,0)
  142.      ZTurboKeyUser = (UserOptions AND 2048) > 0
  143.      ZTurboKey = ZFalse
  144.      GOSUB 11480
  145. * ------[ first line different ]------
  146.      ZFullScreenEditor = (UserOptions AND 4096) > 0
  147.      ZPageLength = ASC(MID$(ZUserOption$,13,1))
  148.      IF SubBoard THEN _
  149.         GOTO 9520
  150.      WasX$ = ZEchoer$
  151.      ZEchoer$ = MID$(ZUserOption$,14,1)
  152.      IF INSTR("ICR",ZEchoer$) = 0 THEN _
  153.         ZEchoer$ = "R"
  154.      IF WasX$ <> ZEchoer$ THEN _
  155.         GOSUB 9525
  156.      CALL SetEcho (ZEchoer$)
  157. * REPLACING old line(s) by new
  158. 42700 CALL SkipLine (1)
  159.       CALL QuickTPut1 ("TurboKey: act on 1 char command without waiting for [ENTER]")
  160.       ZOutTxt$ = "Want TurboKeys (Y/[N])"
  161.       GOSUB 12999
  162.       ZTurboKeyUser = NOT ZYes
  163.       CALL Toggle (8)
  164.       RETURN
  165. '
  166. * ------[ first line different ]------
  167. ' * EDITOR SET FOR NEW USERS
  168. '
  169. * INSERTING new line(s)
  170. 42750 ZOutTxt$ = "Use the Full Screen editor for messages (Y/[N])"
  171.       GOSUB 12999
  172.       ZFullScreenEditor = NOT ZYes
  173.       CALL Toggle (11)
  174.       RETURN
  175. '
  176. ' *  F - COMMAND FROM UTILITY MENU (FILE Transfer DEFALUT MODE)
  177. ' *  FILE Transfer DEFAULT SET FOR NEW USERS
  178. '
  179.