Atari XL

Sound and Music 85
3020
3030
3040
3050
3060
3070
3993
3994
3995
3996
3997
3998
3999
4000
4010
4020
4030
4040
4050
4060
4993
4994
4995
4996
4997
4998
4999
5000
5010
5020
5993
5994
5995
5996
5997
5998
5999
IF P=O THEN M$="FREQUENCY":REM
THIS TEXT IN REVERSE
IF P=2 THEN M$="DISTORTION":
REM THIS TEXT IN REVERSE
IF P=4 THEN M$="VOLUME":REM
THIS TEXT IN REVERSE
POSITION X,4:PRINT M$
GOSUB KEYBOARD
RETURN
REM
REM *********************
REM * *
REM * SUBROUTINE SELECT *
REM * *
REM *********************
REM
POSITION 3,7+2*CHAN
PRINT ""
CHAN = CHAN+l
IF CHAN=4 THEN CHAN=O
POSITION 3,7+2*CHAN
PRINT ">"
RETURN
REM
REM ********************
REM * *
REM * SUBROUTINE START *
REM * *
REM ********************
REM
FOR Z=O TO 3:S0UND Z,O,O,O:
NEXT Z
GOSUB 12010
RETURN
REM
REM ***********************
REM * *
REM * SUBROUTINE DECREASE *
REM * *
REM ***********************
REM