i didnt reveal the entire format...sorry....let me re-post it.
But first...
check out my new song i just made called "Rush"
(click download) in qmo format
loadsong2:
`optimized for darkbasic playback
if file exist(file$)=0 then return
open to read 1,file$
size=val(getgadgettext(ed5))
read string 1,dumb$:if dumb$<>"QMIDI 1.2" then return
gosub resetall
read long 1,size:setgadgettext ed5,str$(size)
read long 1,tempo:setgadgettext ed3,str$(tempo)
do
read byte 1,qq
if qq=0 then read long 1,x:read byte 1,y:read byte 1,t:read byte 1,music(x,t,y,0):read byte 1,music(x,t,y,1):read byte 1,music(x,t,y,2):
if qq=1 then goto nexsk
loop
nexsk:
for x=1 to 10
read byte 1,instrument(x)
read byte 1,vol(x)
read byte 1,pan1(x)
read byte 1,modual1(x)
next x
read long 1,b:setchecked lock1,b
read long 1,b:setchecked lock2,b
local fileText as string=""
for i=0 to 10
read string 1,tmp$
if fileText=""
fileText=tmp$
else
fileText=fileText+chr$(13)+chr$(10)+tmp$
endif
if file end(1) : i=10 : else : i=0 : endif
next i
setGadgetText copyedt,fileText
close file 1
any questions please ask
oh and when you read the notes....remember to minus them all by one tone.... for it still saves incorrectly even thow it plays back fine.
