From: invalid@invalid.invalid   
      
   Hi,   
      
   here I type some lines of code.   
   They are not yet ready to be compiled.   
   But I'm sure you'll get it to work.   
      
   const   
     Grid = 'GRID';   
   var   
     s : String;   
     p : Integer;   
     r1, r2, r3 : extended;   
      
   readln(Textfile, s);   
   p := Pos(Grid, s);   
   if p > 0 then   
     begin   
       s := Copy(s, p + length(Grid), length(s));   
       val(s, r1, p);   
       if p > 0 then   
         begin   
           s := Copy(s, p, length(s));   
           val(s, r2, p);   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)