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

    unit Cursor;

    interface

    const
      ThinCursor = $0707;
      OvrCursor  = $0307;
      InsCursor  = $0607;
      BarCursor  = $000D;
      HideCursor = $2607;
      ShowCursor = $0506;

    procedure SetCursor(Ctype: Word);

    implementation

    procedure SetCursor(Ctype: Word); assembler;
    asm
      mov ax, $0100
      mov cx, CType
      int $10
    end;

    end.

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