5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15:POKE54277,8:POKE54278,255
20 POKE54276,85:REM SQUARE + TRIANGLE + RING MOD
25 F1=100:F2=230:REM FREQUENCIES TO BE POKED INTO VOICES 1 AND 3
30 FORZ=1TO77:POKE54272,F1:REM THIS IS ONLY SOUND TO USE 54272 INSTEAD OF 54273
40 POKE54287,F2:REM VOICE 3
50 F2=F2-2:F1=F1*.99:NEXT
60 POKE54278,15
70 LIST10-60