From: charlesappel@mindspring.com   
      
   program Untitled;   
   uses crt;   
      
   var   
     i: integer;   
     s: string[255];   
     r: extended;   
      
   begin   
     readln(s);   
     val(s, r, i);   
     writeln('r = ', r:8:8);   
     readln;   
   end.   
      
   Input: 123.45   
   Output: r = 123.45000000   
      
   Tested in Delphi 5 and Free Pascal.   
      
   --   
   Charles Appel   
   "A generation which ignores history has no past - and no future."   
         Robert Anson Heinlein   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)