mp.lang.pascal.misc:206   
   From: Bart    
      
   Op Mon, 09 Jan 2012 15:50:53 +0000 schreef Robert AH Prins   
   :   
      
      
   >repeat   
   >   if list_ptr^.cday[3] = '#' then    <--- 216   
   >     _hash_tr:= pred(list_ptr^.tr);   
   >   
   >   list_ptr:= list_ptr^.list_nxt;   
   >until (_hash_tr <> maxint) or   
   >       (list_ptr  = nil);   
   >   
      
   RTE 216 = GPF I think?   
   if list_ptr = nil on entry the code will crash   
      
     if (list_ptr <> nil) and (list_ptr^.cday[3] = '#') then    
       _hash_tr:= pred(list_ptr^.tr)   
     else writeln('lsit_ptr = nil'); //debug    
      
   See what that comes up with?   
      
   Bart   
      
   --    
   Bart Broersma   
   broersma.juda_ANTISPAM_@tiscali.nl   
   (ff _ANTISPAM_ wegpoetsen uit dit adres natuurlijk)   
      
   --- Internet Rex 2.31   
    * Origin: The gateway at Omicron Theta (1:261/20.999)