10 FOR V=0 TO15:CLS:PRINT"Volume";V
20 PLAY"V=V;C":FOR D=1 TO 500
30 NEXTD:NEXTV