Note: For use with Borlan Pascal 7.0 change the next:

wintutor.pas:

   {$V-}
   program WinTutor(input,output);
   uses crt,dos;

windo.inc:
   Procedure Set_Cursor (n: byte);
{   Type
     regrec = Record
                ax,bx,cx,dx,bp,si,di,ds,es,flags: integer
              End;
   Var regpak: regrec;
}
   Var regpak: registers;

{ ===================================================================== }
{  WINDO - Windowing routines for Turbo PASCAL                          }
{                                                                       }
{     Author:   Michael Burton                                          }
{               15540 Boot Hill Rd.                                     }
{               Hayden Lake, ID 83835                                   }
{               (208) 772-9347 (after 1800 PST)                         }
{     Revision: 2.0                                                     }
{     Date:     25 January 1986                                         }
{                                                                       }
{  Execute the WINTUTOR program for an explanation of use.              }
{                                                                       }
{  This is a 'Shareware' program.  If you find it to be of significant  }
{  use to you, a $10 donation to the above address would be greatly     }
{  appreciated.  This would also place you on our mailing list to keep  }
{  you informed of upgrades to Windo and of new programs.               }
{ ===================================================================== }
{ GETDISP - Get an array of characters from the CRT display and store   }
{           them in tostrng.                                            }
{           The row and column inputs are relative to zero and are      }
{           also relative to the entire screen, not any open window.    }
{                                                                       }
{ ===================================================================== }
{ DISPALL - Display an array of characters and attributes on the CRT.   }
{           The array is usually one that has been created using the    }
{           GetDisp procedure.                                          }
{