; English forum: http://purebasic.myforums.net/viewtopic.php?t=7639&highlight= ; Author: Fred ; Date: 25. September 2003 If CreateFile(1, "output.avi") UseFile(1) L1= ?ExitProc-?Inc WriteData(?Inc,L1) CloseFile(1) DataSection Inc: IncludeBinary "output.avi" ExitProc: EndDataSection EndIf InitMovie() LoadMovie( 1, "output.avi") UseMovie( 1 ) ; ... ; ExecutableFormat=Windows ; FirstLine=1 ; EOF