20 CLS:A$="M500O4L4DF#ARAF#D"
40 FOR I=1 TO 8
50    READ S$:PRINT"Волновой пакет: ";S$:PLAY S$:PLAY A$
80    FOR J=1 TO 2000:NEXT J
90 NEXT I
100 END
110 DATA s1,s4,s8,s10,s11,s12,s13,s14