# IR Codes for Austar "Atlas" STB (manufacturer: Advanced Digital Broadcast)

source /tvlib/tcl/tv/mfslib.tcl

proc setIr { irObj field irSequence } {
    
    set savedInitial 0

    foreach irPart $irSequence {

        if {$savedInitial == 0} {
            set savedInitial 1
            dbobj $irObj set $field $irPart
        } else {
            dbobj $irObj add $field $irPart
        }

    }
}


proc atlas {} {

    set db [dbopen]

    puts "Setting Austar Atlas codes for TiVo 30001..."

    RetryTransaction {

        set tivoir [db $db open /Component/Ir/TivoFormat/30001]

        setIr $tivoir "Dig0" "0 55 0 18 21 15 8 15 8 35 8 15 8 15 8 44 8 35 8 15 8 15 8 15 8 35 8 24 8 35 8 15 8 15 8 15 8 15 8 4940"
        setIr $tivoir "Dig1" "0 55 0 18 21 17 8 17 8 35 8 17 8 17 8 44 8 35 8 17 8 17 8 17 8 35 8 24 8 35 8 17 8 17 8 17 8 24 8 4940"
        setIr $tivoir "Dig2" "0 55 0 18 21 17 8 17 8 35 8 17 8 17 8 44 8 35 8 17 8 17 8 35 8 35 8 24 8 35 8 17 8 17 8 17 8 35 8 4820"
        setIr $tivoir "Dig3" "0 55 0 18 21 15 8 15 8 35 8 15 8 15 8 44 8 35 8 15 8 15 8 15 8 35 8 26 8 35 8 15 8 15 8 15 8 44 8 4820"
        setIr $tivoir "Dig4" "0 55 0 18 21 17 8 17 8 35 8 17 8 17 8 44 8 35 8 17 8 17 8 35 8 35 8 24 8 35 8 17 8 17 8 24 8 17 8 4820"
        setIr $tivoir "Dig5" "0 55 0 18 21 15 8 15 8 35 8 15 8 15 8 44 8 35 8 15 8 15 8 15 8 35 8 24 8 35 8 15 8 15 8 24 8 24 8 4820"
        setIr $tivoir "Dig6" "0 55 0 18 21 15 8 15 8 35 8 15 8 15 8 44 8 35 8 15 8 15 8 35 8 35 8 24 8 35 8 15 8 15 8 24 8 35 8 4820"
        setIr $tivoir "Dig7" "0 55 0 17 21 17 8 17 8 35 8 17 8 17 8 44 8 35 8 17 8 17 8 17 8 35 8 24 8 35 8 17 8 17 8 24 8 44 8 4820"
        setIr $tivoir "Dig8" "0 55 0 18 21 17 8 17 8 35 8 17 8 17 8 44 8 35 8 17 8 17 8 17 8 35 8 24 8 35 8 17 8 17 8 35 8 17 8 4820"
        setIr $tivoir "Dig9" "0 55 0 18 21 17 8 17 8 35 8 17 8 17 8 44 8 35 8 17 8 17 8 35 8 35 8 24 8 35 8 17 8 17 8 35 8 24 8 4820"
        setIr $tivoir "Enter" "0 55 0 17 21 15 8 17 8 35 8 15 8 15 8 44 8 35 8 15 8 15 8 35 8 35 8 24 8 35 8 24 8 24 8 44 8 15 8 4820"
    }

    puts "Finished! Reboot your TiVo for the new codes to take effect."

    dbclose $db

}