RosettaCodeData/Task/Terminal-control-Hiding-the-cursor/PureBasic/terminal-control-hiding-the-cursor-1.purebasic
2017-09-25 22:28:19 +02:00

14 lines
284 B
Text

#cursorSize = 10 ;use a full sized cursor
If OpenConsole()
Print("Press any key to toggle cursor: ")
EnableGraphicalConsole(1)
height = #cursorSize
ConsoleCursor(height)
Repeat
If Inkey()
height ! #cursorSize
ConsoleCursor(height)
EndIf
ForEver
EndIf