(* automatically created module -- do not edit *)
(* created by CD2Modula which is (C) 1993 Thilo Stöferle *)
IMPLEMENTATION MODULE GenStrs;

IMPORT	l:LocaleD,
	L:OptLocaleL,
	sys:SYSTEM,
	R;

TYPE
  StrsArray	= ARRAY AppStrs OF sys.ADDRESS;
  TransTable	= ARRAY AppStrs OF LONGINT;

CONST
  IDTable	= TransTable{0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94};

VAR
  Strings	:= StrsArray{
    sys.ADR("%s V%s (%s)\n%s\n\n"),
    sys.ADR("%s V%s (%s)\n%s\n\n"),
    sys.ADR("Select GUI file"),
    sys.ADR("Select output name"),
    sys.ADR("Select CD file"),
    sys.ADR("OK"),
    sys.ADR("*** Break"),
    sys.ADR("Awaiting your orders, Captain!"),
    sys.ADR("Generating Modula2 source..."),
    sys.ADR("Done -- no errors"),
    sys.ADR("Created %s successfully"),
    sys.ADR("Opened %s successfully"),
    sys.ADR("Writing header..."),
    sys.ADR("Writing gadget IDs..."),
    sys.ADR("Writing global consts..."),
    sys.ADR("Writing global vars..."),
    sys.ADR("Writing mx/cycle labels..."),
    sys.ADR("Writing listview lists..."),
    sys.ADR("Writing textattr..."),
    sys.ADR("Writing intuitexts..."),
    sys.ADR("Writing menus..."),
    sys.ADR("Writing gadget types..."),
    sys.ADR("Writing gadget arrays..."),
    sys.ADR("Writing gadget tags..."),
    sys.ADR("Writing screen tags..."),
    sys.ADR("Writing misc code..."),
    sys.ADR("Writing font-adapt code..."),
    sys.ADR("Writing screen setup..."),
    sys.ADR("Writing screen cleanup..."),
    sys.ADR("Writing render projects..."),
    sys.ADR("Writing open projects..."),
    sys.ADR("Writing close projects..."),
    sys.ADR("Writing module ending..."),
    sys.ADR("ERROR: %s !!"),
    sys.ADR("GenModula Red Alert"),
    sys.ADR("Required argument missing"),
    sys.ADR("%s read error"),
    sys.ADR("%s write error"),
    sys.ADR("Cannot open %s"),
    sys.ADR("Cannot create %s"),
    sys.ADR("No GUI file specified"),
    sys.ADR("Cannot create output module"),
    sys.ADR("Cannot create cd file"),
    sys.ADR("Not enough memory"),
    sys.ADR("IFFParse error in %s"),
    sys.ADR("Failed to decrunch %s"),
    sys.ADR("Unable to open powerpacker.library"),
    sys.ADR("%s not a GTB .gui file"),
    sys.ADR("Scotty reports an unknown error"),
    sys.ADR("GUI needs screen info"),
    sys.ADR("GUI needs configuration info"),
    sys.ADR("GUI needs C source configuration info"),
    sys.ADR("GUI needs window list"),
    sys.ADR("Unable to lock public screen"),
    sys.ADR("Unable to open screen font"),
    sys.ADR("Unable to create GetFile image class"),
    sys.ADR("Unable to create GetFile image object"),
    sys.ADR("Unable to create gadgets"),
    sys.ADR("Unable to create menu"),
    sys.ADR("Cannot open window"),
    sys.ADR("Unable to open window font"),
    sys.ADR("Label to ID"),
    sys.ADR("msg_Text to ID"),
    sys.ADR("Project"),
    sys.ADR("Start"),
    sys.ADR("About..."),
    sys.ADR("?"),
    sys.ADR("Quit"),
    sys.ADR("_Mode"),
    sys.ADR("_Localize"),
    sys.ADR("G_enerate CD"),
    sys.ADR("Status"),
    sys.ADR("_Start Generation"),
    sys.ADR("_Quit"),
    sys.ADR("_GUI File"),
    sys.ADR("_Output Name"),
    sys.ADR("Module _Name"),
    sys.ADR("_CD File"),
    sys.ADR("M"),
    sys.ADR("L"),
    sys.ADR("E"),
    sys.ADR("Initializing."),
    sys.ADR("S"),
    sys.ADR("Q"),
    sys.ADR("G"),
    sys.ADR("O"),
    sys.ADR("N"),
    sys.ADR("C"),
    sys.ADR("Input/Output Files"),
    sys.ADR("Localization"),
    sys.ADR("Control"),
    sys.ADR("Input/Output Files"),
    sys.ADR("Localization"),
    sys.ADR("Control"),
    sys.ADR("GenModula")
  };

VAR
  MyCat	: l.CatalogPtr;
  Count	: AppStrs;

PROCEDURE GetStr(s{R.D2}:AppStrs):sys.ADDRESS;
  BEGIN
    RETURN(Strings[s]);
  END GetStr;

BEGIN
  IF (L.localeBase # NIL) THEN
    MyCat := L.OpenCatalogA(NIL,sys.ADR("GenModula.catalog"),NIL);
    IF (MyCat # NIL) THEN
      FOR Count := MIN(AppStrs) TO MAX(AppStrs) DO
        Strings[Count] := L.GetCatalogStr(MyCat,IDTable[Count],Strings[Count]);
      END;
    END;
  END;
CLOSE
  IF (MyCat # NIL) THEN
    L.CloseCatalog(MyCat);
    MyCat := NIL;
  END;
END GenStrs.