home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
progpas
/
visible.arj
/
SOUNDS2
< prev
next >
Wrap
Text File
|
1985-08-08
|
640b
|
28 lines
PROGRAM SOUNDS2; {uses sound generation}
VAR
L:INTEGER;
PROCEDURE REST(DURATION:INTEGER);
VAR N:INTEGER;
BEGIN
FOR N := 1 TO DURATION DO ;
END;
{------------------------------------------------}
BEGIN
FOR L := 1 TO 8 DO TONE(L,500); REST(1000);
TONE(5,200); TONE(3,200);
TONE(1,300); REST(100); TONE(1,300); REST(100);
FOR L := 1 TO 4 DO TONE(L,200);
TONE(5,300); REST(100);
TONE(5,300); REST(100);
TONE(5,400); TONE(3,300); REST(100);
TONE(5,150); REST(50); TONE(5,300); REST(100);
TONE(5,200); TONE(6,400); TONE(7,400);
TONE(8,1000);
END.