home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
pascal
/
interpre
/
vispas
/
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.