listing the reserved words

CobXmlSupport/GenCobCode.cs

@@ -1796,7 +1796,21 @@ namespace CobXmlSupport
 
         private void btnTestThings_Click(object sender, EventArgs e)
         {
-            //string str1 = Util.GetStringResource("String1");
+            //Create showing window
+            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;
+                else fromToMoves.CodeShower.Text += "\r\n";
+                fromToMoves.CodeShower.Text += str;
+            }
+
+            fromToMoves.Show();
             //createXMLMoveCode();
         }