define Start(p)
{
  url <- "https://www.youtube.com/playlist?list=PL37KLtoi9sCpLPFST5HpkSSfSZU_Re6HN"
  
  
  gVideoWidth <- 700
  gVideoHeight <- 100
  gWin <- MakeWindow("black")
  lab <- EasyLabel("opening: " +url,gVideoWidth/2,20,gWin,12)
  
  Draw()
  LaunchFile(url)
  Wait(5000)
  
  
}