Jump to content

Terminal control/Ringing the terminal bell: Difference between revisions

→‎{{header|COBOL}}: changed to COBOL-85 since that's more descriptive
imported>Acediast
(→‎{{header|COBOL}}: added another implementation)
imported>Acediast
(→‎{{header|COBOL}}: changed to COBOL-85 since that's more descriptive)
Line 308:
 
Using the ASCII code directly:
{{works with|GnuCOBOLCOBOL-85}}
<syntaxhighlight lang="cobol"> *> Tectonics: cobc -xj ring-terminal-bell.cob -fnot-reservedstd=ASCIIcobol85
IDENTIFICATION DIVISION.
PROGRAM-ID. ring-ascii-bell.
Line 322:
PROCEDURE DIVISION.
DISPLAY FUNCTION CHAR(8) WITH NO ADVANCING
GOBACKSTOP RUN.
 
END PROGRAM ring-ascii-bell.</syntaxhighlight>
Anonymous user
Cookies help us deliver our services. By using our services, you agree to our use of cookies.