littlegoat.pp

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.