Atari XL

Sound and Music
87
10020 PRINT "XL SOUND CHECK":REM IN
REVERSE
10030 POSITION 2,4
10040 PRINT "CHANNEL FREQUENCY
DISTORTION VOLUME"
10050 POSITION 12,5:PRINT "(0-255)
(0-14) (0-15)"
10060 FOR CHAN=O TO 3
10070 POSITION 5,7+2*CHAN
10080 PRINT CHAN:NEXT CHAN
10090 CHAN=O:POSITION 3,7+2*CHAN
10095 PRINT n>"
10993 REM
10994 REM ************************
10995 REM * *
10996 REM * SUBROUTINE ADDRESSES *
10997 REM * *
10998 REM ************************
10999 REM
11000 FUNKEY = 1000
11010 KEYBOARD = 2000
11020 OPTION = 3000
11030 SELECT = 4000
11040 START = 5000
11050 DECREASE = 6000
11060 INCREASE = 6500
11070 PLAY = 8000
11080 POKE 752,I:REM TURN OFF CURSOR
11993 REM
11994 REM **************
11995 REM * *
11996 REM * INITIALISE *
11997 REM * *
11998 REM **************
11999 REM
12000 DIM S(3,5),M$(20)
12010 FOR CHAN=O TO 3
12020 FOR P=O TO 4 STEP 2
12030 S(CHAN,P)=O
12035 XP=«P=0)*14)+({P=2)*26)+
{{P=4)*36):GOSUB 8010