home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / RBBS_PC / RCHAT300.ZIP / RSB4CHAT.MRG < prev    next >
Encoding:
Text File  |  1990-08-28  |  2.8 KB  |  74 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against OLD\RBBSSUB4.BAS to produce RBBSSUB4.BAS
  3. * OLD\RBBSSUB4.BAS:  Date 8-26-1990  Size 126891 bytes
  4. * ------------[ Created 08-28-1990 14:14:36 ]------------
  5. * REPLACING old line(s) by new
  6. 57000 ' $SUBTITLE: 'Toggle - Toggle User Preferences'
  7. ' $PAGE
  8. '
  9. '  NAME    -- Toggle
  10. '
  11. '  INPUTS  -- ToggleOption      Option to toggle or view
  12. '                               according to the following:
  13. '    ToggleOption         PREFERENCE
  14. '   Toggle   VIEW
  15. '     1       -1           Autodownload
  16. '     2       -2           Bulletin review on logon
  17. '     3       -3           Case change
  18. '     4       -4           File review on logon
  19. '     5       -5           Highlight
  20. '     6       -6           Line feeds
  21. '     7       -7           Nulls
  22. '     8       -8           TurboKey
  23. '     9       -9           Expert
  24. '    10      -10           Bell
  25. '
  26. '  OUTPUTS -- ZSubParm   passed from TPut
  27. '
  28. '  PURPOSE -- Sets or views any single user preference value
  29. '
  30.       SUB Toggle (ToggleOption) STATIC
  31.       ZSubParm = 0
  32.       IF ToggleOption < 0 THEN _
  33.          GOTO 57005
  34.       ON ToggleOption GOSUB _
  35.          57010, _         'Autodownload
  36.          57120, _         'Bulletin review on logon
  37.          57260, _         'Case change
  38.          57150, _         'File review on logon
  39.          57040, _         'Highlight
  40.          57100, _         'Line feeds
  41.          57210, _         'Nulls
  42.          57230, _         'TurboKey
  43.          57190, _         'Expert
  44. * ------[ first line different ]------
  45.          57170, _         'Bell                                      ' CHAT0805
  46.          57300            'Internode chat availability               ' CHAT0805
  47.       EXIT SUB
  48. * REPLACING old line(s) by new
  49. 57005 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  50.       ON -ToggleOption GOSUB _
  51.          57030, _         'Autodownload
  52.          57130, _         'Bulletin review on logon
  53.          57270, _         'Case change
  54.          57160, _         'File review on logon
  55.          57050, _         'Highlight
  56.          57110, _         'Line feeds
  57.          57220, _         'Nulls
  58.          57240, _         'TurboKey
  59.          57200, _         'Expert
  60. * ------[ first line different ]------
  61.          57180, _         'Bell                                      ' CHAT0805
  62.          57310            'Internode chat availability               ' CHAT0805
  63.       EXIT SUB
  64. * REPLACING old line(s) by new
  65. 57280 ZUseTPut = (ZUpperCase OR ZXOnXOff)
  66.       RETURN
  67. * ------[ first line different ]------
  68. * INSERTING new line(s)
  69. 57300 ZAvailableForChat = NOT ZAvailableForChat                      ' CHAT0805
  70. 57310 ZOutTxt$ = "Available for node chat: " + MID$("NO YES", 1 -3 * ZAvailableForChat, 3)
  71.       CALL QuickTPut1 (ZOutTxt$)                                     ' CHAT0805
  72.       END SUB
  73. '
  74.