home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-386-Vol-2of3.iso / b / bc-ntke1.zip / RSB4NTKE.MRG < prev    next >
Text File  |  1992-06-25  |  4KB  |  100 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB4.BAS to produce RSB4NTKE.BAS
  3. * RBBSSUB4.BAS:  Date 6-20-1992  Size 120885 bytes
  4. * ------------[ Created 06-25-1992 19:25:22 ]------------
  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. * ------[ first line different ]------
  43.          57190, _         'Expert
  44.          57170            'Bell
  45.       EXIT SUB
  46. '         57230, _         'TurboKey "Moved from after 57210"        ' BC-NTKE1
  47. * REPLACING old line(s) by new
  48. 57005 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
  49.       ON -ToggleOption GOSUB _
  50.          57030, _         'Autodownload
  51.          57130, _         'Bulletin review on logon
  52.          57270, _         'Case change
  53.          57160, _         'File review on logon
  54.          57050, _         'Highlight
  55.          57110, _         'Line feeds
  56.          57220, _         'Nulls
  57. * ------[ first line different ]------
  58.          57200, _         'Expert
  59.          57180            'Bell
  60.       EXIT SUB
  61. '         57240, _         'TurboKey "Moved from after 57220"         ' BC-NTKE1
  62. * REPLACING old line(s) by new
  63. 57220 ZOutTxt$ = "Nulls " + FNOffOn$(ZNulls)
  64.       CALL QuickTPut1 (ZOutTxt$)
  65.       RETURN
  66. * ------[ first line different ]------
  67. '57230 ZTurboKeyUser = NOT ZTurboKeyUser                             ' BC-NTKE1
  68. '57240 CALL QuickTPut1 ("TurboKey " + FNOffOn$(ZTurboKeyUser))         ' BC-NTKE1
  69. '      RETURN                                     ' BC-NTKE1
  70. * DELETING old line(s)
  71. 57230
  72. 57240
  73. * REPLACING old line(s) by new
  74. 64636 IF ZAnsIndex < ZLastIndex THEN _
  75.          GOTO 64638
  76.       ZOutTxt$ = "A)utodwnld   B)ullet  C)ase     F)ile   H)ilite"
  77.       CALL TopPrompt
  78. * ------[ first line different ]------
  79.       ZOutTxt$ = "L)ine feeds  N)ulls  X)pert  !)bell"              ' BC-NTKE1
  80.       CALL ColorPrompt (ZOutTxt$)                                     
  81. * REPLACING old line(s) by new
  82. 64638 ZStackC = ZTrue
  83.       ZTurboKey = -ZTurboKeyUser
  84.       CALL PopCmdStack
  85.       IF ZWasQ=0 OR ZSubParm < 0 THEN _
  86.          EXIT SUB
  87.       ZWasZ$ = ZUserIn$(ZAnsIndex)
  88.       CALL AllCaps (ZWasZ$)
  89. * ------[ first line different ]------
  90.       ZFF = INSTR("ABCFHLNX!",ZWasZ$)                     ' BC-NTKE1
  91.       IF ZFF < 1 THEN _
  92.          GOTO 64636
  93.       CALL Toggle (ZFF)
  94.       GOTO 64636
  95.       END SUB
  96.       SUB TopPrompt STATIC
  97.       CALL ColorPrompt (ZOutTxt$)                                     
  98.       CALL QuickTPut1 (ZOutTxt$)                                      
  99.       END SUB
  100.