BASS_RecordSetDevice
   BASS_RecordGetDevice
   BASS_RecordStart
   BASS_ChannelGetDevice

.lib "Bass.dll"
BASS_ErrorGetCode%() : "BASS_ErrorGetCode"
BASS_Free() : "BASS_Free"
BASS_GetCPU#() : "BASS_GetCPU"
BASS_GetDeviceDescription$(devnum) : "BASS_GetDeviceDescription"
BASS_GetDSoundObject(object) : "BASS_GetDSoundObject"
BASS_GetGlobalVolumes(musvol*,samvol*,strvol*) : "BASS_GetGlobalVolumes"
BASS_GetInfo(info*) : "BASS_GetInfo"
BASS_GetVersion%() : "BASS_GetVersion"
BASS_GetVolume%() : "BASS_GetVolume"
BASS_Init%(device,freq,flags,win) : "BASS_Init"
BASS_Pause%() : "BASS_Pause"
BASS_SetBufferLength#(length#) : "BASS_SetBufferLength"
BASS_SetCLSID(clsid*) : "BASS_SetCLSID"
BASS_SetGlobalVolumes(musvol,samvol,strvol) : "BASS_SetGlobalVolumes"
BASS_SetLogCurves(volume,pan) : "BASS_SetLogCurves"
BASS_SetNetConfig%(option,value) : "BASS_SetNetConfig"
BASS_SetVolume%(volume) : "BASS_SetVolume"
BASS_Start%() : "BASS_Start"
BASS_Stop%() : "BASS_Stop"
BASS_Update%() : "BASS_Update"

BASS_Apply3D%() : "BASS_Apply3D"
BASS_Get3DFactors%(distf*,rollf*,doppf*) : "BASS_Get3DFactors"
BASS_Get3DPosition%(pos*,vel*,front*,top*) : "BASS_Get3DPosition"
BASS_GetEAXParameters%(env*,vol*,decay*,damp*) : "BASS_GetEAXParameters"
BASS_Set3DAlgorithm(algo) : "BASS_Set3DAlgorithm"
BASS_Set3DFactors%(distf#,rollf#,doppf#) : "BASS_Set3DFactors"
BASS_Set3DPosition%(pos*,vel*,front*,top*) : "BASS_Set3DPosition"
BASS_SetEAXParameters%(env,vol#,decay#,damp#) : "BASS_SetEAXParameters"

BASS_CDDoor%(open) : "BASS_CDDoor"
BASS_CDFree() : "BASS_CDFree"
BASS_CDGetID$(id) : "BASS_CDGetID"
BASS_CDGetTrackLength%(track) : "BASS_CDGetTrackLength"
BASS_CDGetTracks%() : "BASS_CDGetTracks"
BASS_CDInDrive%() : "BASS_CDInDrive"
BASS_CDInit%(drive$,flags) : "BASS_CDInit"
BASS_CDPlay%(track,loop,wait) : "BASS_CDPlay"

BASS_SampleCreate%(length,freg,max,flags) : "BASS_SampleCreate"
BASS_SampleCreateDone%() : "BASS_SampleCreateDone"
BASS_SampleFree(handle) : "BASS_SampleFree"
BASS_SampleGetInfo%(handle,info*) : "BASS_SampleGetInfo"
BASS_SampleLoad%(mem,file$,offset,length,max,flags) : "BASS_SampleLoad"
BASS_SamplePlay%(handle) : "BASS_SamplePlay"
BASS_SamplePlay3D%(handle,pos*,orient*,vel*) : "BASS_SamplePlay3D"
BASS_SamplePlay3DEx%(handle,pos*,orient*,vel*,start,freg,volume,loop) : "BASS_SamplePlay3DEx"
BASS_SamplePlayEx%(handle,start,freg,volume,pan,loop) : "BASS_SamplePlayEx"
BASS_SampleSetInfo%(handle,info*) : "BASS_SampleSetInfo"
BASS_SampleStop%(handle) : "BASS_SampleStop"

BASS_StreamCreate%(freg,flags,proc*,user) : "BASS_StreamCreate"
BASS_StreamCreateFile%(mem,file$,offset,length,flags) : "BASS_StreamCreateFile"
BASS_StreamCreateURL%(url$,offset,flags,save$) : "BASS_StreamCreateURL"
BASS_StreamFree(handle) : "BASS_StreamFree"
BASS_StreamGetFilePosition%(handle,mode) : "BASS_StreamGetFilePosition"
BASS_StreamGetLength%(handle) : "BASS_StreamGetLength"
BASS_StreamGetTags%(handle,tags) : "BASS_StreamGetTags"
BASS_StreamPlay%(handle,flush,flags) : "BASS_StreamPlay"
BASS_StreamPreBuf%(handle) : "BASS_StreamPreBuf"

BASS_MusicFree(handle) : "BASS_MusicFree"
BASS_MusicGetChannelVol%(handle,channel) : "BASS_MusicGetChannelVol"
BASS_MusicGetLength%(handle,playlen) : "BASS_MusicGetLength"
BASS_MusicGetName$(handle) : "BASS_MusicGetName"
BASS_MusicLoad%(mem,file$,offset,length,flags) : "BASS_MusicLoad"
BASS_MusicPlay%(handle) : "BASS_MusicPlay"
BASS_MusicPlayEx%(handle,pos,flags,reset) : "BASS_MusicPlayEx"
BASS_MusicPreBuf%(handle) : "BASS_MusicPreBuf"
BASS_MusicSetAmplify%(handle,amp) : "BASS_MusicSetAmplify"
BASS_MusicSetChannelVol%(handle,channel,volume) : "BASS_MusicSetChannelVol"
BASS_MusicSetPanSep%(handle,pan) : "BASS_MusicSetPanSep"
BASS_MusicSetPositionScaler%(handle,scale) : "BASS_MusicSetPositionScaler"

BASS_RecordFree() : "BASS_RecordFree"
BASS_RecordGetDeviceDescription$(devnum) : "BASS_RecordGetDeviceDescription"
BASS_RecordGetInfo(info*) : "BASS_RecordGetInfo"
BASS_RecordGetInput%(input) : "BASS_RecordGetInput"
BASS_RecordGetInputName$(input) : "BASS_RecordGetInputName"
BASS_RecordInit%(device) : "BASS_RecordInit"
BASS_RecordSetInput%(input,setting) : "BASS_RecordSetInput"
BASS_RecordStart%(freg,flags,proc*,user) : "BASS_RecordStart"

BASS_ChannelBytes2Seconds#(handle,pos) : "BASS_ChannelBytes2Seconds"
BASS_ChannelGet3DAttributes%(handle,mode*,min*,max*,iangle*,oangle*,outvol*) : "BASS_ChannelGet3DAttributes"
BASS_ChannelGet3DPosition%(pos*,orient*,vel*) : "BASS_ChannelGet3DPosition"
BASS_ChannelGetAttributes%(handle,freq*,volume*,pan*) : "BASS_ChannelGetAttributes"
BASS_ChannelGetData%(handle,buffer*,length) : "BASS_ChannelGetData"
BASS_ChannelGetEAXMix%(handle,mix*) : "BASS_ChannelGetEAXMix"
BASS_ChannelGetFlags%(handle) : "BASS_ChannelGetFlags"
BASS_ChannelGetLevel%(handle) : "BASS_ChannelGetLevel"
BASS_ChannelGetPosition%(handle) : "BASS_ChannelGetPosition"
BASS_ChannelIsActive%(handle) : "BASS_ChannelIsActive"
BASS_ChannelIsSliding%(handle) : "BASS_ChannelIsSliding"
BASS_ChannelPause%(handle) : "BASS_ChannelPause"
BASS_ChannelRemoveDSP%(handle,dsp) : "BASS_ChannelRemoveDSP"
BASS_ChannelRemoveFX%(handle,fx) : "BASS_ChannelRemoveFX"
BASS_ChannelRemoveLink%(handle,cahn) : "BASS_ChannelRemoveLink"
BASS_ChannelRemoveSync%(handle,sync) : "BASS_ChannelRemoveSync"
BASS_ChannelResume%(handle) : "BASS_ChannelResume"
BASS_ChannelSeconds2Bytes%(handle,pos#) : "BASS_ChannelSeconds2Bytes"
BASS_ChannelSet3DAttributes%(handle,mode,min#,max#,iangle,oangle,outvol) : "BASS_ChannelSet3DAttributes"
BASS_ChannelSet3DPosition%(handle,pos*,orient*,vel*) : "BASS_ChannelSet3DPosition"
BASS_ChannelSetAttributes%(handle,freg,volume,pan) : "BASS_ChannelSetAttributes"
BASS_ChannelSetDSP%(handle,proc*,user) : "BASS_ChannelSetDSP"
BASS_ChannelSetEAXMix%(handle,mix#) : "BASS_ChannelSetEAXMix"
BASS_ChannelSetFX%(handle,type) : "BASS_ChannelSetFX"
BASS_ChannelSetLink%(handle,chan) : "BASS_ChannelSetLink"
BASS_ChannelSetPosition%(handle,pos) : "BASS_ChannelSetPosition"
BASS_ChannelSetSync%(handle,type,param,proc*,user) : "BASS_ChannelSetSync"
BASS_ChannelSlideAttributes%(handle,freg,volume,pan,time) : "BASS_ChannelSlideAttributes"
BASS_ChannelStop%(handle) : "BASS_ChannelStop"

BASS_FXGetParameters%(handle,par*) : "BASS_FXGetParameters"
BASS_FXSetParameters%(handle,par*) : "BASS_FXSetParameters"

.lib "User32.dll"
GetActiveWindow%() : "GetActiveWindow"

.lib "Kernel32.dll"
RtlMoveMemory1%(Destination*,Source,Length) : "RtlMoveMemory"
RtlMoveMemory2%(Destination,Source*,Length) : "RtlMoveMemory"

Const BASSTRUE = 1   
Const BASSFALSE = 0 
Const BASS_OK = 0               
Const BASS_ERROR_MEM = 1       
Const BASS_ERROR_FILEOPEN = 2   
Const BASS_ERROR_DRIVER = 3     
Const BASS_ERROR_BUFLOST = 4   
Const BASS_ERROR_HANDLE = 5     
Const BASS_ERROR_FORMAT = 6     
Const BASS_ERROR_POSITION = 7   
Const BASS_ERROR_INIT = 8       
Const BASS_ERROR_START = 9     
Const BASS_ERROR_INITCD = 10   
Const BASS_ERROR_CDINIT = 11   
Const BASS_ERROR_NOCD = 12     
Const BASS_ERROR_CDTRACK = 13   
Const BASS_ERROR_ALREADY = 14
Const BASS_ERROR_CDVOL = 15     
Const BASS_ERROR_NOPAUSE = 16   
Const BASS_ERROR_NOTAUDIO = 17 
Const BASS_ERROR_NOCHAN = 18   
Const BASS_ERROR_ILLTYPE = 19   
Const BASS_ERROR_ILLPARAM = 20 
Const BASS_ERROR_NO3D = 21     
Const BASS_ERROR_NOEAX = 22     
Const BASS_ERROR_DEVICE = 23   
Const BASS_ERROR_NOPLAY = 24   
Const BASS_ERROR_FREQ = 25     
Const BASS_ERROR_NOTFILE = 27   
Const BASS_ERROR_NOHW = 29     
Const BASS_ERROR_EMPTY = 31     
Const BASS_ERROR_NONET = 32     
Const BASS_ERROR_CREATE = 33   
Const BASS_ERROR_NOFX = 34     
Const BASS_ERROR_PLAYING = 35   
Const BASS_ERROR_NOTAVAIL = 37 
Const BASS_ERROR_DECODE = 38   
Const BASS_ERROR_DX = 39       
Const BASS_ERROR_TIMEOUT = 40   
Const BASS_ERROR_FILEFORM = 41 
Const BASS_ERROR_SPEAKER = 42   
Const BASS_ERROR_UNKNOWN = -1   
Const BASS_DEVICE_8BITS = 1     
Const BASS_DEVICE_MONO = 2     
Const BASS_DEVICE_3D = 4       
Const BASS_DEVICE_LEAVEVOL = 32
Const BASS_DEVICE_NOTHREAD = 128
Const BASS_DEVICE_LATENCY = 256
Const BASS_DEVICE_VOL1000 = 512
Const BASS_DEVICE_FLOATDSP = 1024
Const BASS_DEVICE_SPEAKERS = 2048
Const DSCAPS_CONTINUOUSRATE = 16
Const DSCAPS_EMULDRIVER = 32
Const DSCAPS_CERTIFIED = 64
Const DSCAPS_SECONDARYMONO = 256   
Const DSCAPS_SECONDARYSTEREO = 512 
Const DSCAPS_SECONDARY8BIT = 1024   
Const DSCAPS_SECONDARY16BIT = 2048 
Const DSCCAPS_EMULDRIVER = DSCAPS_EMULDRIVER
Const DSCCAPS_CERTIFIED = DSCAPS_CERTIFIED
Const WAVE_FORMAT_1M08 = $1         
Const WAVE_FORMAT_1S08 = $2         
Const WAVE_FORMAT_1M16 = $4         
Const WAVE_FORMAT_1S16 = $8         
Const WAVE_FORMAT_2M08 = $10         
Const WAVE_FORMAT_2S08 = $20         
Const WAVE_FORMAT_2M16 = $40         
Const WAVE_FORMAT_2S16 = $80         
Const WAVE_FORMAT_4M08 = $100       
Const WAVE_FORMAT_4S08 = $200       
Const WAVE_FORMAT_4M16 = $400       
Const WAVE_FORMAT_4S16 = $800       
Const BASS_MUSIC_RAMP = 1       
Const BASS_MUSIC_RAMPS = 2     
Const BASS_MUSIC_LOOP = 4       
Const BASS_MUSIC_FT2MOD = 16   
Const BASS_MUSIC_PT1MOD = 32   
Const BASS_MUSIC_MONO = 64     
Const BASS_MUSIC_3D = 128       
Const BASS_MUSIC_POSRESET = 256
Const BASS_MUSIC_SURROUND = 512
Const BASS_MUSIC_SURROUND2 = 1024
Const BASS_MUSIC_STOPBACK = 2048
Const BASS_MUSIC_FX = 4096     
Const BASS_MUSIC_CALCLEN = 8192
Const BASS_MUSIC_NONINTER = 16384
Const BASS_MUSIC_FLOAT = $10000   
Const BASS_MUSIC_DECODE = $200000
Const BASS_MUSIC_NOSAMPLE = $400000
Const BASS_SAMPLE_8BITS = 1         
Const BASS_SAMPLE_FLOAT = 256       
Const BASS_SAMPLE_MONO = 2           
Const BASS_SAMPLE_LOOP = 4           
Const BASS_SAMPLE_3D = 8             
Const BASS_SAMPLE_SOFTWARE = 16     
Const BASS_SAMPLE_MUTEMAX = 32       
Const BASS_SAMPLE_VAM = 64           
Const BASS_SAMPLE_FX = 128           
Const BASS_SAMPLE_OVER_VOL = 65536   
Const BASS_SAMPLE_OVER_POS = 131072 
Const BASS_SAMPLE_OVER_DIST = 196608
Const BASS_MP3_SETPOS = 131072       
Const BASS_STREAM_AUTOFREE = 262144 
Const BASS_STREAM_RESTRATE = 524288 
Const BASS_STREAM_BLOCK = 1048576   
Const BASS_STREAM_DECODE = $200000 
Const BASS_STREAM_META = $400000   
Const BASS_STREAM_FILEPROC = $800000
Const BASS_SPEAKER_FRONT = $1000000
Const BASS_SPEAKER_REAR = $2000000 
Const BASS_SPEAKER_CENLFE = $3000000
Const BASS_SPEAKER_REAR2 = $4000000
Const BASS_SPEAKER_LEFT = $10000000
Const BASS_SPEAKER_RIGHT = $20000000
Const BASS_SPEAKER_FRONTLEFT = BASS_SPEAKER_FRONT Or BASS_SPEAKER_LEFT
Const BASS_SPEAKER_FRONTRIGHT = BASS_SPEAKER_FRONT Or BASS_SPEAKER_RIGHT
Const BASS_SPEAKER_REARLEFT = BASS_SPEAKER_REAR Or BASS_SPEAKER_LEFT
Const BASS_SPEAKER_REARRIGHT = BASS_SPEAKER_REAR Or BASS_SPEAKER_RIGHT
Const BASS_SPEAKER_CENTER = BASS_SPEAKER_CENLFE Or BASS_SPEAKER_LEFT
Const BASS_SPEAKER_LFE = BASS_SPEAKER_CENLFE Or BASS_SPEAKER_RIGHT
Const BASS_SPEAKER_REAR2LEFT = BASS_SPEAKER_REAR2 Or BASS_SPEAKER_LEFT
Const BASS_SPEAKER_REAR2RIGHT = BASS_SPEAKER_REAR2 Or BASS_SPEAKER_RIGHT
Const BASS_TAG_ID3 = 0   
Const BASS_TAG_ID3V2 = 1
Const BASS_TAG_OGG = 2   
Const BASS_TAG_HTTP = 3 
Const BASS_TAG_ICY = 4   
Const BASS_TAG_META = 5 
Const BASS_3DMODE_NORMAL = 0
Const BASS_3DMODE_RELATIVE = 1
Const BASS_3DMODE_OFF = 2
Const EAX_ENVIRONMENT_GENERIC = 0
Const EAX_ENVIRONMENT_PADDEDCELL = 1
Const EAX_ENVIRONMENT_ROOM = 2
Const EAX_ENVIRONMENT_BATHROOM = 3
Const EAX_ENVIRONMENT_LIVINGROOM = 4
Const EAX_ENVIRONMENT_STONEROOM = 5
Const EAX_ENVIRONMENT_AUDITORIUM = 6
Const EAX_ENVIRONMENT_CONCERTHALL = 7
Const EAX_ENVIRONMENT_CAVE = 8
Const EAX_ENVIRONMENT_ARENA = 9
Const EAX_ENVIRONMENT_HANGAR = 10
Const EAX_ENVIRONMENT_CARPETEDHALLWAY = 11
Const EAX_ENVIRONMENT_HALLWAY = 12
Const EAX_ENVIRONMENT_STONECORRIDOR = 13
Const EAX_ENVIRONMENT_ALLEY = 14
Const EAX_ENVIRONMENT_FOREST = 15
Const EAX_ENVIRONMENT_CITY = 16
Const EAX_ENVIRONMENT_MOUNTAINS = 17
Const EAX_ENVIRONMENT_QUARRY = 18
Const EAX_ENVIRONMENT_PLAIN = 19
Const EAX_ENVIRONMENT_PARKINGLOT = 20
Const EAX_ENVIRONMENT_SEWERPIPE = 21
Const EAX_ENVIRONMENT_UNDERWATER = 22
Const EAX_ENVIRONMENT_DRUGGED = 23
Const EAX_ENVIRONMENT_DIZZY = 24
Const EAX_ENVIRONMENT_PSYCHOTIC = 25
Const EAX_ENVIRONMENT_COUNT = 26
Const EAX_PRESET_GENERIC = 1
Const EAX_PRESET_PADDEDCELL = 2
Const EAX_PRESET_ROOM = 3
Const EAX_PRESET_BATHROOM = 4
Const EAX_PRESET_LIVINGROOM = 5
Const EAX_PRESET_STONEROOM = 6
Const EAX_PRESET_AUDITORIUM = 7
Const EAX_PRESET_CONCERTHALL = 8
Const EAX_PRESET_CAVE = 9
Const EAX_PRESET_ARENA = 10
Const EAX_PRESET_HANGAR = 11
Const EAX_PRESET_CARPETEDHALLWAY = 12
Const EAX_PRESET_HALLWAY = 13
Const EAX_PRESET_STONECORRIDOR = 14
Const EAX_PRESET_ALLEY = 15
Const EAX_PRESET_FOREST = 16
Const EAX_PRESET_CITY = 17
Const EAX_PRESET_MOUNTAINS = 18
Const EAX_PRESET_QUARRY = 19
Const EAX_PRESET_PLAIN = 20
Const EAX_PRESET_PARKINGLOT = 21
Const EAX_PRESET_SEWERPIPE = 22
Const EAX_PRESET_UNDERWATER = 23
Const EAX_PRESET_DRUGGED = 24
Const EAX_PRESET_DIZZY = 25
Const EAX_PRESET_PSYCHOTIC = 26
Const BASS_SYNC_POS = 0
Const BASS_SYNC_MUSICPOS = 0
Const BASS_SYNC_MUSICINST = 1
Const BASS_SYNC_END = 2
Const BASS_SYNC_MUSICFX = 3
Const BASS_SYNC_META = 4
Const BASS_SYNC_SLIDE = 5
Const BASS_SYNC_MESSAGE = $20000000
Const BASS_SYNC_MIXTIME = $40000000
Const BASS_SYNC_ONETIME = $80000000
Const CDCHANNEL = 0       
Const RECORDCHAN = 1
Const BASS_ACTIVE_STOPPED = 0
Const BASS_ACTIVE_PLAYING = 1
Const BASS_ACTIVE_STALLED = 2
Const BASS_ACTIVE_PAUSED = 3
Const BASS_SLIDE_FREQ = 1
Const BASS_SLIDE_VOL = 2
Const BASS_SLIDE_PAN = 4
Const BASS_CDID_IDENTITY = 0
Const BASS_CDID_UPC = 1
Const BASS_CDID_CDDB = 2
Const BASS_CDID_CDDB2 = 3
Const BASS_DATA_AVAILABLE= 0         
Const BASS_DATA_FFT512   = $80000000
Const BASS_DATA_FFT1024  = $80000001
Const BASS_DATA_FFT2048  = $80000002
Const BASS_DATA_FFT512S  = $80000010
Const BASS_DATA_FFT1024S = $80000011
Const BASS_DATA_FFT2048S = $80000012
Const BASS_DATA_FFT_NOWINDOW = $20   
Const BASS_INPUT_OFF = $10000
Const BASS_INPUT_ON = $20000
Const BASS_INPUT_LEVEL = $40000
Const BASS_INPUT_TYPE_MASK = $ff000000
Const BASS_INPUT_TYPE_UNDEF = $00000000
Const BASS_INPUT_TYPE_DIGITAL = $01000000
Const BASS_INPUT_TYPE_LINE = $02000000
Const BASS_INPUT_TYPE_MIC = $03000000
Const BASS_INPUT_TYPE_SYNTH = $04000000
Const BASS_INPUT_TYPE_CD = $05000000
Const BASS_INPUT_TYPE_PHONE = $06000000
Const BASS_INPUT_TYPE_SPEAKER = $07000000
Const BASS_INPUT_TYPE_WAVE = $08000000
Const BASS_INPUT_TYPE_AUX = $09000000
Const BASS_INPUT_TYPE_ANALOG = $0a000000
Const BASS_NET_TIMEOUT = 0
Const BASS_NET_BUFFER = 1
Const BASS_FILEPOS_DECODE = 0
Const BASS_FILEPOS_DOWNLOAD = 1
Const BASS_FILEPOS_END = 2
Const BASS_FILE_CLOSE = 0
Const BASS_FILE_READ = 1
Const BASS_FILE_QUERY = 2
Const BASS_FILE_LEN = 3
Const BASS_OBJECT_DS = 1                     
Const BASS_OBJECT_DS3DL = 2                 
Const BASS_VAM_HARDWARE = 1
Const BASS_VAM_SOFTWARE = 2
Const BASS_VAM_TERM_TIME = 4
Const BASS_VAM_TERM_DIST = 8
Const BASS_VAM_TERM_PRIO = 16
Const BASS_3DALG_DEFAULT = 0
Const BASS_3DALG_OFF = 1
Const BASS_3DALG_FULL = 2
Const BASS_3DALG_LIGHT = 3
Const BASS_FX_CHORUS = 0                 
Const BASS_FX_COMPRESSOR = 1             
Const BASS_FX_DISTORTION = 2             
Const BASS_FX_ECHO = 3                   
Const BASS_FX_FLANGER = 4               
Const BASS_FX_GARGLE = 5                 
Const BASS_FX_I3DL2REVERB = 6           
Const BASS_FX_PARAMEQ = 7               
Const BASS_FX_REVERB = 8                 
Const BASS_FX_PHASE_NEG_180 = 0
Const BASS_FX_PHASE_NEG_90 = 1
Const BASS_FX_PHASE_ZERO = 2
Const BASS_FX_PHASE_90 = 3
Const BASS_FX_PHASE_180 = 4

Const BASS_CD_RWFLAG_READCDR    = 1
Const BASS_CD_RWFLAG_READCDRW = 2
Const BASS_CD_RWFLAG_READCDRW2 = 4
Const BASS_CD_RWFLAG_READDVD = 8
Const BASS_CD_RWFLAG_READDVDR = 16
Const BASS_CD_RWFLAG_READDVDRAM = 32
Const BASS_CD_RWFLAG_READM2F1 = $100000
Const BASS_CD_RWFLAG_READM2F2 = $200000
Const BASS_CD_RWFLAG_READMULTI = $400000
Const BASS_CD_RWFLAG_READCDDA = $1000000
Const BASS_CD_RWFLAG_READCDDASIA = $2000000
Const BASS_CD_RWFLAG_READUPC = $40000000
Const BASS_CD_FREEOLD    = $10000
Const BASS_SYNC_CD_ERROR = 1000
Const BASS_CD_DOOR_CLOSE = 0
Const BASS_CD_DOOR_OPEN = 1
Const BASS_CD_DOOR_LOCK = 2
Const BASS_CD_DOOR_UNLOCK = 3

Function BASS_GetStringVersion$()
   Local Version,HiWord,LoWord
   Version = CreateBank(4)
   PokeInt Version,0,BASS_GetVersion()
   HiWord = PeekShort(Version,0)
   LoWOrd = PeekShort(Version,2)   
   Return HiWord + "." + LoWord
End Function

Function BASS_SET_3DVector(X#,Y#,Z#)
   Local Bank = CreateBank(12)
   PokeFloat Bank,0,X#
   PokeFloat Bank,4,Y#
   PokeFloat Bank,8,Z#
   Return Bank
End Function

Function BASS_SET_Sample()
   Local Bank = CreateBank(56)
   PokeInt   Bank,00,freg
   PokeInt   Bank,04,volume
   PokeInt   Bank,08,pan
   PokeInt   Bank,12,flags
   PokeInt   Bank,16,length
   PokeInt   Bank,20,max
   PokeInt   Bank,24,mode3d
   PokeFloat Bank,28,mindlist
   PokeFloat Bank,32,maxdist
   PokeInt   Bank,36,iangle
   PokeInt   Bank,40,oangle
   PokeInt   Bank,44,outvol
   PokeInt   Bank,48,cam
   PokeInt   Bank,52,priority
   Return Bank
End Function

Function BASS_SET_FXCHORUS(fWetDryMix#,fDepth#,fFeedback#,fFrequency#,lWaveform,fDelay#,lPhase)
   Local Bank = CreateBank(28)
   PokeFloat Bank,00,fWetDryMix#
   PokeFloat Bank,04,fDepth#
   PokeFloat Bank,08,fFeedback#
   PokeFloat Bank,12,fFrequency#
   PokeInt   Bank,16,lWaveform
   PokeFloat Bank,20,fDelay#
   PokeInt   Bank,24,lPhase
   Return Bank
End Function

Function BASS_SET_FXCOMPRESSOR(fGain#,fAttack#,fRelease#,fThreshold#,fRatio#,fPredelay#)
   Local Bank = CreateBank(24)
   PokeFloat Bank,00,fGain#
   PokeFloat Bank,04,fAttack#
   PokeFloat Bank,08,fRelease#
   PokeFloat Bank,12,fThreshold#
   PokeFloat Bank,16,fRatio#
   PokeFloat Bank,20,fPredelay#
   Return Bank
End Function

Function BASS_SET_FXDISTORTION(fGain#,fEdge#,fPostEQCenterFrequency#,fPostEQBandwidth#,fPreLowpassCutoff#)
   Local Bank = CreateBank(20)
   PokeFloat Bank,00,fGain#
   PokeFloat Bank,04,fEdge#
   PokeFloat Bank,08,fPostEQCenterFrequency#
   PokeFloat Bank,12,fPostEQBandwidth#
   PokeFloat Bank,16,fPreLowpassCutoff#
   Return Bank
End Function

Function BASS_SET_FXFLANGER(fWetDryMix#,fDepth#,fFeedback#,fFrequency#,lWaveform,fDelay#,lPhase)
   Local Bank = CreateBank(28)
   PokeFloat Bank,00,fWetDryMix#
   PokeFloat Bank,04,fDepth#
   PokeFloat Bank,08,fFeedback#
   PokeFloat Bank,12,fFrequency#
   PokeInt   Bank,16,lWaveform
   PokeFloat Bank,20,fDelay
   PokeInt   Bank,24,lPhase
   Return Bank
End Function

Function BASS_SET_FXGARGLE(dwRateHz,dwWaveShape)
   Local Bank = CreateBank(8)
   PokeInt   Bank,00,dwRateHz
   PokeInt   Bank,04,wWaveShap
   Return Bank
End Function

Function BASS_SET_FXI3DL2REVERB(lRoom,lRoomHF,flRoomRolloffFactor#,flDecayTime#,flDecayHFRatio#, lReflections,flReflectionsDelay#,lReverb,flReverbDelay#, flDiffusion#,flDensity#,flHFReference#)
   Local Bank = CreateBank(48)
   PokeInt   Bank,00,lRoom
   PokeInt   Bank,04,lRoomHF
   PokeFloat Bank,08,flRoomRolloffFactor#
   PokeFloat Bank,12,flDecayTime#
   PokeFloat Bank,16,flDecayHFRatio#
   PokeInt   Bank,20,lReflections
   PokeFloat Bank,24,flReflectionsDelay#
   PokeInt   Bank,28,lReverb
   PokeFloat Bank,32,flReverbDelay#
   PokeFloat Bank,36,flDiffusion#
   PokeFloat Bank,40,flDensity#
   PokeFloat Bank,44,flHFReference#
   Return Bank
End Function

Function BASS_SET_FXPARAMEQ(fCenter#,fBandwidth#,fGain#)
   Local Bank = CreateBank(12)
   PokeFloat Bank,00,fCenter#
   PokeFloat Bank,04,fBandwidth#
   PokeFloat Bank,08,fGain#
   Return Bank
End Function

Function BASS_SET_FXREVERB(fInGain#,fReverbMix#,fReverbTime#,fHighFreqRTRatio#)
   Local Bank = CreateBank(16)
   PokeFloat Bank,00,fInGain#
   PokeFloat Bank,04,fReverbMix#
   PokeFloat Bank,08,fReverbTime#
   PokeFloat Bank,12,fHighFreqRTRatio#
   Return Bank
End Function

Graphics 350,300,32,2 : SetBuffer BackBuffer()
AppTitle "CD-Example" : Include "BASS.bb"

If Not BASS_CDInit("E:",BASS_ERROR_INITCD) Then
   RuntimeError "BASS.dll can't be initialize!"
EndIf

TrackCount = BASS_CDGetTracks()
If TrackCount = $FFFFFFFF
   Select BASS_ErrorGetCode()
      Case BASS_ERROR_CDINIT
         BASS_CDFree()
         RuntimeError "CD not initialised!"
      Case BASS_ERROR_NOCD
         BASS_CDFree()
         RuntimeError "There is no CD in the drive!"
   End Select
EndIf

Dim TrackLen(TrackCount) : Track = 1
For I = 1 To TrackCount
   TrackLen(I) = BASS_CDGetTrackLength(I) / 1000
Next 

While Not KeyDown(1)
   Cls
   
   If KeyHit(208) And Track < TrackCount Then Track = Track + 1
   If KeyHit(200) And Track > 1 Then Track = Track - 1
   
   For I = 1 To TrackCount
      If I = Track Then
         Color 255,255,0
      Else
         Color 255,255,255
      EndIf
      Text 0,(I - 1) * 12,"Track:" + I + " Time:" + TrackLen(I) + "s"
   Next
   
   If KeyHit(28) Then
      BASS_CDPlay(Track,True,False)
   EndIf
   
   Color 255,255,255
   Text 0,(TrackCount + 1) * 12,"Press Up and Downkey to scoll"
   Text 0,(TrackCount + 2) * 12,"Press Return-Key to play a track"
   
   Flip
Wend

BASS_CDFree() : End

A = GetAudio("soundkartenport")