10 FOR I=1 TO 96:CLS:PRINT"Номер ноты";I:PLAY"N=I;"
20 FOR D=1 TO 300:NEXTD:NEXTI