Sound(prosedur)

Untuk mengaktifkan suara(beep) pada internal speaker.

Sintaks:

SOUND(Hz : word);

Untuk mengnonaktifkannya, gunakan statemen NOSOUND.

Contoh :

PROGRAM Layar2;
USES CRT;
BEGIN
    CLRSCR;
    WINDOW(5,5,20,75);
    TEXTBACKGROUND(RED);
    TEXTCOLOR(YELLOW);
    SOUND(220);
    GOTOXY(10,7);
    WRITELN('Laboratorium Komputer');
    GOTOXY(11,7);
    WRITELN('Manejemen Informatika');
    NOSOUND;
END.