home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / DCRD100.ZIP / RSB3DCRD.MRG < prev   
Encoding:
Text File  |  1993-01-18  |  4.2 KB  |  98 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB3.BAS to produce RBBSSUB3.NEW
  3. * RBBSSUB3.BAS:  Date 6-20-1992  Size 129071 bytes
  4. * ------------[ Created 01-18-1993 23:37:13 ]------------
  5. * REPLACING old line(s) by new
  6. 42020 ZSubParm = -1
  7.       IF Speedy < -8 THEN _
  8.          EXIT SUB
  9.       IF AlreadyWritten = -9 THEN _
  10.          EXIT SUB
  11.       CALL TakeOffHook
  12.       ZModemOffHook = -1
  13.       AlreadyWritten = -9
  14. * ------[ first line different ]------
  15.       IF ZDoorCarrierDropOK$ = "Y" THEN _                             ' DD011801/DOORCARRIERDROP
  16.          CALL UpdtCalr ("Logged Off from Door",1) : _                 ' DD011801/DOORCARRIERDROP
  17.          EXIT SUB                                                     ' DD011801/DOORCARRIERDROP
  18.       CALL UpdtCalr ("Carrier dropped",1)
  19.       END SUB
  20. * REPLACING old line(s) by new
  21. 44000 ' $SUBTITLE: 'ReadProf - subroutine to restore a user profile'
  22. ' $PAGE
  23. '
  24. '  NAME    -- ReadProf
  25. '
  26. '  INPUTS  --     PARAMETER                    MEANING
  27. '              ZNodeRecIndex               NODE RECORD TO USE
  28. '              ZSysopPswd1$               Sysop'S PSEUDONYM 1
  29. '              ZSysopPswd2$               Sysop'S PSEUDONYM 2
  30. '
  31. '  OUTPUTS -- USER'S OPTIONS AND COMMUNICATIONS PARAMETERS
  32. '             UPON EXITING RBBS-PC TO A "DOOR"
  33. '
  34. '  PURPOSE -- Reset a user's options and communications parameters
  35. '             that were saved in the node record when a user exited
  36. '             to a "door" so that he is in the same status as when
  37. '             he exited.
  38. '
  39.       SUB ReadProf STATIC
  40.       FIELD 1, 128 AS ZMsgRec$
  41.       GET 1,ZNodeRecIndex
  42.       ZReliableMode = VAL(MID$(ZMsgRec$,91,2))
  43.       MID$(ZMsgRec$,40,2) = "00"
  44.       ZEightBit = VAL(MID$(ZMsgRec$,42,2))
  45.       ZBPS = -VAL(MID$(ZMsgRec$,44,2))
  46.       CALL CommInfo
  47.       ZBaudTest! = VAL(MID$(ZBaudRates$,(-5 * ZBPS),5))
  48.       ZUpperCase = VAL(MID$(ZMsgRec$,46,2))
  49.       ZNumDnldBytes! = CVS(MID$(ZMsgRec$,48,4))
  50.       ZBatchTransfer = (MID$(ZMsgRec$,52,1) = "1")
  51.       ZWasGR = VAL(MID$(ZMsgRec$,53,2))
  52.       HourLoggedOn$ = RIGHT$("0"+MID$(STR$(ASC(MID$(ZMsgRec$,65,1))),2),2)
  53.       MinLoggedOn$  = RIGHT$("0"+MID$(STR$(ASC(MID$(ZMsgRec$,66,1))),2),2)
  54.       SecLoggedOn$  = RIGHT$("0"+MID$(STR$(ASC(MID$(ZMsgRec$,67,1))),2),2)
  55.       ZTimeLoggedOn$ = HourLoggedOn$ + _
  56.                         ":" + _
  57.                         MinLoggedOn$ + _
  58.                         ":" + _
  59.                         SecLoggedOn$
  60.       ZTransferFunction = VAL(MID$(ZMsgRec$,74,1))
  61.       ZWasFT$ = MID$(ZMsgRec$,75,1)
  62.       ZTimeCredits! = 60!*CVI(MID$(ZMsgRec$,113,2))                  ' KKG030901
  63.       ZDooredTo$ = MID$(ZMsgRec$,79,8)
  64.       CALL Trim (ZDooredTo$)
  65.       IF ZExitToDoors AND ZDooredTo$ <> "" THEN _
  66.          CALL OpenWork (2,ZDoorsDef$) : _
  67.          IF ZErrCode = 0 THEN _
  68. * ------[ first line different ]------
  69.             CALL ReadParms (ZOutTxt$(),9,1) : _                      ' DD011801/DOORCARRIERDROP
  70.             WHILE ZErrCode = 0 AND ZOutTxt$(1) <> ZDooredTo$ : _
  71.                CALL ReadParms (ZOutTxt$(),9,1) : _                   ' DD011801/DOORCARRIERDROP
  72.             WEND : _
  73.             IF ZOutTxt$(1) = ZDooredTo$ THEN _
  74.                ZDoorSkipsPswd = (ZOutTxt$(6) <> "Y")
  75.             ZDoorCarrierDropOK$ = ZOutTxt$(10)                       ' DD011801/DOORCARRIERDROP
  76.       ZErrCode = 0
  77.       ZMenuIndex = VAL(MID$(ZMsgRec$,117,2))
  78.       ZCurPUI$ = MID$(ZMsgRec$,93,8)
  79.       CALL Remove (ZCurPUI$," ")
  80.       IF ZCurPUI$ <> "" THEN _
  81.          CALL BreakFileName (ZMainPUI$,ZOutTxt$,ZUserIn$,ZWasZ$,ZTrue) : _
  82.          ZCurPUI$ = ZOutTxt$ + ZCurPUI$ + ZWasZ$
  83.       ZCustomPUI = (ZCurPUI$ <> "")
  84.       ZLocalUser = (MID$(ZMsgRec$,101,2) = ZCarriageReturn$ + ZCarriageReturn$)
  85.       ZLocalUserMode = VAL(MID$(ZMsgRec$,103,2))
  86.       ZHomeConf$ = MID$(ZMsgRec$,105,8)
  87.       ZAutoLogoffReq = (VAL(MID$(ZMsgRec$,115,1)) <> 0)
  88.       CALL Trim (ZHomeConf$)
  89.       IF ZHomeConf$ = "MAIN" THEN _
  90.          ZHomeConf$ = ""
  91.       IF ZRequiredRings > 0 AND _
  92.          INSTR(ZModemInitCmd$,"S0=255") THEN _
  93.          COLOR 7,0,0 _
  94.       ELSE COLOR ZFG,ZBG,ZBorder
  95.       IF ZLocalUserMode THEN _
  96.          GOTO 44003
  97.       CALL SetBaud
  98.