C/C++, Pascal Code for read/write will follow

(c) Rolf Peter Kolpack & Rainer Moor

Sample listing to read an LTF file in Pascal:

{---------------------------------------------------------}
Procedure read_header;
Begin
  read_header;
end;
{---------------------------------------------------------}
Procedure read_tags;
Begin
  Repeat
    TagId = read_byte;
    TagLen = read_byte;
    if TagLen=255 then Taglen := read_longint;               (DWord  in Delphi)
    Case Tagid of
       TagColorTable  :read_colortable;                      {1}
       TagHersteller  :read_manufacturer;                    {2}
       TagImageName:  :read_framename;                       {3}
       TagSetPPS      :read_pps;                             {4}
       TagImage1      :read_tagimage1;                       {10}
     Else Tag_skip_unknown
    end;
  until Tagid=TagEnd;                                        {0=End}
{---------------------------------------------------------}
Begin                                                        {Start}
  read_header;
  read_tags;
end.
{------------------------ End Pascal----------------------}