var word: string
get word
for c: 1 .. length (word)
    put word (c)
end for
Music.Sound (400,200)
Music.SoundOff
delay (1000)

for (int c = 0; c != word.size (); c++)

var word:string
get word
for c:1..length (word)
    put word(c)
    Music.Sound(400,200)
    Music.SoundOff
    delay (1000)
end for

outputWithBeepingAndDelay := method(msg, delay,
    msg foreach(c,
        (c asCharacter .. "\a") print
        System sleep(delay)
    )
    "" println
)

userInput := File standardInput readLine
delay := 1

outputWithBeepingAndDelay(userInput, delay)

REBOL []

charbeep: func [str] [foreach ch str [prin ch prin #"^G" wait 00:00:01]]
charbeep ask "? "

; As a gui
view layout [field [charbeep get-face face] button "Close" [unview/all halt]]

REBOL []
; Generate a ping waveform as a binary value:
ping: #{}
for amplitude 200 1 -1 [
    for phase 1 360 16 [
        val: 128 + to-integer 127 * sine phase
        val: amplitude * val / 200
        append ping to-char val
    ]
]
; Set up the sound sample parameters
sample: make sound [
    rate: 44100 / 2
    channels: 1
    bits: 8
    volume: 0.5
    data: #{}
]
append sample/data ping
beep: does [
    sound-port: open sound://
    insert sound-port sample
    wait sound-port
    close sound-port
]

; The task at hand, delay as function arg this time
charbeep: func [str delay] [foreach ch str [prin ch beep wait delay]]
charbeep ask "? " 00:00:01

; As a go function gui
go: does [view layout [field [charbeep get-face face 00:00:01] button "Close" [unview/all halt]]] go

#include <iostream>
#include <string>

using std::cout;
using std::cin;
using std::endl;
using std::string;

int main()
{
    cout << "Please enter a word: ";
    string word;
    cin >> word;
    for( int i = 0; i < word.length(); i++ )
    {
        cout << word[i] << "\a" << endl;
    }

    return 0;
}

#include <iostream>
#include <string>

using std::cout;
using std::cin;
using std::endl;
using std::string;

int main()
{
    cout << "Please enter a word: ";
    string word;
    cin >> word;
    for( int i = 0; i < word.length(); i++ )
    {
        cout << word[i] << "\a";
    }

    return 0;
}

object Test extends Application {
    readLine.foreach { c => print(c + "\07"); Thread sleep 1000}
}

***************************************************************
* Program to output a line, char by char with beeps and delays
*
* Associate TUBE with terminal mode OUTPUT; no newline
        OUTPUT('TUBE', 6, 'T')
* Define specs for CHBEEP and WAIT
        DEFINE('CHBEEP(STRING,DELAY)')
        DEFINE('WAIT(DELAY)')
* BEEP is Control-G
        &ALPHABET LEN(7) LEN(1) . BEEP
* Fetch a line from stdin, end on eof, or beep it out
        LINE = INPUT                            :F(END)
        CHBEEP(LINE,1)                          :(END)
* CHBEEP function peels off characters, displays, beeps, waits
CHBEEP  LINE LEN(1) . CH =                      :F(RETURN)
        TUBE = CH BEEP
        WAIT(DELAY)                             :(CHBEEP)
* WAIT function pauses for DELAY seconds
WAIT    T = TIME()
WAITING LT(TIME() - T, DELAY * 1000)            :S(WAITING)F(RETURN)
* The end
END

// read a line, output each char with a beep and a wait
import std.stdio;
import std.c.time;

void main() {
    char[] buf = readln();
    foreach (char ch ; buf) {
        putc(ch, stderr); putc(7, stderr); msleep(1000);
    }
}

program BeepTest;
uses crt;
    procedure Beep;
    begin
        write(stdout, #7)
    end;
var
    UserInput : String;
    LenOfUserInput, I : Integer;
begin
    ReadLn(UserInput);
    LenOfUserInput := Length(UserInput);

    for I := 1 to LenOfUserInput do
    begin
        write(UserInput[I]);
        delay(1000);
        beep
    end
end.

$| = 1; map { print "$_\a"; sleep(1) } split //, #ARGV[0]

###############################################################
# Program to read a line; display each char with beep and delay
procedure main()
    every writes(!read(), char(7), delay(1000))
end

: chbeep  pad dup 80 accept  + pad  do i c@ emit 7 emit 1000 ms loop ;  chbeep

      * Beeper.cob for compsci.ca exercise
      ** Read a line of user input, display each character with a
      ** 1 second delay and a beep.
       IDENTIFICATION DIVISION.
       PROGRAM-ID. beeper IS INITIAL.
       AUTHOR. Brian Tiffin.
       SECURITY. None.
       INSTALLATION. http://www.compsci.ca.
       DATE-WRITTEN. 11-June-2008.
       DATE-COMPILED.

       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 USER-DATA                    PIC X(80) VALUE SPACES.
       01 CHAR-COUNT                   PIC 99 VALUE ZEROES.
       01 CHAR-INDEX                   PIC 99 VALUE ZEROES.

       PROCEDURE DIVISION.
       BEGIN.
      * Fancy up the screen; work around for display
       DISPLAY SPACE WITH
           FOREGROUND-COLOR 3
           BACKGROUND-COLOR 1
           BLANK SCREEN
       END-DISPLAY
      * get the input   
       DISPLAY ": " WITH NO ADVANCING.
       ACCEPT USER-DATA.
      * get the user input length by scanning back for non space
       PERFORM VARYING CHAR-COUNT FROM 80 BY -1
           UNTIL USER-DATA(CHAR-COUNT:1) NOT = SPACE
       END-PERFORM
      * output each character with a beep and then pause
       PERFORM VARYING CHAR-INDEX FROM 1 BY 1
           UNTIL CHAR-INDEX > CHAR-COUNT
           DISPLAY USER-DATA(CHAR-INDEX:1)
               LINE 3 COLUMN CHAR-INDEX WITH BELL
           END-DISPLAY
           CALL "C$SLEEP" USING "1"
       END-PERFORM.
       EXIT PROGRAM.

$ cobc -free -x beeper.cob

import flash.events.*;

var tField:TextField = new TextField();
tField.width = 550;
tField.height = 400;
tField.type = TextFieldType.INPUT;

var sInput:String;
var nIndex:Number = 0;
var nFrame:Number = 0;

function keyListener(e:KeyboardEvent):void {
        if (e.keyCode == Keyboard.ENTER) {
                tField.type = TextFieldType.DYNAMIC;
                sInput = tField.text;
                tField.appendText("\n");
        }
}
function frameListener(e:Event):void {
        if (sInput != null) {
                nFrame++;
                if (nFrame >= 30) {
                        tField.appendText(sInput.substr(nIndex,1));
                        nIndex++;
                        if (nIndex > sInput.length)
                                sInput = null;
                        nFrame = 0;
                }
        }
}
stage.addEventListener(KeyboardEvent.KEY_DOWN, keyListener);
stage.addEventListener(Event.ENTER_FRAME, frameListener);
stage.addChild(tField);
stage.frameRate = 30;