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)