中华民谣

Author: 曲龙 Date: 1995-02-24

        LOCATE 10，30：PRINT “中华民谣”
        PLAY “T125”
        ST：
        FOR I=1 TO 2
        PLAY “MNO4G4.E8G4G8A8>C4C8<A8G2G8>C4<A8G4L8ED”
        PLAY “L8EDGED2G4G8E8G4G8G8E4E8D8C2L8DDDEG4L8GEDC<A>C<G2”
        NEXT I
        PLAY “>>C4C8<A8>C4C8<A8G4L16A>C<AGG2G8>C4<L8AGGEDEDGED2”
        PLAY “G4G8G4G8G8E4E8D8C4P8<L8A>DDDEDC<A>C”
        IF K <> 0 THEN PLAY“C4P8<L8A>DDDEDC<A>CMLC2C4P4”：END
        PLAY “MLC2C4P4MNG4.E8G4G8A8>C4C8<A8G2G8G4A8G8.A16L8EDEDGE”
        PLAY “D2E4E8.D16G4L8GGE4E8D8C2L8DDDEG4L8GEDC<A>CG2>C8C4<A8”
        PLAY “>C8C4<A8G4L16A>C<AGG2G8>C4<A8>D4L8C<AGAGED2C4C8<A8”
        PLAY “>C4C8<A8>C4D8E8G2L8DDDCD4L16A>C<A8MLG1G2G4P4”
        K=1:GOTO ST
        源语言QBasic，PC机调试通过。
        (曲龙)