play

QB7.1的程序用己蚀本编写可以支持续行符

可以试一下东方红
程序如下:
play "o3g4g8a8d2p32c4c8<a8>d2p32g4g4a8>c8<a8g4c4c8<a8>d2p32"
play "g4d4c4<b8a8g4>g4d4e8d8c4c8<a8>d8e8d8c8d8c8<b8aeg2"

可以！只要你加个函数就可以了

可以用"PLAY"语句
可以看"南开大学出版社"的一本(名字我忘了)封面有一个地球,里面有更详细的介绍.

可以用PLAY!

我这里有一个音乐盒的程序：

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"