24 lines
595 B
Text
24 lines
595 B
Text
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
|