Create sound and muzik

 ''for original code see tomas watson 
 ''vesion 22-apr-2010 
 ''this wil make muzik later 
 ''and somthing verry strange 
 global samplerate , channels , bitpersample 
 global pi 
 pi = atn( 1 ) * 4 
 samplerate = 11025 
 channels = 1 
 bitpersample = 16 
 file$ = DefaultDir$ _ 
 + "\WAV\sin" "\WAV\sin" + nr$( 440 ) _ 
 + "_" "_" + nr$( 250 ) + ".wav" ".wav" 
 call openwav file$ 
 call drawwave 440 , 250 
 call closewav 
 playwave file$ 
 end 
 function nr$( no ) 
 nr$ = right$( "00000" "00000" + str$( no ) , 5 ) 
 end function 
 sub openwav filename$ 
 if ( samplerate <> 11025 ) _ 
 and ( samplerate <> 22050 ) _ 
 and ( samplerate <> 44100 ) then 
 samplerate = 11025 
 end if 
 if ( bitspersample <> 8 ) _ 
 and ( bitspersample <> 16 ) then 
 bitspersample = 8 
 end if 
 if ( channels <> 1 ) _ 
 and ( channels <> 2 ) then 
 channels = 1 
 end if 
 result = mkdir( "WAV" "WAV" ) 
 if result <> 0 then 
 print "MAKE "MAKE DIR ERROR !!" !!" 
 exit sub 
 end if 
 OPEN filename$ FOR OUTPUT AS #1 
 CLOSE #1 
 OPEN filename$ FOR BINARY AS #1 
 dat$ = "RIFF" "RIFF" + littleendian$( ascii$( length * samplerate * channels * bitspersample / 8 + 36, 4)) 
 PRINT #1, dat$ 
 dat$ = "WAVEfmt " "WAVEfmt " + littleendian$(ascii$(16, 4)) + littleendian$(ascii$(1, 2)) + littleendian$(ascii$(channels, 2)) 
 PRINT #1, dat$ 
 dat$ = littleendian$(ascii$(samplerate, 4)) + littleendian$(ascii$(samplerate * bitspersample / 8, 4)) 
 PRINT #1, dat$ 
 dat$ = littleendian$(ascii$(channels * bitspersample / 8, 2)) + littleendian$(ascii$(bitspersample, 2)) 
 PRINT #1, dat$ 
 dat$ = "data" "data" + littleendian$(ascii$(length * samplerate * channels * bitspersample / 8, 4)) 
 PRINT #1, dat$ 
 end sub 
 sub drawwav Hz , ms 
 FOR i = 1 TO ms * 1000 * samplerate _ 
 * bitspersample * channels / 8 
 num = SIN( i * Hz * pi * 2 / samplerate / 1000 ) 
 dat$ = CHR$( 127 * num + 127 ) 
 dat$ = CHR$( 120 * num + 7 * num2 + 128 ) 
 PRINT #1, dat$ 
 NEXT i 
 end sub 
 sub closewav 
 close #1 
 end sub 
 FUNCTION ascii$( num , leng ) 
 remain = num 
 b$ = "" "" 
 pow = 0 
 ascii$ = "" "" 
 WHILE pow <> 1 
 a = remain 
 pow = 1 
 WHILE a > 255 
 a = INT( remain / ( 256 ^ pow ) ) 
 pow = pow + 1 
 WEND 
 b$ = b$ + CHR$(a) 
 remain = remain - ( a * ( 256 ^ ( pow - 1 ) ) ) 
 WEND 
 WHILE LEN( b$ ) <> leng 
 b$ = CHR$(0) + b$ 
 WEND 
 ascii$ = b$ 
 END FUNCTION 
 FUNCTION littleendian$( st$ ) 
 'function to reverse byte order 
 res$ = "" "" 
 FOR i = LEN( st$ ) TO 1 STEP -1 
 res$ = res$ + MID$(st$, i, 1) 
 NEXT i 
 littleendian$ = res$ 
 END FUNCTION 
 FUNCTION soundbyte( frequency , byref n ) 
 o = ( n / 2 / pi _ 
 * samplerate * bitspersample * channels / 8 / frequency + 1 ) _ 
 / samplerate / bitspersample / channels * 8 * frequency _ 
 * 2 * pi 
 soundbyte = o 
 n = o 
 end function