(*
  .name       StrPool
  .task       string module
  .release    1.0
  .language   Oberon-2
  .translator Amiga Oberon 3.2
  .system     AmigaOS 2.04/2.1/3.0
  .author     Joachim Barheine
  .address    Hochgrevestraße 3, D-38640 Goslar
  .copyright  (c) 1995 by Joachim Barheine
*)

(* .info: 19/03/95, 14:33:27, version 78 *)

(* $TypeChk- *)
(* $StackChk- $RangeChk- $OvflChk- $NilChk- *)

MODULE StrPool;

IMPORT
  SYS:= SYSTEM,

  Exec,
  Loc:= Locale,
  U:= Utility;

CONST
  yesD = "Ja";
  noD = "Nein";

  aOkD = "_OK";
  aCancelD = "_Abbrechen";
  aYesD = "_Ja";
  aNoD = "_Nein";

  (* Fenstertitel Meldungen *)

  openingD = "Öffnen ...";
  quittingD = "Beenden ...";
  savingD = "Speichern ...";
  replacingD = "Ersetzen ...";
  searchingD = "Suchen ...";
  insertingD = "Einfügen ...";
  undoingD = "Rückgängig ...";
  redoingD = "Nochmal ...";
  cuttingD = "Ausschneiden ...";
  copyingD = "Kopieren ...";
  pastingD = "Einfügen ...";
  savingClipD = "Ausschnitt speichern ...";
  autoSavingD = "Autosave ...";
  printingD = "Drucken ...";
  printingClipD = "Ausschnitt drucken ...";
  openingAllFoldsD = "alle Falten öffnen ...";
  closingAllFoldsD = "alle Falten schließen ...";
  resolvingAllFoldsD = "alle Falten auflösen ...";

  insertOnD = "<EINF>";
  insertOffD = "<ÜBRS>";
  wordWrapOnD = " <WORTUMBR>";
  recordingD = " <AUFNAHME>";
  unnamedND = "Ohne_Namen%lD.txt";

  (* EasyRequest-Buttons *)

  okD = "OK";
  cancelD = "Abbrechen";
  continueD = "Weiter";
  retryCancelD= "Nochmal versuchen|Abbrechen";
  retryQuitD = "Nochmal versuchen|Beenden";
  okCancelD = "OK|Abbrechen";
  okNoD = "OK|Nein";
  saveSaveAsNoD = "Speichern|Speichern als|Nicht Speichern";
  saveSaveAsNoCancelD = "Speichern|Speichern als|Nicht Speichern|Abbrechen";
  quitSaveCancelD = "Beenden|Speichern|Abbrechen";
  quitSaveD = "Beenden|Speichern";

  (* Suchen/Ersetzen *)

  searchTitleD = "Suchen";
  replaceTitleD = "Suchen und Ersetzen";
  searchD = "S_uchen:";
  replaceD = "Erse_tzen:";
  aSearchD = "_Suchen";
  aSearchBackD = "_Rückwärts Suchen";
  aReplaceD = "_Ersetzen";
  aReplaceBackD = "_Rückwärts Ersetzen";
  ignoreCaseD = "_Groß = klein";
  findWordD = "_Wort suchen";
  linkChgsD = "_Verbinden";

  replaceReqD = "Ersetzen?";
  aAllD = "_Alle";
  aStopD = "_Beenden";

  gotoTitleD = "Gehen zu";
  lineD = "Zeile:";

  (* Drucken *)

  printTitleD = "Drucken";
  leftMarginD = "_Linker Rand:";
  rightMarginD = "_Rechter Rand:";
  linesD = "_Papierlänge:";
  colSpacingD = "Ab_stand:";
  pitchD = "_Druckdichte:";
  pitchLabelsD = "Pica (10 cpi)|Elite (12 cpi)|Eng (15-17 cpi)|Drucker";
  spacingD = "_Zeilendichte:";
  spacingLabelsD = "6 Zeilen/Zoll|8 Zeilen/Zoll";
  qualityD = "Druck_qualität:";
  qualityLabelsD = "Entwurf|Brief";
  formattingD = "_Formatierung:";
  formattingLabelsD = "AUS|2 Spalten|3 Spalten";
  lineNumbersD = "Zeilen_nummern";
  hTitleD = "T_itel";
  hNumbersD = "Seitenza_hl";
  hDateD = "Dat_um";
  hTimeD = "Zei_t";

  macroTitleD = "Makro aufzeichnen";
  macroLabelD = "Aufzeichnen";
  macroOptionsD = "Mausaktionen|Texteingaben|ARexx-Befehlszeilen|ARexx-Programmaufrufe|Änderungen zusammenfassen";

  (* Preferences *)

  displayPrefsTitleD = "Einstellungen: Darstellung";
  sTypeD = "_Schirmtyp:";
  sTypeLabelsD = "Workbench|Öffentlicher Schirm|Eigener Schirm";
  sNameD = "Schirm_name:";
  sModeNameD = "Anzeige_modus:";
  fontNameD = "_Zeichensatz:";
  selectFontTitleD = "Zeichensatz";
  foldHeaderD = "_Faltenkopf:";
  foldHeaderLabelsD = "Invers|Hervorgehoben|Fettgedruckt";
  scrollerSizeD = "Rollsymbole:";
  scrollerSizeLabelsD = "Normal|Groß";
  selectCustomScreenTitleD = "Bildschirm-Voreinsteller";

  enterRexxTitleD = "ARexx-Befehle eingeben";
  rexxCmdsD = "Befehle:";

  (* Edit Preferences *)
  editPrefsTitleD = "Einstellungen: Bearbeitung";
  convTabsD = "Tabs. _konvertieren";
  closeFldsD = "_Falten schließen";
  rmbPosD = "Position _merken";
  rmbChgsD = "_History";
  maxChgsD = "H.-_Puffergr.:";
  tabAlignD = "_Tab.-Größe:";
  marginD = "_Rechter Rand:";
  autosaveDelayD = "Autos.-_Intervall:";
  backupsD = "_Sicherheitskopien:";
  backupsLabelsD = "AUS|Vorherige Version|Zwei Versionen|Drei Versionen";
  autosaveD = "A_utosave:";
  autosaveLabelsD = "AUS|Bestätigen|Automatisch";

(* $IF M2Amiga THEN *)

  (* M2Amiga spezial version: M2Edt *)

  edt* = "M2Edt";
  catalogName = "m2edt.catalog";
  catVer = 43;
  windowTitleD = "M2Edt#%lD - %s; %lD Änder.; Pos.: %lD; %lD / %lD - %s%s%s";
  screenTitle* = "M2Edt Screen";
  edtStartupFileD* = "S:M2Edt-Startup_D.edt";
  edtStartupLocalFileD* = "M2Edt-Startup_D.edt";
  loadHailD = "M2Edt: Datei öffnen";
  saveHailD = "M2Edt: Datei speichern";
  informationD = "M2Edt 1.0 für M2Amiga 4.3 (20.3.95): \"%s\"|"
                 "(c) Copyright 1995 by J. Barheine|"
                 "|"
                 "Name: %s|"
                 "Pfad: %s|"
                 "|"
                 "Länge: %lD Zeichen; %lD + %lD Zeilen|"
                 "Position: %lD; Zeile: %lD; Spalte: %lD|"
                 "Änderungen: %lD; Falten: %lD|"
                 "Markierung: %s";
  edtConsoleD = "CON:0/50/640/200/M2Edt-Ausgabefenster/SCREEN%s/CLOSE/AUTO";
  noMoreErrorsD = "Keine weiteren Fehler.";
  noErrorsD = "Keine Fehler.";
  invalidErrFileD = "Fehlerdateidatei %s|defekt.";
  errMsgFile* = "M2:Fehler-Meldungen";
  loadingMsgFileD = "Lade Fehler-Meldungen ...";
  noErrMsgD = "<ohne Beschreibung>";
  noCompilerD = "Kann Compiler nicht ansprechen.";
  noLinkerD = "Kann Linker nicht ansprechen.";
  noM2SourceD = "Datei ist kein Modula-2 Quelltext.";
  argumentsD = "Argumente:";
  executingD = "ausführen ...";
  execPrgD = "Programm ausführen";
(* $ELSE *)

  (* normale Version: Edt *)

  edt* = "Edt";
  catalogName = "edt.catalog";
  catVer = 10;
  windowTitleD = "Edt#%lD - %s: %lD Änder.; Pos.: %lD; %lD / %lD - %s%s%s";
  screenTitle* = "Edt Screen";
  edtStartupFileD* = "S:Edt-Startup_D.edt";
  edtStartupLocalFileD* = "Edt-Startup_D.edt";
  loadHailD = "Edt: Datei öffnen";
  saveHailD = "Edt: Datei speichern";
  informationD = "Edt 1.0 (20.3.95): \"%s\"|"
                 "(c) Copyright 1995 by J. Barheine|"
                 "|"
                 "Name: %s|"
                 "Pfad: %s|"
                 "|"
                 "Länge: %lD Zeichen; %lD + %lD Zeilen|"
                 "Position: %lD; Zeile: %lD; Spalte: %lD|"
                 "Änderungen: %lD; Falten: %lD|"
                 "Markierung: %s";
  edtConsoleD = "CON:0/50/640/200/Edt-Ausgabefenster/SCREEN%s/CLOSE/AUTO";

(* $END *)

  (* EasyRequest-Texte *)

  fileNotSavedD = "An dem Text %s wurden|"
                  "%lD Änderungen vorgenommen.|"
                  "Soll er gesichert werden?";
  reqAutosaveD = "Autosave: Soll von dem Text|%s eine Zwischenkopie|erstellt werden?";
  cannotSaveFileD = "Kann den Text %s|nicht speichern.";
  cannotAutosaveFileD = "Autosave: Kann die Zwischenkopie|%s nicht erzeugen.";
  cannotOpenFileD = "Kann die Datei %s|nicht öffnen.";
  cannotInsertFileD = "Kann die Datei %s|nicht einfügen.";
  cannotOpenWindowD = "Kann Fenster nicht öffnen.";
  cannotCopyClipD = "Kann markierten Bereich nicht in|"
                    "den Zwischenspeicher kopieren.";
  cannotReadClipD = "Kann Zwischenspeicher nicht lesen.";
  cannotSaveClipD = "Kann markierten Bereich|nicht speichern.";
  cannotSaveMacroD = "Kann das Macro nicht speichern.";
  noRexxPortD = "Kann ARexx nicht finden.|Bitte 'RexxMast' starten.";
  noActiveWindowD = "Kann ARexx-Progamm nicht ausführen.|"
                    "Bitte Ziel-Fenster aktivieren.";
  quitAllD = "An %lD Texten wurden insgesamt|"
             "%lD Änderungen vorgenommen.|"
             "Trotzdem beenden?";
  notEnoughMemD = "Nicht genügend Speicher vorhanden.|"
                  "Nochmal versuchen oder Programm|"
                  "geordnet beenden? (Dateien können|"
                  "einzeln gesichert werden).";
  cannotSavePrefsD = "Kann Voreinstellungen|"
                     "nicht speichern.";
  nameContainsBlanksD = "ARexx-Programme dürfen|"
                        "keine Leerzeichen im|"
                        "Dateinamen enthalten.";
  noPrinterD = "Kann Drucker nicht benutzen.";
  cannotInitPrinterD = "Fehler beim Initialisieren|des Druckers.";
  cannotPrintD = "Fehler beim Drucken der Datei|bzw. des Ausschnitts.";
  setTypefaceD = "Bitte stellen Sie nun die|gewünschte Schriftart am|Drucker ein.";
  openAutosaveD = "Von dem Text %s existiert|eine Zwischenkopie (Autosave).|Soll diese stattdessen geladen werden?";
  missingArgsD = "Gefordertes Argument fehlt";
  invalidArgValD = "Ungültiger Wert in Argument";
  unknownWindowIDD = "Unbekannte Fenster ID";
  unknownTextIDD = "Unbekannte Text ID";
  afterLaunchD = "Befehl darf nur in der Startup-Datei verwendet werden";
  noStartupFileD = "Kann Startup-Datei|%s|nicht finden.";

VAR
  loc: Loc.LocalePtr;
  cat: Loc.CatalogPtr;

  yes*, no*, aOk*, aCancel*, aYes*, aNo*,

  opening*, quitting*, saving*, replacing*, searching*, inserting*, undoing*, redoing*,
  cutting*, copying*, pasting*, savingClip*, autoSaving*, printing*, printingClip*,
  openingAllFolds*, closingAllFolds*, resolvingAllFolds*,

  insertOn*, insertOff*, wordWrapOn*, recording*, unnamedN*,

  ok*, cancel*, continue*, retryCancel*, retryQuit*, okCancel*, okNo*, saveSaveAsNo*,
  saveSaveAsNoCancel*, quitSaveCancel*, quitSave*,

  searchTitle*, replaceTitle*, search*, replace*, aSearch*, aSearchBack*, aReplace*,
  aReplaceBack*, ignoreCase*, findWord*, linkChgs*,

  replaceReq*, aAll*, aStop*,

  gotoTitle*, line*,

  printTitle*, leftMargin*, rightMargin*, lines*, colSpacing*, pitch*, pitchLabels*,
  spacing*, spacingLabels*, quality*, qualityLabels*, formatting*, formattingLabels*,
  lineNumbers*, hTitle*, hNumbers*, hDate*, hTime*,

  macroTitle*, macroLabel*, macroOptions*,

  displayPrefsTitle*, sType*, sTypeLabels*, sName*, sModeName*,
  selectCustomScreenTitle*, fontName*, selectFontTitle*, foldHeader*,
  foldHeaderLabels*, scrollerSize*, scrollerSizeLabels*,

  editPrefsTitle*, convTabs*, closeFlds*, rmbPos*, rmbChgs*, maxChgs*, tabAlign*,
  margin*, autosaveDelay*, backups*, backupsLabels*, autosave*, autosaveLabels*,

  enterRexxTitle*, rexxCmds*,

  windowTitle*, loadHail*, saveHail*, information*, edtConsole*,

(* $IF M2Amiga THEN *)
  noMoreErrors*, noErrors*, invalidErrFile*, loadingMsgFile*, noErrMsg*,
  noCompiler*, noLinker*, noM2Source*, arguments*, executing*, execPrg*,
(* $END *)

  fileNotSaved*, reqAutosave*, cannotSaveFile*, cannotAutosaveFile*, cannotOpenFile*,
  cannotInsertFile*, cannotOpenWindow*, cannotCopyClip*, cannotReadClip*,
  cannotSaveClip*, cannotSaveMacro*, noRexxPort*, noActiveWindow*, quitAll*,
  notEnoughMem*, cannotSavePrefs*, nameContainsBlanks*, noPrinter*,
  cannotInitPrinter*, cannotPrint*, setTypeface*, openAutosave*, missingArgs*,
  invalidArgVal*, unknownWindowID*, unknownTextID*, afterLaunch*,

  edtStartupFile*, edtStartupLocalFile*, noStartupFile*

  : Exec.LSTRPTR;

  aOkCh*, aCancelCh*, aYesCh*, aNoCh*,

  searchCh*, replaceCh*, aSearchCh*, aSearchBackCh*, aReplaceCh*, aReplaceBackCh*,
  ignoreCaseCh*, findWordCh*, linkChgsCh*,

  aAllCh*, aStopCh*,

  leftMarginCh*, rightMarginCh*, linesCh*, colSpacingCh*, pitchCh*, spacingCh*,
  qualityCh*, formattingCh*, lineNumbersCh*, hTitleCh*, hNumbersCh*, hDateCh*, hTimeCh*,

  sTypeCh*, sNameCh*, sModeNameCh*, fontNameCh*, foldHeaderCh*, scrollerSizeCh*,

  convTabsCh*, closeFldsCh*, rmbPosCh*, rmbChgsCh*, maxChgsCh*, tabAlignCh*, marginCh*,
  autosaveDelayCh*, backupsCh*, autosaveCh*

  : CHAR;

PROCEDURE OpenLoc;

BEGIN
  IF Loc.base # NIL THEN
    loc:= Loc.OpenLocale(NIL);
    cat:= Loc.OpenCatalog(loc, catalogName, Loc.builtInLanguage, SYS.ADR("deutsch"),
                          Loc.version, catVer, U.done);
  END;
END OpenLoc;

PROCEDURE InitStrings;

VAR
  stringNum: LONGINT;
  last: Exec.LSTRPTR;

  PROCEDURE GetStr(VAR str: Exec.LSTRPTR; defStr: ARRAY OF CHAR);

  (* $CopyArrays- *)

  BEGIN
    str:= NIL;
    IF cat # NIL THEN
      str:= SYS.VAL(Exec.LSTRPTR, Loc.GetCatalogStr(cat, stringNum, defStr));
    ELSE
      str:= SYS.ADR(defStr);
    END;
    INC(stringNum);
    last:= str;
  END GetStr;

  PROCEDURE GetLocStr(nr: LONGINT; VAR str: Exec.LSTRPTR; defStr: ARRAY OF CHAR);

  (* $CopyArrays- *)

  BEGIN
    str:= NIL;
    IF loc # NIL THEN
      str:= Loc.GetLocaleStr(loc, nr);
    END;
    IF str = NIL THEN str:= SYS.ADR(defStr) END;
  END GetLocStr;

  PROCEDURE GetKey(VAR c: CHAR);

  VAR
    i: INTEGER;

  BEGIN
    i:= 0; c:= 0X;
    WHILE last[i] # 0X DO
      IF last[i] = "_" THEN c:= U.ToUpper(last[i+1]); RETURN END;
      INC(i);
    END;
  END GetKey;

BEGIN
  stringNum:= 0; last:= NIL;
  GetLocStr(Loc.yesStr, yes, yesD);
  GetLocStr(Loc.noStr, no, noD);
  GetStr(aOk, aOkD); GetKey(aOkCh);
  GetStr(aCancel, aCancelD); GetKey(aCancelCh);
  GetStr(aYes, aYesD); GetKey(aYesCh);
  GetStr(aNo, aNoD); GetKey(aNoCh);

  GetStr(opening, openingD);
  GetStr(quitting, quittingD);
  GetStr(saving, savingD);
  GetStr(replacing, replacingD);
  GetStr(searching, searchingD);
  GetStr(inserting, insertingD);
  GetStr(undoing, undoingD);
  GetStr(redoing, redoingD);
  GetStr(cutting, cuttingD);
  GetStr(copying, copyingD);
  GetStr(pasting, pastingD);
  GetStr(savingClip, savingClipD);
  GetStr(autoSaving, autoSavingD);
  GetStr(printing, printingD);
  GetStr(printingClip, printingClipD);
  GetStr(openingAllFolds, openingAllFoldsD);
  GetStr(closingAllFolds, closingAllFoldsD);
  GetStr(resolvingAllFolds, resolvingAllFoldsD);

  GetStr(insertOn, insertOnD);
  GetStr(insertOff, insertOffD);
  GetStr(wordWrapOn, wordWrapOnD);
  GetStr(recording, recordingD);
  GetStr(unnamedN, unnamedND);

  GetStr(ok, okD);
  GetStr(cancel, cancelD);
  GetStr(continue, continueD);
  GetStr(retryCancel, retryCancelD);
  GetStr(retryQuit, retryQuitD);
  GetStr(okCancel, okCancelD);
  GetStr(okNo, okNoD);
  GetStr(saveSaveAsNo, saveSaveAsNoD);
  GetStr(saveSaveAsNoCancel, saveSaveAsNoCancelD);
  GetStr(quitSaveCancel, quitSaveCancelD);
  GetStr(quitSave, quitSaveD);

  GetStr(searchTitle, searchTitleD);
  GetStr(replaceTitle, replaceTitleD);
  GetStr(search, searchD); GetKey(searchCh);
  GetStr(replace, replaceD); GetKey(replaceCh);
  GetStr(aSearch, aSearchD); GetKey(aSearchCh);
  GetStr(aSearchBack, aSearchBackD); GetKey(aSearchBackCh);
  GetStr(aReplace, aReplaceD); GetKey(aReplaceCh);
  GetStr(aReplaceBack, aReplaceBackD); GetKey(aReplaceBackCh);
  GetStr(ignoreCase, ignoreCaseD); GetKey(ignoreCaseCh);
  GetStr(findWord, findWordD); GetKey(findWordCh);
  GetStr(linkChgs, linkChgsD); GetKey(linkChgsCh);

  GetStr(replaceReq, replaceReqD);
  GetStr(aAll, aAllD); GetKey(aAllCh);
  GetStr(aStop, aStopD); GetKey(aStopCh);

  GetStr(gotoTitle, gotoTitleD);
  GetStr(line, lineD);

  GetStr(printTitle, printTitleD);
  GetStr(leftMargin, leftMarginD); GetKey(leftMarginCh);
  GetStr(rightMargin, rightMarginD); GetKey(rightMarginCh);
  GetStr(lines, linesD); GetKey(linesCh);
  GetStr(colSpacing, colSpacingD); GetKey(colSpacingCh);
  GetStr(pitch, pitchD); GetKey(pitchCh);
  GetStr(pitchLabels, pitchLabelsD);
  GetStr(spacing, spacingD); GetKey(spacingCh);
  GetStr(spacingLabels, spacingLabelsD);
  GetStr(quality, qualityD); GetKey(qualityCh);
  GetStr(qualityLabels, qualityLabelsD);
  GetStr(formatting, formattingD); GetKey(formattingCh);
  GetStr(formattingLabels, formattingLabelsD);
  GetStr(lineNumbers, lineNumbersD); GetKey(lineNumbersCh);
  GetStr(hTitle, hTitleD); GetKey(hTitleCh);
  GetStr(hNumbers, hNumbersD); GetKey(hNumbersCh);
  GetStr(hDate, hDateD); GetKey(hDateCh);
  GetStr(hTime, hTimeD); GetKey(hTimeCh);

  GetStr(macroTitle, macroTitleD);
  GetStr(macroLabel, macroLabelD);
  GetStr(macroOptions, macroOptionsD);

  GetStr(editPrefsTitle, editPrefsTitleD);
  GetStr(convTabs, convTabsD); GetKey(convTabsCh);
  GetStr(closeFlds, closeFldsD); GetKey(closeFldsCh);
  GetStr(rmbPos, rmbPosD); GetKey(rmbPosCh);
  GetStr(rmbChgs, rmbChgsD); GetKey(rmbChgsCh);
  GetStr(maxChgs, maxChgsD); GetKey(maxChgsCh);
  GetStr(tabAlign, tabAlignD); GetKey(tabAlignCh);
  GetStr(margin, marginD); GetKey(marginCh);
  GetStr(autosaveDelay, autosaveDelayD); GetKey(autosaveDelayCh);
  GetStr(backups, backupsD); GetKey(backupsCh);
  GetStr(backupsLabels, backupsLabelsD);
  GetStr(autosave, autosaveD); GetKey(autosaveCh);
  GetStr(autosaveLabels, autosaveLabelsD);

  GetStr(displayPrefsTitle, displayPrefsTitleD);
  GetStr(sType, sTypeD); GetKey(sTypeCh);
  GetStr(sTypeLabels, sTypeLabelsD);
  GetStr(sName, sNameD); GetKey(sNameCh);
  GetStr(sModeName, sModeNameD); GetKey(sModeNameCh);
  GetStr(selectCustomScreenTitle, selectCustomScreenTitleD);
  GetStr(fontName, fontNameD); GetKey(fontNameCh);
  GetStr(selectFontTitle, selectFontTitleD);
  GetStr(foldHeader, foldHeaderD); GetKey(foldHeaderCh);
  GetStr(foldHeaderLabels, foldHeaderLabelsD);
  GetStr(scrollerSize, scrollerSizeD); GetKey(scrollerSizeCh);
  GetStr(scrollerSizeLabels, scrollerSizeLabelsD);

  GetStr(enterRexxTitle, enterRexxTitleD);
  GetStr(rexxCmds, rexxCmdsD);

  GetStr(windowTitle, windowTitleD);
  GetStr(loadHail, loadHailD);
  GetStr(saveHail, saveHailD);
  GetStr(information, informationD);
  GetStr(edtConsole, edtConsoleD);
(* $IF M2Amiga THEN *)
  GetStr(noMoreErrors, noMoreErrorsD);
  GetStr(noErrors, noErrorsD);
  GetStr(invalidErrFile, invalidErrFileD);
  GetStr(loadingMsgFile, loadingMsgFileD);
  GetStr(noErrMsg, noErrMsgD);
  GetStr(noCompiler, noCompilerD);
  GetStr(noLinker, noLinkerD);
  GetStr(noM2Source, noM2SourceD);
  GetStr(arguments, argumentsD);
  GetStr(executing, executingD);
  GetStr(execPrg, execPrgD);
(* $END *)

  GetStr(fileNotSaved, fileNotSavedD);
  GetStr(reqAutosave, reqAutosaveD);
  GetStr(cannotSaveFile, cannotSaveFileD);
  GetStr(cannotAutosaveFile, cannotAutosaveFileD);
  GetStr(cannotOpenFile, cannotOpenFileD);
  GetStr(cannotInsertFile, cannotInsertFileD);
  GetStr(cannotOpenWindow, cannotOpenWindowD);
  GetStr(cannotCopyClip, cannotCopyClipD);
  GetStr(cannotReadClip, cannotReadClipD);
  GetStr(cannotSaveClip, cannotSaveClipD);
  GetStr(cannotSaveMacro, cannotSaveMacroD);
  GetStr(noRexxPort, noRexxPortD);
  GetStr(noActiveWindow, noActiveWindowD);
  GetStr(quitAll, quitAllD);
  GetStr(notEnoughMem, notEnoughMemD);
  GetStr(cannotSavePrefs, cannotSavePrefsD);
  GetStr(nameContainsBlanks, nameContainsBlanksD);
  GetStr(noPrinter, noPrinterD);
  GetStr(cannotInitPrinter, cannotInitPrinterD);
  GetStr(cannotPrint, cannotPrintD);
  GetStr(setTypeface, setTypefaceD);
  GetStr(openAutosave, openAutosaveD);
  GetStr(missingArgs, missingArgsD);
  GetStr(invalidArgVal, invalidArgValD);
  GetStr(unknownWindowID, unknownWindowIDD);
  GetStr(unknownTextID, unknownTextIDD);
  GetStr(afterLaunch, afterLaunchD);

  GetStr(edtStartupFile, edtStartupFileD);
  GetStr(edtStartupLocalFile, edtStartupLocalFileD);
  GetStr(noStartupFile, noStartupFileD);
END InitStrings;

BEGIN
  cat:= NIL; loc:= NIL;
  OpenLoc;
  InitStrings;

CLOSE
  IF cat # NIL THEN Loc.CloseCatalog(cat) END;
  IF loc # NIL THEN Loc.CloseLocale(loc) END;
END StrPool.