play "e8e8f8g8g8f8e8d8c8c8d8e8e4d16d16e8e8f8g8g8f8e8d8c8c8d8e8d4c16c1"
play "d8d8e8c8d4e16f16e8c8d8e8f8e8d8c8d8g8e8e8e8f8g8g8f8e8d8c8c8d8e8d4c8c1

play "o3g4g8a8d2p32c4c8<a8>d2p32g4g4a8>c8<a8g4c4c8<a8>d2p32"
play "g4d4c4<b8a8g4>g4d4e8d8c4c8<a8>d8e8d8c8d8c8<b8aeg2"

DECLARE SUB dreem ()
DECLARE SUB happy ()
DECLARE SUB tal ()
DECLARE SUB G ()
DECLARE SUB ff ()
DECLARE SUB win ()
DECLARE SUB one ()
DECLARE SUB two ()
DECLARE SUB three ()
DECLARE SUB four ()
COLOR 3
10 CLS
LOCATE 8, 26: PRINT "Music begining !"
LOCATE 10, 54: PRINT "(8) : A same song ."
LOCATE 9, 12: PRINT "music - - - (1) : Song and smile ."
LOCATE 9, 54: PRINT "(7) : Talimo River ."
LOCATE 10, 24: PRINT "(2) : Gulangyu seaside ."
LOCATE 11, 24: PRINT "(3) : Small i ."
LOCATE 11, 54: PRINT "(9) : Beautiful dream ."
LOCATE 12, 24: PRINT "(4) : Wins !"
LOCATE 12, 54: PRINT "(10) : Your music ."
LOCATE 13, 24: PRINT "(5) : Glad song !"
LOCATE 13, 54: PRINT "(11) : The end ."
LOCATE 14, 24: PRINT "(6) : From new land ."
INPUT "               What ?", w$
IF w$ = "1" THEN CALL one: GOTO 10
IF w$ = "2" THEN CALL two: GOTO 10
IF w$ = "3" THEN CALL four: GOTO 10
IF w$ = "4" THEN CALL win: GOTO 10
IF w$ = "5" THEN CALL G: GOTO 10
IF w$ = "6" THEN CALL ff: GOTO 10
IF w$ = "7" THEN CALL tal: GOTO 10
IF w$ = "8" THEN CALL happy: GOTO 10
IF w$ = "9" THEN CALL dreem: GOTO 10
IF w$ = "10" THEN GOTO 20
IF w$ = "11" THEN END
IF w$ > "10" OR w$ < "1" THEN GOTO 10
20
DO

'PRINT INKEY$
a$ = INKEY$
IF a$ = "`" THEN GOTO 10
IF a$ = "1" THEN PLAY "o2c4"
IF a$ = "2" THEN PLAY "o2d4"
IF a$ = "3" THEN PLAY "o2e3"
IF a$ = "4" THEN PLAY "o2f4"
IF a$ = "5" THEN PLAY "o2g4"
IF a$ = "6" THEN PLAY "o2a4"
IF a$ = "7" THEN PLAY "o2b4"
IF a$ = "8" THEN PLAY "o3c4"
IF a$ = "9" THEN PLAY "o3d4"
IF a$ = "0" THEN PLAY "o3e4"
IF a$ = "q" OR a$ = "Q" THEN PLAY "o3f4"
IF a$ = "w" OR a$ = "W" THEN PLAY "o3g4"
IF a$ = "e" OR a$ = "E" THEN PLAY "o3a4"
IF a$ = "r" OR a$ = "R" THEN PLAY "o3b4"
IF a$ = "t" OR a$ = "T" THEN PLAY "o4c4"
IF a$ = "y" OR a$ = "Y" THEN PLAY "o4d4"
IF a$ = "u" OR a$ = "U" THEN PLAY "o4e4"
IF a$ = "i" OR a$ = "I" THEN PLAY "o4f4"
IF a$ = "o" OR a$ = "O" THEN PLAY "o4g4"
IF a$ = "p" OR a$ = "P" THEN PLAY "o4a4"
LOOP
GOTO 10

SUB dreem
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8o4f8e8e8d8c8d8o3a8b8o4c1c8"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8e1"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8c1"
PLAY "o3g8f8d8o2b3o3a3a8g8e8c2c4o4c8o3b8o4c8o3a3o4d4c8o3b8o4c8o3a8g1"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8e1"
PLAY "o3a8b8o4c8c8o3g8e8f8e8d8c1"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8e1"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8o4f8e8e8d8c8d8o3a8b8o4c1c8"

PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8e1"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8c1"
PLAY "o3g8f8d8b3a3a8g8e8c2c4o4c8o3b8o4c8o3a3o4d4c8o3b8o4c8o3a8g1"
PLAY "o4c8o3b8o4c8o3g3e3d8c8d8a2a4g8b8a8a8g8f8f8e8d8e1"
PLAY "o3a8b8o4c8c8o3g8e8f8e8d8c1"
PLAY "o3g2g2a1o4c1c1"
END SUB

SUB eree
PLAY "p1"
FOR i = 1 TO 5
PLAY "o3c8e8f8g8a2a4e8d8f8e8c8d8e8f8a4f8g8b2"
NEXT
END SUB

SUB ff
PLAY "o3e6g16g4e6d16c4d6e16g6e16d2e6"
PLAY "g16g4e6d16d6c4d6e16d6c16c2a6"
PLAY "o4c16c4o3b8g8a4a8o4c8o3b8g8a2a6o4c16c4o3b8g8a4a8o4c8o3b8g8a2"
PLAY "o3e6g16g4e6d16c4d6e16g6e16d2e6g16g4o4c6d16e4d6c16d8o3a8o4c2o3d3c8d4o2a4o3c1"
END SUB

SUB four
FOR i = 1 TO 2
PLAY "o3a4a6g16a8a4g8g8o2a4o3c8d2a16o4c3o3a8g8g4d8e1a4a6g16a8a4g8g8c4e8e16d2e16g3e8d8d4e8c16o2a1o3a8o4c4o3a8g4e4a8o4c4o3a8g4e4d3e8e8d16e16d8c8d1a8o4c4o3a8g4e4a8o4c4o3a8g4e4d3e8e8d16e16o2a8g8a1"
FOR j = 1 TO 2
PLAY "o4c4c6c16c2o3b4b6b16b2g8g8g8a8b8b4d8e1o4c4c6c16c2o3b4b6b16b2g8g8g8a8b8b8a8g8a1"
NEXT
NEXT
END SUB

（接上）

SUB G
'1
PLAY "o3e4e4f4g4g4f4e4d4c4c4d4e4e3d8d2e4e4f4g4g4f4e4d4c4c4d4e4d3c8c2"
FOR i = 1 TO 2
PLAY "d4d4e4c4d4e8f8e4c4d4e8f8e4d4c4d4o2g4o3e4e4e4f4g4g4f4e4f8d8c4c4d4e4d3c8c2"
NEXT
'2
PLAY "o2g4g4g4g4o3c4o2g4g4b4e4e4b4o3c4c3o2g8g2g4g4g4g4o3c4o2g4g4b4e4e4g4o3c4o2b3o3c8c2"
FOR i = 1 TO 2
PLAY "o2g4g4g4g4b4g4o3c4o2g4b4b4b4g4a4f4g4g4g4g4g4o3c4o2g4g4b4e4e4g4o3c4o2b3o3c8c2"
NEXT
'3
PLAY "o3c4c4d4e4e4d4c4o2g4o3c4c4o2g4o3c4c3o2b8b2o3c4c4d4e4e4d4c4o2g4o3c4c4o2b4o3c4o2g3o3c8c2"
FOR i = 1 TO 2
PLAY "o2b4b4o3c4o2e4g4o3c8d8c4o2e4g4g4g4e4a4o3d4o2g4o3c4c4c4d4e4e4d4c4o2g4o3c4c4o2b4o3c4o2g3o3c8c2"
NEXT
'ooo
PLAY "o3e4e4f4g4g4f4e4d4c4c4d4e4e3d8d2e4e4f4g4g4f4e4d4c4c4d4e4d3c8c2"
FOR i = 1 TO 2
PLAY "d4d4e4c4d4e8f8e4c4d4e8f8e4d4c4d4o2g4o3e4e4e4f4g4g4f4e4f8d8c4c4d4e4d3c8c2"
NEXT
END SUB

SUB happy
PLAY "o3g4o4c4d4e3o3e8g8a8o4c8o3a4o4d4c4o3a4o4c1c1c8o3a8g8e8c8o2a8g8e8"
PLAY "o2g2o3c4d4e3f8e4c4d2c4o2a4o3c1o2g2o3c4d4e4e8f8g4c4f3e8g4d8e8e8d8D2D4e2g4o4c4o3b3a8a2g4g8a8b4a8g8e1f3f8g4a4g4f8e8d2o2b4b8a8g4a4o3c1c1"
PLAY "O2G2O3C4D4E3F8E4C4D2C4O2A4O3C1O2G2O3C4D4E4E8F8G4C4F4E8E8G4D8E8E8D8D2D4E2G4O4C4O3B3A8A2G4G8A8B4A8G8G8E1F3F8G4A4G4F8E8D2O2B4B8A8G4A4O3C1O4C2O3A2F3G8A2B4B8B8B4A8G8E1O4C2O3A2F3G8A2D4D8D8A4F8E8D1O2G2O3C4D4E3F8E4C8C8D3D8D4D8C8O2A4A2B2B3A8G4O3A4G4D8D8F3F8F4E8D8D8G1"
PLAY "O3P4C4F4A4A2F8E8D4D8D8D4C8D8E4G2P4C4F4A4A2A8A8A8"
PLAY "O4C8D2D4C8O3A8G4G2 "
PLAY "O2G2O3C4D4E3F8E4C8C8D3D8D4D8C8O2A4A2A4B2B3A8G4O3A4G4D8D8F3F8F4E8D8C1"
'PLAY "O2G1G2O3C4D8E8F1E3D8C4O2A4G2O3E4G4O4C2O3B2A1B3A8G4A8B8O4C2O3B4A8G8F2F4G8A8B3A8G4D4C4E4A3G8A2G4F8E8D3E8F4A4G2G4F4E1"
PLAY "P64"
PLAY "O3E4G4O4C2O3A2F3G8A2B4B8B8B4A8G8E1O4C2O3A2F3G8A4A4D4D8D8A4F8E8D1O2G2O3C4D4E3F8E4C8C8D3D8D4D8C8O2A4A2A4B2B3A8G4O3A4G4D8D8F3F8F4E8D8C1"
PLAY "O3A1O4C2C4C1C1"
END SUB

SUB one
PLAY "o2a4a4o3c4d4d16e2g4a4o2a4o3c4d4d16e1d4d4d4e4g4g4g4a4d16e1e1o2a4a4o3c4d4d16e2g4a4o2a4o3c4d4d16e1d4d4d4e4g4a16g4p4o2g4a1a1o4c4c4c4c4o3a3b8o4c2c4c4c4c4o3a3b8o4c2d3d8d4d4c2d2o3b1b1o4c4c4c4c4o3a3b8o4c2c4c4c4c4o3a3b8o4c2d3d8d4c4o3b2g4b4a1a1"
END SUB

SUB tal
FOR i = 1 TO 2
PLAY "o3a8p20e8a8e8p32a8p20e8a8e8p32e4g8f16e16d4a4g8f16e16d16e16f16a16e1d8d16d16c8d16e16d8c16o2b16a16b16g8o3c8p8o2b16a16b16o3d16o2a16a16a16a16a8e8a16a16a16a16a8e8a8a16e16a8e8"
PLAY "o2a16a8a16a8o3f8e4c8d8e16e8d16o2b8o3c2o2a16a8a16a8o3f8e4c8d8e8d8c8o2b8o3c32o2a2a16a8a16a8o3f8e4c8d8e16e8d16c8o2b8o3c2o2a16a8a16a8o3f8e4c8d8e8d8c8o2b8a2a16a8a16a4a16a8a16a4a16a8a16a4a16a8b16o3c16d16o2b16o3c16o2b16o3c16o2b16g16a4a16a8a16a4a16a8a16a8a8a16a8b16o3c16d16o2b16o3c16o2b16o3c16o2b16g16"
PLAY "a4o3a1e4g8f16e16d4a4g8f16e16d16e16f16a16e1d8d8c8d16e16d8c16o2b16a16b16g8o3c8p8o2b16a16b16o3d16o2a2o3"
NEXT
END SUB

SUB three
PLAY "o3"
PLAY "c2"
PLAY "e4"
PLAY "d8"
PLAY "c4"
PLAY "g4"
PLAY "f8"
PLAY "e4"
PLAY "d8"
PLAY "c4"
END SUB

SUB two
PLAY "o3e8f8"
FOR i = 1 TO 3
PLAY "g8a8a8g8g8e8p8g8g8e8e8d8o2a2g8b4o3c8d4e4c3p4"
PLAY "g8a8a8g8g8e8e8d8c3o2g8g2a8a4g8o3d8e8f8e8d2p4"
PLAY "g8a8a8g8g8e8e8d8c3o2a8a2g8b4o3c8de4c2p8"
PLAY "c8a4a8b8o4c3d8c6o3g16g2g8c8f4f8a8o4c3d8"
PLAY "c6o3g16g2g8a8a8g8g8e8e4p8g8g8e8e8d8d2"
PLAY "e8f8e8d8o2a2g8b4o3c8d4e4c2"
NEXT
END SUB

SUB win
PLAY "o4c2e2g2f8p8e8p8d8p8c8p8c2c6c16d2d6d16e2e8c8d8e8f8e8f8g8a8g8a8b8o5c2c8o4c8d8e8f8e8f8g8a8g8a8b8o5c2c8p3"
END SUB

play "e8e8f8g8g8f8e8d8c8c8d8e8e4d16d16e8e8f8g8g8f8e8d8c8c8d8e8d4c16c1"
play "d8d8e8c8d4e16f16e8c8d8e8f8e8d8c8d8g8e8e8e8f8g8g8f8e8d8c8c8d8e8d4c8c1

抄袭很没有意思

转
do c
re d
mi e
fa f
so g
la a
te b
> 升一个八度
< 降一个八度
l4 四分音符
l8 八分音符