From: mike@blackcat.demon.co.uk   
      
   In article  assemblywizard@gmail.com   
   wrote...   
      
   > PROCEDURE cleararray;   
   >    BEGIN   
   >       r := 1;   
   >       c := 1;   
   >       x := 0;   
   >       while r < 4 do   
   >          BEGIN   
   >             while c < 4 do   
   >                BEGIN   
   >                   t[r,c] := x;   
   >                   c := c+1;   
   >                END;   
   >             c := 1;   
   >             r := r+1;   
   >          END;   
   >    END;   
      
   *Christ* you write ugly code....   
      
   Mike Dickson, Edinburgh, Scotland   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)