Sorry your browser is not supported!

dim devname$(4)
dim t_c(250)
dim music(7000,10,27,3)
dim instrument(10)
dim vol(10)
dim pan1(10)
dim modual1(10)
dim mutes(10)
dim oct(10)
dim pitch(7000,10)
dim sustain(10)

for x=1 to 10
vol(x)=48
pan1(x)=3
oct(x)=0
mutes(x)=0
next x

updateplay:

bpm=val(getgadgettext(ed3))
if bpm>250 then bpm=250:setgadgettext ed3,"250"
if bpm<1 then bpm=1:setgadgettext ed3,"1"
temp#=t_c(bpm)

if tmdelay#+temp#=>timer() then return
left_over#=timer()-tmdelay#
left_over#=left_over#-temp#
tmdelay#=timer():`-left_over#:


qrepeat=getchecked(rept)

size=val(getgadgettext(ed5))
if playbar>size then playing=0:
if playing=0 and qrepeat=1 then playing=1:playbar=0:`if getchecked(rep2)=1 then setscrollbarposition sbar,0
if playing=0 then gosub offnotes:return

for x=1 to 120
for t=1 to 10
octave=oct(t)
if playin(x,t,0)=1 then playin(x,t,1)=playin(x,t,1)-1:if playin(x,t,1)=<0 then midi note off midi,x-1+(octave*12),t:playin(x,t,0)=0:playin(x,t,1)=0:
next t
next x

if pitch(playbar,0)<>0 then setgadgettext ed3,str$(pitch(playbar,0))
for x=1 to 10
if x=recon and rec=1 then goto skmute1
if mutes(x)=1 then goto skmute1
if music(playbar,x,0,3)>4 then vol(x)=music(playbar,x,0,3)/2
vol=vol(x)
vol=vol+vol
set channel volume midi,x,vol
modual1(x)=music(playbar,x,1,3)/2

modu=modual1(x)
modu=modu+modu
set modwheel midi,x,modu

set midi instrument midi,x,instrument(x)
octave=oct(x)
panboy=music(playbar,x,2,3)
if panboy=4 then set channel pan midi,x,64
if panboy=7 then set channel pan midi,x,128
if panboy=1 then set channel pan midi,x,0
if panboy=2 then set channel pan midi,x,22
if panboy=3 then set channel pan midi,x,43
if panboy=5 then set channel pan midi,x,85
if panboy=6 then set channel pan midi,x,106

if pitch(playbar,x)=1 then w=10:set pitch midi,x,84
if pitch(playbar,x)=2 then w=30:set pitch midi,x,44
if pitch(playbar,x)=0 then set pitch midi,x,64
if pitch(playbar,x)=3 then set sustain pedal midi,x,1
if pitch(playbar,x)=4 then set sustain pedal midi,x,0



for y=0 to 27
if music(playbar,x,y,0)=1 then midi note off midi,music(playbar,x,y,2)+(octave*12),x:midi note on midi,music(playbar,x,y,2)-1+(octave*12),x,100:playin(music(playbar,x,y,2),x,1)=16:playin(music(playbar,x,y,2),x,0)=1
if music(playbar,x,y,0)=2 then midi note off midi,music(playbar,x,y,2)+(octave*12),x:midi note on midi,music(playbar,x,y,2)-1+(octave*12),x,100:playin(music(playbar,x,y,2),x,1)=8:playin(music(playbar,x,y,2),x,0)=1
if music(playbar,x,y,0)=3 then midi note off midi,music(playbar,x,y,2)+(octave*12),x:midi note on midi,music(playbar,x,y,2)-1+(octave*12),x,100:playin(music(playbar,x,y,2),x,1)=4:playin(music(playbar,x,y,2),x,0)=1
if music(playbar,x,y,0)=4 then midi note off midi,music(playbar,x,y,2)+(octave*12),x:midi note on midi,music(playbar,x,y,2)-1+(octave*12),x,100:playin(music(playbar,x,y,2),x,1)=2:playin(music(playbar,x,y,2),x,0)=1
if music(playbar,x,y,0)=5 then midi note off midi,music(playbar,x,y,2)+(octave*12),x:midi note on midi,music(playbar,x,y,2)-1+(octave*12),x,100:playin(music(playbar,x,y,2),x,1)=1:playin(music(playbar,x,y,2),x,0)=1

next y
skmute1:
next x

playbar=playbar+1
sync


return

offnotes:
for x=1 to 10
set sustain pedal midi,x,0
for y=1 to 120
midi note off midi,y,x
next y
next x
return

loadsong:
cd getappdir$()
if quickld$<>"" then file$=quickld$:goto skipny
file$=""
file$=opendialog("Open Midi Song","Qmidi... [*.QMO]|*.qmo",0,".")
skipny:
if file$="" then return
`if right$(file$,3)="mid" then message "This format will be available soon... Please load using the regular format for now until i resolve a few midi issues":goto loadsong
`if right$(file$,3)="qmo" then goto loadsong2

cls
set cursor 10,150,:print "Loading Song......please wait"
sync

`reg format
if file exist(file$)=0 then return
gosub resetall
open to read 1,file$
size=val(getgadgettext(ed5))
read string 1,dumby$:if dumby$="QMIDI 1.1" then goto newload
if dumby$="QMIDI 1.5" then goto newload5

return


gosub resetall

read long 1,size:setgadgettext ed5,str$(size)
read long 1,tempo:setgadgettext ed3,str$(tempo)

for x=1 to 10
read long 1,oct(x)
next x




for x=0 to size
for y=0 to 10
read byte 1,pitch(x,y)
next y
next x


lm22:
read byte 1,s:if s=98 then goto lm23
read long 1,x:read byte 1,t:read byte 1,y:read byte 1,music(x,y,t,3)
goto lm22

lm23:
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:
rem fix glitch
for x=0 to size
for t=1 to 10
for b=0 to 2
if music(x,t,27,b)<>0 then music(x,t,0,b)=music(x,t,27,b):music(x,t,27,b)=0
next b
next t
next x
rem end fix glitch

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
if getchecked(lock1)=1 then setgadgetenabled copyedt,0 else setgadgetenabled copyedt,1
if getchecked(lock1)=1 then setgadgetenabled lock1,0 else setgadgetenabled lock1,1
settrackbarposition trackedt,1
settrackbarposition pan,pan1(1)
settrackbarposition vol1,vol(1)
settrackbarposition modul,modual1(1)
settrackbarposition trackins,instrument(1)
activetrack=1
setgadgettext insname,names$(instrument(1))
setgadgettext boxinfo,str$(instrument(1))
playbar=0
page=0
setgadgettext ed4,"1"

setgadgetenabled lock2,1
setgadgetenabled frametracks,1
`for x=1 to 10
`oct(x)=0
`next x
return


resetall:
playbar=0
page=1
setgadgettext ed4,"1"
setgadgettext ed5,"63"

for x=0 to 7000
for y=0 to 10
 pitch(x,y)=0
next y
next x
pitch(0,0)=60

for x=0 to 7000
for y=0 to 27
for t=1 to 10
for b=0 to 3
music(x,t,y,b)=0
next b
next t
next y
next x
for x=1 to 10
mutes(x)=0
instrument(x)=1
vol(x)=48
pan1(x)=3
modual1(x)=0
sustain(x)=0
set midi instrument midi,x,1
next x
settrackbarposition trackins,1
settrackbarposition vol1,48

settrackbarposition sust,0
setgadgetenabled copyedt,1
setgadgettext copyedt,"Copyright Notices / Author Here"
setgadgetenabled lock1,1
setchecked lock1,0
setgadgetenabled lock2,1
setchecked lock2,0
setgadgetenabled frametracks,1

for x=0 to 64:for y=0 to 27:for z=0 to 3
copy(x,y,z)=0
next z
next y
next x


for x=1 to 10
oct(x)=0
next x

setgadgettext boxinfo,str$(instrument(1))
setgadgettext insname,names$(instrument(1))
setgadgettext ed3,"60"
for x=0 to 7000
for y=0 to 10
music(x,y,2,3)=4
next y
next x

return

if dumby$="QMIDI 1.5" then goto newload5

newload5:
`forgot to copy that label



gosub resetall

read long 1,size:setgadgettext ed5,str$(size)
read long 1,tempo:setgadgettext ed3,str$(tempo)

for x=1 to 10
read long 1,oct(x)
next x




for x=0 to size
for y=0 to 10
read byte 1,pitch(x,y)
next y
next x


lm22:
read byte 1,s:if s=98 then goto lm23
read long 1,x:read byte 1,t:read byte 1,y:read byte 1,music(x,y,t,3)
goto lm22

lm23:
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:
rem fix glitch
for x=0 to size
for t=1 to 10
for b=0 to 2
if music(x,t,27,b)<>0 then music(x,t,0,b)=music(x,t,27,b):music(x,t,27,b)=0
next b
next t
next x
rem end fix glitch

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
if getchecked(lock1)=1 then setgadgetenabled copyedt,0 else setgadgetenabled copyedt,1
if getchecked(lock1)=1 then setgadgetenabled lock1,0 else setgadgetenabled lock1,1
settrackbarposition trackedt,1
settrackbarposition pan,pan1(1)
settrackbarposition vol1,vol(1)
settrackbarposition modul,modual1(1)
settrackbarposition trackins,instrument(1)
activetrack=1
setgadgettext insname,names$(instrument(1))
setgadgettext boxinfo,str$(instrument(1))
playbar=0
page=0
setgadgettext ed4,"1"

setgadgetenabled lock2,1
setgadgetenabled frametracks,1
`for x=1 to 10
`oct(x)=0
`next x
return


resetall:
playbar=0
page=1
setgadgettext ed4,"1"
setgadgettext ed5,"63"

for x=0 to 7000
for y=0 to 10
 pitch(x,y)=0
next y
next x
pitch(0,0)=60

for x=0 to 7000
for y=0 to 27
for t=1 to 10
for b=0 to 3
music(x,t,y,b)=0
next b
next t
next y
next x
for x=1 to 10
mutes(x)=0
instrument(x)=1
vol(x)=48
pan1(x)=3
modual1(x)=0
sustain(x)=0
set midi instrument midi,x,1
next x
settrackbarposition trackins,1
settrackbarposition vol1,48

settrackbarposition sust,0
setgadgetenabled copyedt,1
setgadgettext copyedt,"Copyright Notices / Author Here"
setgadgetenabled lock1,1
setchecked lock1,0
setgadgetenabled lock2,1
setchecked lock2,0
setgadgetenabled frametracks,1

for x=0 to 64:for y=0 to 27:for z=0 to 3
copy(x,y,z)=0
next z
next y
next x


for x=1 to 10
oct(x)=0
next x

setgadgettext boxinfo,str$(instrument(1))
setgadgettext insname,names$(instrument(1))
setgadgettext ed3,"60"
for x=0 to 7000
for y=0 to 10
music(x,y,2,3)=4
next y
next x

return

t_c(0)=15000
t_c(1)=15000
t_c(2)=7500
t_c(3)=5000
t_c(4)=3750
t_c(5)=3000
t_c(6)=2500
t_c(7)=2143
t_c(8)=1875
t_c(9)=1667
t_c(10)=1500

t_c(11)=1364
t_c(12)=1250
t_c(13)=1154
t_c(14)=1071
t_c(15)=1000
t_c(16)=937
t_c(17)=882
t_c(18)=833
t_c(19)=789
t_c(20)=750

t_c(21)=714
t_c(22)=682
t_c(23)=652
t_c(24)=625
t_c(25)=600
t_c(26)=577
t_c(27)=556
t_c(28)=536
t_c(29)=517
t_c(30)=500

t_c(31)=484
t_c(32)=469
t_c(33)=454
t_c(34)=441
t_c(35)=429
t_c(36)=417
t_c(37)=405
t_c(38)=395
t_c(39)=385
t_c(40)=375

t_c(41)=366
t_c(42)=357
t_c(43)=349
t_c(44)=341
t_c(45)=333
t_c(46)=326
t_c(47)=319
t_c(48)=312
t_c(49)=306
t_c(50)=300

t_c(51)=294
t_c(52)=288
t_c(53)=283
t_c(54)=278
t_c(55)=273
t_c(56)=268
t_c(57)=263
t_c(58)=259
t_c(59)=254
t_c(60)=250

t_c(61)=246
t_c(62)=242
t_c(63)=238
t_c(64)=234
t_c(65)=231
t_c(66)=227
t_c(67)=224
t_c(68)=221
t_c(69)=217
t_c(70)=214

t_c(71)=211
t_c(72)=208
t_c(73)=205
t_c(74)=203
t_c(75)=200
t_c(76)=197
t_c(77)=195
t_c(78)=192
t_c(79)=190
t_c(80)=187

t_c(81)=185
t_c(82)=183
t_c(83)=181
t_c(84)=179
t_c(85)=176
t_c(86)=174
t_c(87)=172
t_c(88)=170
t_c(89)=168
t_c(90)=167

t_c(91)=165
t_c(92)=163
t_c(93)=161
t_c(94)=160
t_c(95)=158
t_c(96)=156
t_c(97)=155
t_c(98)=153
t_c(99)=151
t_c(100)=150

t_c(101)=148
t_c(102)=147
t_c(103)=146
t_c(104)=144
t_c(105)=143
t_c(106)=141
t_c(107)=140
t_c(108)=139
t_c(109)=138
t_c(110)=136

t_c(111)=135
t_c(112)=133
t_c(113)=132
t_c(114)=131
t_c(115)=130
t_c(116)=129
t_c(117)=128
t_c(118)=127
t_c(119)=126
t_c(120)=125

t_c(121)=124
t_c(122)=123
t_c(123)=122
t_c(124)=121
t_c(125)=120
t_c(126)=119
t_c(127)=118
t_c(128)=117
t_c(129)=116
t_c(130)=115

t_c(131)=114
t_c(132)=114
t_c(133)=113
t_c(134)=112
t_c(135)=111
t_c(136)=110
t_c(137)=109
t_c(138)=109
t_c(139)=108
t_c(140)=107

t_c(141)=106
t_c(142)=105
t_c(143)=104
t_c(144)=104
t_c(145)=103
t_c(146)=103
t_c(147)=102
t_c(148)=101
t_c(149)=101
t_c(150)=100

t_c(151)=99
t_c(152)=99
t_c(153)=98
t_c(154)=97
t_c(155)=97
t_c(156)=96
t_c(157)=95
t_c(158)=95
t_c(159)=94
t_c(160)=94

t_c(161)=93
t_c(162)=93
t_c(163)=92
t_c(164)=91
t_c(165)=91
t_c(166)=90
t_c(167)=90
t_c(168)=89
t_c(169)=89
t_c(170)=88

t_c(171)=88
t_c(172)=87
t_c(173)=87
t_c(174)=86
t_c(175)=86
t_c(176)=85
t_c(177)=85
t_c(178)=84
t_c(179)=84
t_c(180)=83

t_c(181)=83
t_c(182)=82
t_c(183)=82
t_c(184)=81
t_c(185)=81
t_c(186)=80
t_c(187)=80
t_c(188)=79
t_c(189)=79
t_c(190)=78

t_c(191)=78
t_c(192)=78
t_c(193)=77
t_c(194)=77
t_c(195)=76
t_c(196)=76
t_c(197)=76
t_c(198)=75
t_c(199)=75
t_c(200)=75

t_c(201)=74
t_c(202)=74
t_c(203)=73
t_c(204)=73
t_c(205)=73
t_c(206)=72
t_c(207)=72
t_c(208)=72
t_c(209)=71
t_c(210)=71

t_c(211)=71
t_c(212)=70
t_c(213)=70
t_c(214)=70
t_c(215)=69
t_c(216)=69
t_c(217)=69
t_c(218)=68
t_c(219)=68
t_c(220)=68

t_c(221)=67
t_c(222)=67
t_c(223)=67
t_c(224)=67
t_c(225)=66
t_c(226)=66
t_c(227)=66
t_c(228)=65
t_c(229)=65
t_c(230)=65

t_c(231)=64
t_c(232)=64
t_c(233)=64
t_c(234)=64
t_c(235)=63
t_c(236)=63
t_c(237)=63
t_c(238)=63
t_c(239)=62
t_c(240)=62

t_c(241)=62
t_c(242)=62
t_c(243)=61
t_c(244)=61
t_c(245)=61
t_c(246)=61
t_c(247)=60
t_c(248)=60
t_c(249)=60
t_c(250)=60

rem fix glitch
for x=0 to size
for t=1 to 10
for b=0 to 2
if music(x,t,27,b)<>0 then music(x,t,0,b)=music(x,t,27,b):music(x,t,27,b)=0
next b
next t
next x
rem end fix glitch

Read string - if it equals "QMIDI 1.5" then continue

Read long - total bars in track (works)
Read long - tempo data (works)

for c = 1 to 10
   Read long - octave data for channel c
next c

for n = 0 to total bars (as received earlier)
   for c = 0 to 10
      Read byte - pitch data
   next c
next n

do
   Read byte - control byte. If it equals 98 then break from this loop
   Read long - note index
   Read byte - channel index
   Read byte - note on track (0 to 27)
   Read byte - pan value for the position given above
end loop

open to read 1,file$
`size=val(getgadgettext(ed5))
read string 1,dumby$:
if dumby$="QMIDI 1.5" then message "This file is 1.5 format and will automaticaly be converted to 1.6.":goto newload5
if dumby$="QMIDI 1.6" then goto newload6

newload6:

gosub resetall

read long 1,size:setgadgettext ed5,str$(size)
read long 1,tempo:setgadgettext ed3,str$(tempo)

for x=1 to 10
read long 1,oct(x)
next x

lop1:
read byte 1,dd
if dd=99 then read long 1,x:read byte 1,y:read byte 1,pitch(x,y)
if dd=99 then goto lop1

`pitch data explained:
`if pitch(playbar,0)<>0 then change tempo speed to this value
`x= value from 1-10
`if pitch(playbar,x)=1 then w=10:set pitch midi,x,84
`if pitch(playbar,x)=2 then w=30:set pitch midi,x,44
`if pitch(playbar,x)=0 then set pitch midi,x,64
`if pitch(playbar,x)=3 then set sustain pedal midi,x,1
`if pitch(playbar,x)=4 then set sustain pedal midi,x,0

lop2:
read byte 1,dd
if dd=99 then read long 1,x:read byte 1,t:read byte 1,y:read byte 1,music(x,t,y,3)
if dd=99 then goto lop2

`new data added to the music stuff explained:
`x=1-10 (track)
`music(playbar,x,0,3)>4 then volume on track =this amount else volume remains the same:  Default the starting values where the volume trackbar is at then make adjustments from these values
`music(playbar,x,1,3)= modulation setting for track(1-10(x))
`pan stuff
`panboy=music(playbar,x,2,3):`x=1 to 10
`if panboy=4 then set channel pan midi,x,64
`if panboy=7 then set channel pan midi,x,128
`if panboy=1 then set channel pan midi,x,0
`if panboy=2 then set channel pan midi,x,22
`if panboy=3 then set channel pan midi,x,43
`if panboy=5 then set channel pan midi,x,85
`if panboy=6 then set channel pan midi,x,106


lop3:
read byte 1,dd
if dd=99 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 dd=99 then goto lop3


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,getchecked(lock1)
read long 1,getchecked(lock2)


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
return

#constant fm               1.059463094