B4R=True Group=Default Group ModulesStructureVersion=1 Type=StaticCode Version=3.3 @EndOfDesignText@ Sub Process_Globals End Sub Public Sub Power_On_Key As Int() Return Array As Int( 0, 256) End Sub Public Sub Power_Off_Key As Int() Return Array As Int( 256, 256) End Sub Public Sub Stop_Key As Int() Return Array As Int( 512, 176) End Sub Public Sub Number_Key_1 As Int() Return Array As Int( 688, 176) End Sub Public Sub Number_Key_2 As Int() Return Array As Int( 864, 176) End Sub Public Sub Number_Key_3 As Int() Return Array As Int( 1040, 176) End Sub Public Sub Number_Key_4 As Int() Return Array As Int( 1216, 176) End Sub Public Sub Number_Key_5 As Int() Return Array As Int( 1392, 176) End Sub Public Sub Number_Key_6 As Int() Return Array As Int( 1568, 176) End Sub Public Sub Number_Key_7 As Int() Return Array As Int( 1744, 176) End Sub Public Sub Number_Key_8 As Int() Return Array As Int( 1920, 176) End Sub Public Sub Number_Key_9 As Int() Return Array As Int( 2096, 176) End Sub Public Sub Minus_Key As Int() Return Array As Int( 2272, 176) End Sub Public Sub Select_Format As Int() Return Array As Int( 2448, 176) End Sub Public Sub Power_Toggle_Key As Int() Return Array As Int( 2624, 416) End Sub Public Sub Select_TV_Input As Int() Return Array As Int( 3040, 256) End Sub Public Sub Replay_Key As Int() Return Array As Int( 3296, 176) End Sub Public Sub FastREV_Key As Int() Return Array As Int( 3472, 176) End Sub Public Sub Pause_Key As Int() Return Array As Int( 3648, 176) End Sub Public Sub FastFWD_Key As Int() Return Array As Int( 3824, 176) End Sub Public Sub Skip_Key As Int() Return Array As Int( 4000, 176) End Sub Public Sub Record_Key As Int() Return Array As Int( 4176, 176) End Sub Public Sub Play_Key As Int() Return Array As Int( 4352, 176) End Sub Public Sub Number_Key_0 As Int() Return Array As Int( 4528, 176) End Sub Public Sub Enter_Key As Int() Return Array As Int( 4704, 176) End Sub Public Sub Previous_Key As Int() Return Array As Int( 4880, 176) End Sub Public Sub Channel_Down As Int() Return Array As Int( 5056, 176) End Sub Public Sub Channel_Up As Int() Return Array As Int( 5232, 176) End Sub Public Sub Button_Yellow As Int() Return Array As Int( 5408, 176) End Sub Public Sub Button_Blue As Int() Return Array As Int( 5584, 176) End Sub Public Sub Back_Key As Int() Return Array As Int( 5760, 176) End Sub Public Sub Show_Menu As Int() Return Array As Int( 5936, 176) End Sub Public Sub Show_Info As Int() Return Array As Int( 6112, 176) End Sub Public Sub Arrow_Left As Int() Return Array As Int( 6288, 176) End Sub Public Sub Arrow_Right As Int() Return Array As Int( 6464, 176) End Sub Public Sub Arrow_Up As Int() Return Array As Int( 6640, 176) End Sub Public Sub Arrow_Down As Int() Return Array As Int( 6816, 176) End Sub Public Sub Show_Guide As Int() Return Array As Int( 6992, 176) End Sub Public Sub Active_Key As Int() Return Array As Int( 7168, 176) End Sub Public Sub Show_List As Int() Return Array As Int( 7344, 176) End Sub Public Sub Exit_Key As Int() Return Array As Int( 7520, 176) End Sub Public Sub Select_Key As Int() Return Array As Int( 7696, 176) End Sub Public Sub Button_Red As Int() Return Array As Int( 7872, 176) End Sub Public Sub SelectChannel(xChannel As Int, xDelay As Int, xProcessLeadingZeros As Boolean) As List Dim ChannelButtons As List Dim Digit As String Dim FormattedChannel As String = NumberFormat2(xChannel, 4, 0, 0, False) Dim FoundNonZero As Boolean = False ChannelButtons.Initialize For i = 0 To FormattedChannel.Length-1 Digit = FormattedChannel.SubString2(i, i+1) If Digit = "0" Then If xProcessLeadingZeros = False And FoundNonZero = False Then Continue End If Else FoundNonZero = True End If Select Digit Case "0" ChannelButtons.Add(Number_Key_0) Case "1" ChannelButtons.Add(Number_Key_1) Case "2" ChannelButtons.Add(Number_Key_2) Case "3" ChannelButtons.Add(Number_Key_3) Case "4" ChannelButtons.Add(Number_Key_4) Case "5" ChannelButtons.Add(Number_Key_5) Case "6" ChannelButtons.Add(Number_Key_6) Case "7" ChannelButtons.Add(Number_Key_7) Case "8" ChannelButtons.Add(Number_Key_8) Case "9" ChannelButtons.Add(Number_Key_9) Case Else Continue End Select ChannelButtons.Add(InsertDelay(xDelay)) Next If ChannelButtons.Size > 0 Then Dim EnterKey() As Int = Enter_Key If EnterKey(0) <> 0 And EnterKey(1) <> 0 Then ChannelButtons.Add(EnterKey) End If End If Return ChannelButtons End Sub Public Sub InsertDelay(xHowLong As Long) As Int() Return Array As Int(xHowLong, 0) End Sub