i attempt to use ASM routines to turn off the cursor and i get such
problems.  please help.

----
label cursof, curson, curs
....
asm
          call    cursof
  curson: mov     cx,11                   ;cursor video bios display
  curs:   mov     bh,0                    ;this part
          mov     ah,1                    ;of video
          int     10h                     ;do it
          ret                             ;return to instruction after  
  cursof: mov     cx,0e00h                ;cursor video move out ofsight
          jmp     curs                    ;continue

procedure cursoron;
var
  regs : registers;
begin
  with regs do begin
    cx := 11;
    bh := 0;
    ah := 1;
  end;
  intr ($10, regs);
end;

procedure cursoroff;
var
  regs : registers;
begin
  with regs do begin
    cx := $0e00;
    bh := 0;
    ah := 1;
  end;
  intr ($10, regs);
end;

Please note that I haven't tested this.

--
----------------------------------------------------------------------
Phil Brutsche

"Be of stout heart, Number One.  We've handled the Borg.  We can
certainly handle Admiral Jellico." - Jean-Luc Picard

procedure HideCursor; assembler;

asm
  mov   es,[Seg0040]
  mov   di,0060h
  mov   cx,word ptr es:[di]
  mov   ax,0100h
  or    ch,20h
  int   10h
end;

procedure ShowCursor; assembler;

asm
  mov   es,[Seg0040]
  mov   di,0060h
  mov   cx,word ptr es:[di]
  mov   ax,0100h
  and   ch,0dfh
  int   10h
end;

For TP7.  If you want to use this with TP6, define:

const
  Seg0040 : word = $0040;