dim scale$(17),wait(17)
restore *MMLBASE
for i=0 to 17 : read scale$(i) : next
for i=0 to 17 : read wait(i) : next
mmldata$="cdee cdee fedec dedd" :'サイタア サイタア チューリップノハナガア
loopcount = strlen(mmldata$)
for st=0 to loopsount
m$=strmid(st,1,mmldata)
if (st<loopcount) n$=strmid(st+1,1,mmldata) : if (n$="+" or n$="-") m$ = m$+n$
for k=0 to 17
if (scale$(k)=m$) l = wait(k) : k=17 else l=0
next
for i=0 to 256
beep 1 : for j=0 to l :next : beep 0 : 'ココガ ミソ
next
next
end