Qbasicnews.com

Qbasicnews.com > General > General/Misc > Any Body Got Some Awsome Music?
Full Version: Any Body Got Some Awsome Music?
You're currently viewing a stripped down version of our content. View the full version with proper formatting.
Pages: 1 2

QAZIOP.exe

12-05-2004, 10:22 PM
Dose any body know where i can find some qb music...
or do you have any you want to share?... :roll:

na_th_an

12-05-2004, 11:05 PM
define "qb music"... music written in PLAY?

QAZIOP.exe

12-06-2004, 12:17 AM
sorry thats foolish of me... yes written in play...

adosorken

12-06-2004, 12:18 AM
eww. :barf: That is all I have to say.

wildcard

12-06-2004, 02:55 AM
Try looking in the ABC Archives, don't have a link handy, as I have seen quite a lot of tunes converted to the PLAY format ready to use.

Josiah Tobin

12-06-2004, 04:55 AM
Quote:eww. :barf: That is all I have to say.
When used in games, yeah, I'd agree, but it can be amusing to 'track' with the play statement from time to time. Even though the result will almost always sound like total crap (quality wise), it's a bit like writing a chiptune.
But with only square waves.
And one channel at a time.
Come to think of it, I don't think PLAY was actually meant to be for music. :wink:

wildcard

12-06-2004, 05:31 AM
Quote:Come to think of it, I don't think PLAY was actually meant to be for music. :wink:

I think PLAY can made to produce some really cool "music" but you'd have to have a liberal view on what music is. I disconnected my PC speaker on my last computer as I loved it soo much.

na_th_an

12-06-2004, 05:46 AM
the abc site seems down...

But I downloaded it all Tongue

Some stuff:

Code:
CLS
PRINT "Press a key after each tune to continue."
PRINT "Press Ctrl-Break to exit"

PRINT "playing... 1 Mull of Kintyre (sort of)"
    PLAY "l4t200mlo1go2cde..p16msemledcdco1ap48go2cde..p16msemledcd.d"
    PLAY "p32l4t200mlo1go2cde2ceo2dcdefgegfdo1bo2c..mn"
SLEEP

PRINT "playing... 2 Coda"
    PLAY "l8t192o1cp32cl4p32cd#l8gp32gap32al4gl2d"
SLEEP

PRINT "playing... 3 You gotta join."
    PLAY "mbl8t255o2efeg..efeg..efeg.o3c.o2b.a.egmf"
SLEEP

PRINT "playing... 4 You're in the army now."
    PLAY "mbl8t255mso2ea.o3co2b.ae.p8ea.o3co2b.ao3emfmn"
SLEEP

PRINT "playing... 5 Dead March from 'Saul'"
    PLAY "l8t200mlo1c..p16c.p32cp32c.p8e..dp32d.cp32c.o0bo1c..mn"
SLEEP

PRINT "playing... 6 Pink Panther theme."
    PLAY "o2t120l16mbmsel4f.l16el4bl16t100ef.eb.de.db.ao2l4b.l8"
    PLAY "t240gabagemn"
SLEEP

PRINT "playing... 7 Cheerful interludes."
    PLAY "o2l8t255egaageddbcaageccaao3bagfeecco2l4msg..cmn"

    PLAY "o2l8t255gfeddefggfeddefgffddccl4t180f"

    PLAY "o2t255l8eefefeefgfedfeedcbggfedccp8o3cc"
SLEEP

PRINT "playing... 8 Tippy -toe."
    PLAY "o2t255l24cccp32fffp64eeep64gggfffp64aaao3p64cccc"
SLEEP

PRINT "playing... 9 In the Hall of the Mountain King."
    PLAY "o2l4t240;defgafaa;a-ea-a-ge-gg;defgafa;o3dc;o2afa;o3c..p16"
SLEEP

PRINT "playing...10 Pack up your troubles."
    PLAY "o3t255l6cp16l8cp16l16dl8co2b-ab-o3l4cl8ap8l4agl2fdc"
SLEEP

PRINT "playing...11 Rule Britannia."

    PLAY "o3l6t120gt240ga-a-p4t180l8gt180a-gfe-l2dp16l5a+g+l17gfg+fa+"
    PLAY "l16g+gfe-"
SLEEP

PRINT "playing...12 Silly SoftWare Theme"

    PLAY "l8t255o3bo4cdo3bo4co3abgaf#t120gbt200dp8t255o4cdecdo3bo4co3abg"
    PLAY "t120f#at200dp8t255ef#gdef#gef#g#aef#g#ag#abo4co3bo4cdeco3af#gd"
    PLAY "gbt120g"
SLEEP

PRINT "playing...13 I know an Old Lady."

    PLAY "t200o2l8cffaffcl10ff.p64al4fl8gggl4gl8feccl4cl8cl4dl8el3f"
SLEEP

PRINT "playing...14 Hoop-La!"

    PLAY "t240o3l8d#fgl8b-p8l8gl2b-"
SLEEP

PRINT "playing...15 For (s)he's a jolly good fellow."

    PLAY "t240o3l8gfl4el8eedel3fl4el8el4dl8ddcdl3el4cl8dl4e"
    PLAY "l8eedel4fl8gl4al8al4gl8fl4el8dl4c"
SLEEP

PRINT "playing...16 Heigh-ho, said Rowley."

    PLAY "t255o2l8fl4b-l8b-l4fl8fdcdo1l4b-p8o2l3b-o3l4dl8o2b-ao3l4c"
SLEEP

PRINT "playing...17 Dragnet."

    PLAY "t255o2l2cl8dd#p8cp8l2f#"
SLEEP

PRINT "playing...18 Oh my darling, Clementine."

    PLAY "t255o2l8ggl4gdl8bbl4bgl8gbo3l4ddl8co2bl2al8abo3l4cc"
    PLAY "o2l8bal4bgl8bgl4adl8f#al4g"
SLEEP

PRINT "playing...19 The Wedding March."

    PLAY "t240o2l8ggl2gp8l8gggl2gp8l8gggl4bl8bbbl4bl8bbbo3l4dl8ddd"
    PLAY "l4dl8dddl2gl3f#l8c#l4edco2agl8f#gl4al8gal4g"
SLEEP

PRINT "Sound Effects..............................................."

PRINT "playing...20 Assorted Warbles...."

    PLAY "l64t120o3deg#f#ggc#d#edc#ccaa#g#fc#"

    PLAY "t255l16o1abeo2fda"

    PLAY "t255l16o2df#eg#a"

    PLAY "l62o4t250dggdg#aao3dggdaa#a#o2dggda#bb"

    PLAY "mll32o2t255egfd#d#cccc#gc#mn"
SLEEP

PRINT "playing...21 Success."

    PLAY "l8o2t240d..e.p16mlagb."
SLEEP

PRINT "playing...22 Failure (dirge)."

    PLAY "t200o3l4gcdel2fl4ecl2dp64dl4el1c"
SLEEP

PRINT "playing...23 Slither."

    PLAY "t255l15o1adcefao2defaec"
SLEEP

PRINT "playing...24 Discords...."

    PLAY "t255l24o1aaao2bbbo3ccco4dddo5eeeo4dddo3ccco2bbbo1aaa"

    PLAY "t255l16o2cbacbacbacbacbacba"

    PLAY "t255o2l16adadadadadadad"
SLEEP

PRINT "playing...25 Ascending Trill."

    PLAY "t255o1l15deffedo2deffedo3deffedo4deffedo5deffed"
SLEEP

PRINT "playing...26 Descending Trill."

    PLAY "o4l12t255ba#ag#gf#fed#dc#c"
SLEEP

PRINT "playing...27 Up and Down."

    PLAY "t32l64o2cdefgabagfedcdefgabagfed"
SLEEP

PRINT "playing...28 Plunk!"

    PLAY "t255l16o1fo4d#o2fc"
SLEEP

PRINT "playing...29 Plonk!"

    PLAY "t255l16o1bo4dg#o2f"
SLEEP

PRINT "playing...30 Spangle."

    PLAY "O5 L8 T120 F F F F B F B F B F B F B F B F"
END

Code:
'Sound Effects
'Mostly made by Daniel Minty e-mail:  bminty@agso.gov.au
'OR home page: (http://wsite.com/Daniel/index.html)
CLS
PRINT "0"
0 PLAY "MBO0L32EFGEFDC"
SLEEP
PRINT "1"
1 PLAY "T120L16MLO3BF#"
SLEEP
PRINT "2"
2 PLAY "T255L64MLO4BAGFEDC<BAGFEDEC<BAGFEDC<BAGFEDC<BAGFEDC"
SLEEP
PRINT "3"
3 PLAY "T255L32O4mlDGD<G>DGDDGDGBAGF#EE"
SLEEP
PRINT "4"
4 PLAY "T255L64MLO2BCADGEFEGDACBCADGEFEGDACB"
SLEEP
PRINT "5"
5 PLAY "T255L64MLO3BCADGEFEGDACBCADGEFEGDACB"
SLEEP
PRINT "6"
6 PLAY "T255L64MLO4BCADGEFEGDACBCADGEFEGDACB"
SLEEP
PRINT "7"
7 PLAY "T255L64MLO5BCADGEFEGDACBCADGEFEGDACB"
SLEEP
PRINT "8"
8 PLAY "T150L64MSO4BGEC<AFL16D"
SLEEP
PRINT "9"
9 PLAY "T150L64MSO4BFC<GD<AL16E"
SLEEP
PRINT "10"
10 PLAY "T150L64MSO4BE<AD<GC<L32F"
SLEEP
PRINT "11"
11 PLAY "T150L64MSO3DFA>CEGL16B"
SLEEP
PRINT "12"
12 PLAY "T120L64MSO2E.A.>D.G.>C.F.B."
SLEEP
PRINT "13"
13 PLAY "T150L64MSO0F>CG>DA>EB."
SLEEP
PRINT "14"
14 PLAY "T240L64MLO4EGEGEGCFCFCFGEGEGE"
SLEEP
PRINT "15"
15 PLAY "T255L64O4CDEFGABO3CDEFGABO2CDEFGAB"
SLEEP
PRINT "16"
16 PLAY "T255L64MLO1BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
SLEEP
PRINT "17"
17 PLAY "T255L64MLO2BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
SLEEP
PRINT "18"
18 PLAY "T255L64MLO3BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
SLEEP
PRINT "19"
19 PLAY "T255L64MLO4BAGFEDC<BAGFEDCP16>CDEFGAB>CDEFGABP32"
SLEEP
PRINT "20"
20 PLAY "T255L64MLO1CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
SLEEP
PRINT "21"
21 PLAY "T255L64MLO2CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
SLEEP
PRINT "22"
22 PLAY "T255L64MLO3CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
SLEEP
PRINT "23"
23 PLAY "T255L64MLO4CDEFGAB>CDEFGABP16<BAGFEDC<BAGFEDCP32"
SLEEP
PRINT "24"
24 PLAY "T120L16O4C#.P16T255L64mlC#DD#EFF#GG#AA#BO5CC#DD#EF"
SLEEP
PRINT "25"
25 PLAY "T255L32mlO3CD<CD>>CD<<CD>>CD<<CD>CD"
SLEEP
PRINT "26"
26 PLAY "T240L64MLO4EGEGEGEGEGEGEGEGEGEGEGEGEGEGEG"
SLEEP
PRINT "27"
27 PLAY "O4T255L64MLB-BB-BAGAG.>EGG>EGG"
SLEEP
PRINT "28"
28 PLAY "T200L64MLO4C#DD#EFF#GG#AA#B>CC#DD#EFP8.<C#DD#EFF#GG#AA#B>CC#DD#EFED#DC#"
SLEEP
PRINT "29"
29 PLAY "T255L64MsO4C#DD#EFF#GG#AA#B>CC#DD#EF"
SLEEP
PRINT "30"
30 PLAY "MBO0L32EFGEFDC"
SLEEP
PRINT "31"
31 PLAY "MBO2l32abebcfdfg"
SLEEP
PRINT "32"
32 PLAY "T120L16O4C#.P16T255L64mlC#DD#EFF#GG#AA#BO5CC#DD#EF#T120L16O4C.P16T255L64mlCDDEFFGGAABO5CCDDEF"
SLEEP
PRINT "33"
33 PLAY "T2553L64MSO4CDDEFFGGAABCCDDEF"
SLEEP
PRINT "34"
34 PLAY "T240L64MLO4CECECECECECECADADADADADADADADADFGFGFGFGFGFGFG"
SLEEP
PRINT "35"
35 PLAY "T2553L64MSO4CDEFGACDEFGACDEFGACDEFGACDEFGACDEFGACDEFGA"
SLEEP
PRINT "36"
36 PLAY "T240L64MLO4CECECECECECECECECECP2CECECECECECECECECECP1ECECECCECECECECECECP2CECECECECECECECECEC"
SLEEP
PRINT "37"
37 PLAY "T255L64MLO3ABCDEFG<ABCDEFG<ABCDEFG<ABCDEFG<ABCDEFG<ABCDEFG"
SLEEP
PRINT "38"
38 PLAY "T255L64MLO3ABCDEFGFEDCBABCDEFGFEDCBABCDEFGFEDCBABCDEFGFEDCBABCDEFGFEDCBA"
SLEEP
PRINT "39"
39 PLAY "MBO0L32cdcdcdcdcdcdcdcdcdcdcd"
SLEEP
PRINT "40"
40 PLAY "O4T255L64MLaaaabbbbccccddddeeeeffffggggffffeeeeddddccccbbbbaaaa"
SLEEP
PRINT "41"
41 PLAY "T255L32mlO3abcdefgabcdefgabcdefgabcdefgabcdefgabcdefg"
SLEEP

Code:
' > Do any of you know how to play QUICKBASIC music in the background of a
' > program?

'I believe that MB in the play statement switches it to BACKGROUND and MF
'switches it to FOREGROUND playing.  Check out your HELP on PLAY.

' > Also, do any of you got any good QUICKBASIC music with the PLAY
' > command, (Like the Happy Birthday thing I saw)

REM The Adaams Family Movie Theme
PLAY "MNT200L8O3CDEFP4L4FP8FP8L8DEF+GP4L4O1GP8GP8L8O3DEF+GP4"
PLAY "DEF+GP4CDEFP4L4O1FP8FP8P4L8O3CF.AF.D<A+.>GP4FE.GE.C<A."
PLAY ">FP4CF.AF.D<A+.>GP4FL64EFL8E.CD.EFP4CDEFP4L4FP8FP8L8D"
PLAY "EF+GP4L4O1GP8GP8L8O3DEF+GP4DEF+GP4CDEFP4L4O1FP8FP8P4L8O3C"
PLAY "F.AF.D<A+.>GP4FE.GE.C<A.>FP4CF.AF.D<A+.>GP4FL64EFL8E."
PLAY "CD.EFP4"

REM Flash Dance Theme
PLAY "MNT150L2O3E.L8DCL2D.L8DEL2F.L8EEEDL2CL8DCL2A.L8GFL2G."
PLAY "L8FGFEL2DL4CL2D.L8CDL2E.L8DCL2D.L8DEL2F.L8EEEDL4CP4L8D"
PLAY "CL2A.L8GFL2G.L8FGFEL4DL8>DCL4CL8DDL2D.P4L4CL8CCP4DDL4D"
PLAY "P4L8<CDL2E.L8DCL4DL2<GL8>DDL2F.L8EDEDL2CL8DCL2A.L8>C<A"
PLAY "L2G.L8FEFEL4DL8>DCL4CP4CDP8L8<GBL4>CCL8C<BL4BL8BAL4AG"
PLAY "L8GBL4>CCL8C<BL4BL8BAL4AGL8GB>CL4CDL8CL4<BL8>CL4C.L8D"
PLAY "L4<GG.P4L8GB>CCL4<AL8>C<BL4BL8BAAAL4>DCL8CCL4<AL8>C<B"
PLAY "L4BL8BAL4AL8GB>CL4C.L8DCL4<BL8>CL4C.L8D<GL4GG>C<BL8BB"
PLAY "AAL4AGL8GBL4>CCL8C<BL4BL8BAL4AGL8GBL4>CCL8C<BL4BL8BAL4A"
PLAY "GL8GBL4>CCL8C<BL4BL8BAL4AGL8GBL1C"

REM Ave Maria
PLAY "MLT100L16O1A+.>D.F.<A+.>D.F.<A+.>D.F.<A+.>D.F.A+.D.F.<A+.>D.F.<A+.>"
PLAY "D.E.A.D.A+.>D.<D.F.<F.A+.>D.<F.A.>D+.<F.A.O3C.<A+.<A+.>D.<G.A+.>D.<"
PLAY "G.A+.>D.<G.A+.>D.>C.O1G.>C.<D+.G.>C.>DC<A+.C.A.G.C.A.A+.D.F.<A+.>D."
PLAY "F.<A+.>D.F.>D.<D.F.<A+.>D.F+.<A+.O3C.<A+.A.D.G.>D.<D.>E.D.<D.E.<A+."
PLAY ">D.E.>C+.<C+.G.<A.>C+.A.>C.<D+.F+.<A.>D+.A+.A.>C.D.D+.C.<A.A+.D.G.<"
PLAY "A+.>D.G.<A+.>D.E.>D.<D.>C.O1A.>C.F.<A.>C.A.G.B.>D.F.D.<B.>C.<C.F.<A.>"
PLAY "C.F.<A+.>G.A.A+.A.G.F.C.F.<A.>C.F.<A.>C.F.P64F.C.F.>C.O1A.>D+.<F.A."
PLAY "O3C.P64C.O1A.>B.>C.O1A.O3D.C.O1A+.O3D.<A+.<A+.>D.<F.A+.>D.<F.A+.>A+."
PLAY ">C.O1A.>D+.<F.A.O3C.P64C.<B.>C.D+.D.C.<A+.<A+.>D.<G.A+.>D.<G.A+.>D.A+.<"
PLAY "A+.>D.>C.O1A.>C.<F.A.O3C.D.O1A.O3D.P64D.D+.D.C.D.F.<C.D+.>D+.<C.D+.<G."
PLAY ">C.D+.G.C.D+.>D.O1G.>C.>C.O1G.O3C.<A+.A.A+.>C+.C.<A+.>C.O1A.>C.<F.A.>"
PLAY "C.<F.A.>D+.<F.A.>D+.A+.D.F.<A+.>D.F.<A+.>D.E.A.D.A+.>D.O1A+.>D.<F.A+.>"
PLAY "D.<F.A.>D+.<F.A.O3C.<A+.D.F.<A+.>D.F.>D.<D.F.>F.<D.F.L2>A+P4"

REM Star Trek TOS Theme
PLAY "MNT255L1O4B.D.F.<A.P8L2GL8G>C.L2FFL4E.L8EL4C<A>DL2GP8"
PLAY "L4GL1BP4L2CL8CF.L2A+A+L4A.L8AL4FDGL2>CP8L4CL1EP1L2O3G"
PLAY ">F.L4EDC<BL2A+L1A+L2G>G.L4FEDCL2<BL1BL4A+L2A.L4B>C+DE"
PLAY "F+GL2AL1A+.L2<A+.L4>CDD+FGG+L2A+L1BL2<G>F.L4EDC<BL2A+"
PLAY "L1A+L4G+L2G>G.L4FEDCL2<BL1BL4A+L2A.L4B>CDEFEL2G.L4GL2A+."
PLAY "L4AL2GL1CL4D.F.A.L1>C"

'I hope these are the type of thing you are looking for.  If you want to
'test out the background command, just add:

'PLAY "MB"   'before the song and
'PLAY "MF"   'after the song.

'I have MANY more of these if you are interested.  I didn't write them and
'have absolutely NO idea who did.  I had them in an old ZIP file on archive
'and it doesn't contain any credits in it.

Code:
'  >Do any of you know how to play QUICKBASIC music in the background of a
'  >program?

'I never could figure out how to play more than about 32 notes in the
'background (the best I can remember).  Had to keep looping back ever
'so often to keep it playing in bg... the MB command does it.

'  >Also, do any of you got any good QUICKBASIC music with the PLAY command,
'  >(Like the Happy Birthday thing I saw)

'I copied these from a flute book, and played with the tempo, octaves,etc.

REM ABC SONG:
PLAY "O3 l4ccggaal2g l4ffeel8ddddl2c l4ggffee l2dl8ggl4gffeel2d l4ccggaal2g l4ffee l4dd l2c"

REM BINGO:
  PLAY "mb O3 L8GGDDEEDDGGAAL4BGBBL8>CCL4C<AAL8BBL4BGGL8AAAGF+DEF+L4GG"
REM SWEET BETSY FROM PIKE:
  PLAY "T220 O3  L4CCEGGFDDCCL2CL4CCEG>CCC<BGG L2G L4G  >CCC <BGEFGA L2G L8CD L4EEE GFD DCCL3C" '1st time thru song
  PLAY "L8CD L4EEE GFD DCC L2C L8CD L4EEE GFD DCC L2C L4C"  'this line is 1st CHORUS
  PLAY "O3  L4CEGGFDDCCL2CL4CCEG>CCC<BGG L2G L4G  >CCC <BGEFGA L2G L8CD L4EEE GFD DCCL3C"  '2nd time thru song
  PLAY "L8CD L4EEE GFD DCC L2C L8CD L4EEE GFD  L4DCCL2C"    '2nd time thur CHORUS
REM shortnin' bread :
PLAY "T120 O3 <L4F>L8DDL4CD<L8FF>L4DL2CL4<F>DCL8DD<L8AAL4GFN0 "
PLAY "T180 O4 < F >L8DDL4CD <F> DL2C <L4F >DL8CCL4D <AGF>N0"
PLAY "T200 O5 <L8FF> DD CC L4D <F> DCD   L8<FF>DDCC L4D <AGFN0"
PLAY "T250 O5 <L8FF>DDCCL4D<F>DCD L8<FF>DDCCL4D <AGFN0"
REM down at the station:
PLAY "T 180 O3 L4G L8GA L4BB L8AG AB L4GG L8BB B>CDDDDC<B>CD<L2B"
PLAY "O3 L8 GGGAL4BBL8AGABL4GG GG>DD <AB> <L2G"
REM Jingle Bells:
PLAY "T150 O3 L8BBL4BL8BBL4BL8B>D<GAL2B L8>CCCCC<BBBBAABL4A>D<"
PLAY "O3 L8BBL4BL8BBL4BL8B>D<GAL2B L8>CCCCC<BBB>DDC<AL2G"
REM merrily we roll along:
PLAY "T 200 O3 L4BAGABBL2BL4AAL2AL4BBL2BL4BAGABBL2BL4AABAL1G"
PLAY "T 200 O3 L4BAGABBL2BL4AAL2AL4BBL2BL4BAGABBL2BL4AABAL1G"
REM MICHAEL, ROW THE BOAT ASHORE:
PLAY "O3 L4FA MS L2ML>C<L8AL8>CDL2CL4<A>CL1DL2CL4<A>CMS L2MLC<L8A> L4C<AL2GL4FGL2AGF"
PLAY "O3 L4 FA MS L2ML>C<L8AL8>CDL2CL4<A>CL1DL2CL4<A>CMS L2MLC<L8A> L4C<AL2GL4FGL2AGF"

I think this is enough Tongue And yeah, beeper music causes headaches. :barf:

moochthemonkey

12-06-2004, 08:55 AM
I made a music program that plays random notes off a scale, and it played them anywhere from l10 to l40 notes, it was actually pretty cool. Smile

urger

12-06-2004, 06:02 PM
Quote:I made a music program that plays random notes off a scale, and it played them anywhere from l10 to l40 notes, it was actually pretty cool.

I've been to Jazz concerts that sounded like that.
Pages: 1 2
Qbasicnews.com > General > General/Misc > Any Body Got Some Awsome Music?