FindCursor                                                      WinTTT



Purpose   To return the location and size of the cursor.

Declaration    FindCursor(var X,Y,ScanTop,ScanBot: byte);

          X is the X coord of the cursor (1..80)
          Y is the Y coord of the cursor (1..25)
          Scantop is the top scan line of the cursor
          ScanBot is the bottom scan line of the cursor

Uses Crt, FastTTT, DOS, WinTTT.

Remarks.  This procedure is called by many of the screen saving
          procedures.

          The four parameters must be variables, and they are returned
          with the cursor details.

          The scan codes refer to the actual location of the top and
          bottom of the cursor within a character field, where zero is
          the top of the field (such as the top stroke of the letter T
          -- got it?), and either 13 or 7 is the bottom of the field
          on monochrome or color machines respectively.



Example


               USES CRT, FASTTTT, DOS, WINTTT
               VAR ROW,COL,TOP,BOT: BYTE;
               BEGIN
                 FINDCURSOR(COL,ROW,TOP,BOT);
               END.