Procedure HideCursor ()
 ConsoleCursor(0)
EndProcedure

Procedure ShowCursor (CursorHeight.b = 1)
 If CursorHeight > 10 : CursorHeight = 10 : EndIf
 If CursorHeight < 1  : CursorHeight = 1  : EndIf
 ConsoleCursor(CursorHeight)
EndProcedure

Procedure NL (NoL.b = 1)
 For i = 1 To NoL : PrintN("") : Next
EndProcedure

If OpenConsole()
 EnableGraphicalConsole(1)
 Print("   full cursor > ")
 ShowCursor(11) : Delay(4000) : NL()
 Print(" hidden cursor > ")
 HideCursor()   : Delay(4000) : NL()
 Print("minimal cursor > ")
 ShowCursor(-0.5)
 Print("press [Enter] to continue ... ") : Input()
EndIf