{***********************************************************************}
{									}
{ __EmOffScn  Toggle BIOS cursor emulation				}
{									}
{ procedure __EmOffScn(EmulationOff : boolean); 			}
{									}
{	      EmulationOff						}
{			If TRUE, cursor emulation is disabled; other-	}
{			wise it is enabled.				}
{									}
{ Description See the comments for __IsEmScn for a discussion of BIOS	}
{	      cursor emulation.  Call this procedure with EmulationOff	}
{	      set to TRUE to turn off BIOS cursor emulation, set to	}
{	      FALSE to turn it on.  This procedure has no meaning for	}
{	      the Color Graphics Adapter and the Monochrome Display	}
{	      Adapter.							}
{									}
{ Version     4.00 (C)Copyright Blaise Computing Inc. 1987		}
{_______________________________________________________________________}

procedure __EmOffScn(EmulationOff : boolean);

  var
    Info : byte absolute _BIOSSEG:$0087;

  begin {__EmOffScn}

    if (EmulationOff) then
       Info := Info or $01	       { Disable cursor emulation	}
    else
       Info := Info and $FE	       { Enable cursor emulation	}

  end;	{__EmOffScn}
