даже незнаю. стоит ли? функций много всяких есть, причем на разные темы. ИМХО лучше написать что-то типа FAQ, чем я сейчас и занимаюсь. скоро выложу в соответствующем разделе. а функцию, ну вот, например:
Function screen(name$,keylog,fs=1,x=0,y=0)
;name$ - имя файла
;keylog - доступно прекращение показа или нет (1,0)
;fs - на весь экран или нет (1-полный экран, 0-нет)
;x - x-координата левого верхнего угла
;y - y-координата левого верхнего угла
movie=OpenMovie(name$)
ed=0
Repeat
If keylog=1 Then If KeyHit(28) Or MouseHit(1) Then ed=1
If Not(MoviePlaying(movie)) Then ed=1
If fs=1 Then
DrawMovie movie,0,0,GraphicsWidth(),GraphicsHeight()
Else
DrawMovie movie,x,y,MovieWidth(movie),MovieHeight(movie)
EndIf
Flip
Until ed=1
CloseMovie(movie)
End Function
это функция воспроизведения видеофайла, например видеовставки в игре показывать...