

  S O U N D                                     R. Neubauer


Zu rasche un einfache Erprobun de SOUN - Mglichkeite de    
IB͠ - Computer kan ma di Notenschrif einfache Musikstck    
relati leich i ei Musi - Computerprogram umsetzen inde ma    
f jede To di Tonhh i Hert un di Tonlng i Millise
kunde eingibt Be folgende Listin wurd die bezglic de 
Frequen tatschlic durchgefhrt bezglic de Tonlng jedoc 
ei Unterprogram bentzt d be diese al erste ausgewhlte 
Musikstc Praeludiu zu wohltemperierte Klavie vo J.S.Bac 
fas ausschliesslic  Ausnahm nu de letzt Tak 3  ein 
einzig Tonlng vorkommt Di Date kan al .PA - Date z.B 
mittel TURB - PASCA betrachtet abe auc ausgefhr werden.

program bach;
var i:integer;
procedure h(f:integer);
begin
   sound(f);delay(250);nosound;
end;
begin
   for i:=1 to 2 do  (* Takt 1 *)
   begin
      h(259);h(326);h(388);h(518);h(652);h(388);h(518);h(652);
   end;
   for i:=1 to 2 do  (* 2 *)
   begin
      h(259);h(291);h(436);h(581);h(691);h(436);h(581);h(691);
   end;
   for i:=1 to 2 do  (* 3 *)
   begin
      h(244);h(291);h(388);h(581);h(691);h(388);h(581);h(691);
   end;
   for i:=1 to 2 do  (* 4 *)
   begin
      h(259);h(326);h(388);h(518);h(652);h(388);h(518);h(652);
   end;
   for i:=1 to 2 do  (* 5 *)
   begin
      h(259);h(326);h(436);h(652);h(872);h(436);h(652);h(872);
   end;
   for i:=1 to 2 do  (* 6 *)
   begin
      h(259);h(291);h(366);h(436);h(581);h(366);h(436);h(581);
   end;
   for i:=1 to 2 do  (* 7 *)
   begin
      h(244);h(291);h(388);h(581);h(776);h(388);h(581);h(776);
   end;
   for i:=1 to 2 do  (* 8 *)
   begin
      h(244);h(259);h(326);h(388);h(518);h(326);h(388);h(518);
   end;
   for i:=1 to 2 do  (* 9 *)
   begin
      h(218);h(259);h(326);h(388);h(518);h(326);h(388);h(518);
   end;
   for i:=1 to 2 do  (* 10 *)
   begin
      h(145);h(218);h(290);h(366);h(518);h(290);h(366);h(518);
   end;
   for i:=1 to 2 do  (* 11 *)
   begin
      h(194);h(244);h(290);h(388);h(488);h(290);h(388);h(488);
   end;
   for i:=1 to 2 do  (* 12 *)
   begin
      h(194);h(230);h(326);h(388);h(548);h(326);h(388);h(548);
   end;
   for i:=1 to 2 do  (* 13 *)
   begin
      h(173);h(218);h(290);h(435);h(581);h(290);h(435);h(581);
   end;
   for i:=1 to 2 do  (* 14 *)
   begin
      h(173);h(205);h(290);h(345);h(488);h(290);h(345);h(488);
   end;
   for i:=1 to 2 do  (* 15 *)
   begin
      h(163);h(194);h(259);h(388);h(518);h(259);h(388);h(518);
   end;
   for i:=1 to 2 do  (* 16 *)
   begin
      h(163);h(173);h(218);h(259);h(345);h(218);h(259);h(345);
   end;
   for i:=1 to 2 do  (* 17 *)
   begin
      h(145);h(173);h(218);h(259);h(345);h(218);h(259);h(345);
   end;
   for i:=1 to 2 do  (* 18 *)
   begin
      h(097);h(145);h(194);h(244);h(345);h(194);h(244);h(345);
   end;
   for i:=1 to 2 do  (* 19 *)
   begin
      h(129);h(163);h(194);h(259);h(326);h(194);h(259);h(326);
   end;
   for i:=1 to 2 do  (* 20 *)
   begin
      h(129);h(194);h(230);h(259);h(326);h(230);h(259);h(326);
   end;
   for i:=1 to 2 do  (* 21 *)
   begin
      h(086);h(173);h(218);h(259);h(326);h(218);h(259);h(326);
   end;
   for i:=1 to 2 do  (* 22 *)
   begin
      h(091);h(129);h(218);h(259);h(308);h(218);h(259);h(308);
   end;
   for i:=1 to 2 do  (* 23 *)
   begin
      h(103);h(173);h(244);h(259);h(290);h(244);h(259);h(290);
   end;
   for i:=1 to 2 do  (* 24 *)
   begin
      h(097);h(173);h(194);h(244);h(290);h(194);h(244);h(290);
   end;
   for i:=1 to 2 do  (* 25 *)
   begin
      h(097);h(163);h(194);h(259);h(326);h(194);h(259);h(326);
   end;
   for i:=1 to 2 do  (* 26 *)
   begin
      h(097);h(145);h(194);h(259);h(345);h(194);h(259);h(345);
   end;
   for i:=1 to 2 do  (* 27 *)
   begin
      h(097);h(145);h(194);h(244);h(345);h(194);h(244);h(345);
   end;
   for i:=1 to 2 do  (* 28 *)
   begin
      h(097);h(154);h(218);h(259);h(366);h(218);h(259);h(366);
   end;
   for i:=1 to 2 do  (* 29 *)
   begin
      h(097);h(163);h(194);h(259);h(388);h(194);h(259);h(388);
   end;
   for i:=1 to 2 do  (* 30 *)
   begin
      h(097);h(145);h(194);h(259);h(345);h(194);h(259);h(345);
   end;
   for i:=1 to 2 do  (* 31 *)
   begin
      h(097);h(145);h(194);h(244);h(345);h(194);h(244);h(345);
   end;
   for i:=1 to 2 do  (* 32 *)
   begin
      h(065);h(130);h(194);h(230);h(326);h(194);h(230);h(326);
   end;
   h(065);h(130);h(173);h(218);h(259);h(345);h(259);h(218);h(259);
   h(218);h(173);h(218);h(173);h(145);h(173);h(145); (* 33 *)
   h(065);h(122);h(388);h(488);h(581);h(691);h(581);h(488);h(581);
   h(488);h(388);h(488);h(291);h(345);h(326);h(291); (* 34 *)
   sound(259);delay(2000);nosound;     (* 35 *)
end.



.pa
