!
! 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