content: '**********************************************************
  '**  Video Player Example Application - Video Playback 
  '**  November 2009
  '**  Copyright (c) 2009 Roku Inc. All Rights Reserved.
  '**********************************************************
  
  '***********************************************************
  '** Create and show the video screen.  The video screen is
  '** a special full screen video playback component.  It 
  '** handles most of the keypresses automatically and our
  '** job is primarily to make sure it has the correct data 
  '** at startup. We will receive event back on progress and
  '** error conditions so it's important to monitor these to
  '** understand what's going on, especially in the case of errors
  '***********************************************************  
  Function showVideoScreen(episode As Object)
  
      if type(episode) <> "roAssociativeArray" then
          print "invalid data passed to showVideoScreen"
          return -1
      endif
  
      port = CreateObject("roMessagePort")
      screen = CreateObject("roVideoScreen")
      screen.SetMessagePort(port)
  
      screen.Show()
      screen.SetPositionNotificationPeriod(30)
  
      
                      videoclip = CreateObject("roAssociativeArray")
                      videoclip.StreamBitrates = [0]
                      videoclip.StreamUrls = ["http://85.17.232.200/PREMIUM_HSTV_13.m3u8"]
                      videoclip.StreamQualities = ["HD"]
                      videoclip.StreamFormat = "hls"
                      videoclip.Title = "Chicago vs. Washington"
                      'videoclip.minBandwidth = 20
      print episode.StreamUrls[0]
      print episode.StreamBitrates[0]
      print episode.StreamQualities[0]
      print episode.StreamFormat
      
      screen.SetContent(episode)
      screen.Show()
  
      'Uncomment his line to dump the contents of the episode to be played
      'PrintAA(episode)
  
      while true
          msg = wait(0, port)
  
          if type(msg) = "roVideoScreenEvent" then
              print "showHomeScreen | msg = "; msg.getMessage() " | index = "; msg.GetIndex()
              if msg.isScreenClosed()
                  print "Screen closed"
                  exit while
              elseif msg.isRequestFailed()
                  print "Video request failure: "; msg.GetIndex(); " " msg.GetData() 
              elseif msg.isStatusMessage()
                  print "Video status: "; msg.GetIndex(); " " msg.GetData() 
              elseif msg.isButtonPressed()
                  print "Button pressed: "; msg.GetIndex(); " " msg.GetData()
              elseif msg.isPlaybackPosition() then
                  nowpos = msg.GetIndex()
                  'RegWrite(episode.ContentId, nowpos.toStr())
              elseif msg.isStreamStarted()
                  print msg.GetInfo()
              else
                  print "Unexpected event type: "; msg.GetType()
              end if
          else
              print "Unexpected message class: "; type(msg)
          end if
      end while
  
  End Function
  
  