0 CLR
2 PRINT"[147]"POKE53280,6:POKE53281,6
10 REM HARMONICS
20 FOR L=54272 TO 54295:POKE L,0:NEXT:POKE 54296,15
30 AD=15:SR=190
40 POKE 54284,AD:POKE 54291,AD:POKE 54292,SR
50 POKE 54283,21:POKE 54290,23
60 FOR F1=200 TO 1 STEP -10:POKE 54273,F1
70 FOR F2=200 TO 1 STEP -50:FOR F3=1 TO 4:POKE 54280,F2:POKE 54287,F3
80 NEXT F3,F2,F1
90 FOR Q=15 TO 0 STEP -1:POKE 54296,Q:NEXT Q