Difficulties Parsing XML

Question

How Can i parse this XML in My code&lt;?xml version="1.0" encoding="ISO-8859-1"?&gt;&lt;!DOCTYPE tv SYSTEM "xmltv.dtd"&gt;&lt;tv source-info-url="http://www.schedulesdirect.org/" source-info-name="Schedules Direct" generator-info-name="XMLTV/$Id: tv_grab_na_dd.in,v 1.70 2008/03/03 15:21:41 rmeden Exp $" generator-info-url="http://www.xmltv.org/"&gt; &nbsp;&lt;channel id="I10436.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;display-name&gt;13 KERA&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;13 KERA TX42822:-&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;13&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;13 KERA fcc&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;KERA&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;KERA&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;PBS Affiliate&lt;/display-name&gt; &nbsp; &nbsp;&lt;icon src="file://C:\Perl\site/share/xmltv/icons/KERA.gif" /&gt; &nbsp;&lt;/channel&gt; &nbsp;&lt;channel id="I10759.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;display-name&gt;11 KTVT&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;11 KTVT TX42822:-&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;11&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;11 KTVT fcc&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;KTVT&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;KTVT&lt;/display-name&gt; &nbsp; &nbsp;&lt;display-name&gt;CBS Affiliate&lt;/display-name&gt; &nbsp; &nbsp;&lt;icon src="file://C:\Perl\site/share/xmltv/icons/KTVT.gif" /&gt; &nbsp;&lt;/channel&gt; &nbsp;&lt;programme start="20080715003000 -0600" stop="20080715010000 -0600" channel="I10436.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;NOW on PBS&lt;/title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;Jordan's Queen Rania has made job creation a priority to help curb the staggering unemployment rates among youths in the Middle East.&lt;/desc&gt; &nbsp; &nbsp;&lt;date&gt;20080711&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Newsmagazine&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Interview&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Public affairs&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP01006886.0028&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;427&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;previously-shown start="20080711000000" /&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715010000 -0600" stop="20080715023000 -0600" channel="I10436.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;Mystery!&lt;/title&gt; &nbsp; &nbsp;&lt;sub-title lang="en"&gt;Foyle's War, Series IV: Bleak Midwinter&lt;/sub-title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;Foyle investigates an explosion at a munitions factory, which he comes to believe may have been premeditated.&lt;/desc&gt; &nbsp; &nbsp;&lt;date&gt;20070701&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Anthology&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Mystery&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00003026.0665&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;2705&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;previously-shown start="20070701000000" /&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715023000 -0600" stop="20080715040000 -0600" channel="I10436.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;Mystery!&lt;/title&gt; &nbsp; &nbsp;&lt;sub-title lang="en"&gt;Foyle's War, Series IV: Casualties of War&lt;/sub-title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;The murder of a prominent scientist may have been due to a gambling debt.&lt;/desc&gt; &nbsp; &nbsp;&lt;date&gt;20070708&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Anthology&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Mystery&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00003026.0666&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;2706&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;previously-shown start="20070708000000" /&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715040000 -0600" stop="20080715043000 -0600" channel="I10436.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;BBC World News&lt;/title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;International issues.&lt;/desc&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;News&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;SH00315789.0000&lt;/episode-num&gt; &nbsp; &nbsp;&lt;previously-shown /&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715043000 -0600" stop="20080715050000 -0600" channel="I10436.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;Sit and Be Fit&lt;/title&gt; &nbsp; &nbsp;&lt;date&gt;20070924&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Exercise&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00003847.0074&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;901&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;previously-shown start="20070924000000" /&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715060000 -0600" stop="20080715080000 -0600" channel="I10759.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;The Early Show&lt;/title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;Republican candidate John McCain; premiere of the film "The Dark Knight."&lt;/desc&gt; &nbsp; &nbsp;&lt;date&gt;20080715&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Talk&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;News&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00337003.2361&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715080000 -0600" stop="20080715090000 -0600" channel="I10759.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;Rachael Ray&lt;/title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;Actresses Kim Raver, Brooke Shields and Lindsay Price ("Lipstick Jungle"); women in their 40s tell why they got breast implants; a 30-minute meal.&lt;/desc&gt; &nbsp; &nbsp;&lt;credits&gt; &nbsp; &nbsp; &nbsp;&lt;presenter&gt;Rachael Ray&lt;/presenter&gt; &nbsp; &nbsp;&lt;/credits&gt; &nbsp; &nbsp;&lt;date&gt;20080306&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Talk&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00847333.0303&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;2119&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;previously-shown start="20080306000000" /&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715090000 -0600" stop="20080715100000 -0600" channel="I10759.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;The Price Is Right&lt;/title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;Contestants bid for prizes then compete for fabulous showcases.&lt;/desc&gt; &nbsp; &nbsp;&lt;credits&gt; &nbsp; &nbsp; &nbsp;&lt;director&gt;Bart Eskander&lt;/director&gt; &nbsp; &nbsp; &nbsp;&lt;producer&gt;Roger Dobkowitz&lt;/producer&gt; &nbsp; &nbsp; &nbsp;&lt;presenter&gt;Drew Carey&lt;/presenter&gt; &nbsp; &nbsp;&lt;/credits&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Game show&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;SH00004372.0000&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp; &nbsp;&lt;rating system="VCHIP"&gt; &nbsp; &nbsp; &nbsp;&lt;value&gt;TV-G&lt;/value&gt; &nbsp; &nbsp;&lt;/rating&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715100000 -0600" stop="20080715103000 -0600" channel="I10759.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;Jeopardy!&lt;/title&gt; &nbsp; &nbsp;&lt;credits&gt; &nbsp; &nbsp; &nbsp;&lt;presenter&gt;Alex Trebek&lt;/presenter&gt; &nbsp; &nbsp;&lt;/credits&gt; &nbsp; &nbsp;&lt;date&gt;20080715&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Game show&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00002348.1700&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;5507&lt;/episode-num&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp; &nbsp;&lt;rating system="VCHIP"&gt; &nbsp; &nbsp; &nbsp;&lt;value&gt;TV-G&lt;/value&gt; &nbsp; &nbsp;&lt;/rating&gt; &nbsp;&lt;/programme&gt; &nbsp;&lt;programme start="20080715103000 -0600" stop="20080715113000 -0600" channel="I10759.labs.zap2it.com"&gt; &nbsp; &nbsp;&lt;title lang="en"&gt;The Young and the Restless&lt;/title&gt; &nbsp; &nbsp;&lt;sub-title lang="en"&gt;Sabrina Offers Victoria a Truce&lt;/sub-title&gt; &nbsp; &nbsp;&lt;desc lang="en"&gt;Jeff thinks Kyon stole the face cream; Nikki asks Nick to give David a chance; Amber begs Adrian to go to Australia.&lt;/desc&gt; &nbsp; &nbsp;&lt;credits&gt; &nbsp; &nbsp; &nbsp;&lt;actor&gt;Peter Bergman&lt;/actor&gt; &nbsp; &nbsp; &nbsp;&lt;actor&gt;Eric Braeden&lt;/actor&gt; &nbsp; &nbsp; &nbsp;&lt;actor&gt;Jeanne Cooper&lt;/actor&gt; &nbsp; &nbsp; &nbsp;&lt;actor&gt;Melody Thomas Scott&lt;/actor&gt; &nbsp; &nbsp;&lt;/credits&gt; &nbsp; &nbsp;&lt;date&gt;20080715&lt;/date&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Soap&lt;/category&gt; &nbsp; &nbsp;&lt;category lang="en"&gt;Series&lt;/category&gt; &nbsp; &nbsp;&lt;episode-num system="dd_progid"&gt;EP00004422.1359&lt;/episode-num&gt; &nbsp; &nbsp;&lt;episode-num system="onscreen"&gt;8937&lt;/episode-num&gt; &nbsp; &nbsp;&lt;audio&gt; &nbsp; &nbsp; &nbsp;&lt;stereo&gt;stereo&lt;/stereo&gt; &nbsp; &nbsp;&lt;/audio&gt; &nbsp; &nbsp;&lt;subtitles type="teletext" /&gt; &nbsp; &nbsp;&lt;rating system="VCHIP"&gt; &nbsp; &nbsp; &nbsp;&lt;value&gt;TV-14&lt;/value&gt; &nbsp; &nbsp;&lt;/rating&gt; &nbsp;&lt;/programme&gt;&lt;/tv&gt;My Codesub Main ()&nbsp; &nbsp; displayTVListingsScreen (getSettings ())end sub'' Get application-wide settings'function getSettings () as object&nbsp; &nbsp; settings = {}&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; settings.numGridRows &nbsp; &nbsp; &nbsp; &nbsp;= 6 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Supports 4 to 8 channel rows per page&nbsp; &nbsp; settings.newDisplayFormat &nbsp; = true &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Use grid display format rather than single-program display. ['*' key toggles between display formats]&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; settings.colorBG &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;= "#FF101010" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Black [Roku R, G, B color values should not be less than 16]&nbsp; &nbsp; settings.colorHeaderBG &nbsp; &nbsp; &nbsp;= "#FF3A3A3A" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Very dark grey&nbsp; &nbsp; settings.colorFooter &nbsp; &nbsp; &nbsp; &nbsp;= "#FF3F3F3F" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Medium grey&nbsp; &nbsp; settings.colorEven &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;= "#FF7F7F7F" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Light grey&nbsp; &nbsp; settings.colorOdd &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; = "#FF5F5F5F" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Darker grey&nbsp; &nbsp; settings.colorText &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;= "#FFEBEBEB" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' White [Roku R, G, B color values should not be greater than 235]&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; settings.deviceInfo = getDeviceInfo ()&nbsp; &nbsp; settings.font = getFont (settings.deviceInfo.sd, settings.newDisplayFormat, settings.numGridRows)&nbsp; &nbsp; settings.dimensions = getDimensions (settings.newDisplayFormat, settings.numGridRows, settings.deviceInfo, settings.font)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return settings&nbsp; &nbsp;&nbsp;end function'' Get device-specific settings (fixed for the life of the program)'function getDeviceInfo () as object&nbsp; &nbsp; deviceInfo = {}&nbsp; &nbsp; ' Get Roku's device info&nbsp; &nbsp; deviceInfo.di = CreateObject ("roDeviceInfo")&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Get the TV's display size&nbsp; &nbsp; deviceInfo.displaySize = deviceInfo.di.GetDisplaySize ()&nbsp; &nbsp; deviceInfo.displayMode = deviceInfo.di.GetDisplayMode ()&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Get the TV's display mode (true=SD, false=HD)&nbsp; &nbsp; if deviceInfo.displayMode = "480i"&nbsp; &nbsp; &nbsp; &nbsp; deviceInfo.sd = true&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; deviceInfo.sd = false&nbsp; &nbsp; endif&nbsp; &nbsp; ' Get the current time zone&nbsp; &nbsp; tz = deviceInfo.di.GetTimeZone ()&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Use 7 pm as prime time for Mountain/Central time zones, otherwise 8 pm&nbsp; &nbsp; ' Don't adjust time for Canada/Mountain time as they often broadcast on US Pacific time slots&nbsp; &nbsp; if tz = "US/Mountain" or tz = "US/Central" or tz = "Canada/Central"&nbsp; &nbsp; &nbsp; &nbsp; deviceInfo.primeTime = 19&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; deviceInfo.primeTime = 20&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return deviceInfoend function'' Load the font required depending on the number of TV grid rows selected'function getFont (sd as boolean, newDisplayFormat as boolean, numGridRows as integer) as object&nbsp; &nbsp; font = {}&nbsp; &nbsp; minRows = 4&nbsp; &nbsp; maxRows = 8&nbsp; &nbsp; if numGridRows &lt; minRows&nbsp; &nbsp; &nbsp; &nbsp; numGridRows = minRows&nbsp; &nbsp; else if numGridRows &gt; maxRows&nbsp; &nbsp; &nbsp; &nbsp; numGridRows = maxRows&nbsp; &nbsp; endif&nbsp; &nbsp; rowIndex = numGridRows - minRows&nbsp; &nbsp; ' Font used: http://www.dafont.com/liberation-sans.font&nbsp; &nbsp; ' (GNU General Public License v.2)&nbsp; &nbsp; fontFile = "pkg:/fonts/Font.ttf"&nbsp; &nbsp; fontName = "Liberation Sans"&nbsp; &nbsp; ' The font size varies with the number of grid rows&nbsp; &nbsp; ' yOffset is a fine-tuning mechanism to center the text vertically within each grid row&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; if sd&nbsp; &nbsp; &nbsp; &nbsp; ' &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;4, &nbsp;5, &nbsp;6, &nbsp;7, &nbsp;8 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;4, &nbsp;5, &nbsp;6, &nbsp;7, &nbsp;8&nbsp; &nbsp; &nbsp; &nbsp; if newDisplayFormat&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mediumFont = &nbsp; &nbsp;{ fontSize: [ 28, 24, 21, 19, 17 ], yOffset: [ +0, +0, -2, -2, -2 ] }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; smallFont = &nbsp; &nbsp; { fontSize: [ 22, 20, 18, 16, 15 ], yOffset: [ +0, +6, -1, +0, +0 ] }&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mediumFont = &nbsp; &nbsp;{ fontSize: [ 28, 24, 21, 19, 17 ], yOffset: [ +0, +0, -2, -2, -2 ] }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; smallFont = &nbsp; &nbsp; { fontSize: [ 22, 19, 17, 16, 14 ], yOffset: [ +0, +2, -1, -3, -2 ] }&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; else	' hd&nbsp; &nbsp; &nbsp; &nbsp; if newDisplayFormat&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mediumFont = &nbsp; &nbsp;{ fontSize: [ 42, 37, 33, 29, 24 ], yOffset: [ -1, +0, -2, +0, +0 ] }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; smallFont = &nbsp; &nbsp; { fontSize: [ 34, 32, 27, 23, 20 ], yOffset: [ -3, +3, +2, +3, +0 ] }&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mediumFont = &nbsp; &nbsp;{ fontSize: [ 42, 37, 33, 29, 24 ], yOffset: [ -1, +0, -2, -2, +0 ] }&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; smallFont = &nbsp; &nbsp; { fontSize: [ 36, 30, 27, 24, 20 ], yOffset: [ +1, +0, -1, -4, -1 ] }&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; endif&nbsp; &nbsp; font.fontRegistry = CreateObject ("roFontRegistry")&nbsp; &nbsp; font.fontRegistry.Register (fontFile)&nbsp; &nbsp; font.mediumFont = {}&nbsp; &nbsp; font.mediumFont.yOffset = mediumFont.yOffset [rowIndex]&nbsp; &nbsp; font.mediumFont.family = font.fontRegistry.Get (fontName, mediumFont.fontSize [rowIndex], 50, false)&nbsp; &nbsp; font.mediumFont.metrics = CreateObject ("roFontMetrics", font.mediumFont.family)&nbsp; &nbsp; font.smallFont = {}&nbsp; &nbsp; font.smallFont.yOffset = smallFont.yOffset [rowIndex]&nbsp; &nbsp; font.smallFont.family = font.fontRegistry.Get (fontName, smallFont.fontSize [rowIndex], 50, false)&nbsp; &nbsp; font.smallFont.metrics = CreateObject ("roFontMetrics", font.smallFont.family)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return font&nbsp; &nbsp;&nbsp;end function'' Calculate TV grid program display dimensions'function getDimensions (newDisplayFormat as boolean, numGridRows as integer, deviceInfo as object, font as object) as object&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Make use of the 'Action Safe Zone' for display dimensions&nbsp; &nbsp; ' &nbsp; &nbsp;HD-&gt;1150x646 starting at (64, 35)&nbsp; &nbsp; ' &nbsp; &nbsp;SD-&gt;648x432, starting at (36, 24)&nbsp; &nbsp; if deviceInfo.displayMode = "720p" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' 720 x 1280 display (HD)&nbsp; &nbsp; &nbsp; &nbsp; displayH% = 646 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' (720 - 2) * 0.9&nbsp; &nbsp; &nbsp; &nbsp; displayW% = 1150 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' (1280 - 2) * 0.9&nbsp; &nbsp; &nbsp; &nbsp; displayX% = 64 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' 64 + 1150 + 64 = (1280 - 2)&nbsp; &nbsp; &nbsp; &nbsp; displayY% = 35 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' 35 + 646 + 35 = (720 - 4)&nbsp; &nbsp; else if deviceInfo.displayMode = "480i" &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' 480 x 720 display (SD)&nbsp; &nbsp; &nbsp; &nbsp; displayH% = 432 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' 0.9 x 480&nbsp; &nbsp; &nbsp; &nbsp; displayW% = 648 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' 0.9 x 720&nbsp; &nbsp; &nbsp; &nbsp; displayX% = 36 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' 36 + 432 + 36 = 480&nbsp; &nbsp; &nbsp; &nbsp; displayY% = 24 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' 24 + 648 + 24 = 720&nbsp; &nbsp; else &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Unknown display type&nbsp; &nbsp; &nbsp; &nbsp; displayH% = deviceInfo.displaySize.H * 0.9 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Set the height to 90% of available screen height&nbsp; &nbsp; &nbsp; &nbsp; displayW% = deviceInfo.displaySize.W * 0.9 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Scale width to 90% of available screen width&nbsp; &nbsp; &nbsp; &nbsp; displayX% = (deviceInfo.displaySize.W - displayW%) / 2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Center horizontally&nbsp; &nbsp; &nbsp; &nbsp; displayY% = (deviceInfo.displaySize.H - displayH%) / 2 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Center vertically&nbsp; &nbsp; endif&nbsp; &nbsp; ' Calculate dimensions of program grid rows&nbsp; &nbsp; gridRowH% = (displayH% * 0.93) / numGridRows &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Grid row height [reserve 7% of display height for header row]&nbsp; &nbsp; gridRowW% = displayW% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Program grid occupies entire width of display area&nbsp; &nbsp; gridRowX% = displayX% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Program grid starts at beginning of display width&nbsp; &nbsp; gridRowY% = displayY% + displayH% - (gridRowH% * numGridRows) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' For first row only, program grid starts at end of header row.&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Calculate dimensions of header area&nbsp; &nbsp; headerRowX% = displayX% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Header row starts at beginning of display width&nbsp; &nbsp; headerRowY% = displayY% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Header row starts at beginning if display height&nbsp; &nbsp; headerRowW% = displayW% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Header row occupies entire display width&nbsp; &nbsp; headerRowH% = displayH% - (gridRowH% * numGridRows) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Header row occupies portion of display height not occupied by program grid rows&nbsp; &nbsp; ' Determine the pixel widths for program display&nbsp; &nbsp; channelLogoX% = gridRowX% + 10 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Allow some space to the left of the logo&nbsp; &nbsp; channelNameW% = font.smallFont.metrics.Size ("WWWWWWW").W * 0.8 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Only used on single program display&nbsp; &nbsp; channelLogoW% = gridRowH% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Width occupied by channel logo/channel number&nbsp; &nbsp; channelLogoH% = gridRowH% * 2 / 3 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Logo height&nbsp; &nbsp; channelLogoImgX% = channelLogoX% + (channelLogoW% - channelLogoH%) / 2 &nbsp; &nbsp;' Center logo image&nbsp; &nbsp; channelNumberH% = gridRowH% - channelLogoH% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Channel number height&nbsp; &nbsp; channelNameX% = channelLogoX% + channelLogoW% + 10 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Only used for old display mode&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; if newDisplayFormat&nbsp; &nbsp; '&nbsp; &nbsp; ' New display format&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; programDetailsX% = channelLogoX% + channelLogoW% + 10&nbsp; &nbsp; &nbsp; &nbsp; SMALLINTERVAL = 60 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' How much to advance through listings if &gt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; LARGEINTERVAL = 180 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' How much to advance through listings if &gt;&gt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; SMALLDECREMENT = 60 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' How much to back up through listings if &lt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; LARGEDECREMENT = 180 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' How much to back up through listings if &lt;&lt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; DISPLAYWINDOW = 180 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' When paging forward through listings, to determine if we'll exceed the end of the listings window&nbsp; &nbsp; else&nbsp; &nbsp; '&nbsp; &nbsp; ' Old display format&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; programDetailsX% = channelNameX% + channelNameW% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' Start of program details area&nbsp; &nbsp; &nbsp; &nbsp; SMALLINTERVAL = 30 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' How much to advance through listings if &gt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; LARGEINTERVAL = 60 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' How much to advance through listings if &gt;&gt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; SMALLDECREMENT = 120 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' How much to back up through listings if &lt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; LARGEDECREMENT = 120 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' How much to back up through listings if &lt;&lt; key pressed&nbsp; &nbsp; &nbsp; &nbsp; DISPLAYWINDOW = 0 &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' When paging forward through listings, to determine if we'll exceed the end of the listings window&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; programDetailsW% = gridRowW% - programDetailsX% &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Width of program details area&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; dimensions = {&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displaySizeW: deviceInfo.displaySize.W,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displaySizeH: deviceInfo.displaySize.H,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayH: displayH%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayW: displayW%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayX: displayX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayY: displayY%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; headerRowX: headerRowX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; headerRowY: headerRowY%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; headerRowW: headerRowW%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; headerRowH: headerRowH%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; gridRowX: gridRowX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; gridRowY: gridRowY%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; gridRowW: gridRowW%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; gridRowH: gridRowH%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelLogoImgX: channelLogoImgX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelLogoX: channelLogoX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelLogoW: channelLogoW%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelLogoH: channelLogoH%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNameX: channelNameX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNameW: channelNameW%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberH: channelNumberH%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsX: programDetailsX%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsW: programDetailsW%,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SMALLINTERVAL: SMALLINTERVAL,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; LARGEINTERVAL: LARGEINTERVAL,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; SMALLDECREMENT: SMALLDECREMENT,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; LARGEDECREMENT: LARGEDECREMENT,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DISPLAYWINDOW: DISPLAYWINDOW,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; }&nbsp; &nbsp; return dimensions&nbsp; &nbsp;&nbsp;end function'*******************************' Display the TV Listings screen'*******************************sub displayTVListingsScreen (settings as object)&nbsp; &nbsp; primeTime = settings.deviceInfo.primeTime&nbsp; &nbsp; numGridRows = settings.numGridRows&nbsp; &nbsp; dimensions = settings.dimensions&nbsp; &nbsp; port = CreateObject ("roMessagePort")&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Use an roImageCanvas object that occupies the whole screen for the channel listings grid&nbsp; &nbsp; canvas = CreateObject ("roImageCanvas")&nbsp; &nbsp; canvas.SetMessagePort (port)&nbsp; &nbsp; canvas.AllowUpdates (false)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; staticLayer = []&nbsp; &nbsp; ' Background&nbsp; &nbsp; staticLayer.Push ({Color: settings.colorBG, CompositionMode: "Source"})&nbsp; &nbsp; ' Timespan header background&nbsp; &nbsp; staticLayer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: 0, Y: dimensions.headerRowY, W: dimensions.displaySizeW, H: dimensions.headerRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Color: settings.colorHeaderBG,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CompositionMode: "Source"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; ' Channel background&nbsp; &nbsp; nextGridRowY = dimensions.gridRowY&nbsp; &nbsp; for row = 0 to numGridRows - 1&nbsp; &nbsp; &nbsp; &nbsp; if row mod 2 = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelBackgroundColor = settings.colorEven&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelBackgroundColor = settings.colorOdd&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; staticLayer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: 0, Y: nextGridRowY, W: dimensions.displaySizeW, H: dimensions.gridRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Color: channelBackgroundColor,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CompositionMode: "Source"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; nextGridRowY = nextGridRowY + dimensions.gridRowH&nbsp; &nbsp; end for&nbsp; &nbsp; ' Add the static background layer&nbsp; &nbsp; canvas.SetLayer (0, staticLayer)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; canvas.Show ()&nbsp; &nbsp; ' Get the TV Listings&nbsp; &nbsp; xml = getTVListings ()&nbsp; &nbsp; if xml = Invalid&nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "Unable to Retrieve TV Listings"])&nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; channelCount = xml.Channel.Count ()&nbsp; &nbsp; if channelCount = 0&nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "No TV Listings found"])&nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' All ...Time fields handle UTC time in seconds&nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC)&nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC)&nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Channel details layer&nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, 0, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; canvas.AllowUpdates (true)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; channelIndex = 0&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; while true&nbsp; &nbsp; &nbsp; &nbsp; msg = Wait (0, port)&nbsp; &nbsp; &nbsp; &nbsp; if type (msg) = "roImageCanvasEvent"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if msg.IsScreenClosed ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit while&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if msg.IsRemoteKeyPressed ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; key = msg.GetIndex ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;DOWN&gt; Next Channel Group&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if key = 3&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount &gt; numGridRows &nbsp; &nbsp; &nbsp; &nbsp;' No change if only one page of channels&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelIndex = channelIndex + numGridRows&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelIndex &gt;= channelCount&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelIndex = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelIndex &gt;= channelCount then channelIndex = channelCount - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;UP&gt; Previous Channel Group&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount &gt; numGridRows &nbsp; &nbsp; &nbsp; &nbsp;' No change if only one page of channels&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelIndex &gt; 0 and channelIndex &lt; numGridRows&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelIndex = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelIndex = channelIndex - numGridRows&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelIndex &lt; 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelIndex = channelCount - numGridRows&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelIndex &lt; 0 then channelIndex = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;RIGHT&gt; Next Time Period (+30 mins)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 5&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = currentTime + (dimensions.SMALLINTERVAL * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if currentTime + dimensions.DISPLAYWINDOW * 60 &gt;= endTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' We've reached the end of the time period for the current grid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvListings = getTVListings (currentTime.ToStr ())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if tvListings = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelCount = xml.Channel.Count ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Allow for case when TV listings returned for a different time from what was requested&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if (startTime &gt; currentTime and endTime &gt; currentTime) or (startTime &lt; currentTime and endTime &lt; currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "No TV Listings found"])&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;LEFT&gt; Previous Time Period (-30 mins)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 4&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = currentTime - (dimensions.SMALLINTERVAL * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if currentTime &lt; startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvListings = getTVListings ((startTime - (dimensions.SMALLDECREMENT * 60)).ToStr ())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if tvListings = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelCount = xml.Channel.Count ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if (startTime &gt; currentTime and endTime &gt; currentTime) or (startTime &lt; currentTime and endTime &lt; currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "No TV Listings found"])&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;REW&gt; Previous Time Period (-60 mins)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 8&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = currentTime - (dimensions.LARGEINTERVAL * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if currentTime &lt; startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvListings = getTVListings ((startTime - (dimensions.LARGEDECREMENT * 60)).ToStr ())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if tvListings = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelCount = xml.Channel.Count ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if (startTime &gt; currentTime and endTime &gt; currentTime) or (startTime &lt; currentTime and endTime &lt; currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "No TV Listings found"])&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;FF&gt; Next Time Period (+60 mins)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 9&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = currentTime + (dimensions.LARGEINTERVAL * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if currentTime + dimensions.DISPLAYWINDOW * 60 &gt;= endTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' We've reached the end of the time period for the current grid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvListings = getTVListings (currentTime.ToStr ())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if tvListings = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelCount = xml.Channel.Count ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if (startTime &gt; currentTime and endTime &gt; currentTime) or (startTime &lt; currentTime and endTime &lt; currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "No TV Listings found"])&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;Play/Pause&gt; Go to Prime Time&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 13&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Prime Time is considered to be the next occurence of 8pm (2000 hrs local time) after the current time&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dt = CreateObject ("roDateTime")&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dt.FromSeconds (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dt.ToLocalTime ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; hh = dt.GetHours ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; mm = dt.GetMinutes ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ss = dt.GetSeconds ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if hh &lt; primeTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; secsFromMidnight = ((hh * 60) + mm) * 60 + ss&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nextPrimeTime = currentTime - secsFromMidnight + (primeTime * 60 * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; secsFromPrimeTime = (((hh - primeTime) * 60) + mm) * 60 + ss&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; nextPrimeTime = currentTime - secsFromPrimeTime + (24 * 60 * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = nextPrimeTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tvListings = getTVListings (currentTime.ToStr ())&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if tvListings = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelCount = xml.Channel.Count ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC, currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if (startTime &gt; currentTime and endTime &gt; currentTime) or (startTime &lt; currentTime and endTime &lt; currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channelCount = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayMessageDialog (["TV Listings Error", "No TV Listings found"])&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; return&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' &lt;OK&gt; or &lt;BACK&gt; Back to Main Screen &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 6 &nbsp; &nbsp;or key = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' * - Change display format&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if key = 10&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; toggleDisplayFormat (settings)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; dimensions = settings.dimensions&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' If switching to the new display format, set the current time to the start of the listings window&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if settings.newDisplayFormat&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTime = getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTime = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTime = startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentTimeStr = timeToStr (currentTime)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; canvas.SetLayer (1, getChannelLayer (settings, xml, channelIndex, currentTime, currentTimeStr, startTime))&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; end whileend sub'****************' Get TV listings'****************function getTVListings (timeInSecs = "" as string) as object&nbsp; &nbsp; loadingDialog = displayLoadingDialog ()&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; xmlData = ReadAsciiFile ("pkg:/xml/example.xml")&nbsp; &nbsp; xml = CreateObject ("roXMLElement")&nbsp; &nbsp; if not xml.Parse (xmlData)&nbsp; &nbsp; &nbsp; &nbsp; xml = Invalid&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; closeLoadingDialog (loadingDialog)&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return xmlend functionfunction timeToStr (displayTime as integer) as string&nbsp; &nbsp; ' Get the present time&nbsp; &nbsp; dtNow = CreateObject ("roDateTime")&nbsp; &nbsp; dtNow.Mark ()&nbsp; &nbsp; dtNow.ToLocalTime ()&nbsp; &nbsp; ' Calculate the start time for the time span of the displayed time&nbsp; &nbsp; dt = CreateObject ("roDateTime")&nbsp; &nbsp; dt.FromSeconds (displayTime)&nbsp; &nbsp; dt.ToLocalTime ()&nbsp; &nbsp; h = dt.GetHours ()&nbsp; &nbsp; mm = dt.GetMinutes () : mmStr = Right ("0" + mm.ToStr (), 2)&nbsp; &nbsp; if h = 0 and mm = 0&nbsp; &nbsp; &nbsp; &nbsp; timeStr = "Midnight"&nbsp; &nbsp; else if h = 12 and mm = 0&nbsp; &nbsp; &nbsp; &nbsp; timeStr = "Noon"&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; if h &gt;= 12&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ap = "pm"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if h &gt; 12 then h = h - 12&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ap = "am"&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; timeStr = h.ToStr () + ":" + mmStr + " " + ap&nbsp; &nbsp; endif&nbsp; &nbsp; ' If the date of the displayed time is not the current date then display the date as well as the displayed time&nbsp; &nbsp; if dtNow.AsDateString ("short-date") &lt;&gt; dt.AsDateString ("short-date")&nbsp; &nbsp; &nbsp; &nbsp; monthList = ["", "Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec"]&nbsp; &nbsp; &nbsp; &nbsp; timeStr = Left (dt.GetWeekday (), 3) + " " + monthList [dt.GetMonth ()] + " " + dt.GetDayOfMonth ().ToStr () + &nbsp;" - " + timeStr&nbsp; &nbsp; endif&nbsp; &nbsp; return timeStrend functionfunction getChannelLayer (settings as object, xml as object, channelIndex as integer, currentTime as integer, currentTimeStr as string, startTime as integer) as object&nbsp; &nbsp; dimensions = settings.dimensions&nbsp; &nbsp; font = settings.font&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Duration is the total time span for program results returned in this XML response (should be 3 hours)&nbsp; &nbsp; duration = getXmlUTCInSecs (xml.TimeInfo.EndTimeUTC) - getXmlUTCInSecs (xml.TimeInfo.StartTimeUTC)&nbsp; &nbsp; layer = []&nbsp; &nbsp; ' Header containing timespan&nbsp; &nbsp; if not settings.newDisplayFormat&nbsp; &nbsp; '&nbsp; &nbsp; ' Old display format&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: dimensions.headerRowX, Y: dimensions.headerRowY, W: dimensions.headerRowW, H: dimensions.headerRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: currentTimeStr,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: settings.colorText, Font: font.mediumFont.family, HAlign: "Center", VAlign: "Middle"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; else&nbsp; &nbsp; '&nbsp; &nbsp; ' New display format&nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; ' Display the day and the start time&nbsp; &nbsp; &nbsp; &nbsp; startDay = timeToDay (startTime)&nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: dimensions.headerRowX, Y: dimensions.headerRowY, W: dimensions.programDetailsX - dimensions.headerRowX, H: dimensions.headerRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: startDay,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: settings.colorText, Font: font.mediumFont.family, HAlign: "Left", VAlign: "Middle"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; startHMMA = timeToHMMA2 (startTime)&nbsp; &nbsp; &nbsp; &nbsp; timeX% = dimensions.programDetailsX&nbsp; &nbsp; &nbsp; &nbsp; timeW% = dimensions.programDetailsW * 60 * 60 / duration&nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: timeX%, Y: dimensions.headerRowY, W: timeW%, H: dimensions.headerRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: startHMMA,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: settings.colorText, Font: font.mediumFont.family, HAlign: "Left", VAlign: "Middle"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ' Display the start time + 60 mins if there is at least 2 hours' worth of listings&nbsp; &nbsp; &nbsp; &nbsp; if duration &gt;= 120 * 60&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startHMMA = timeToHMMA2 (startTime + 60 * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timeStr = startHMMA&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timeX% = dimensions.programDetailsX + timeW%&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timeW% = dimensions.programDetailsW * 120 * 60 / duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: timeX%, Y: dimensions.headerRowY, W: timeW%, H: dimensions.headerRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: timeStr,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: settings.colorText, Font: font.mediumFont.family, HAlign: "Left", VAlign: "Middle"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ' Display the start time + 120 &nbsp;if there is at least 3 hours' worth of listings&nbsp; &nbsp; &nbsp; &nbsp; if duration &gt;= 180 * 60&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startHMMA = timeToHMMA2 (startTime + 120 * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timeStr = startHMMA&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timeX% = dimensions.programDetailsX + timeW%&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; timeW% = dimensions.programDetailsW * 180 * 60 / duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: timeX%, Y: dimensions.headerRowY, W: timeW%, H: dimensions.headerRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: timeStr,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: settings.colorText, Font: font.mediumFont.family, HAlign: "Left", VAlign: "Middle"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ' Don't attempt to display more that 3 hours' worth of listings&nbsp; &nbsp; &nbsp; &nbsp; if duration &gt; 180 * 60&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; duration = 180 * 60&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; nextGridRowY = dimensions.gridRowY&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; '&nbsp; &nbsp; ' Display each row of channel information&nbsp; &nbsp; '&nbsp; &nbsp; for row = 0 to settings.numGridRows - 1&nbsp; &nbsp; &nbsp; &nbsp; channel = xml.Channel [channelIndex]&nbsp; &nbsp; &nbsp; &nbsp; logoUrl = ""&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ' Channel background&nbsp; &nbsp; &nbsp; &nbsp; if row mod 2 = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelBackgroundColor = settings.colorEven&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelBackgroundColor = settings.colorOdd&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: 0, Y: nextGridRowY, W: dimensions.displayW, H: dimensions.gridRowH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Color: channelBackgroundColor,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; CompositionMode: "Source"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; if not settings.newDisplayFormat&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; ' Single Program display format&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Channel Logo&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; logoUrl = getXmlString (channel.ChannelData.ChannelLogo)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if logoUrl &lt;&gt; ""&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: dimensions.channelLogoImgX, Y: nextGridRowY, W: dimensions.channelLogoH, H: dimensions.channelLogoH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Url: logoUrl&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Channel Number&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumber = getXmlString (channel.ChannelData.ChannelNumber)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberBox = textBoxCreate (dimensions.channelLogoX, nextGridRowY + dimensions.channelLogoH, dimensions.channelLogoW, dimensions.channelNumberH, settings.colorText, "Center")&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberBox.addLine (channelNumber, font.mediumFont, dimensions.channelLogoW)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberBox.addToLayer (layer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Channel Name&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelName = getXmlString (channel.ChannelData.ChannelName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNameBox = textBoxCreate (dimensions.channelNameX, nextGridRowY + 3, dimensions.channelNameW, dimensions.gridRowH, settings.colorText)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNameBox.addLine (channelName, font.smallFont)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNameBox.addToLayer (layer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Program Details&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentProgram = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; program = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Loop for each program for this channel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for programIndex = 0 to channel.ProgramList.Program.Count () - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; program = channel.ProgramList.Program [programIndex]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTimeSecs = getXmlInteger (program.StartSecs) + startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTimeSecs = getXmlInteger (program.EndSecs) + startTime&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Display the first program having an end time greater than the current display time (or the last program)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if endTimeSecs &gt; currentTime and currentProgram = Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentProgram = program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Give preferential display to programs that are less than 30 minutes long and don't start on or span a half-hour boundary&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if startTimeSecs &gt; currentTime and endTimeSecs &lt;= (currentTime + 30 * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentProgram = program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end for&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' If a program was found then use it, otherwise use the last program encountered&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if currentProgram &lt;&gt; Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; program = currentProgram&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if program &lt;&gt; Invalid&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programName = getXmlString (program.ProgramName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programYear = getXmlString (program.ProgramYear)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDesc = getXmlString (program.ProgramDescription)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startTimeSecs = &nbsp;getXmlInteger (program.StartSecs) + startTime &nbsp; &nbsp; &nbsp; &nbsp;' program.StartSecs is start time (secs) relative to start of XML&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endTimeSecs = &nbsp;getXmlInteger (program.EndSecs) + startTime &nbsp; &nbsp; &nbsp; &nbsp;' program.EndSecs is end time (secs) relative to start of XML&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if startTimeSecs &lt;&gt; 0 then startTimeStr = timeToHMMA (startTimeSecs) else startTimeStr = ""&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if endTimeSecs &lt;&gt; 0 then endTimeStr = timeToHMMA (endTimeSecs) else endTimeStr = ""&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; runTime = getXmlString (program.RuntimeMins) &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;' program.RuntimeMins is total duration (mins) of the program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; attributesConcat = getXmlString (program.ProgramAttributes)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; displayTime = startTimeStr + "-" + endTimeStr + " &nbsp;(" + runTime + " mins)" + " &nbsp; &nbsp;" + attributesConcat &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox = textBoxCreate (dimensions.programDetailsX, nextGridRowY + 0, dimensions.programDetailsW, dimensions.gridRowH - 2, settings.colorText)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addLine (programName + " &nbsp;" + programYear, &nbsp;font.mediumFont)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addLine (programDesc, font.smallFont)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addLine (displayTime, font.smallFont)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addToLayer (layer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; ' Grid display format&nbsp; &nbsp; &nbsp; &nbsp; ' &nbsp; &nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Channel Logo&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; logoUrl = getXmlString (channel.ChannelData.ChannelLogo)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if logoUrl &lt;&gt; ""&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; layer.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: dimensions.channelLogoImgX, Y: nextGridRowY, W: dimensions.channelLogoH, H: dimensions.channelLogoH},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Url: logoUrl&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Channel Number&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumber = getXmlString (channel.ChannelData.ChannelNumber)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberBox = textBoxCreate (dimensions.channelLogoX, nextGridRowY + dimensions.channelLogoH, dimensions.channelLogoW, dimensions.channelNumberH, settings.colorText, "Center")&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberBox.addLine (channelNumber, font.mediumFont, dimensions.channelLogoW)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumberBox.addToLayer (layer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Loop for each program in this channel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; for programIndex = 0 to channel.ProgramList.Program.Count () - 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Get the next program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; program = channel.ProgramList.Program [programIndex]&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' startRel and endRel are the number of seconds relative to the start of the current listings window&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; startRel = getXmlInteger (program.StartSecs)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endRel = getXmlInteger (program.EndSecs)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Don't attempt to display programs that start more than 15 minutes before the end of the 3-hour maximum display duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if startRel &lt;= duration - (15 * 60)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Don't attempt to display any portion of the program that exceeds the end of the 3-hour maximum display duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if endRel &gt; duration then endRel = duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Determine the proportion of the display width to be occupied by this program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDuration = endRel - startRel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Get width in pixels of current program display box&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programWidth% = dimensions.programDetailsW * programDuration / duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Get X-coordinate of start of current program display box&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programStart% = dimensions.programDetailsX + dimensions.programDetailsW * startRel / duration&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programName = getXmlString (program.ProgramName)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox = textBoxCreate (programStart%, nextGridRowY + 0, programWidth%, dimensions.gridRowH - 2, settings.colorText)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addText (programName, &nbsp;font.smallFont, programWidth%, dimensions.gridRowH, channelBackgroundColor)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addToLayer (layer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; end for&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' If there are no programs listed for this channel, write in a blank program&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if channel.ProgramList.Program.Count () = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programName = "No Listings"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programWidth% = dimensions.programDetailsW&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programStart% = dimensions.programDetailsX&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox = textBoxCreate (programStart%, nextGridRowY + 0, programWidth%, dimensions.gridRowH - 2, settings.colorText)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addText (programName, &nbsp;font.smallFont, programWidth%, dimensions.gridRowH, channelBackgroundColor)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; programDetailsBox.addToLayer (layer)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; nextGridRowY = nextGridRowY + dimensions.gridRowH&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ' Go to the next channel&nbsp; &nbsp; &nbsp; &nbsp; channelIndex = channelIndex + 1&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; &nbsp; &nbsp; ' No wraparound. Once the last channel is reached, don't display any more channels past it on this screen&nbsp; &nbsp; &nbsp; &nbsp; if channelIndex &gt;= xml.Channel.Count ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit for&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; end for&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; '&nbsp; &nbsp; ' Write a blank layer under the program grid to cover up any text that overflowed its box&nbsp; &nbsp; '&nbsp; &nbsp; layer.Push ({TargetRect: {X: 0, Y: nextGridRowY, W: dimensions.displaySizeW, H: dimensions.displaySizeH - nextGridRowY}, Color: settings.colorFooter, CompositionMode: "Source"})&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return layer&nbsp; &nbsp;&nbsp;end functionfunction textBoxCreate (xParam as integer, yParam as integer, wParam as integer, hParam as integer, colorParam as string, hAlignParam = "Left" as string) as object&nbsp; &nbsp; textBox = {}&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; textBox.x = xParam&nbsp; &nbsp; textBox.y = yParam&nbsp; &nbsp; textBox.w = wParam&nbsp; &nbsp; textBox.h = hParam&nbsp; &nbsp; textBox.textColor = colorParam&nbsp; &nbsp; textBox.hAlign = hAlignParam&nbsp; &nbsp; textBox.outputBox = []&nbsp; &nbsp; textBox.numLines = 0&nbsp; &nbsp; textBox.nextY = textBox.y&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Add a single line of text&nbsp; &nbsp; textBox.addLine = function (textParam as string, fontParam as object, maxWidth = -1 as integer)&nbsp; &nbsp; &nbsp; &nbsp; if textParam &lt;&gt; ""&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; size = fontParam.metrics.Size (textParam)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if maxWidth = -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; width = size.W&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; width = maxWidth&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; yOffset = fontParam.yOffset&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.outputBox.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: m.x, Y: m.nextY + yOffset, W: width, H: size.H},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: textParam,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: m.textColor, Font: fontParam.family, HAlign: m.hAlign, VAlign: "Top"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.nextY = m.nextY + size.H&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.numLines = m.numLines + 1&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; end function&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; ' Fill the box with text, drawing the background to overwrite any text that might overlap from a previous operation&nbsp; &nbsp; textBox.addText = function (textParam as string, fontParam as object, boxWidth as integer, boxHeight as integer, channelBackgroundColor as string)&nbsp; &nbsp; &nbsp; &nbsp; if textParam &lt;&gt; ""&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; size = fontParam.metrics.Size (textParam)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; yOffset = fontParam.yOffset&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Background rectangle. Allow it to extend into the rectangle on the LHS so as to allow padding between programs&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.outputBox.Push ({TargetRect: {X: m.x - 1, Y: m.nextY + yOffset, W: boxWidth + 1, H: boxHeight}, Color: channelBackgroundColor, CompositionMode: "Source"})&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Vertical line between programs&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.outputBox.Push ({TargetRect: {X: m.x, Y: m.nextY + yOffset, W: 1, H: boxHeight}, Color: m.textColor, CompositionMode: "Source"})&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ' Program details&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.outputBox.Push ({&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TargetRect: {X: m.x + 2, Y: m.nextY + yOffset, W: boxWidth - 3, H: size.H},&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Text: textParam,&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; TextAttrs: {Color: m.textColor, Font: fontParam.family, HAlign: m.hAlign, VAlign: "Top"}&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; })&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.nextY = m.nextY + size.H&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; m.numLines = m.numLines + 1&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; end function&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; textBox.addToLayer = function (layer as object)&nbsp; &nbsp; &nbsp; &nbsp; for each item in m.outputBox&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; layer.Push (item)&nbsp; &nbsp; &nbsp; &nbsp; end for&nbsp; &nbsp; &nbsp; &nbsp;&nbsp;&nbsp; &nbsp; end function&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return textBoxend function'' Switch from old display format to new display format or vice-versa'function toggleDisplayFormat (settings as object)&nbsp; &nbsp; if settings.newDisplayFormat = true&nbsp; &nbsp; &nbsp; &nbsp; settings.newDisplayFormat = false&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; settings.newDisplayFormat = true&nbsp; &nbsp; endif&nbsp; &nbsp; settings.font = getFont (settings.deviceInfo.sd, settings.newDisplayFormat, settings.numGridRows)&nbsp; &nbsp; settings.dimensions = getDimensions (settings.newDisplayFormat, settings.numGridRows, settings.deviceInfo, settings.font)&nbsp; &nbsp;&nbsp;end functionfunction timeToHMMA (timeSecs as integer) as string&nbsp; &nbsp; dt = CreateObject ("roDateTime")&nbsp; &nbsp; dt.FromSeconds (timeSecs)&nbsp; &nbsp; dt.ToLocalTime ()&nbsp; &nbsp; h = dt.GetHours ()&nbsp; &nbsp; mm = dt.GetMinutes () : mmStr = Right ("0" + mm.ToStr (), 2)&nbsp; &nbsp; if h &lt; 12&nbsp; &nbsp; &nbsp; &nbsp; ap = "am"&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; if h &gt; 12 then h = h - 12&nbsp; &nbsp; &nbsp; &nbsp; ap = "pm"&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return h.ToStr () + ":" + mmStr + " " + apend functionfunction timeToHMMA2 (timeSecs as integer) as string&nbsp; &nbsp; dt = CreateObject ("roDateTime")&nbsp; &nbsp; dt.FromSeconds (timeSecs)&nbsp; &nbsp; dt.ToLocalTime ()&nbsp; &nbsp; h = dt.GetHours ()&nbsp; &nbsp; mm = dt.GetMinutes () : mmStr = Right ("0" + mm.ToStr (), 2)&nbsp; &nbsp; if h = 0 and mm = 0&nbsp; &nbsp; &nbsp; &nbsp; timeStr = "Midnight"&nbsp; &nbsp; else if h = 12 and mm = 0&nbsp; &nbsp; &nbsp; &nbsp; timeStr = "Noon"&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; if h &gt;= 12&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ap = "pm"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if h &gt; 12 then h = h - 12&nbsp; &nbsp; &nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ap = "am"&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; timeStr = h.ToStr () + ":" + mmStr + " " + ap&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return timeStrend functionfunction timeToDay (timeSecs as integer) as string&nbsp; &nbsp; dt = CreateObject ("roDateTime")&nbsp; &nbsp; dt.FromSeconds (timeSecs)&nbsp; &nbsp; dt.ToLocalTime ()&nbsp; &nbsp; return Left (dt.GetWeekday (), 3)end function'' Get a string from an XML field'function getXmlString (field as object, defaultField = "" as string) as string&nbsp; &nbsp; for each item in field&nbsp; &nbsp; &nbsp; &nbsp; return field.GetText ()&nbsp; &nbsp; end for&nbsp; &nbsp; return defaultFieldend function'' Get an integer from an XML field'function getXmlInteger (field as object, defaultField = 0 as integer) as integer&nbsp; &nbsp; for each item in field&nbsp; &nbsp; &nbsp; &nbsp; return field.GetText ().ToInt ()&nbsp; &nbsp; end for&nbsp; &nbsp; return defaultFieldend function'' Get an ISO8601 UTC time from an XML field and convert to time in seconds'function getXmlUTCInSecs (field as object, defaultField = 0 as integer) as integer&nbsp; &nbsp; utcString = ""&nbsp; &nbsp; for each item in field&nbsp; &nbsp; &nbsp; &nbsp; utcString = field.GetText ()&nbsp; &nbsp; &nbsp; &nbsp; exit for&nbsp; &nbsp; end for&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; dt = CreateObject ("roDateTime")&nbsp; &nbsp; dt.FromISO8601String (utcString)&nbsp; &nbsp; secs = dt.AsSeconds ()&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; if secs &gt; 1300000000 and secs &lt; 1500000000&nbsp; &nbsp; &nbsp; &nbsp; timeSecs = secs&nbsp; &nbsp; else&nbsp; &nbsp; &nbsp; &nbsp; timeSecs = defaultField&nbsp; &nbsp; endif&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return timeSecsend function'*************************' Display a message dialog'*************************sub displayMessageDialog (messageList as object)&nbsp; &nbsp; port = CreateObject ("roMessagePort")&nbsp; &nbsp; messageDialog = CreateObject ("roMessageDialog")&nbsp; &nbsp; messageDialog.SetMessagePort (port)&nbsp; &nbsp; messageDialog.EnableOverlay (true) &nbsp; &nbsp;' Do not dim background screen&nbsp; &nbsp; messageDialog.SetTitle (messageList [0])&nbsp; &nbsp; for i = 1 to messageList.Count () - 1&nbsp; &nbsp; &nbsp; &nbsp; messageDialog.SetText (messageList [i])&nbsp; &nbsp; end for&nbsp; &nbsp; messageDialog.AddButton (1, "OK")&nbsp; &nbsp; messageDialog.Show ()&nbsp; &nbsp; while true&nbsp; &nbsp; &nbsp; &nbsp; msg = Wait (0, port)&nbsp; &nbsp; &nbsp; &nbsp; if type (msg) = "roMessageDialogEvent"&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if msg.IsScreenClosed ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit while&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; else if msg.IsButtonPressed ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; if msg.GetIndex () = 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; messageDialog.Close ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; end whileend sub'*******************************' Display a one-line busy dialog'*******************************function displayLoadingDialog () as object&nbsp; &nbsp; port = CreateObject ("roMessagePort")&nbsp; &nbsp; oneLineDialog = CreateObject ("roOneLineDialog")&nbsp; &nbsp; oneLineDialog.SetMessagePort (port)&nbsp; &nbsp; oneLineDialog.ShowBusyAnimation ()&nbsp; &nbsp; oneLineDialog.SetTitle ("Loading ...")&nbsp; &nbsp; oneLineDialog.Show ()&nbsp; &nbsp;&nbsp;&nbsp; &nbsp; return oneLineDialog&nbsp; &nbsp;&nbsp;end function'*****************************' Close a one-line busy dialog'*****************************function closeLoadingDialog (dialog as object) as object&nbsp; &nbsp; dialog.Close ()&nbsp; &nbsp; while true&nbsp; &nbsp; &nbsp; &nbsp; msg = Wait (0, dialog.GetMessagePort ())&nbsp; &nbsp; &nbsp; &nbsp; if msg.IsScreenClosed ()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; exit while&nbsp; &nbsp; &nbsp; &nbsp; endif&nbsp; &nbsp; end whileend functionPlz Help

belltown · Answer

Knowing how to "parse this XML" isn't going to help you. You need to re-write the code that makes use of the parsed XML so it uses the data structure you're providing, versus the data structure expected by the code you're copying; or write a converter that converts the XML data from one form to the other. I doubt you'd get that kind of help here.

jitendragaurgkv · Answer

Thanks Sir&nbsp;

btpoole · Answer

jitendragaurgkv&nbsp;here's a little info that might help. To keep the load off the roku I parsed the schedules direct on the server using php creating a json array. The parse organizes the data my app needs when it loads. So basically the Roku is not doing a lot of work, just loading the array.

Forum Discussion

Difficulties Parsing XML

Related Content

Struggling with XML Parsing

parsing XML question

Putting a newline character in a XML string

Parsing JSON v XML

Difficulty raising volume using the remote on my roku TV.

Recent Discussions

Is There Still a Reason to Develop Games for Roku?

i am try calling a getApi but still response code 403 ?

Unable to display thumbnails inside grid

Remotes and apps

List of Third-party Roku Channel Developers for hire