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