diff --git a/CobXmlSupport/GenCobCode.cs b/CobXmlSupport/GenCobCode.cs
index cecafcf..d0cd006 100644
--- a/CobXmlSupport/GenCobCode.cs
+++ b/CobXmlSupport/GenCobCode.cs
@@ -22,7 +22,7 @@ namespace CobXmlSupport
     {
 
         Dictionary<string, string> uniqueTags, uniqueAttr, uniqueVars, uniqueCntVars;
-
+        private List<string> CobResWords = null;
         private List<qualifieldhlp> qldList;
         private List<CobRow> rowList, tmpRowList;
         private CobRow latestLevelParent;
@@ -1797,15 +1797,13 @@ namespace CobXmlSupport
         private void btnTestThings_Click(object sender, EventArgs e)
         {
             //Create showing window
+            loadResWords();
             fromToMoves = new ShowCode();
             fromToMoves.Parent = this;
             fromToMoves.Labeltext = "Cobol \"reserved\" Words";
-            string number = "";
-            for(int i=0;i<700;i++){
-                number = i.ToString("0");
-                string strName = "String" + (string)(i>0?number:"");
-                string str = Properties.Resources.ResourceManager.GetString(strName);
-                if (str==null) break;
+
+            foreach(string str in CobResWords.ToArray()) {
+                if (fromToMoves.CodeShower.Text == "") { }
                 else fromToMoves.CodeShower.Text += "\r\n";
                 fromToMoves.CodeShower.Text += str;
             }
@@ -1814,5 +1812,18 @@ namespace CobXmlSupport
             //createXMLMoveCode();
         }
 
+        private void loadResWords(){
+            string number = "";
+            CobResWords = new List<string>();
+            for (int i = 0; i < 700; i++)
+            {
+                number = i.ToString("0");
+                string strName = "String" + (string)(i > 0 ? number : "");
+                string str = Properties.Resources.ResourceManager.GetString(strName);
+                if (str == null) break;
+                CobResWords.Add(str);
+            }
+        }
+
     }
 }