Terminal control/Ringing the terminal bell: Difference between revisions

Content added Content deleted
(Add lang example)
imported>Acediast
(→‎{{header|COBOL}}: completed standard-compliant program)
Line 293:
=={{header|COBOL}}==
Standard compliant:
{{works with|GnuCOBOL}}
<syntaxhighlight lang="cobol">DISPLAY SPACE WITH BELL</syntaxhighlight> IDENTIFICATION DIVISION.
PROGRAM-ID. ring-terminal-bell.
 
DATA DIVISION.
SCREEN SECTION.
01 ringer BELL.
 
PROCEDURE DIVISION.
GOBACKDISPLAY ringer▼
GOBACK.
 
END PROGRAM ring-terminal-bell.</syntaxhighlight>
 
{{works with|Visual COBOL}}
<syntaxhighlight lang="cobol"> IDENTIFICATION DIVISION.
PROGRAM-ID. mf-bell.
 
DATA DIVISION.
WORKING-STORAGE SECTION.
01 bell-code PIC X USAGE COMP-X VALUE 22.
01 dummy-param PIC X.
 
PROCEDURE DIVISION.
CALL X"AF" USING bell-code, dummy-param
GOBACK.
 
▲ GOBACK
END PROGRAM mf-bell.</syntaxhighlight>
 
=={{header|Common Lisp}}==
Retrieved from "https://rosettacode.org/wiki/Terminal_control/Ringing_the_terminal_bell"