{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.

}
program Cursor;
var
  topLine, bottomLine : byte;
  nonsense            : string[79];

{$I regpack.typ}
{$I cursor.lib}
{$I monitor.lib}

begin
  CheckColor;
  color := false;
  WRite('Cursor takes ');
  if color then write('7') else write('14');
  write(' lines, from 0 to ');
  if color then writeLn('6.') else writeLn('13.');
  WRiteLn;
  WriteLn('Enter 0 for both to quit.');
  WriteLn('Enter 48 for top line to kill cursor.');
  WriteLn;
  if not color then
     WriteLn('Setting top lower than bottom gives two-part cursor,');
  window(1,10,80,25);
  ClrScr;
  repeat
    Write('Enter top line for cursor: ');
    read(topLine); WriteLn;
    Write('Enter bottom line for cursor: ');
    read(bottomLine); writeLn;
    if topLine + BottomLine > 0 then
      begin
        Cursor_Control(topLine,bottomLine);
        WriteLn('Now type a line with your new cursor.');
        readLn(nonsense);
      end;
  until topLine + BottomLine <= 0;
  if color then Cursor_Control(6,7) else Cursor_Control(12,13);
end.