Anonymous user
Terminal control/Ringing the terminal bell: Difference between revisions
Terminal control/Ringing the terminal bell (view source)
Revision as of 21:36, 17 August 2023
, 10 months ago→{{header|COBOL}}: completed standard-compliant program
(Add lang example) |
imported>Acediast (→{{header|COBOL}}: completed standard-compliant program) |
||
Line 293:
=={{header|COBOL}}==
Standard compliant:
{{works with|GnuCOBOL}}
<syntaxhighlight lang="cobol">
PROGRAM-ID. ring-terminal-bell.
DATA DIVISION.
SCREEN SECTION.
01 ringer BELL.
PROCEDURE DIVISION.
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
=={{header|Common Lisp}}==
|