Terminal control/Ringing the terminal bell: Difference between revisions

Content deleted Content added

Inline

@@ Line 293: / Line 293: @@
 =={{header|COBOL}}==
 Standard compliant:
+{{works with|GnuCOBOL}}
-<syntaxhighlight lang="cobol">DISPLAY SPACE WITH BELL</syntaxhighlight>
+<syntaxhighlight lang="cobol">       IDENTIFICATION DIVISION.
+       PROGRAM-ID. ring-terminal-bell.
+       DATA DIVISION.
+       SCREEN SECTION.
+ringer BELL.
+       PROCEDURE DIVISION.
+           DISPLAY 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.
 bell-code              PIC X USAGE COMP-X VALUE 22.
 dummy-param            PIC X.
        PROCEDURE DIVISION.
            CALL X"AF" USING bell-code, dummy-param
+           GOBACK.
-           GOBACK
-           .</syntaxhighlight>
+       END PROGRAM mf-bell.</syntaxhighlight>
 =={{header|Common Lisp}}==