中华民谣

LOCATE 10,30:PRINT “中华民谣”
PLAY “T125”
ST:
FOR I=1 TO 2
PLAY “MNO4G4.E8G4G8A8>C4C8C4 PLAY “L8EDGED2G4G8E8G4G8G8E4E8D8C2L8DDDEG4L8GEDCC NEXT I
PLAY “>>C4C8C4C8CC4 PLAY “G4G8G4G8G8E4E8D8C4P8DDDEDC
C”
IF K <> 0 THEN PLAY“C4P8DDDEDC
CMLC2C4P4”:END
PLAY “MLC2C4P4MNG4.E8G4G8A8>C4C8 PLAY “D2E4E8.D16G4L8GGE4E8D8C2L8DDDEG4L8GEDC
CG2>C8C4 PLAY “>C8C4CC4D4L8C PLAY “>C4C8C4D8E8G2L8DDDCD4L16A>C K=1:GOTO ST
源语言QBasic,PC机调试通过。
(曲龙)