home *** CD-ROM | disk | FTP | other *** search
/ Monster Disc 2: The Best of 1992 / MONSTER1.ISO / bbs / rbbs / edit174.zip / RSB4ETOG.MRG < prev    next >
Text File  |  1992-07-05  |  4KB  |  104 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RSB4ETOG.BAS
  3. * RBBSSUB4.BAS:  Date 4-4-1992  Size 128032 bytes
  4. * ------------[ Created 04-04-1992 19:26:07 ]------------
  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. * ------[ first line different ]------
  26. '    11      -11           Editor                                    ' ET070501
  27. '
  28. '  OUTPUTS -- ZSubParm   passed from TPut
  29. '
  30. '  PURPOSE -- Sets or views any single user preference value
  31. '
  32.       SUB Toggle (ToggleOption) STATIC
  33.       ZSubParm = 0
  34.       IF ToggleOption < 0 THEN _
  35.          GOTO 57005
  36.       ON ToggleOption GOSUB _
  37.          57010, _         'Autodownload
  38.          57120, _         'Bulletin review on logon
  39.          57260, _         'Case change
  40.          57150, _         'File review on logon
  41.          57040, _         'Highlight
  42.          57100, _         'Line feeds
  43.          57210, _         'Nulls
  44.          57230, _         'TurboKey
  45.          57190, _         'Expert
  46.          57170, _         'Bell                                      ' ET070501
  47.          57290            'Editor                                    ' ET070501
  48.       EXIT SUB
  49. * REPLACING old line(s) by new
  50. 57005 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  51.       ON -ToggleOption GOSUB _
  52.          57030, _         'Autodownload
  53.          57130, _         'Bulletin review on logon
  54.          57270, _         'Case change
  55.          57160, _         'File review on logon
  56.          57050, _         'Highlight
  57.          57110, _         'Line feeds
  58.          57220, _         'Nulls
  59.          57240, _         'TurboKey
  60.          57200, _         'Expert
  61. * ------[ first line different ]------
  62.          57180, _         'Bell                                      ' ET070501
  63.          57300            'Editor                                    ' ET070501
  64.       EXIT SUB
  65. * REPLACING old line(s) by new
  66. 57280 ZUseTPut = (ZUpperCase OR ZXOnXOff)
  67.       RETURN
  68. * ------[ first line different ]------
  69. * INSERTING new line(s)
  70. 57290 ZFullScreenEditor = NOT ZFullScreenEditor                      ' ET070501
  71. 57300 CALL QuickTPut1 ("Full Screen Editor " + FNOffOn$(ZFullScreenEditor)) ' ET070501
  72.       RETURN
  73.       END SUB
  74. '
  75. * REPLACING old line(s) by new
  76. 64636 IF ZAnsIndex < ZLastIndex THEN _
  77.          GOTO 64638
  78. * ------[ first line different ]------
  79.       ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     E)ditor   F)ile   H)ilite" ' ET070501
  80.       CALL TopPrompt
  81.       ZOutTxt$ = "L)ine feeds  N)ulls   T)urboKey X)pert    !)bell"  ' ET070501
  82.       CALL TopPrompt                                                 ' UG070501
  83.       ZOutTxt$ = "Toggle Which Options On/Off" + ZPressEnter$        ' UG070501
  84.       CALL ColorPrompt (ZOutTxt$)
  85. * REPLACING old line(s) by new
  86. 64638 ZStackC = ZTrue
  87.       ZTurboKey = -ZTurboKeyUser
  88.       CALL PopCmdStack
  89.       IF ZWasQ=0 OR ZSubParm < 0 THEN _
  90.          EXIT SUB
  91.       ZWasZ$ = ZUserIn$(ZAnsIndex)
  92.       CALL AllCaps (ZWasZ$)
  93. * ------[ first line different ]------
  94.       ZFF = INSTR("ABCFHLNTX!E",ZWasZ$)                              ' ET070501
  95.       IF ZFF < 1 THEN _
  96.          GOTO 64636
  97.       CALL Toggle (ZFF)
  98.       GOTO 64636
  99.       END SUB
  100.       SUB TopPrompt STATIC
  101.       CALL ColorPrompt (ZOutTxt$)
  102.       CALL QuickTPut1 (ZOutTxt$)
  103.       END SUB
  104.