! ! program settime (source fep*_settimes) ! Prompts for the time and sends a pon to commy ! control k'100401' begin recordformat pef(byteinteger ser, reply, integer a,b,c) externalroutinespec pon(record (pef) name p) ownrecord (pef) p owninteger h,m constbyteintegername own id==k'160030' constinteger T3 SER=21 cycle prompt("Please type in the time (hh mm):") read(h); if 0<= h <=23 start read(m) if 0<=m<=59 then exit finish while nextsymbol<>NL cycle ; skipsymbol; repeat skipsymbol repeat p_ser=T3 SER p_reply=own id p_a=-1; !set time p_b=h*60+m pon(p) endofprogram