The task is to hide the cursor and show it again.




include c:\cxpl\codes;  \intrinsic 'code' declarations
 
proc ShowCur(On);       \Turn flashing cursor on or off
int On;                 \true = cursor on; false = cursor off
int CpuReg;
[CpuReg:= GetReg;       \access CPU registers
CpuReg(0):= $0100;      \AX:= $0100
CpuReg(2):= if On then $0007 else $2000;
SoftInt($10);           \Call BIOS interrupt $10
]; \ShowCur
 
[ShowCur(false);        \turn off flashing cursor
if ChIn(1) then [];     \wait for keystroke
ShowCur(true);          \turn on flashing cursor
]