Procedure CursorOn;  Assembler;
  Asm
  Mov ah,3
  mov bx,0
  int 10h
  and ch,255-20h
  mov ah,1
  mov bx,0
  int 10h
  end;

Or for more temporary removal of the cursor you could do:

inc(windmax);
gotoxy(81,wherey);
dec(windmax);

This assuming the widow is 1,1,80,25.

In the latter it will show again when it is moved to the visible area
(for example with writeln)

I use the following:

procedure HideCursor; assembler;
asm
   MOV  CX,$2000
   MOV  AH,1
   INT  $10
end;

procedure ShowCursor; assembler;
asm
   MOV  CX,$0607 { draw cursor lines 6 }
   MOV  AH,1
   INT  $10
end;

These two procedures is kind of hardcoded versions of the following:

procedure SetCursorSize(Line1, Line2 : Byte); assembler;
asm
   MOV  CH,Line1
   MOV  CL,Line2
   MOV  AH,1
   INT  $10
end;

Do not assume anything about the cursor shape.

No doubt the esteemed, late Gerard Hoffnung would have had advice to
offer on making assumptions about widows; but his work may be less well-
known outside the UK.

UNIT Cursor; {Blanks or unblanks the cursor and also makes the cursor
block style or normal}

INTERFACE

USES CRT, DOS;

VAR
   Regs       : REGISTERS;
   TopLine    : BYTE;
   BottomLine : BYTE;

PROCEDURE BlankCursor(Blank : BOOLEAN);
PROCEDURE BlockCursor(Block : BOOLEAN);
PROCEDURE GetInitialCursor;
PROCEDURE RestoreInitialCursor;

IMPLEMENTATION

PROCEDURE GetInitialCursor;

   BEGIN
      WITH Regs DO
         BEGIN
            AH := $03;
            BH := $00;
            INTR($10, Regs);
            TopLine := CH;
            BottomLine := CL;
         END;
   END;

PROCEDURE RestoreInitialCursor;

   BEGIN
      WITH Regs DO
         BEGIN
            AH := $01;
            CH := TopLine;
            CL := BottomLine;
            INTR($10, Regs);
         END;
   END;

PROCEDURE BlankCursor;

   BEGIN
      CASE Blank OF
         TRUE : WITH Regs DO
                   BEGIN
                      AH := $01;
                      CH := $20;
                      CL := $00;
                      INTR($10, Regs);
                   END;

         FALSE : WITH Regs DO
                    BEGIN
                       AH := $01;
                       CH := $0C;
                       CL := $0D;
                       INTR($10, Regs);
                    END;
      END;
   END;

PROCEDURE BlockCursor;

   BEGIN
      CASE Block OF
         TRUE : WITH Regs DO
                   BEGIN
                      AH := $01;
                      CH := $01;
                      CL := $0C;
                      INTR($10, Regs);
                   END;

         FALSE : WITH Regs DO
                    BEGIN
                       AH := $01;
                       CH := $0C;
                       CL := $0D;
                       INTR($10, Regs);
                    END;
      END;
   END;

   END.

On Mon, 06 Dec 1999 16:14:51 +0100, Frederic Bonroy

Nope! How does it look?

: Do not assume anything about the cursor shape.

I DO agree!
I used to take care of about everything earlier, but now I see that even
dos-games require more than my computer can deliver. So why not enter that
highway of requirements?
(Sorry, I'm just friendly provocative.) :-)

Wow, that sounds fancy, but not much elegant.
Sorry, guess I'll have to take care about the monos after all. :-)

The implication of the thread previously was that the current window was
the default full-screen.

I got in via http://www.uwasa.fi/~ts/garbo.html

It seems there is a limited number of visitors allowed at
one time (maximum 60)
Marcel.Vander.Mie...@PANDORA.BE

The code was:

inc(windmax);
gotoxy(81,wherey);
dec(windmax);

Now if you replace the middle line with

gotoxy(lo(windmax)+1,wherey)

the code will still work when the window is up to 80 columns. However,
if it is say up to 50 columns, it will set the cursor at the column 51.
That doe snort make it disappear.