value__ntID__ntName  __ntTemplate viewflags viewFormat viewBounds stepChildren declareSelfEnterMacroStringSetMacroString curSelectionUpdateMacroStringUpdateButtonNameviewSetupFormScript viewEffect  __ntDatatype __ntFlagsÿ( CLAS@    NUMBÿ    NUMBÿ    RECT Ó¦    ARAY     __ntDeclare   labelCommandslabelActionScriptviewSetupDoneScript textSetuplabel textChanged   ÿô PROT@    RECT 0œ   Ð[ "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R" ] EVAL   ¾func(cmd) begin :Parent():SetMacroString(cmd); curSelection := cmd; return (nil); end SCPT   ÿ¤func() begin self:setLabelCommands([label0, label1, label2, label3, label4, label5, label6, label7, label8, label9, label10, label11, label12, label13, label14, label15, label16, label17]); end SCPT   6func() begin label0 end SCPT   Button TEXT   ÿfunc() begin :Parent():UpdateButtonName(entryLine.text); self:setLabelCommands([label0, label1, label2, label3, label4, label5, label6, label7, label8, label9, label10, label11, label12, label13, label14, label15, label16, label17]); end SCPTprotoLabelInputLinebuttonName     ! text   viewJustify %   ÿh PROT@    TEXTStatic Text   RECT 0 G›   ÿD NUMB    NUMB   Tfunc() begin self.text := string0; end SCPTprotoStaticTextmacroCommand     keyDefinitions keyPressScript   ÿð PROT@    EVALÿ*[ [keyVUnit, keyVUnit, "f", "f", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "h", "h", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "p", "p", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "r", "r", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "s", "s", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "x", "x", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3 ], [keyVUnit, keyVUnit, "7", "7", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "8", "8", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "9", "9", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Rem", "R", keyHUnit + keyHHalf + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Tape", "T", keyHUnit + keyHHalf + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3 ], [keyVUnit, keyVUnit, "4", "4", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "5", "5", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "6", "6", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Chan", "C", keyHUnit + keyHHalf + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Delay", "D", keyHUnit + keyHHalf + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3 ], [keyVUnit, keyVUnit, "1", "1", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "2", "2", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "3", "3", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Vol", "V", keyHUnit + keyHHalf + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Misc", "M", keyHUnit + keyHHalf + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3 ], [keyVUnit, keyVUnit, "-", "-", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "0", "0", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "+", "+", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, " ", " ", keyHUnit + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3, "Delete", "@", keyHUnit * 2 + keyVUnit + keyFramed + keyAutoHilite + keyRoundingUnit*3 ] ]    RECT I …œ   ÿ.func(key) begin local aString; aString := SPrintObject(key); :Parent():EnterMacroString(aString); :Parent():UpdateMacroString(); end SCPT protoKeypadkeypad      # D $ &   ÿø PROT@   RECT ¢¯“    EVALv["Magnavox TV", "Emerson VCR", "Mitsubishi TV", "Sony TV"]   Remote 1 TEXT   Nfunc(cmd) begin remote1 := cmd; end SCPT   ´func() begin if labelCommands then labelCommands[remote1]; else ""; end SCPTprotoLabelPickerremote0      # D $ &   ÿø PROT@   RECT °½“    EVALv["Magnavox TV", "Emerson VCR", "Mitsubishi TV", "Sony TV"]   Remote 2 TEXT   Nfunc(cmd) begin remote2 := cmd; end SCPT   ´func() begin if labelCommands then labelCommands[remote2]; else ""; end SCPT {remote1      # D $ &   ÿø PROT@   RECT ¾Ë“    EVALv["Magnavox TV", "Emerson VCR", "Mitsubishi TV", "Sony TV"]   Remote 3 TEXT   Nfunc(cmd) begin remote3 := cmd; end SCPT   ´func() begin if labelCommands then labelCommands[remote3]; else ""; end SCPT {remote2    buttonClickScript   ÿ˜ PROT@   Âfunc() begin :RetitleButtons(); :ParseAllCommands(); inherited:buttonClickScript(); end SCPT protoCloseboxcloseConfigure    title    ÿ° PROT@    TEXTRemotes   RECT Ž› protoDividerremoteDivider     ±    ÿ° PROT@    TEXTButtons   RECT  ºbuttonDividerÿ    'base EVAL   ÿ@func(aChar) begin local theString; theString := macroCommand.text; if (StrCompare(aChar, "@") = 0) then theString := SubStr(theString, 0, StrLen(theString) - 1); else theString := StrConcat(theString, aChar); SetValue(macroCommand, 'text, theString); end SCPT   ÿ ªfunc(which) begin if (which = 0) then SetValue(macroCommand, 'text, string0); else if (which = 1) then SetValue(macroCommand, 'text, string1); else if (which = 2) then SetValue(macroCommand, 'text, string2); else if (which = 3) then SetValue(macroCommand, 'text, string3); else if (which = 4) then SetValue(macroCommand, 'text, string4); else if (which = 5) then SetValue(macroCommand, 'text, string5); else if (which = 6) then SetValue(macroCommand, 'text, string6); else if (which = 7) then SetValue(macroCommand, 'text, string7); else if (which = 8) then SetValue(macroCommand, 'text, string8); else if (which = 9) then SetValue(macroCommand, 'text, string9); else if (which = 10) then SetValue(macroCommand, 'text, string10); else if (which = 11) then SetValue(macroCommand, 'text, string11); else if (which = 12) then SetValue(macroCommand, 'text, string12); else if (which = 13) then SetValue(macroCommand, 'text, string13); else if (which = 14) then SetValue(macroCommand, 'text, string14); else if (which = 15) then SetValue(macroCommand, 'text, string15); else if (which = 16) then SetValue(macroCommand, 'text, string16); else if (which = 17) then SetValue(macroCommand, 'text, string17); end SCPT€   0 EVAL   ÿ Pfunc() begin local who; who := curSelection; if (who = 0) then string0 := macroCommand.text; else if (who = 1) then string1 := macroCommand.text; else if (who = 2) then string2 := macroCommand.text; else if (who = 3) then string3 := macroCommand.text; else if (who = 4) then string4 := macroCommand.text; else if (who = 5) then string5 := macroCommand.text; else if (who = 6) then string6 := macroCommand.text; else if (who = 7) then string7 := macroCommand.text; else if (who = 8) then string8 := macroCommand.text; else if (who = 9) then string9 := macroCommand.text; else if (who = 10) then string10 := macroCommand.text; else if (who = 11) then string11 := macroCommand.text; else if (who = 12) then string12 := macroCommand.text; else if (who = 13) then string13 := macroCommand.text; else if (who = 14) then string14 := macroCommand.text; else if (who = 15) then string15 := macroCommand.text; else if (who = 16) then string16 := macroCommand.text; else if (who = 17) then string17 := macroCommand.text; end SCPT   ÿfunc(theString) begin local who; who := curSelection; if (who = 0) then label0 := theString; else if (who = 1) then label1 := theString; else if (who = 2) then label2 := theString; else if (who = 3) then label3 := theString; else if (who = 4) then label4 := theString; else if (who = 5) then label5 := theString; else if (who = 6) then label6 := theString; else if (who = 7) then label7 := theString; else if (who = 8) then label8 := theString; else if (who = 9) then label9 := theString; else if (who = 10) then label10 := theString; else if (who = 11) then label11 := theString; else if (who = 12) then label12 := theString; else if (who = 13) then label13 := theString; else if (who = 14) then label14 := theString; else if (who = 15) then label15 := theString; else if (who = 16) then label16 := theString; else if (who = 17) then label17 := theString; end SCPT   Nfunc() begin curSelection := 0; end SCPT    __ntEffectÿˆ#€ NUMB€clViewconfigureMain