path$="d:\Video\AVI\"           ; change to your own path + file
file$="001.avi"
#Screenwidth = 1600
#Screenheight = 900

If InitSprite() And InitKeyboard() And OpenScreen(#Screenwidth,#Screenheight,32,"Movie Screen")
Else
   End
EndIf

FlipBuffers()  
ClearScreen(RGB(0,0,0))  
FlipBuffers()  

If InitMovie()  
   If LoadMovie(0, path$ + file$)  
     ResizeMovie(0,0,0,#Screenwidth,#Screenheight)
     ClearScreen(RGB(0,0,0))  
     Delay(1000)  
     PlayMovie(0, ScreenID())  
     Repeat  
       ExamineKeyboard()
       Delay(1)  
     Until (MovieStatus(0)=MovieLength(0) - 2) Or KeyboardPushed(#PB_Key_Escape)  
     FreeMovie(0)  
     ClearScreen(RGB(0,0,0))  
   EndIf
EndIf