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