procedure leiter; var i:Integer; begin for i := 0 to 10 do sound_play(50+i*2,100); end;
selectSound(1); // Piano MIDI leiter();
ausführen
var Lied:String; key:integer; dauer:integer; c:Char; k:Char; i:Integer;
Lied := 'E-4 E-4 E-2 E-4 E-4 E-2 E-4 G-4 C-4 '+ 'D-4 E-1 F-4 F-4 F-4 F-4 F-4 E-4 E-4 '+ 'E-8 E-8 E-4 D-4 D-4 E-4 D-2 G-2'; selectSound(19); // 19. MIDI organ for i := 1 to length(Lied) do begin if i mod 4 = 1 then begin c := Lied[i]; k := Lied[i+2]; if c = 'C' then key := 60; if c = 'D' then key := 62; if c = 'E' then key := 64; if c = 'F' then key := 65; if c = 'G' then key := 67; if c = 'A' then key := 69; if c = 'H' then key := 71; if k = '1' then dauer := 1000 div 1; if k = '2' then dauer := 1000 div 2; if k = '4' then dauer := 1000 div 4; if k = '8' then dauer := 1000 div 8; sound_play(key,dauer); end; end;