Anonymous user
Terminal control/Hiding the cursor: Difference between revisions
Terminal control/Hiding the cursor (view source)
Revision as of 17:11, 3 December 2021
, 2 years agoAdded solution for Action!
(Added solution for Action!) |
|||
Line 4:
The task is to hide the cursor and show it again.
<br><br>
=={{header|Action!}}==
<lang Action!>PROC Wait(BYTE frames)
BYTE RTCLOK=$14
frames==+RTCLOK
WHILE frames#RTCLOK DO OD
RETURN
PROC Main()
BYTE CRSINH=$02F0 ;Controls visibility of cursor
Print("Hiding the cursor...")
Wait(50)
CRSINH=1 PutE() ;put the new line character to force hide the cursor
Wait(50)
Print("Showing the cursor...")
Wait(50)
CRSINH=0 PutE() ;put the new line character to force show the cursor
Wait(50)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Hiding_the_cursor.png Screenshot from Atari 8-bit computer]
=={{header|Ada}}==
| |||