home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / AED243A.ZIP / RSB2ETOG.MRG < prev    next >
Encoding:
Text File  |  1990-06-10  |  2.6 KB  |  71 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB2.BAS to produce RSB2ETOG.BAS
  3. * RBBSSUB2.BAS:  Date 5-26-1990  Size 135138 bytes
  4. * ------------[ Created 06-10-1990 02:03:58 ]------------
  5. * REPLACING old line(s) by new
  6. 9600 ' $SUBTITLE: 'DefaultU - subroutine to update user defauts'
  7. ' $PAGE
  8. '
  9. '  NAME    -- DefaultU
  10. '
  11. '  INPUTS  --     PARAMETER                    MEANING
  12. '             ZAutoDownDesired
  13. '             ZBoldText$              Ansi bold (0 no, 1 yes)
  14. '             ZCheckBulletLogon
  15. '             ZExpertUser
  16. * ------[ first line different ]------
  17. '             ZFullScreenEditor
  18. '             ZWasGR
  19. '             ZLastMsgRead
  20. '             ZLineFeeds
  21. '             ZNulls
  22. '             ZPageLength
  23. '             ZPromptBell
  24. '             ZRegDate$
  25. '             ZReqQuesAnswered
  26. '             ZRightMargin
  27. '             ZSkipFilesLogon
  28. '             ZTimesLoggedOn
  29. '             ZUpperCase
  30. '             ZUserOption$
  31. '             ZUserTextColor          Ansi of color (31-37)
  32. '             ZUserXferDefault$
  33. '
  34. '  OUTPUTS--  USER.OPTONS$
  35. '
  36. '  PURPOSE --  To update the user's record with their options.
  37. '  Meaning of graphics preference stored is as follows: where # is
  38. '  value stored for the color.  E.g. if graphics perference for text
  39. '  files is color, and preference for normal text is light yellow,
  40. '  graphics preference stored is 38.  Colors are Red, Green, Yellow,
  41. '  Blue, Purple, Cyan, and White.
  42. '
  43. '             normal                  bold
  44. ' Graphics R  G  Y  B  P  C  W    R  G  Y  B  P  C  W
  45. '   none  30 33 36 39 42 45 48 | 51 54 57 60 63 66 69
  46. '   ansi  31 34 37 40 43 46 49 | 52 55 58 61 64 67 70
  47. '  color  32 35 38 41 44 47 50 | 53 56 59 62 65 68 71
  48. '
  49.      SUB DefaultU STATIC
  50.      ZWasA =    -ZPromptBell          -2 * ZExpertUser _
  51.             -4 * ZNulls               -8 * ZUpperCase _
  52.            -16 * ZLineFeeds          -32 * ZCheckBulletLogon _
  53.            -64 * ZSkipFilesLogon    -128 * ZAutoDownDesired _
  54.           -256 * ZReqQuesAnswered   -512 * ZMailWaiting _
  55.          -1024 * (NOT ZHiLiteOff)  -2048 * ZTurboKeyUser _
  56.          -4096 * ZFullScreenEditor
  57.      WasX = 3*ZUserTextColor - 63 + 21*VAL(ZBoldText$) + ZWasGR
  58.      IF WasX < 1 OR WasX > 255 THEN _
  59.         WasX = 48
  60.      LSET ZUserOption$ = _
  61.         MKI$(ZTimesLoggedOn) + _
  62.         MKI$(ZLastMsgRead) + _
  63.         ZUserXferDefault$ + _
  64.         CHR$(WasX) + _
  65.         MKI$(ZRightMargin) + _
  66.         MKI$(ZWasA) + _
  67.         ZRegDate$ + _
  68.         CHR$(ZPageLength) + _
  69.         ZEchoer$
  70.      END SUB
  71.