Terminal control/Ringing the terminal bell: Difference between revisions
Content added Content deleted
imported>Acediast (→{{header|COBOL}}: added another implementation) |
imported>Acediast (→{{header|COBOL}}: changed to COBOL-85 since that's more descriptive) |
||
Line 308: | Line 308: | ||
Using the ASCII code directly: |
Using the ASCII code directly: |
||
{{works with| |
{{works with|COBOL-85}} |
||
<syntaxhighlight lang="cobol"> *> Tectonics: cobc -xj ring-terminal-bell.cob - |
<syntaxhighlight lang="cobol"> *> Tectonics: cobc -xj ring-terminal-bell.cob -std=cobol85 |
||
IDENTIFICATION DIVISION. |
IDENTIFICATION DIVISION. |
||
PROGRAM-ID. ring-ascii-bell. |
PROGRAM-ID. ring-ascii-bell. |
||
Line 322: | Line 322: | ||
PROCEDURE DIVISION. |
PROCEDURE DIVISION. |
||
DISPLAY FUNCTION CHAR(8) WITH NO ADVANCING |
DISPLAY FUNCTION CHAR(8) WITH NO ADVANCING |
||
STOP RUN. |
|||
END PROGRAM ring-ascii-bell.</syntaxhighlight> |
END PROGRAM ring-ascii-bell.</syntaxhighlight> |