Data update

Task/Terminal-control-Ringing-the-terminal-bell/Ada/terminal-control-ringing-the-terminal-bell.ada

@@ -1,7 +0,0 @@
-with Ada.Text_IO; use Ada.Text_IO;
-with Ada.Characters.Latin_1;
-
-procedure Bell is
-begin
-   Put(Ada.Characters.Latin_1.BEL);
-end Bell;

Task/Terminal-control-Ringing-the-terminal-bell/Batch-File/terminal-control-ringing-the-terminal-bell.bat

@@ -1,3 +1,4 @@
 @echo off
-for /f %%. in ('forfiles /m "%~nx0" /c "cmd /c echo 0x07"') do set bell=%%.
-echo %bell%
+setlocal enableextensions
+pushd %~dp0
+forfiles /m "%~nx0" /c "cmd /c echo 0x07"

Task/Terminal-control-Ringing-the-terminal-bell/COBOL/terminal-control-ringing-the-terminal-bell-1.cobol

@@ -1,12 +0,0 @@
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. ring-terminal-bell.
-
-       DATA DIVISION.
-       SCREEN SECTION.
-       01  ringer BELL.
-
-       PROCEDURE DIVISION.
-           DISPLAY ringer.
-           STOP RUN.
-
-       END PROGRAM ring-terminal-bell.

Task/Terminal-control-Ringing-the-terminal-bell/COBOL/terminal-control-ringing-the-terminal-bell-2.cobol

@@ -1,17 +0,0 @@
-      *> Tectonics: cobc -xj ring-terminal-bell.cob --std=cobol85
-       IDENTIFICATION DIVISION.
-       PROGRAM-ID. ring-ascii-bell.
-
-       ENVIRONMENT DIVISION.
-       CONFIGURATION SECTION.
-       OBJECT-COMPUTER.
-           PROGRAM COLLATING SEQUENCE IS ASCII.
-       SPECIAL-NAMES.
-           ALPHABET ASCII IS STANDARD-1.
-
-       PROCEDURE DIVISION.
-           DISPLAY FUNCTION CHAR(8) WITH NO ADVANCING.
-      *>   COBOL indexes starting from 1.
-           STOP RUN.
-
-       END PROGRAM ring-ascii-bell.

Task/Terminal-control-Ringing-the-terminal-bell/COBOL/terminal-control-ringing-the-terminal-bell-3.cobol

@@ -1,13 +0,0 @@
-       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.
-
-       END PROGRAM mf-bell.

Task/Terminal-control-Ringing-the-terminal-bell/Emacs-Lisp/terminal-control-ringing-the-terminal-bell.l

@@ -1,2 +0,0 @@
-(ding)    ;; ring the bell
-(beep)    ;; the same thing

Task/Terminal-control-Ringing-the-terminal-bell/PowerShell/terminal-control-ringing-the-terminal-bell-1.psh

@@ -1 +0,0 @@
-"`a"

Task/Terminal-control-Ringing-the-terminal-bell/PowerShell/terminal-control-ringing-the-terminal-bell-2.psh

@@ -1 +0,0 @@
-[Console]::Beep()