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 >
Wrap
Text File
|
1992-06-25
|
4KB
|
100 lines
* ------------[ BLED merge (c) Ken Goosens ]-------------
* Merge this against RBBSSUB4.BAS to produce RSB4NTKE.BAS
* RBBSSUB4.BAS: Date 6-20-1992 Size 120885 bytes
* ------------[ Created 06-25-1992 19:25:22 ]------------
* 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
'
' 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
* ------[ first line different ]------
57190, _ 'Expert
57170 'Bell
EXIT SUB
' 57230, _ 'TurboKey "Moved from after 57210" ' BC-NTKE1
* 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
* ------[ first line different ]------
57200, _ 'Expert
57180 'Bell
EXIT SUB
' 57240, _ 'TurboKey "Moved from after 57220" ' BC-NTKE1
* REPLACING old line(s) by new
57220 ZOutTxt$ = "Nulls " + FNOffOn$(ZNulls)
CALL QuickTPut1 (ZOutTxt$)
RETURN
* ------[ first line different ]------
'57230 ZTurboKeyUser = NOT ZTurboKeyUser ' BC-NTKE1
'57240 CALL QuickTPut1 ("TurboKey " + FNOffOn$(ZTurboKeyUser)) ' BC-NTKE1
' RETURN ' BC-NTKE1
* DELETING old line(s)
57230
57240
* REPLACING old line(s) by new
64636 IF ZAnsIndex < ZLastIndex THEN _
GOTO 64638
ZOutTxt$ = "A)utodwnld B)ullet C)ase F)ile H)ilite"
CALL TopPrompt
* ------[ first line different ]------
ZOutTxt$ = "L)ine feeds N)ulls X)pert !)bell" ' BC-NTKE1
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("ABCFHLNX!",ZWasZ$) ' BC-NTKE1
IF ZFF < 1 THEN _
GOTO 64636
CALL Toggle (ZFF)
GOTO 64636
END SUB
SUB TopPrompt STATIC
CALL ColorPrompt (ZOutTxt$)
CALL QuickTPut1 (ZOutTxt$)
END SUB