Skip to content

Instantly share code, notes, and snippets.

@podstawek
Last active Apr 12, 2022
Embed
What would you like to do?
PROGRAM sound;
USES HWINT;
PROCEDURE Delay(milli: MilliSeconds);
VAR old: MilliSeconds;
BEGIN
old := Timer;
repeat
begin
end;
until Timer - old > milli;
end;
BEGIN
SetVolume(2);
writeln('G4');
beep(2551,450);
Delay(450);
writeln('C5');
beep(1910,150);
Delay(300);
writeln('C5');
beep(1910,150);
Delay(300);
writeln('B4');
beep(2025,450);
Delay(450);
writeln('G4');
beep(2551,400);
Delay(450);
writeln('G4');
beep(2551,450);
Delay(450);
writeln('B4');
beep(2025,150);
Delay(300);
writeln('D5');
beep(1703,150);
Delay(300);
writeln('E5');
beep(1517,450);
Delay(450);
writeln('C5');
beep(1910,400);
Delay(450);
writeln('G4');
beep(2551,450);
Delay(450);
writeln('C5');
beep(1910,150);
Delay(300);
writeln('C5');
beep(1910,150);
Delay(300);
writeln('B4');
beep(2025,450);
Delay(450);
writeln('G4');
beep(2551,400);
Delay(450);
writeln('D5');
beep(1703,450);
Delay(450);
writeln('A4');
beep(2273,150);
Delay(300);
writeln('B4');
beep(2025,150);
Delay(300);
writeln('C5');
beep(1910,450);
Delay(450);
writeln('C5');
beep(1910,400);
Delay(450);
writeln('A4');
beep(2273,400);
Delay(450);
writeln('F5');
beep(1432,150);
Delay(300);
writeln('F5');
beep(1432,150);
Delay(300);
writeln('G4');
beep(2551,400);
Delay(450);
writeln('E5');
beep(1517,150);
Delay(300);
writeln('E5');
beep(1517,150);
Delay(300);
writeln('B4');
beep(2025,100);
Delay(150);
writeln('C5');
beep(1910,100);
Delay(150);
writeln('D5');
beep(1703,150);
Delay(300);
writeln('D5');
beep(1703,150);
Delay(300);
writeln('C5');
beep(1910,100);
Delay(150);
writeln('D5');
beep(1703,100);
Delay(150);
writeln('E5');
beep(1517,150);
Delay(300);
writeln('E5');
beep(1517,150);
Delay(300);
writeln('F5');
beep(1432,400);
Delay(450);
writeln('A4');
beep(2273,150);
Delay(300);
writeln('A4');
beep(2273,150);
Delay(300);
writeln('E5');
beep(1517,400);
Delay(450);
writeln('G4');
beep(2551,150);
Delay(300);
writeln('G4');
beep(2551,150);
Delay(300);
writeln('D5');
beep(1703,400);
Delay(450);
writeln('A4');
beep(2273,150);
Delay(300);
writeln('B4');
beep(2025,150);
Delay(300);
writeln('C5');
beep(1910,400);
Delay(450);
writeln('C5');
beep(1910,400);
Delay(450);
END.
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment