RosettaCodeData/Task/Terminal-control-Hiding-the-cursor/PureBasic/terminal-control-hiding-the-cursor-1.basic
2023-07-01 13:44:08 -04: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