>>432　少し探してみたけど検索にかからないな。
けど、ピスコラの\pxtone_include　にある pxtone.h を見れば自分で書けるべ？

// HSP3　再生のみ。適当
#uselib "pxtone.dll"
#func pxtone_Ready "pxtone_Ready" int,int,int,int,float,int,int
#func pxtone_Release "pxtone_Release"
#func pxtone_Tune_Read "pxtone_Tune_Read" int,int
#func pxtone_Tune_Release "pxtone_Tune_Release"
#func pxtone_Tune_Start "pxtone_Tune_Start" double,double
#func pxtone_Tune_Stop "pxtone_Tune_Stop"
#define pxparm hwnd,2,22050,8,0.1,1,0
onexit goto *owari
pxtone_Ready pxparm
*fsel
dialog "ptcop",16,"pxtoneﾌｧｲﾙ":on stat goto *owari
fn=refstr: cls: mes "[ESC]で終了\n"+fn: exist fn: datlen=strsize
sdim pixdat , datlen: bload fn, pixdat , datlen ,0
pxtone_Tune_Read varptr(pixdat), datlen
pxtone_Tune_Start 0,0
repeat: wait 1: stick ky: if ky {break}
loop
if (ky = 128): goto *owari
pxtone_Tune_Stop: pxtone_Tune_Release: wait 10: goto *fsel
*owari
pxtone_Release: end