Category : BBS Programs+Doors
Archive   : AED244A.ZIP
Filename : RSB4ETOG.MRG

* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB4.BAS to produce RSB4ETOG.BAS
* RBBSSUB4.BAS: Date 8-26-1990 Size 126891 bytes
* ------------[ Created 09-20-1990 15:20:25 ]------------
* REPLACING old line(s) by new
57000 ' $SUBTITLE: 'Toggle - Toggle User Preferences'
' $PAGE
'
' NAME -- Toggle
'
' INPUTS -- ToggleOption Option to toggle or view
' according to the following:
' ToggleOption PREFERENCE
' Toggle VIEW
' 1 -1 Autodownload
' 2 -2 Bulletin review on logon
' 3 -3 Case change
' 4 -4 File review on logon
' 5 -5 Highlight
' 6 -6 Line feeds
' 7 -7 Nulls
' 8 -8 TurboKey
' 9 -9 Expert
' 10 -10 Bell
* ------[ first line different ]------
' 11 -11 Editor
'
' OUTPUTS -- ZSubParm passed from TPut
'
' PURPOSE -- Sets or views any single user preference value
'
SUB Toggle (ToggleOption) STATIC
ZSubParm = 0
IF ToggleOption < 0 THEN _
GOTO 57005
ON ToggleOption GOSUB _
57010, _ 'Autodownload
57120, _ 'Bulletin review on logon
57260, _ 'Case change
57150, _ 'File review on logon
57040, _ 'Highlight
57100, _ 'Line feeds
57210, _ 'Nulls
57230, _ 'TurboKey
57190, _ 'Expert
57170, _ 'Bell
57290 'Editor
EXIT SUB
* REPLACING old line(s) by new
57005 CALL AskMore ("",ZTrue,ZTrue,WasX,ZTrue)
ON -ToggleOption GOSUB _
57030, _ 'Autodownload
57130, _ 'Bulletin review on logon
57270, _ 'Case change
57160, _ 'File review on logon
57050, _ 'Highlight
57110, _ 'Line feeds
57220, _ 'Nulls
57240, _ 'TurboKey
57200, _ 'Expert
* ------[ first line different ]------
57180, _ 'Bell
57300 'Editor
EXIT SUB
* REPLACING old line(s) by new
57280 ZUseTPut = (ZUpperCase OR ZXOnXOff)
RETURN
* ------[ first line different ]------
* INSERTING new line(s)
57290 ZFullScreenEditor = NOT ZFullScreenEditor
57300 CALL QuickTPut1 ("Full Screen Editor " + FNOffOn$(ZFullScreenEditor))
RETURN
END SUB
'