value__ntID__ntNamePstring10macro6label3viewSetupDoneScriptstring7macro14label11label8viewQuitScriptmacro3remote2SendRemoteControlCodelabel0string4macro11OpenRemoteControl viewflagsCloseRemoteControlstring12macro8datalabel5string9macro0SetMacroCommandlabel13 viewBoundsRetitleButtonsstring1 DoConfiguremacro5label2ParseAllCommandsstring6macro13label10string14 cmdRepeatlabel7macro2remote1string3macro10string11macro7label4string8ProcessCommandsviewSetupFormScriptlabel12string0label9macro4remote3delaylabel1 __ntTemplate stepChildrenstring5macro12string13macro9label6ParseCommandStrmacro1label14deviceirCodesstring2DoRemote SwitchDevicelabel15label16label17macro15macro16macro17string15string16string17  __ntDatatype __ntFlagsR1 C02 TEXT  V Wnil EVAL  V W Disc TEXT  V WNfunc() begin macro0 := Array(5, 0); macro1 := Array(5, 0); macro2 := Array(5, 0); macro3 := Array(5, 0); macro4 := Array(5, 0); macro5 := Array(5, 0); macro6 := Array(5, 0); macro7 := Array(5, 0); macro8 := Array(5, 0); macro9 := Array(5, 0); macro10 := Array(5, 0); macro11 := Array(5, 0); macro12 := Array(5, 0); macro13 := Array(5, 0); macro14 := Array(5, 0); macro15 := Array(5, 0); macro16 := Array(5, 0); macro17 := Array(5, 0); self:RetitleButtons(); self:ParseAllCommands(); end SCPT  V WR1 C11 TEXT  V Wnil EVAL  V WAlt Ch TEXT  V W Mute TEXT  V Wfunc() begin :CloseRemoteControl(data); macro0 := NIL; macro1 := NIL; macro2 := NIL; macro3 := NIL; macro4 := NIL; macro5 := NIL; macro6 := NIL; macro7 := NIL; macro8 := NIL; macro9 := NIL; macro10 := NIL; macro11 := NIL; macro12 := NIL; macro13 := NIL; macro14 := NIL; macro15 := NIL; macro16 := NIL; macro17 := NIL; end SCPT  V Wnil EVAL  V W NUMB  V W6kSendRemoteControlCodeFunc EVAL  V WSci-Fi TEXT  V WR1 C29 TEXT  V Wnil EVAL  V W.kOpenRemoteControlFunc EVAL  V W  NUMB  V W0kCloseRemoteControlFunc EVAL  V WR1 C05 TEXT  V Wnil EVAL  V Wnil EVAL  V WSofter TEXT  V WR1 C12 TEXT  V Wnil EVAL  V Wfunc(who, what) begin local where; if (who = 0) then begin where := macro0[0] + 1; if (Length(macro0) <= where) then SetLength(macro0, where + 2); macro0[where] := what; macro0[0] := where; end; else if (who = 1) then begin where := macro1[0] + 1; if (Length(macro1) <= where) then SetLength(macro1, where + 2); macro1[where] := what; macro1[0] := where; end; else if (who = 2) then begin where := macro2[0] + 1; if (Length(macro2) <= where) then SetLength(macro2, where + 2); macro2[where] := what; macro2[0] := where; end; else if (who = 3) then begin where := macro3[0] + 1; if (Length(macro3) <= where) then SetLength(macro3, where + 2); macro3[where] := what; macro3[0] := where; end; else if (who = 4) then begin where := macro4[0] + 1; if (Length(macro4) <= where) then SetLength(macro4, where + 2); macro4[where] := what; macro4[0] := where; end; else if (who = 5) then begin where := macro5[0] + 1; if (Length(macro5) <= where) then SetLength(macro5, where + 2); macro5[where] := what; macro5[0] := where; end; else if (who = 6) then begin where := macro6[0] + 1; if (Length(macro6) <= where) then SetLength(macro6, where + 2); macro6[where] := what; macro6[0] := where; end; else if (who = 7) then begin where := macro7[0] + 1; if (Length(macro7) <= where) then SetLength(macro7, where + 2); macro7[where] := what; macro7[0] := where; end; else if (who = 8) then begin where := macro8[0] + 1; if (Length(macro8) <= where) then SetLength(macro8, where + 2); macro8[where] := what; macro8[0] := where; end; else if (who = 9) then begin where := macro9[0] + 1; if (Length(macro9) <= where) then SetLength(macro9, where + 2); macro9[where] := what; macro9[0] := where; end; else if (who = 10) then begin where := macro10[0] + 1; if (Length(macro10) <= where) then SetLength(macro10, where + 2); macro10[where] := what; macro10[0] := where; end; else if (who = 11) then begin where := macro11[0] + 1; if (Length(macro11) <= where) then SetLength(macro11, where + 2); macro11[where] := what; macro11[0] := where; end; else if (who = 12) then begin where := macro12[0] + 1; if (Length(macro12) <= where) then SetLength(macro12, where + 2); macro12[where] := what; macro12[0] := where; end; else if (who = 13) then begin where := macro13[0] + 1; if (Length(macro13) <= where) then SetLength(macro13, where + 2); macro13[where] := what; macro13[0] := where; end; else if (who = 14) then begin where := macro14[0] + 1; if (Length(macro14) <= where) then SetLength(macro14, where + 2); macro14[where] := what; macro14[0] := where; end; else if (who = 15) then begin where := macro15[0] + 1; if (Length(macro15) <= where) then SetLength(macro15, where + 2); macro15[where] := what; macro15[0] := where; end; else if (who = 16) then begin where := macro16[0] + 1; if (Length(macro16) <= where) then SetLength(macro16, where + 2); macro16[where] := what; macro16[0] := where; end; else if (who = 17) then begin where := macro17[0] + 1; if (Length(macro17) <= where) then SetLength(macro17, where + 2); macro17[where] := what; macro17[0] := where; end; end SCPT  V WNBC TEXT V  W RECTlefttoprightbottomt  V Wvfunc() begin SetValue(button0, 'text, label0); SetValue(button1, 'text, label1); SetValue(button2, 'text, label2); SetValue(button3, 'text, label3); SetValue(button4, 'text, label4); SetValue(button5, 'text, label5); SetValue(button6, 'text, label6); SetValue(button7, 'text, label7); SetValue(button8, 'text, label8); SetValue(button9, 'text, label9); SetValue(button10, 'text, label10); SetValue(button11, 'text, label11); SetValue(button12, 'text, label12); SetValue(button13, 'text, label13); SetValue(button14, 'text, label14); SetValue(button15, 'text, label15); SetValue(button16, 'text, label16); SetValue(button17, 'text, label17); end SCPT  V WR1 C35 TEXT  V WTfunc() begin configureLink:Open(); end SCPT  V Wnil EVAL  V WLouder TEXT  V Wvfunc() begin self:ParseCommandStr(string0, 0); self:ParseCommandStr(string1, 1); self:ParseCommandStr(string2, 2); self:ParseCommandStr(string3, 3); self:ParseCommandStr(string4, 4); self:ParseCommandStr(string5, 5); self:ParseCommandStr(string6, 6); self:ParseCommandStr(string7, 7); self:ParseCommandStr(string8, 8); self:ParseCommandStr(string9, 9); self:ParseCommandStr(string10, 10); self:ParseCommandStr(string11, 11); self:ParseCommandStr(string12, 12); self:ParseCommandStr(string13, 13); self:ParseCommandStr(string14, 14); self:ParseCommandStr(string15, 15); self:ParseCommandStr(string16, 16); self:ParseCommandStr(string17, 17); end SCPT  V WR1 C07 TEXT  V Wnil EVAL  V WTNT TEXT  V WR1 C20 V0 TEXT  V W  NUMB  V W PBS 2 TEXT  V Wnil EVAL  V W NUMB  V WR1 C23 TEXT  V Wnil EVAL  V W R1 Ca TEXT  V Wnil EVAL  V WTLC TEXT  V W R1 V0 TEXT  V Wfunc(which) begin local nextTime; local numCommands, i, code; local rsrc; if (which = 0) then numCommands := macro0[0]; else if (which = 1) then numCommands := macro1[0]; else if (which = 2) then numCommands := macro2[0]; else if (which = 3) then numCommands := macro3[0]; else if (which = 4) then numCommands := macro4[0]; else if (which = 5) then numCommands := macro5[0]; else if (which = 6) then numCommands := macro6[0]; else if (which = 7) then numCommands := macro7[0]; else if (which = 8) then numCommands := macro8[0]; else if (which = 9) then numCommands := macro9[0]; else if (which = 10) then numCommands := macro10[0]; else if (which = 11) then numCommands := macro11[0]; else if (which = 12) then numCommands := macro12[0]; else if (which = 13) then numCommands := macro13[0]; else if (which = 14) then numCommands := macro14[0]; else if (which = 15) then numCommands := macro15[0]; else if (which = 16) then numCommands := macro16[0]; else if (which = 17) then numCommands := macro17[0]; for i := 1 to numCommands do begin if (which = 0) then code := macro0[i]; else if (which = 1) then code := macro1[i]; else if (which = 2) then code := macro2[i]; else if (which = 3) then code := macro3[i]; else if (which = 4) then code := macro4[i]; else if (which = 5) then code := macro5[i]; else if (which = 6) then code := macro6[i]; else if (which = 7) then code := macro7[i]; else if (which = 8) then code := macro8[i]; else if (which = 9) then code := macro9[i]; else if (which = 10) then code := macro10[i]; else if (which = 11) then code := macro11[i]; else if (which = 12) then code := macro12[i]; else if (which = 13) then code := macro13[i]; else if (which = 14) then code := macro14[i]; else if (which = 15) then code := macro15[i]; else if (which = 16) then code := macro16[i]; else if (which = 17) then code := macro17[i]; if (code) then begin if (code > 100) then begin if (code = kSwitchRemote1) then self:SwitchDevice(remote1); else if (code = kSwitchRemote2) then self:SwitchDevice(remote2); else if (code = kSwitchRemote3) then self:SwitchDevice(remote3); else if (code = kSwitchRemote4) then self:SwitchDevice(remote4); else if (code > 1000) then begin nextTime := Ticks() + ((code - 1000) * 60); while (Ticks() < nextTime) do begin end; end; end; else begin if (device = kMagnavoxTV) then rsrc := irCodes.magnavoxtv[code]; else if (device = kEmersonVCR) then rsrc := irCodes.emersonvcr[code]; else if (device = kMitsubishiTV) then rsrc := irCodes.mitsubistv[code]; else if (device = kSonyTV) then rsrc := irCodes.sonytv[code]; if (rsrc) then :SendRemoteControlCode(data, rsrc, cmdRepeat); nextTime := Ticks() + delay; while (Ticks() < nextTime) do begin end; end; end; end; end SCPT  V Wdfunc() begin data := :OpenRemoteControl(); end SCPT  V WABC TEXT  V WR1 C36 TEXT  V WComedy TEXT  V Wnil EVAL  V W NUMB  V W  NUMB  V WMTV TEXT  V W PROT@ V  W ARAY >    =  viewFormat   V W( CLAS@ V  NUMB V  W NUMB V  RECT clView blackBackground    __ntDeclare = textbuttonPressedScript  V W PROT@ V  W RECT $54 V  W TEXTSci-Fi  V Wdfunc() begin :Parent():ProcessCommands(0); end SCPTprotoTextButtonbutton0      =     V W PROT@ V  RECT $;5k V  W TEXTMTV  V Wdfunc() begin :Parent():ProcessCommands(1); end SCPT  button1      =     V W PROT@ V  RECT $r5 V  W TEXTLouder  V Wdfunc() begin :Parent():ProcessCommands(2); end SCPT  button2      =     V W PROT@ V  RECT =N4 V  W TEXTTLC  V Wdfunc() begin :Parent():ProcessCommands(3); end SCPT  button3      =     V W PROT@ V  RECT =;Nk V  W TEXT Disc  V Wdfunc() begin :Parent():ProcessCommands(4); end SCPT  button4      =     V W PROT@ V  RECT =rN V  W TEXTSofter  V Wdfunc() begin :Parent():ProcessCommands(5); end SCPT  button5      =     V W PROT@ V  RECT Vg4 V  W TEXT PBS 1  V Wdfunc() begin :Parent():ProcessCommands(6); end SCPT  button6      =     V W PROT@ V  RECT V;gk V  W TEXT PBS 2  V Wdfunc() begin :Parent():ProcessCommands(7); end SCPT  button7      =     V W PROT@ V  RECT Vrg V  W TEXT Mute  V Wdfunc() begin :Parent():ProcessCommands(8); end SCPT  button8      =     V W PROT@ V  RECT o4 V  W TEXTComedy  V Wdfunc() begin :Parent():ProcessCommands(9); end SCPT  button9      =     V W PROT@ V  RECT o;k V  W TEXTTNT  V Wffunc() begin :Parent():ProcessCommands(10); end SCPT  button10      =     V W PROT@ V  RECT or V  W TEXTPreview  V Wffunc() begin :Parent():ProcessCommands(11); end SCPT  button11      =     V W PROT@ V  RECT 4 V  W TEXTABC  V Wffunc() begin :Parent():ProcessCommands(12); end SCPT  button12      =     V W PROT@ V  RECT ;k V  W TEXTNBC  V Wffunc() begin :Parent():ProcessCommands(13); end SCPT  button13      =     V W PROT@ V  RECT r V  W TEXT Power  V Wffunc() begin :Parent():ProcessCommands(14); end SCPT  button14      =     V W PROT@ V  RECT 4 V  W TEXTABC  V Wffunc() begin :Parent():ProcessCommands(15); end SCPT  button15      =     V W PROT@ V  RECT ;k V  W TEXTNBC  V Wffunc() begin :Parent():ProcessCommands(16); end SCPT  button16      =     V W PROT@ V  RECT r V  W TEXT Power  V Wffunc() begin :Parent():ProcessCommands(17); end SCPT  button17     = buttonClickScript   V W PROT@ V  W TEXTDefine V  W SCPTZfunc() begin :Parent():DoConfigure(); end V  RECT ?  configButton    =     V W PROT@ V  W TEXT? V  SCPT"func() begin end V  RECT   helpButton    =     V W PROT@ V  W TEXTRemote V  W SCPTTfunc() begin :Parent():DoRemote(); end V  RECT Fs  remoteButton   W__ntExternFile   =   V WntLinkedSubview PROT@ V  RECT Ɵ LinkedSubview FSSpecJinjurBDG Configure.t˧bFLFMNTP1TV Pad  G= stringLength) then mode := 'nextCmd; else begin aChar := SubStr(theString, count, 1); if ((StrCompare(aChar, "0") <> 0) AND (StrCompare(aChar, "1") <> 0) AND (StrCompare(aChar, "2") <> 0) AND (StrCompare(aChar, "3") <> 0) AND (StrCompare(aChar, "4") <> 0) AND (StrCompare(aChar, "5") <> 0) AND (StrCompare(aChar, "6") <> 0) AND (StrCompare(aChar, "7") <> 0) AND (StrCompare(aChar, "8") <> 0) AND (StrCompare(aChar, "9") <> 0)) then mode := 'nextCmd; end; if ((mode = 'nextCmd) AND (thisDelay <> 0)) then begin self:SetMacroCommand(which, thisDelay + 1000); thisDelay := 0; end; end; end; end SCPT  V Wnil EVAL  V WPreview TEXT  V W NUMB  V Wb{ magnavoxtv:[magTCh0, magTCh1, magTCh2, magTCh3, magTCh4, magTCh5, magTCh6, magTCh7, magTCh8, magTCh9, magTChPlus, magTChMinus, magTLouder, magTSofter, magTMute, nil, nil, nil, nil, nil, nil, magTPower, nil, magTAltCh], emersonvcr:[emrCh0, emrCh1, emrCh2, emrCh3, emrCh4, emrCh5, emrCh6, emrCh7, emrCh8, emrCh9, emrChPlus, emrChMinus, nil, nil, nil, emrRew, emrPlay, emrFF, emrStop, emrPause, emrRecord, emrPower, emrTVCR, nil], mitsubistv:[mitTCh0, mitTCh1, mitTCh2, mitTCh3, mitTCh4, mitTCh5, mitTCh6, mitTCh7, mitTCh8, mitTCh9, mitTChPlus, mitTChMinus, mitTLouder, mitTSofter, mitTMute, nil, nil, nil, nil, nil, nil, mitTPower, nil, mitTAltCh], sonytv: [sonyTCh0, sonyTCh1, sonyTCh2, sonyTCh3, sonyTCh4, sonyTCh5, sonyTCh6, sonyTCh7, sonyTCh8, sonyTCh9, sonyTChPlus, sonyTChMinus, sonyTLouder, sonyTSofter, sonyTMute, nil, nil, nil, nil, nil, nil, sonyTPower, nil, nil], }  EVAL  V W R1 V+ TEXT  V WNfunc() begin remoteLink:Open(); end SCPT  V Wfunc(new) begin if (new = kEmersonVCR) then cmdRepeat := 2; else cmdRepeat := 3; device := new; end SCPT  V W Text TEXT  V Text TEXT  V W Power TEXT  V Wnil EVAL  V Wnil EVAL  V Wnil EVAL  V WR1 C35 TEXT  V WR1 C35 TEXT  V WR1 Mp R2 Mp TEXT protoFloatNGoappMain