procedure sa vin vout start end
type series vin *vout
type integer start end
set vout start end = vin(t) + vin(t-1) + vin(t-2) + vin(t-3) + vin(t-4) + vin(t-5) + vin(t-6)
set vout start end = vout(t) + vin(t-7) + vin(t-8) + vin(t-9) + vin(t-10) + vin(t-11)
set vout start end = vout(t)/12.0
end