春江花月夜乐谱(QUICK BASIC)

PLAY "MBML T60 O2"
PLAY "A8A16A16 > C8D16 < A16G4G8.A16"
PLAY "G8G8A8 > C16D16 <E2E8D16E16 G8E16G16"
PLAY "A8. > C16D8.E16C8 D16E16D16C16 < A8"
PLAY "G4G8 > C16D16 < A8 > C16D16 < A16 > C16 < G16D16"
PLAY "E2E8A16 > C16 <G16A16G16E16D2"
PLAY "E8.G16 < A16G16A16 >C16"
A$="D8E16D16C16D16E16C16D2"
PLAY "X"+VARPTR$(A$)
PLAY "T48"
PLAY "X"+VARPTR$(A$)
PLAY "D2"
END