sample\basic\aviplay.hsp » Plain Format
; window内aviファイル再生サンプル ; dialog "avi",16,"aviファイル" if stat=0 : goto *dlcan fname=refstr mmload fname,1 screen 0,640,480,0 cls 4 objsize 160,32 pos 0,0 button "PLAY",*gogo pos 160,0 button "END",*dlcan pos 0,32 stop *gogo mmplay 1 stop *dlcan end