音乐:长江之歌

Author: 广州吕承业 Date: 1992-10-16

        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