externalintegerfnspec  bin(string (255) s)


externalroutine  rdint silent(integername  i, stringname  atom)
integer  ch
string (255) wk

on  event  9 start 
   i=25; atom=""
   return 
finish 

   wk=""
   cycle 
      readsymbol(ch)
      if  ch=' ' or  ch=nl start 
         if  wk#"" then  exit  else  continue 
      finish 
      wk=wk.tostring(ch)
   repeat 
      
   i=bin(wk)
   atom=wk
end  {read silent}
endoffile