[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]