home *** CD-ROM | disk | FTP | other *** search
/ Lion Share / lionsharecd.iso / bbs_oth / mfix0709.zip / MBS20709.FIX < prev    next >
Text File  |  1992-07-09  |  10KB  |  256 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against E:\RBBS\TEMP\RBBSSUB2.BAS to produce E:\RBBS\CHAT\RBBSSUB2.BAS
  3. * E:\RBBS\TEMP\RBBSSUB2.BAS:  Date 7-7-1992  Size 147506 bytes
  4. * ------------[ Created 07-09-1992 06:36:49 ]------------
  5. * REPLACING old line(s) by new
  6. 109 '  $SUBTITLE: 'VarInit - subroutine to initialize system variables'
  7. '  $PAGE
  8. '
  9. '  NAME    --  VarInit
  10. '
  11. '  INPUTS  --  PARAMETER           MEANING
  12. '              NONE
  13. '
  14. '  OUTPUTS --  NONE
  15. '
  16. '  PURPOSE --  To initialize system variable
  17. '
  18.       SUB VarInit STATIC
  19.     DEF SEG                            ' Point to BASIC
  20.     WIDTH 80                           ' Set Screen Width
  21.     KEY OFF                            ' Line 25 turned off
  22. ' ********************* Variable Definitions *******************************
  23.     ZMsgDim = 99
  24.     WasMM = 999
  25.     WasBX = 75
  26.     WasJ = 60
  27.     REDIM ZOptSec(WasJ)
  28.     DIM ZWorkAra$(WasJ)
  29.     DIM ZGSRAra$(WasJ)
  30.     DIM ZCategoryName$(WasBX),ZCategoryCode$(WasBX),ZCategoryDesc$(WasBX)
  31.     DIM ZOutTxt$(ZMsgDim)                      ' Message line table
  32.     DIM ZUserIn$(ZMsgDim)                      ' Message line table
  33.     DIM ZMsgPtr(WasMM,2)                       ' Message pointers
  34.     ZAcknowledge$ = CHR$(6)
  35.     ZAckChar$ = "C" + _
  36.             ZAcknowledge$
  37. '    ZActiveMenu$ = "B"
  38.     ZActiveMenu$ = "|"           'ANSIed243
  39.     ZActiveMessage$ = CHR$(225)
  40.     ZBackSpace$ = CHR$(8) + _
  41.                  CHR$(32) + _
  42.                  CHR$(8)
  43.     ZBackArrow$ = CHR$(29) + _
  44.                   CHR$(32) + _
  45.                   CHR$(29)
  46.     ZBaudRates$ = "      300  450 1200 2400 4800 7200 96001200014400168001920038400"
  47.     ZBellRinger$ = CHR$(7)
  48.     ZBulletinMenu$ = ""
  49.     ZWasCL = 24
  50.     ZCancel$ = CHR$(24)
  51.     ZColorReset$ = CHR$(27) + _
  52.                    "[00;37;40m"
  53.     ZConfigFileName$ = "RBBS-PC.DEF"
  54.     ZCarriageReturn$ = CHR$(13)
  55.     ZDeletedMsg$ = CHR$(226)
  56.     ZEndTransmission$ = CHR$(4)
  57.     ZEscape$ = CHR$(27)
  58.     ZExpectActiveModem = 0
  59.     ZFalse = 0
  60.     ZF1Key = 59
  61.     ZF10Key = 68
  62.     ZConfName$ = "MAIN"
  63.     CALL SetHiLite (ZTrue)
  64.     ZHomeConf$ = ""
  65.     ZInConfMenu = -1
  66.     ZLastCommand$ = "M "
  67.     ZLimitMinsPerSession = 0
  68.     ZLineFeed$ = CHR$(10)
  69.     ZLineFeeds = NOT ZFalse
  70.     ZLineEditChk$ = CHR$(9) + _
  71.                     ZLineFeed$ + _
  72.                     CHR$(11) + _
  73.                     CHR$(12) + _
  74.                     CHR$(127) + _
  75.                     CHR$(8) + _
  76.                     ZBellRinger$ + _
  77.                     CHR$(26) + _
  78.                     CHR$(227)
  79.     ZLineMes$ = SPACE$(78)          ' fixed length string workspace
  80.     ZLockStatus$ = "UM UU UB UD"
  81.     ZMenuIndex = 2
  82.     ZNAK$ = CHR$(21)
  83.     ZNoAdvance = ZFalse
  84.     ZPageLength = 23
  85.     ZParseOff = ZFalse
  86.     ZPressEnter$ = " (Press [ENTER] to quit)"
  87.     ZPressEnterExpert$ = " ([ENTER] quits)"
  88.     ZPressEnterNovice$ = ZPressEnter$
  89.     ZPrivateDoor = ZFalse
  90.     ZRightMargin = 72
  91.     ZReturnLineFeed$ = ZCarriageReturn$ + _
  92.                         ZLineFeed$
  93.     ZSmartTable$ = "CS PB NS FN LN SL DT TM TR TE TL RP RR CT " + _
  94.                    "C1 C2 C3 C4 C0 DD BD DB UB DL UL FI VY VN " + _
  95.                    "TY TN BN ND FS LS CN "+ _
  96.                    "C5 C6 C7 C8 C9 CA CB CC CD CE CF"   ' DD061303
  97.     ZStartOfHeader$ = CHR$(1)
  98.     ZTimeLoggedOn$ = SPACE$(8)
  99.     ZTrue = NOT ZFalse
  100.     ZUpInc = -1
  101.     ZXOff$ = CHR$(19)
  102.     ZXOn$ = CHR$(17)
  103.     ZInterrupOn$ = CHR$(11) + ZCancel$ + ZXOff$ + ZXOn$ + ZCarriageReturn$
  104.     ZOptionEnd$ = ZReturnLineFeed$ + " ,("
  105.     ZCrLf$ = ZCarriageReturn$ + ZLineFeed$
  106. * ------[ first line different ]------
  107.     ZVersionID$ = " Mpl17 /0709
  108.     ZWasLG$(1) = "Registration Check Failed"
  109.     ZWasLG$(2) = "Sysop name attempted"
  110.     ZWasLG$(3) = "Locked out attempt"
  111.     ZWasLG$(4) = "Password Attempt Failed"
  112.     ZWasLG$(5) = "Auto Lockout done"
  113.     ZWasLG$(6) = "Name in use on another Node!"
  114.     ZWasLG$(7) = ""
  115.     ZWasLG$(8) = "Locked reason read!"
  116.     ZWasLG$(9) = "Expired Registration"
  117.     CALL GetCommand (ZDebug,ZNetTime$,ZNetBaud$,ZNetReliable$)
  118.     ZSubParm = 1
  119.     CALL ReadDef (ZConfigFileName$)
  120.     REDIM ZWorkAra$(ZMaxWorkVar)
  121.     REDIM ZGSRAra$(ZMaxWorkVar)
  122.     ZUseTPut = (ZUpperCase OR ZXOnXOff)
  123.     ZOrigCallers$ = ZCallersFile$
  124.     ZOrigMsgFile$ = ZMainMsgFile$
  125.     ZOrigUserFile$ = ZMainUserFile$
  126.     ZOrigSysopFN$ = ZSysopFirstName$
  127.     ZOrigSysopLN$ = ZSysopLastName$
  128.     ZPromptBell = ZPromptBellDef
  129.     ZSecretName$ = ZSysopPswd1$ + " " + ZSysopPswd2$
  130.     IF NOT ZSubBoard THEN _                           'lk 022092 for toss mod
  131.     ZOrigRBBSName$ = ZRBBSName$                       'lk 022092 for toss mod
  132.     END SUB
  133. '
  134. * REPLACING old line(s) by new
  135. 1654 ' $SUBTITLE: 'SetBaud - sub to set the baud rate in the RS232'
  136. ' $PAGE
  137. '
  138. '  NAME    -- SetBaud
  139. '
  140. '  INPUTS  --     PARAMETER                    MEANING
  141. '             ZBaudRateDivisor   NUMBER TO DIVIDE THE 8250 CHIP'S
  142. '                                 PROGRAMABLE CLOCK TO ADJUST THE
  143. '                                 BAUD RATE TO THE USER'S BAUD
  144. '                                 RATE (INDEPENDENT OF THE BAUD
  145. '                                 RATE USED TO OPEN THE COMM. PORT)
  146. '
  147. '        DESIRED BAUD        DIVISIOR (DECIMAL) TO OBTAIN DESIRED BAUD RATE
  148. '            RATE              PCjr         PC AND XT
  149. '              50             2237             2304
  150. '              75             1491             1536
  151. '             110             1017             1047
  152. '             134.5            832              857
  153. '             150              746              768
  154. '             300              373              384
  155. '             600              186              192
  156. '            1200               93               96
  157. '            1800               62               64
  158. '            2000               56               58
  159. '            2400               47               48
  160. '            3600               31               32
  161. '            4800               23               24
  162. '            7200          not available         16
  163. '            9600          not available         12
  164. '           14400          not available          8
  165. '           19200          not available          6
  166. '           38400               "                 3
  167. '  OUTPUTS -- BAUD RATE SET IN THE RS232 INTERFACE
  168. '
  169. '  PURPOSE -- To set the baud rate in the RS232 interface
  170. '             inpependent of the baud rate the communications port
  171. '             was opened at
  172. '
  173.       SUB SetBaud STATIC
  174.      IF ZCBaud$ = "" THEN _
  175. * ------[ first line different ]------
  176.         ZCBaud$ = MID$(ZBaudRates$,(-5 * ZBPS),5) : _                ' BH070401
  177.         CALL Trim (ZCBaud$)                                          ' BH070401
  178.      Temp! = VAL(ZCBaud$)
  179.      IF Temp! > 0 THEN CALL SetBPS (Temp!,ZCBPS)
  180.      IF (ZCBPS = 0 OR Temp! = 0) THEN ZCBPS = ZBPS
  181.      IF NOT ZKeepInitBaud THEN _
  182.         ZTalkToModemAt$ =  MID$(ZBaudRates$,(-5 * ZBPS),5) _
  183.      ELSE ZTalkToModemAt$ = ZModemInitBaud$
  184.      CALL Trim (ZTalkToModemAt$)
  185.      IF LEN(ZTalkToModemAt$) < 5 THEN _
  186.         ZTalkToModemAt$ = SPACE$(4 - LEN(ZTalkToModemAt$)) + _
  187.                             ZTalkToModemAt$
  188.      IF ZEightBit THEN_
  189.         Parity = 2 : _                                    ' No PARITY
  190.         DataBits = 3 : _                                  ' 8 DATA BITS
  191.         StopBits = 0 _                                    ' 1 STOP BIT
  192.      ELSE Parity = 3 : _                                  ' EVEN PARITY
  193.           DataBits = 2 : _                                ' 7 DATA BITS
  194.           StopBits = 0                                    ' 1 STOP BIT
  195.      ComSpeed! = VAL(ZTalkToModemAt$)
  196.      IF ComSpeed! > 19200 THEN _
  197.         IF ZFossil THEN _
  198.            WasI = &H9600 _
  199.         ELSE WasI = 19200 _
  200.      ELSE WasI = ComSpeed!
  201.      IF ZFossil THEN _
  202.         CALL FosSpeed(ZComPort,WasI,Parity,DataBits,StopBits) : _
  203.         EXIT SUB
  204.      IF ComSpeed! = 2400 THEN _
  205.         ZBaudRateDivisor = &H30 + (1 * (ZComputerType = 2)) _
  206.      ELSE IF ComSpeed! = 1200 THEN _
  207.         ZBaudRateDivisor = &H60 + (3 * (ZComputerType = 2)) _
  208.      ELSE IF ComSpeed! = 9600 THEN _
  209.         ZBaudRateDivisor = &HC _
  210.      ELSE IF ComSpeed! = 300 THEN _
  211.         ZBaudRateDivisor = &H180 + (11 * (ZComputerType = 2)) _
  212.      ELSE IF ComSpeed! = 450 THEN _
  213.         ZBaudRateDivisor = &H100 + (8 * (ZComputerType = 2)) _
  214.      ELSE IF ComSpeed! = 4800 THEN _
  215.         ZBaudRateDivisor = &H18 _
  216.      ELSE IF ComSpeed! = 19200 THEN _
  217.         ZBaudRateDivisor = &H6 _
  218.      ELSE IF ComSpeed! = 38400 THEN _
  219.         ZBaudRateDivisor = &H3
  220.      MostSignifByte = FIX (ZBaudRateDivisor / 256)
  221.      LeastSignifByte = ZBaudRateDivisor - (MostSignifByte * 256)
  222.      LineCntlStatus = INP(ZLineCntlReg)
  223.      MSBSave = INP(ZMSB)
  224.      OUT ZMSB,0
  225.      OUT ZLineCntlReg,LineCntlStatus OR 128
  226.      OUT ZLSB,LeastSignifByte
  227.      OUT ZMSB,MostSignifByte
  228.      OUT ZLineCntlReg,LineCntlStatus
  229.      OUT ZMSB,MSBSave
  230.      END SUB
  231. * REPLACING old line(s) by new
  232. 10989 IF ZTransferFunction = 3 THEN _
  233.          ZWasY$ = "Registration" _
  234.       ELSE ZWasY$ = ZDooredTo$
  235.       ZOutTxt$ = " Swapping " +ZOrigRBBSName$ + " out and " + _
  236.                      ZWasY$ + _
  237.                      " door in... "
  238.       ZSubParm = 5
  239.       CALL TPut
  240.       CALL UpdtCalr (ZDooredTo$ + " door opened!",2)
  241.       CALL DoorInfo
  242.       IF ExitMethod$ = "S" THEN _
  243.          ZExitToDoors = ZTrue : _         'Pe 04/20/92
  244. * ------[ first line different ]------
  245.          CALL UpdateU (ZTrue) : _         'Pe 07/08/92 
  246.          Call GetTime : _
  247.          Call SaveProf (1) : _            'Pe 04/20/92
  248.          CLOSE 4,5 : _
  249.          CALL ShellExit (ExitTemplate$) _
  250.       ELSE ZOutTxt$(1) = ZDiskForDos$ + _
  251.                   "COMMAND /C " + _
  252.                   ExitTo$ : _
  253.            ZOutTxt$(2) = ZRBBSBat$ : _
  254.            CALL RBBSExit (ZOutTxt$(),2)
  255.        END SUB
  256.