此程序是播放例程的變體, 而不是播放軟件, 而是使用序列創建 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
論壇限制，代碼太多，發不了，請進勇芳編程群下載源碼