I just had something very strange happen. When I read a message in OLX
containing the following lines...

procedure paint(view:scrbuf;buf:index); (*Convert index values to Gfx*)
var
  i,u:integer;
begin
  u:=0;
  for i:=0 to 1999 do begin
      view^[u]:=pall[buf^[i]*2+1];
      view^[u+1]:=pall[buf^[i]*2];
      inc(u,2);
    end;
end;

... they appear as shown. But when I save them to a text file, they come
out as...

procedure paint(view:scrbuf;buf:index); (*Convert index values to Gfx*)
var
  i,u:integer;
begin
  u:=0;
  for i:=0 to 1999 do begin
      view]:=pall[buf]*2+1];
      view+1]:=pall[buf]*2];
      inc(u,2);
    end;
end;

Note how the ^ have been changed to ! WTF is going on?

Regards, FIM.

 * * Heard the joke about the sidewalk? It's all over town !
@EOT:

---