system radio global s0 sir prog progg vol volg reg[18] exec station 1/initpar/run ------------------------------ process station begin )ianalog :loop ( 0 )analog *7 >>12 ->prog )col.show ( 1 )analog >>8 ->vol A:loop load from(std.mpo) *ianalog *analog *mult load from(col.mpo) *col.show \ --------------------------------- process initpar dtinit = 80000000 begin 8 ->progg )radio.initpar dtinit wait 1 ->sir A:here load from (radio.mpo) *radio.initpar \ ---------------------------------- process run freqs = 900,940,982,948,1023,1042,1069 -- freqs = 899,931,972,1033,1057 progi voli begin ( 13 , 12 , )radio.init ( 4 )radio.setvol ( prog [] freqs )radio.setfreq :loop prog ->progi if(progi -progg #0){ ( progi [] freqs )radio.setfreq } progi ->progg vol ->voli if(voli -volg #0){ ( voli )radio.setvol } voli ->volg A:loop load from(radio.mpo) *radio.init *radio.setfreq *radio.setvol \