すいません自己解決しました
オシロスコープではなくスペクトラムですが・・・
以下、今日以降同じ悩みを持った人のために
#include "sysval.as"
#include "gblconst.as"
#include "winapi32.as"
#include "exmp3dll.as"
onexit *quit
screen 0,640,150
initmp3 25,25,25
dim info,32
dim Lch,256
dim Rch,256
dim oldL,256
dim oldR,256
dialog "mp3",16,"MPEG Layer-3 Audio File"
if stat=0:end
playmp3 info,refstr
r=128
g=0
b=0
;=========
repeat
color 0,255,0
redraw 0
color 0,0,0:boxf
getSpectrum Lch,Rch
temp=0
repeat 255
temp=temp+Lch(cnt)+Rch(cnt)-oldL(cnt)-oldR(cnt)
oldL(cnt)=Lch(cnt):oldR(cnt)=Rch(cnt)
loop
if temp>1000:r=255:else:r=r-5
if r<0:r=0
color r,g,b
repeat 16
boxf cnt*16+1,150,cnt*16+15,150-Lch(cnt*16)
loop
repeat 16
boxf cnt*16+301,150,cnt*16+315,150-Rch(cnt*16)
loop
redraw 1
wait 1
loop
;=========
*quit
stopmp3
closemp3
end