[ADA 95] odtwarzanie dźwięku na speakerze

Potrzebuję funkcję do odgrywania sygnału na speakerze, koniecznie z regulacją częstotliwości dźwięku. Przetrząsnąłem google'a ale nic nie znalazłem w helpie od gnat'a również nic, bardzo proszę o pomoc. ps. (znak, ASCII.BEL - odpada :P

Lol, nie miałeś już czego szukać w helpie GNATa tylko procedur to obsługi pc-speakera :D Poważnie, jak ci się nie chce samemu w inline assemblerze pisać a nie znalazłeś żadnej biblioteki Adowej, to poszukaj pierwszej lepszej biblioteki C i albo zbinduj do Ady (pragma Import) albo przepisz w Adzie i tyle.

znalazłem kod w C:

#include "stdafx.h"
#include <iostream>
#include "windows.h"

int main(int argc, char* argv[])
{
   for(int x=1; x<32767; x=x+100)
   {
       Beep(x,1000);
   }
   return 0;
}

ale nie mam pojęcia jak to w ADE wrzucić? czy mógłby mi ktoś pomóc, bo nie bardzo kumam to pragma import ;P

Jeśli Beep jest funkcją to robisz:

(w specu)
procedure Beep( F, T: Integer );
(w body)
pragma Import( C, Beep, "Beep" );

natomiast jeśli Beep jest makrem to nie da się go zaimportować i będziesz musiał najpierw zawrzeć je w funkcji w C, skompilować ten fragment w C, i zlinkować do swojego programu w Adzie.