:Frequency Analysish:Using DFT, Discrete Fourier Transformation, this program can give you:a discription of whatever you put into the Turbo R mikrophone.(:2:This program uses normal 'STUPID' DFT and not FFT.#<:This was to make it simple. USE XBASIC !!!!+F:aP: Program and Math develloped by Henrik Gilvad.Z: 10th November 1993, 2-6 AMdn"grp:"AS1xAZ_PAUSE()䁌(,)(,),,BF:_PCMREC(@,,, ,,S)%:S=128:FORA=1024TO1534:VPOKEA,S:NEXTA:VPOKE1050,255 'Test-:_TURBOONATLX()_Q:FRQKQ::A(A):X(K)A A  A(A)AWP(K,)(,A ),Kʂ8:*** This is the DFT function, call it with K=frequency# you want to examine.It returns the value in A.}PIKAbSQ:NQ:AA((N))(PIN):N:AAQ::"$()(,)҃,A( ):X(X()):Y(Y()):,(X,Y),:6()hF@()RX:X(X):(,):A$"Pind:"(X)" Freq:"(FRX)" Value:"(X(X))" ":XRgJJ(A$):T((A$,J,))T:#I&H3a,T,&Hcd,&H8d,0^(,):Jh(),r_TURBOOFF|