home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
progpas
/
visible.arj
/
SOUNDS
< prev
next >
Wrap
Text File
|
1985-08-08
|
384b
|
18 lines
PROGRAM SOUNDS; {let's see how the TONE procedure works}
VAR
NOTE : INTEGER;
DURATION : INTEGER;
BEGIN
DURATION := 500;
NOTE := 1;
TONE(NOTE,DURATION);
NOTE := 3;
TONE(NOTE,DURATION);
NOTE := 5;
TONE(NOTE,DURATION);
NOTE := 8;
TONE(NOTE,DURATION);
END.