Import "bass.dll"
Import "user32.dll"

Extern

   Function BASS_ErrorGetCode%() = "BASS_ErrorGetCode"
   Function BASS_Free() = "BASS_Free"
   Function BASS_GetCPU#() = "BASS_GetCPU"
   Function BASS_GetDeviceDescriptionInt%(devnum) = "BASS_GetDeviceDescription"
   Function BASS_GetDSoundObject(Bobject) = "BASS_GetDSoundObject"
   Function BASS_GetGlobalVolumes(musvol,samvol,strvol) = "BASS_GetGlobalVolumes"
   Function BASS_GetInfo(info) = "BASS_GetInfo"
   Function BASS_GetVersion%() = "BASS_GetVersion"
   Function BASS_GetVolume%() = "BASS_GetVolume"
   Function BASS_Init(device,freq,flags,win) = "BASS_Init"
   Function BASS_Pause%() = "BASS_Pause"
   Function BASS_SetBufferLength#(length#) = "BASS_SetBufferLength"
   Function BASS_SetCLSID(clsid) = "BASS_SetCLSID"
   Function BASS_SetGlobalVolumes(musvol,samvol,strvol) = "BASS_SetGlobalVolumes"
   Function BASS_SetLogCurves(volume,pan) = "BASS_SetLogCurves"
   Function BASS_SetNetConfig%(option,value) = "BASS_SetNetConfig"
   Function BASS_SetVolume%(volume) = "BASS_SetVolume"
   Function BASS_Start%() = "BASS_Start"
   Function BASS_Stop%() = "BASS_Stop"
   Function BASS_Update%() = "BASS_Update"
   
   Function BASS_Apply3D%() = "BASS_Apply3D"
   Function BASS_Get3DFactors%(distf,rollf,doppf) = "BASS_Get3DFactors"
   Function BASS_Get3DPosition%(pos,vel,front,top) = "BASS_Get3DPosition"
   Function BASS_GetEAXParameters%(env,vol,decay,damp) = "BASS_GetEAXParameters"
   Function BASS_Set3DAlgorithm(algo) = "BASS_Set3DAlgorithm"
   Function BASS_Set3DFactors%(distf#,rollf#,doppf#) = "BASS_Set3DFactors"
   Function BASS_Set3DPosition%(pos,vel,front,top) = "BASS_Set3DPosition"
   Function BASS_SetEAXParameters%(env,vol#,decay#,damp#) = "BASS_SetEAXParameters"
   
   Function BASS_CDDoor%(open) = "BASS_CDDoor"
   Function BASS_CDFree() = "BASS_CDFree"
   Function BASS_CDGetID$(id) = "BASS_CDGetID"
   Function BASS_CDGetTrackLength%(track) = "BASS_CDGetTrackLength"
   Function BASS_CDGetTracks%() = "BASS_CDGetTracks"
   Function BASS_CDInDrive%() = "BASS_CDInDrive"
   Function BASS_CDInit%(drive$,flags) = "BASS_CDInit"
   Function BASS_CDPlay%(track,loop,wait) = "BASS_CDPlay"
   
   Function BASS_SampleCreate%(Blength,Bfreg,Bmax,Bflags) = "BASS_SampleCreate"
   Function BASS_SampleCreateDone%() = "BASS_SampleCreateDone"
   Function BASS_SampleFree(handle) = "BASS_SampleFree"
   Function BASS_SampleGetInfo%(handle,info) = "BASS_SampleGetInfo"
   Function BASS_SampleLoad%(mem,file$,offset,length,Bmax,flags) = "BASS_SampleLoad"
   Function BASS_SamplePlay%(handle) = "BASS_SamplePlay"
   Function BASS_SamplePlay3D%(handle,pos,orient,vel) = "BASS_SamplePlay3D"
   Function BASS_SamplePlay3DEx%(handle,pos,orient,vel,start,freg,volume,loop) = "BASS_SamplePlay3DEx"
   Function BASS_SamplePlayEx%(handle,start,freg,volume,pan,loop) = "BASS_SamplePlayEx"
   Function BASS_SampleSetInfo%(handle,info) = "BASS_SampleSetInfo"
   Function BASS_SampleStop%(handle) = "BASS_SampleStop"
   
   Function BASS_StreamCreate%(freg,flags,proc,user) = "BASS_StreamCreate"
   Function BASS_StreamCreateFile%(mem,file$,offset,length,flags) = "BASS_StreamCreateFile"
   Function BASS_StreamCreateURL%(url$,offset,flags,save$) = "BASS_StreamCreateURL"
   Function BASS_StreamFree(handle) = "BASS_StreamFree"
   Function BASS_StreamGetFilePosition%(handle,mode) = "BASS_StreamGetFilePosition"
   Function BASS_StreamGetLength%(handle) = "BASS_StreamGetLength"
   Function BASS_StreamGetTagsInt%(handle,tags) = "BASS_StreamGetTags"
   Function BASS_StreamPlay%(handle,flush,flags) = "BASS_StreamPlay"
   Function BASS_StreamPreBuf%(handle) = "BASS_StreamPreBuf"
   
   Function BASS_MusicFree(handle) = "BASS_MusicFree"
   Function BASS_MusicGetChannelVol%(handle,channel) = "BASS_MusicGetChannelVol"
   Function BASS_MusicGetLength%(handle,playlen) = "BASS_MusicGetLength"
   Function BASS_MusicGetName$(handle) = "BASS_MusicGetName"
   Function BASS_MusicLoad%(mem,file$,offset,length,flags) = "BASS_MusicLoad"
   Function BASS_MusicPlay%(handle) = "BASS_MusicPlay"
   Function BASS_MusicPlayEx%(handle,pos,flags,reset) = "BASS_MusicPlayEx"
   Function BASS_MusicPreBuf%(handle) = "BASS_MusicPreBuf"
   Function BASS_MusicSetAmplify%(handle,amp) = "BASS_MusicSetAmplify"
   Function BASS_MusicSetChannelVol%(handle,channel,volume) = "BASS_MusicSetChannelVol"
   Function BASS_MusicSetPanSep%(handle,pan) = "BASS_MusicSetPanSep"
   Function BASS_MusicSetPositionScaler%(handle,scale) = "BASS_MusicSetPositionScaler"
   
   Function BASS_RecordFree() = "BASS_RecordFree"
   Function BASS_RecordGetDeviceDescriptionInt%(devnum) = "BASS_RecordGetDeviceDescription"
   Function BASS_RecordGetInfo(info) = "BASS_RecordGetInfo"
   Function BASS_RecordGetInput%(input) = "BASS_RecordGetInput"
   Function BASS_RecordGetInputNameInt%(input) = "BASS_RecordGetInputName"
   Function BASS_RecordInit%(device) = "BASS_RecordInit"
   Function BASS_RecordSetInput%(input,setting) = "BASS_RecordSetInput"
   Function BASS_RecordStart%(freg,flags,proc,user) = "BASS_RecordStart"
   
   Function BASS_ChannelBytes2Seconds#(handle,pos) = "BASS_ChannelBytes2Seconds"
   Function BASS_ChannelGet3DAttributes%(handle,mode,Bmin,Bmax,iangle,oangle,outvol) = "BASS_ChannelGet3DAttributes"
   Function BASS_ChannelGet3DPosition%(pos,orient,vel) = "BASS_ChannelGet3DPosition"
   Function BASS_ChannelGetAttributes%(handle,freq,volume,pan) = "BASS_ChannelGetAttributes"
   Function BASS_ChannelGetData%(handle,buffer,length) = "BASS_ChannelGetData"
   Function BASS_ChannelGetEAXMix%(handle,mix) = "BASS_ChannelGetEAXMix"
   Function BASS_ChannelGetFlags%(handle) = "BASS_ChannelGetFlags"
   Function BASS_ChannelGetLevel%(handle) = "BASS_ChannelGetLevel"
   Function BASS_ChannelGetPosition%(handle) = "BASS_ChannelGetPosition"
   Function BASS_ChannelIsActive%(handle) = "BASS_ChannelIsActive"
   Function BASS_ChannelIsSliding%(handle) = "BASS_ChannelIsSliding"
   Function BASS_ChannelPause%(handle) = "BASS_ChannelPause"
   Function BASS_ChannelRemoveDSP%(handle,dsp) = "BASS_ChannelRemoveDSP"
   Function BASS_ChannelRemoveFX%(handle,fx) = "BASS_ChannelRemoveFX"
   Function BASS_ChannelRemoveLink%(handle,cahn) = "BASS_ChannelRemoveLink"
   Function BASS_ChannelRemoveSync%(handle,sync) = "BASS_ChannelRemoveSync"
   Function BASS_ChannelResume%(handle) = "BASS_ChannelResume"
   Function BASS_ChannelSeconds2Bytes%(handle,pos#) = "BASS_ChannelSeconds2Bytes"
   Function BASS_ChannelSet3DAttributes%(handle,mode,Bmin#,Bmax#,iangle,oangle,outvol) = "BASS_ChannelSet3DAttributes"
   Function BASS_ChannelSet3DPosition%(handle,pos,orient,vel) = "BASS_ChannelSet3DPosition"
   Function BASS_ChannelSetAttributes%(handle,freg,volume,pan) = "BASS_ChannelSetAttributes"
   Function BASS_ChannelSetDSP%(handle,proc,user) = "BASS_ChannelSetDSP"
   Function BASS_ChannelSetEAXMix%(handle,mix#) = "BASS_ChannelSetEAXMix"
   Function BASS_ChannelSetFX%(handle,Btype) = "BASS_ChannelSetFX"
   Function BASS_ChannelSetLink%(handle,chan) = "BASS_ChannelSetLink"
   Function BASS_ChannelSetPosition%(handle,pos) = "BASS_ChannelSetPosition"
   Function BASS_ChannelSetSync%(handle,Btype,param,proc,user) = "BASS_ChannelSetSync"
   Function BASS_ChannelSlideAttributes%(handle,freg,volume,pan,time) = "BASS_ChannelSlideAttributes"
   Function BASS_ChannelStop%(handle) = "BASS_ChannelStop"
   
   Function BASS_FXGetParameters%(handle,par) = "BASS_FXGetParameters"
   Function BASS_FXSetParameters%(handle,par) = "BASS_FXSetParameters"

End Extern

Extern

   Function GetActiveWindow%() = "GetActiveWindow"

End Extern



Global GX = 1024,GY = 768


Graphics GX,GY,0

hWnd = GetActiveWindow()                           'aktives window kriegen (mein Prog)
If BASS_Init(-1,44100,0,hWnd) Then                  'BASS initialisieren (-1=standard sound treiber, 44100=samplerate, 0=flags, hwnd=window für sound
   Print "bass.dll can't be initialize!"
EndIf