[mikewarot]

Here's the same code in pascal.

    function getnum(var s : string):integer;
    var
      c : char;
      value : integer;
    begin
      value := 0;
      while (length(s) <> 0) and NOT(s[1] in ['0'..'9']) do
        delete(s,1,1);
      while (length(s) <> 0) and (s[1] in ['0'..'9']) do
      begin
        value := value * 10 + (ord(s[1])-ord('0'));
        delete(s,1,1);
      end;
      getnum := value;
    end;