GetInt=proc (s:stream) returns (int)
  w:string := ""
  while ~stream$empty(s) do
    c:char := stream$peekc(s)           % kiolvasunk egy karaktert, de nem
                                        % toroljuk!
    if c<'0' cor c>'9' then break end   % az osszes szamjegyet megtalaltuk...
    w:=w||string$c2s(c)                 % c konvertalasa string-e, ‚s konkat
    stream$getc(s)                      % a karakter torlese a fajlbol
  end
  if w="" then return (0) end
  return (int$parse(w))                 % a string konvertalasa egessze
end GetInt