; window内aviファイル再生サンプル ; gsel 0,-1 dialog "avi",16,"aviファイル" if stat=0 : goto *dlcan fname=refstr screen 0,640,480,0 cls 4 objmode 1 objsize 160,32 pos 0,0 button "PLAY",*gogo pos 160,0 button "END",*dlcan pos 0,32 sndload fname,1 stop *gogo snd 1 stop *dlcan end