XM格式音乐播放软件

.子程序 XMmemory, , , 必须是字节集
.参数 resources, 字节集, , 资源名称
.参数 cycle, 逻辑型, 可空, 是否循环播放,默认为假

.如果真 (handle ＝ 0)
handle ＝ Load (Acquiringaddress (#A))
.如果真结束
call (Function (handle, “uFMOD_PlaySong”), Acquiringaddress (resources), 取字节集长度 (resources), 选择 (cycle, 8, 0))