Terminal control/Hiding the cursor: Difference between revisions
→{{header|PureBasic}}
(Added Kotlin) |
|||
Line 277:
ForEver
EndIf </lang>
<b>PB v5.60</b>
<lang PureBasic>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
=={{header|Racket}}==
|