RosettaCodeData/Task/Terminal-control-Hiding-the-cursor/PureBasic/terminal-control-hiding-the-cursor-1.basic

15 lines
284 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
#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