' default.cr1 -- power radio 5 min per hour or hold it on
public battVolt
public dim radioHold as boolean
beginprog
    radioHold = 1
    SW12(1)
    scan(1,min,0,0)
        if TimeIntoInterval(25,60,min) then SW12(1)
        battery(battVolt)
        if TimeIntoInterval(30,60,min) then
            if NOT radioHold then SW12(0)
            if radioHold AND( battVolt < 12 ) then radioHold = 0
        endif
    nextscan
endprog