[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]

    Uses
      Dos;

    Procedure FindXY(Var X, Y : Byte; Page : Byte);
    {X = Row of Cursor}
    {Y = Colum of Cursor}
    {Page = Page Nummber}
    Var
      Regs : Registers;
    begin
      Regs.Ah := 3;
      Regs.Bh := Page;
      intr($10, Regs);
      X := Regs.Dl;
      Y := Regs.Dh;
    end;

[Back to CURSOR SWAG index] [Back to Main SWAG index] [Original]