3
{ Program to demonstrate the GetCursorType function. }
5
Uses video,keyboard,vidutil;
8
Cursortypes : Array[crHidden..crHalfBlock] of string =
9
('Hidden','UnderLine','Block','HalfBlock');
14
TextOut(1,1,'Cursor type: '+CursorTypes[GetCursorType]);
15
TextOut(1,2,'Press any key to exit.');