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机调试通过。
(曲龙)