Atari XL

84
993
994
995
996
997
998
999
1000
1010
1020
1030
1040
1993
1994
1995
1996
1997
1998
1999
2000
2010
2020
2030
2100
2993
2994
2995
2996
2997
2998
2999
3000
3005
3010
The Aten XL Handbook
REM
REM
*********************
REM * *
REM * SUBROUTINE FUNKEY *
REM * *
REM *********************
REM
K=PEEK(53279)
IF K=3 THEN GOSUB OPTION
IF K=5 THEN GOSUB SELECT
IF K=6 THEN GOSUB START
RETURN
REM
REM ***********************
REM * *
REM * SUBROUTINE KEYBOARD *
REM * *
REM ***********************
REM
K=PEEK(764)
IF K=54 THEN POKE 764,255:
GOSUB DECREASE:GOSUB PLAY:GOTO
2100
IF K=55 THEN POKE 764,255:
GOSUB INCREASE:GOSUB PLAY:GOTO
2100
IF K=28 THEN GOSUB START:PRINT
"
" ": END
RETURN
REM
REM *********************
REM * *
REM * SUBROUTINE OPTION *
REM * *
REM *********************
REM
POSITION 2,4:PRINT"CHANNEL
FREQUENCY DISTORTION VOLUME"
P=P+2:IF P=6 THEN P=O
X={{P=0)*11)+«P=2)*22)+
«P=4)*34)