//------------------------------------------------------------------------------- // Constants //------------------------------------------------------------------------------- constant kMagnavoxTV := 0; constant kEmersonVCR := 1; constant kMitsubishiTV := 2; constant kSonyTV := 3; //------------------------------------------------------------------------------- // Command Constants //------------------------------------------------------------------------------- constant kCh0:= 0; constant kCh1:= 1; constant kCh2:= 2; constant kCh3:= 3; constant kCh4:= 4; constant kCh5:= 5; constant kCh6:= 6; constant kCh7:= 7; constant kCh8:= 8; constant kCh9:= 9; constant kChPlus:= 10; constant kChMinus:= 11; constant kLouder:= 12; constant kSofter:= 13; constant kMute:= 14; constant kRewind := 15; constant kPlay:= 16; constant kForward := 17; constant kStop := 18; constant kPause := 19; constant kRecord := 20; constant kPower := 21; constant kTVCR := 22; constant kAltCh := 23; constant kSwitchRemote1 := 101; constant kSwitchRemote2 := 102; constant kSwitchRemote3 := 103; constant kSwitchRemote4 := 104; //------------------------------------------------------------------------------- // Magnavox Resources //------------------------------------------------------------------------------- rf := OpenResFileX(Home & "Magnavox.rsrc"); magTCh0 := GetNamedResource("IRCD", "MagTCh0", 'resource); magTCh1 := GetNamedResource("IRCD", "MagTCh1", 'resource); magTCh2 := GetNamedResource("IRCD", "MagTCh2", 'resource); magTCh3 := GetNamedResource("IRCD", "MagTCh3", 'resource); magTCh4 := GetNamedResource("IRCD", "MagTCh4", 'resource); magTCh5 := GetNamedResource("IRCD", "MagTCh5", 'resource); magTCh6 := GetNamedResource("IRCD", "MagTCh6", 'resource); magTCh7 := GetNamedResource("IRCD", "MagTCh7", 'resource); magTCh8 := GetNamedResource("IRCD", "MagTCh8", 'resource); magTCh9 := GetNamedResource("IRCD", "MagTCh9", 'resource); magTChPlus := GetNamedResource("IRCD", "MagTChUp", 'resource); magTChMinus := GetNamedResource("IRCD", "MagTChDn", 'resource); magTLouder := GetNamedResource("IRCD", "MagTVolUp", 'resource); magTSofter := GetNamedResource("IRCD", "MagTVolDn", 'resource); magTMute := GetNamedResource("IRCD", "MagTMute", 'resource); magTPower := GetNamedResource("IRCD", "MagTPower", 'resource); magTAltCh := GetNamedResource("IRCD", "MagTAltCh", 'resource); CloseResFileX(rf); //------------------------------------------------------------------------------- // Emerson Resources //------------------------------------------------------------------------------- rf := OpenResFileX(Home & "Emerson.rsrc"); emrCh0 := GetNamedResource("IRCD", "EmCh0", 'resource); emrCh1 := GetNamedResource("IRCD", "EmCh1", 'resource); emrCh2 := GetNamedResource("IRCD", "EmCh2", 'resource); emrCh3 := GetNamedResource("IRCD", "EmCh3", 'resource); emrCh4 := GetNamedResource("IRCD", "EmCh4", 'resource); emrCh5 := GetNamedResource("IRCD", "EmCh5", 'resource); emrCh6 := GetNamedResource("IRCD", "EmCh6", 'resource); emrCh7 := GetNamedResource("IRCD", "EmCh7", 'resource); emrCh8 := GetNamedResource("IRCD", "EmCh8", 'resource); emrCh9 := GetNamedResource("IRCD", "EmCh9", 'resource); emrChPlus := GetNamedResource("IRCD", "EmChUp", 'resource); emrChMinus := GetNamedResource("IRCD", "EmChDn", 'resource); emrPower := GetNamedResource("IRCD", "EmPower", 'resource); emrRew := GetNamedResource("IRCD", "EmRew", 'resource); emrPlay := GetNamedResource("IRCD", "EmPlay", 'resource); emrFF := GetNamedResource("IRCD", "EmFF", 'resource); emrStop := GetNamedResource("IRCD", "EmStop", 'resource); emrPause := GetNamedResource("IRCD", "EmPause", 'resource); emrRecord := GetNamedResource("IRCD", "EmRecord", 'resource); emrTVCR := GetNamedResource("IRCD", "EmTVCR", 'resource); CloseResFileX(rf); //------------------------------------------------------------------------------- // Mitsubishi TV Resources //------------------------------------------------------------------------------- rf := OpenResFileX(Home & "Mitsubishi.rsrc"); mitTCh0 := GetNamedResource("IRCD", "MitsCh0", 'resource); mitTCh1 := GetNamedResource("IRCD", "MitsCh1", 'resource); mitTCh2 := GetNamedResource("IRCD", "MitsCh2", 'resource); mitTCh3 := GetNamedResource("IRCD", "MitsCh3", 'resource); mitTCh4 := GetNamedResource("IRCD", "MitsCh4", 'resource); mitTCh5 := GetNamedResource("IRCD", "MitsCh5", 'resource); mitTCh6 := GetNamedResource("IRCD", "MitsCh6", 'resource); mitTCh7 := GetNamedResource("IRCD", "MitsCh7", 'resource); mitTCh8 := GetNamedResource("IRCD", "MitsCh8", 'resource); mitTCh9 := GetNamedResource("IRCD", "MitsCh9", 'resource); mitTChPlus := GetNamedResource("IRCD", "MitsChUp", 'resource); mitTChMinus := GetNamedResource("IRCD", "MitsChDn", 'resource); mitTLouder := GetNamedResource("IRCD", "MitsLouder", 'resource); mitTSofter := GetNamedResource("IRCD", "MitsSofter", 'resource); mitTMute := GetNamedResource("IRCD", "MitsMute", 'resource); mitTPower := GetNamedResource("IRCD", "MitsPower", 'resource); mitTAltCh := GetNamedResource("IRCD", "MitsAltCh", 'resource); CloseResFileX(rf); //------------------------------------------------------------------------------- // Sony TV Resources //------------------------------------------------------------------------------- rf := OpenResFileX(Home & "SonyTV.rsrc"); sonyTCh0 := GetNamedResource("IRCD", "SonyTV0", 'resource); sonyTCh1 := GetNamedResource("IRCD", "SonyTV1", 'resource); sonyTCh2 := GetNamedResource("IRCD", "SonyTV2", 'resource); sonyTCh3 := GetNamedResource("IRCD", "SonyTV3", 'resource); sonyTCh4 := GetNamedResource("IRCD", "SonyTV4", 'resource); sonyTCh5 := GetNamedResource("IRCD", "SonyTV5", 'resource); sonyTCh6 := GetNamedResource("IRCD", "SonyTV6", 'resource); sonyTCh7 := GetNamedResource("IRCD", "SonyTV7", 'resource); sonyTCh8 := GetNamedResource("IRCD", "SonyTV8", 'resource); sonyTCh9 := GetNamedResource("IRCD", "SonyTV9", 'resource); sonyTChPlus := GetNamedResource("IRCD", "SonyTVchUp", 'resource); sonyTChMinus := GetNamedResource("IRCD", "SonyTVchDown", 'resource); sonyTLouder := GetNamedResource("IRCD", "SonyTVvolUp", 'resource); sonyTSofter := GetNamedResource("IRCD", "SonyTVvolDown", 'resource); sonyTMute := GetNamedResource("IRCD", "SonyTVmute", 'resource); sonyTPower := GetNamedResource("IRCD", "SonyTVpowerToggle", 'resource); CloseResFileX(rf);