Anonymous user
Terminal control/Ringing the terminal bell: Difference between revisions
Terminal control/Ringing the terminal bell (view source)
Revision as of 17:15, 3 December 2021
, 2 years agoAdded solution for Action!
(Added solution for Action!) |
|||
Line 43:
mov dl,07h
int 21h</lang>
=={{header|Action!}}==
<lang Action!>PROC Wait(BYTE frames)
BYTE RTCLOK=$14
frames==+RTCLOK
WHILE frames#RTCLOK DO OD
RETURN
PROC Main()
BYTE
i,n=[3],
CH=$02FC ;Internal hardware value for last key pressed
PrintF("Press any key to hear %B bells...",n)
DO UNTIL CH#$FF OD
CH=$FF
FOR i=1 TO n
DO
Put(253) ;buzzer
Wait(20)
OD
Wait(100)
RETURN</lang>
{{out}}
[https://gitlab.com/amarok8bit/action-rosetta-code/-/raw/master/images/Ringing_the_terminal_bell.png Screenshot from Atari 8-bit computer]
=={{header|Ada}}==
|