音乐:长江之歌
20 PLAY "O2E3F3G5E5C5O1G5A8"
30 PLAY "O2D3E3F5O1G3G2O2F6E3E8"
40 PLAY "E3F3G5E5C5O1G5A8"
50 M=M+1:IF M MOD 2=0 THEN 120
60 PLAY "O2D3E3F5O1G3G2O2E6D3C8R5"
70 PLAY "O1B6O2C3D5O1G3G2G5D3O2C3D7"
80 PLAY "C6D3E3O1G3O2C3D3E8"
90 PLAY "D6E3F5O1A3A2O2E6D3D7"
100 PLAY "F6E3D3D2D3A3G8"
110 GOTO 20
120 PLAY "O2D3E3O1G5O2F3F2E6D3C8"
130 IF M<>4 THEN 20
140 PLAY "O2E3F3G8E3F3G8D3E3F8E5E8"
150 END
运行环境：F BASIC