home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Lion Share
/
lionsharecd.iso
/
bbs_oth
/
edit174.zip
/
RSB4ETOG.MRG
< prev
next >
Wrap
Text File
|
1992-07-05
|
4KB
|
104 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB4.BAS to produce RSB4ETOG.BAS
* RBBSSUB4.BAS: Date 4-4-1992 Size 128032 bytes
* ------------[ Created 04-04-1992 19:26:07 ]------------
* 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 ' ET070501
'
' 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 ' ET070501
57290 'Editor ' ET070501
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 ' ET070501
57300 'Editor ' ET070501
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 ' ET070501
57300 CALL QuickTPut1 ("Full Screen Editor " + FNOffOn$(ZFullScreenEditor)) ' ET070501
RETURN
END SUB
'
* REPLACING old line(s) by new
64636 IF ZAnsIndex < ZLastIndex THEN _
GOTO 64638
* ------[ first line different ]------
ZOutTxt$ = "A)utodwnld B)ullet C)ase E)ditor F)ile H)ilite" ' ET070501
CALL TopPrompt
ZOutTxt$ = "L)ine feeds N)ulls T)urboKey X)pert !)bell" ' ET070501
CALL TopPrompt ' UG070501
ZOutTxt$ = "Toggle Which Options On/Off" + ZPressEnter$ ' UG070501
CALL ColorPrompt (ZOutTxt$)
* REPLACING old line(s) by new
64638 ZStackC = ZTrue
ZTurboKey = -ZTurboKeyUser
CALL PopCmdStack
IF ZWasQ=0 OR ZSubParm < 0 THEN _
EXIT SUB
ZWasZ$ = ZUserIn$(ZAnsIndex)
CALL AllCaps (ZWasZ$)
* ------[ first line different ]------
ZFF = INSTR("ABCFHLNTX!E",ZWasZ$) ' ET070501
IF ZFF < 1 THEN _
GOTO 64636
CALL Toggle (ZFF)
GOTO 64636
END SUB
SUB TopPrompt STATIC
CALL ColorPrompt (ZOutTxt$)
CALL QuickTPut1 (ZOutTxt$)
END SUB