<SCRIPT LANGUAGE="JavaScript">
// Jason Aunkst; jra@dtx.net
// URL: /biz/11eleven11/
// this is my random midi picker (v1.0).
var nummidi = 2
day = new Date()
seed = day.getTime()
ran = parseInt(((seed - (parseInt(seed/1000,10) * 1000))/10)/100*nummidi + 1,10)
if (ran == (1)){
midi=("anarchy.mid")
title=("Anarchy in the UK")
leng=162
}
if (ran == (2)){
midi=("everlong.mid")
title=("Everlong")
leng=308
}
// -->
</SCRIPT></P>
<P><SCRIPT LANGUAGE="JavaScript">
if (ran == (18)){
midi=("/~temc/lump.mid")
title=("LUMP")
leng=197
}
</SCRIPT></P>
<P><SCRIPT LANGUAGE="JavaScript">
if (ran == (19)){
midi=("/~tracyk/wannabe.mid")
title=("WANNABE")
leng=191
}
</SCRIPT></P>
<P><SCRIPT LANGUAGE="JavaScript">
if (ran == (20)){
midi=("/~tracyk/whatislove.mid")
title=("WHAT IS LOVE")
leng=243
}
</SCRIPT></P>
<P><SCRIPT LANGUAGE="JavaScript">
if (ran == (21)){
midi=("/~temc/dazed.mid")
title=("DAZED")
leng=279
}
</SCRIPT></P>
<P><SCRIPT LANGUAGE="JavaScript">
if (ran == (22)){
midi=("-lao.com/speak.mid")
title=("DONT SPEAK")
leng=162
}
</SCRIPT></P>
<CENTER><TABLE BORDER=4 CELLSPACING=4 CELLPADDING=4 WIDTH="266" HEIGHT="5" >
<TR ALIGN=CENTER VALIGN=CENTER><TD ALIGN=CENTER VALIGN=CENTER NOWRAP>
<SCRIPT LANGUAGE="JavaScript">
document.write('<FONT SIZE=2>' + title + '</Font><BR>')
</script></A></TD></TR></TABLE></CENTER>
<CENTER><TABLE BORDER=4 CELLSPACING=4 CELLPADDING=4 WIDTH="100" HEIGHT="80" >
<TR ALIGN=CENTER VALIGN=CENTER><TD ALIGN=CENTER VALIGN=CENTER NOWRAP><p align="center">
<SCRIPT LANGUAGE="JavaScript">
document.write('<EMBED SRC="'+ midi +'" WIDTH=140 HEIGHT=60 AUTOSTART="true" LOOP="false">')
</SCRIPT>MIDI文件分析 DUMP實用程序源代碼
文件列表:
anoteoff.bmp
anoteoff.gif
Bulkdump_proj.vbp
BulkDump_proj.vbw
CD_File.bas
code.txt
divers.bas
dump.bas
frmAbout.frm
frmAbout.frx
frmAltOpt.frm
frmBD.frm
frmBD.frx
frmBDp.frm
frmBDp.frx
frmDevCap.frm
frmMixA.frm
frmMixA.frx
frmMixLong.frm
frmMixLong.frx
frmMixP.frm
frmMixP.frx
frmReadMid.frm
frmSeq.frm
GSALL.MID
midi.bas
midi.bmp
midi.gif
piano.ico
readme.txt
SC.gif
sc55par.dat