10 '      ПОДМОСКОВНЫЕ ВЕЧЕРА                    В.Соловьев-Седой
20 '----------------------------------------------------------------
30 A$="T80L8O4CE-GE- F4E-D G4F4 C2 E-GB-16.R32B- O5C4O4B-A- G2XA1$;"
40 A1$="D4A4B4O5DCO4G4 GD4C G.F16A-4 A-4B-A-G4FE- G4F4"
50 PLAY A$:PLAY "O5C2"
60 PLAY A1$+"O4C2CR32"
70 IF PLAY(1) THEN 70
80 '    продолжение программы
90 ' ...   ...   ...   ...   ...