此程序是播放例程的变体, 而不是播放软件, 而是使用序列创建 MIDI 文件。

它像正常的编程播放命令一样工作, 但它支持多个曲目 (使用相同的 GWBasic 和 MSX 基本语法,播放string1 ,string2 ,String3...............)。

注意：可以放在 {} 之间以播放和弦。

该例程创建单个或多轨 midi 文件。

FB源码（VFB源码在勇芳编程群里下载）

FUNCTION WriteVarLen(Value as integer) as string
 dim a as string

 a=chr(Value AND 127)

  DO WHILE (Value > 127)
   Value = Value shr 7
   a=chr((Value AND 127)or 128)+a
  LOOP 
 return a
END FUNCTION

FUNCTION WriteFourBytes(Value as integer) as string
 dim a as string
 a=chr(Value and 255)
 Value shr= 8
 a=chr(Value and 255)+a
 Value shr= 8
 a=chr(Value and 255)+a
 Value shr= 8
 a=chr(Value and 255)+a
 return a
end function
论坛限制，代码太多，发不了，请进勇芳编程群下载源码