10 A$="T180L4O4":B$="T180L4O4":C$="T180L4O4":PLAY A$,B$,C$
20 A$="M35000S1":B$="M3500S1":C$="M3000S1":PLAY A$,B$,C$
30 A$="R8O5L8E4FGA16G16FED4G":B$="O4L4CECEDO5D":C$="O4L4R4GR4GR4O4B"
40 PLAY A$,B$,C$
50 A$="R8O5L8D4EFG16F16EDE4C4":B$="O3L4BO4GDGO4CG":C$="O4L4R4BR4BR4E"
60 PLAY A$,B$,C$
70 A$="R8O5L8E4FGA16G16FED4G":B$="O4L4CECEDO5D":C$="O4L4R4GR4GR4O4B"
80 PLAY A$,B$,C$
90 A$="R8O5L8D4EFG16F16EDE4E4":B$="O3L4BO4GDGO4Cb":C$="O4L4R4BR4BR4g+"
100 PLAY A$,B$,C$
110 'Вторая часть
120 A$="O4L8R8A4O5CEF16E16DCO4B4O5E4":B$="O3L4AO4CO3AO4CO3BO4B"
130 C$="O4L4R4ER4ER4G+":PLAY A$,B$,C$
140 A$="O4L8R8B4O5CDE16D16CO4BO5C4O4A4":B$="O3L4BEO4EG+O3AO5C"
150 C$="O4L4R4G+R4BR4O4E":PLAY A$,B$,C$
160 A$="O4L8R8A4O5CEF16E16DCO4B4O5E4":B$="O3L4AO4CO3AO4CO3BO4B"
170 C$="O4L4R4ER4ER4G+":PLAY A$,B$,C$
180 IF K=1 THEN 220
190 A$="O4L8R8B4O5CDE16D16CO4BAR8O5D4":B$="O3L4BEO4EG+O3AO4B"
200 C$="O4L4R4G+R4BR4O4g4":PLAY A$,B$,C$
210 IF K=0 THEN K=1:GOTO 10
220 A$="O4L8R8B4O5CDE16D16CO4BAR8O5e4":B$="O3L4BEO4EG+O3AO4C"
230 C$="O4L4R4G+R4BR4O4a4":PLAY A$,B$,C$:END