(* sample program for Cats library *)

(* Copyright (C) 1999,2000 Jim Hall <jhall1@isd.net> *)
(* Translated to Pascal by Aitor Santamaria_Merino <aitor.sm@terra.es> *)

PROGRAM Cats;

USES
    PCatGets;


VAR
   s    : string;
   catd : nl_catd;

BEGIN

  (* open the language catalog *)

  WriteLn ('** You will also need to set NLSPATH to the location of the catalog');
  WriteLn ('** files, and LANG to the 2-letter country abbreviation that you use.');

  catd := catopen ('.\cats', 1);

  (* print strings from the catalog *)

  WriteLn ('Samples from using catgets:');

  s := catgets (catd, 1, 0, '');
  WriteLn (s);

  s := catgets (catd, 1, 1, 'this is a test');
  WriteLn (s);

  (* close the language catalog *)

  catclose (catd);

  (* done *)

END.