PROC ChgSnd:
LOCAL C&,Keys%,Beeps%,Alarm%,All%,A&
C&=CALL(3979)
IF (C& AND 1)<>0
IF (C& AND 8)<>0
Keys%=3
ELSE
Keys%=2
ENDIF
ELSE
Keys%=1
ENDIF
IF (C& AND 2)<>0
IF (C& AND 16)<>0
Beeps%=3
ELSE
Beeps%=2
ENDIF
ELSE
Beeps%=1
ENDIF
IF (C& AND 4)<>0
Alarm%=1
ELSE
Alarm%=2
ENDIF
IF C&<0
All%=2
ELSE
All%=1
ENDIF
L185::
dINIT "Set the sound"
dCHOICE All%,"All sound","On,Off"
dCHOICE Alarm%,"Alarm sounds","On,Off"
dCHOICE Beeps%,"Beeps","Off,Quiet,Loud"
dCHOICE Keys%,"Key click","Off,Quiet,Loud"
IF DIALOG=0
STOP
ENDIF
A&=0
IF Keys%=1
GOTO L407::
ENDIF
IF Keys%=2
A&=A&+1
ELSEIF Keys%=3
A&=A&+9
ENDIF
L407::
IF Beeps%=1
GOTO L462::
ENDIF
IF Beeps%=2
A&=A&+2
ELSEIF Beeps%=3
A&=A&+18
ENDIF
L462::
IF Alarm%=1
A&=A&+4
ENDIF
IF All%=2
A&=A&-32768
ENDIF
PRINT A&
GET
CALL(4235,A&)
ENDP