#include "wx/wxprec.h"
 
+#ifdef __BORLANDC__
+    #pragma hdrstop
+#endif
+
 #ifndef  WX_PRECOMP
   #include "wx/wx.h"
 #endif //precompiled headers
 
 // My frame constructor
 MyFrame::MyFrame(wxFrame *frame, const wxString& title, const wxPoint& pos, const wxSize& size):
-  wxFrame(frame, -1, title, pos, size)
+  wxFrame(frame, -1, title, pos, size, wxDEFAULT_FRAME_STYLE | wxFULL_REPAINT_ON_RESIZE)
 {
 }
 
 
 {
     int i = pages[current_page];
     int ch = -1;
-    int x = 10;
     int y = 0;
     int j;
     wxChar *line_ptr;
 
        if (DrawIt)
        {
-         x = (width - xx)/2;
+         int x = (width - xx)/2;
          dc->SetFont(* BoldFont);
 
          // Change text to BLACK!
 
                 if (DrawIt)
                 {
-                  x = (width - xx)/2;
+                  int x = (width - xx)/2;
                   dc->SetFont(* BoldFont);
 
                   // Change text to BLACK!
 
                 if (DrawIt)
                 {
-                  x = (width - xx)/2;
+                  int x = (width - xx)/2;
                   dc->SetTextForeground(* wxBLACK);
                   dc->DrawText(line_ptr, x, y);
                 }
 //    randomize();
   pages[0] = 0;
 
-  TheMainWindow = new MainWindow(NULL, 500, _T("wxPoem"), wxPoint(XPos, YPos), wxSize(100, 100), wxCAPTION|wxMINIMIZE_BOX|wxSYSTEM_MENU|wxCLOSE_BOX);
+  TheMainWindow = new MainWindow(NULL,
+                                 wxID_ANY,
+                                 _T("wxPoem"),
+                                 wxPoint(XPos, YPos),
+                                 wxSize(100, 100),
+                                 wxCAPTION|wxMINIMIZE_BOX|wxSYSTEM_MENU|wxCLOSE_BOX|wxFULL_REPAINT_ON_RESIZE
+                                 );
 
 #ifdef wx_x
   TheMainWindow->SetIcon(Icon(_T("wxpoem")));
     long data;
     FILE *index_file;
 
-    int i = 0;
     wxChar buf[100];
 
     if (file_name == NULL)
 
     wxFscanf(index_file, _T("%ld"), &nitems);
 
-      for (i = 0; i < nitems; i++)
+      for (int i = 0; i < nitems; i++)
       {
       wxFscanf(index_file, _T("%ld"), &data);
         poem_index[i] = data;
 // Get index
 int GetIndex()
 {
-    int indexn = 0;
-
-    indexn = (int)(rand() % nitems);
+    int indexn = (int)(rand() % nitems);
 
     if ((indexn < 0) || (indexn > nitems))
     { PoetryError(_T("No such poem!"));
 // file, otherwise use index[index_ptr] to find the correct position.
 bool LoadPoem(wxChar *file_name, long position)
 {
-    int ch = 0;
-    int i = 0;
 //    int j = 0;
 //    int indexn = 0;
     wxChar buf[100];
 
       fseek(data_file, data, SEEK_SET);
 
-      ch = 0;
-      i = 0;
+      int ch = 0;
+      int i = 0;
       while ((ch != EOF) && (ch != '#'))
       {
         ch = getc(data_file);
 bool Compile(void)
 {
     FILE *file;
-    long i = 0;
     int j;
-    int ch = 0;
+    int ch;
     wxChar buf[100];
 
     if (data_filename)
     nitems ++;
 
     // Do rest
-    while (ch != EOF)
-    {
+    
+    do {
         ch = getc(file);
-        i ++;
         if (ch == '#')
         {
             ch = getc(file);
             poem_index[nitems] = data;
             nitems ++;
         }
-    }
+    } while (ch != EOF);
     fclose(file);
 
     if (index_filename)