sub LoadVideo(vid$)
Loads a video track