Anonymous user
Terminal control/Hiding the cursor: Difference between revisions
→{{header|PicoLisp}}: Added PureBasic
({{header|Locomotive Basic}}) |
(→{{header|PicoLisp}}: Added PureBasic) |
||
Line 13:
(wait 1000)
(call "tput" "cvvis") # Visible</lang>
=={{header|PureBasic}}==
<lang PureBasic>#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 </lang>
=={{header|Tcl}}==
| |||