SuperStrict
    Import mima.miniaudio
     
    Graphics 400,300
     
    ' Setup of the device:
    Const  HERTZ:Int = 48000
     
    Global MiniAudio:TMiniAudio=New TMiniAudio
     
    MiniAudio.OpenDevice( MiniAudio.DUPLEX, Miniaudio.FORMAT_S16, 1, HERTZ, MyCallBack)
     
    ' we need a TaudioSample for storing the incoming samples and a SHORT PTR to handle them
    Global Recording:TAudioSample=CreateAudioSample( HERTZ*61,  HERTZ, SF_MONO16LE)  '60 seconds
    Global RecordingRam:Short Ptr = Recording.Samples
     
    Global WritePointer:Int, RecordMode%, Audio:TChannel
    Local Music:TSound =LoadSound(Recording)
    Audio=PlaySound(Music)
     
    SetClsColor 255,255,255
    Repeat
        Cls
                    DrawScreen
                    If MouseHit(1)
                            RecordMode=1-RecordMode
                            If RecordMode=0
                                    Print "PLAY"
                                    MiniAudio.StopDevice()
                                    Local Music:TSound =LoadSound(Recording)
                                    Audio=PlaySound(music)
                            Else
                                    Print "RECORD"
                                    ClearSample()
                                    StopChannel Audio
                                    WritePointer=0
                                    MiniAudio.StartDevice()
                            EndIf
                    EndIf  
        Flip 0
    Until AppTerminate()
    Miniaudio.CloseDevice()
     
     
    Function MyCallBack(a%, PlayBackBuffer:Short Ptr, RecordingBuffer:Short Ptr, Frames:Int)
            ' cares about not to overrun the TAudioSample-size:
            If WritePointer>HERTZ*60 Then WritePointer=0
     
            For Local i:Int=0 To frames-1
                    ' fetch the sample:
                    Local value:Short   = RecordingBuffer[i]
                   
                    ' duplx it immediately:
                    PlayBackBuffer[i] = value
                   
                    'and transfer it to the TAudioSample:
                    RecordingRAM[WritePointer+i] = value
            Next
        WritePointer = WritePointer + Frames
    End Function
     
     
    Function ClearSample()
            For Local i:Int=0 To HERTZ*60
                    RecordingRAM[i]=0
            Next                           
    End Function
     
    Function DrawScreen()
            ...
    End Function 

    SuperStrict
    Import mima.miniaudio
     
    Graphics 400,300
     
    ' Setup of the device:
    Const    HERTZ:Int = 48000
    Const CHANNELS:Int = 2
     
    Global MiniAudio:TMiniAudio=New TMiniAudio
     
    Global Recording:ExTAudioSample = ExTAudioSample.Create(HERTZ*61,  HERTZ, MiniAudio.FORMAT_F32, CHANNELS)
    Print Recording.format
    Print Recording.Hertz
    Print Recording.channels
    MiniAudio.OpenDevice( MiniAudio.DUPLEX, Miniaudio.FORMAT_F32, CHANNELS, HERTZ, MyCallBack)
     
     
    Global WritePointer:Int, RecordMode%
    SetClsColor 255,255,255
    Repeat
        Cls
                    DrawScreen
                    If MouseHit(1)
                            RecordMode=1-RecordMode
                            If RecordMode=0
                                    Print "PLAY"
                                    MiniAudio.StopDevice()
                                    MiniAudio.SaveExTAudioSample "MySong.WAV", Recording
                            Else
                                    Print "RECORD"
                                    Recording.Clear
                                    WritePointer=0
                                    MiniAudio.StartDevice()
                            EndIf
                    EndIf  
        Flip 0
    Until AppTerminate()
    Miniaudio.CloseDevice()
    End
     
     
    Function MyCallBack(a%, PlayBackBuffer:Float Ptr, RecordingBuffer:Float Ptr, Frames%)
            ' cares about not to overrun the ExTAudioSample-size:
            If WritePointer>HERTZ*60 Then WritePointer=0
     
            For Local i:Int=0 To frames-1
                    ' fetch the sample:
                    Local value:Float   = RecordingBuffer[i]
                   
                    ' duplx it immediately:
                    PlayBackBuffer[i] = value
                   
                    'and transfer it to the TAudioSample:
                    Recording.SampleFloat[WritePointer+i] = value
            Next
        WritePointer = WritePointer + Frames
     
    End Function
     
     
     
     
    Function DrawDrawScreen()
    ...
    End Function
     

    ' example to demonstrate MULTI-CHANNEL capturing audio with miniaudio
    ' and transfering datas to the NEW extended ExTAudioSample type
    ' Quality is FORMAT_S32 only for demonstration
    ' the DUPLEX will reduce the 8 channels to 2 "manually"
    ' when recording is stopped the ExTAudioSample is saved as a 8track-16bit WAV-file
    ' this make it necessary to convert from S32 to S16
    SuperStrict
    Import mima.miniaudio
     
    Graphics 400,300
     
    ' Setup of the device:
    Const    HERTZ:Int = 44100
    Const CHANNELS:Int = 8
     
    Global MiniAudio:TMiniAudio=New TMiniAudio
     
    'only hardware devices can capture 8 channels. So connect your USB-device and select it with its ID:
    Print   "Capture-Devices:"
    Local i:Int
    For Local DeviceName:String= EachIn MiniAudio.CaptureDevices()
            Print  "ID=" + i + ": " + DeviceName
            i=i+1
    Next
    Local MyUsbDevice:Int=1
    Miniaudio.SelectDevices(-1,MyUsbDevice)
     
     
    Global Recording:ExTAudioSample = ExTAudioSample.Create(HERTZ*61,  HERTZ, MiniAudio.FORMAT_S32, CHANNELS)
    Print Recording.format
    Print Recording.Hertz
    Print Recording.channels
    ' use OpenDevice_II when Playback and Capture needs different parameters:
    MiniAudio.OpenDevice_II( MiniAudio.DUPLEX, Miniaudio.FORMAT_S32, 2, Miniaudio.FORMAT_S32, CHANNELS, HERTZ, MyCallBack)
     
     
    Global WritePointer:Int
    Global RecordMode%
     
    SetClsColor 255,255,255
    Repeat
        Cls
                    DrawScreen
                    If MouseHit(1)
                            RecordMode=1-RecordMode
                            If RecordMode=0
                                    Print "PLAY"
                                    MiniAudio.StopDevice()
                                    'this would easily save the wav with 32bit-INT:
                                    MiniAudio.SaveExTAudioSample "MySong.WAV", Recording
                                   
                                    ' but we can also change the format during saving:
                                    Local StreamID:MMStreamID = MiniAudio.OpenWavFile("My16bitsong.Wav" , Miniaudio.FORMAT_S16, CHANNELS, HERTZ)
                                    MiniAudio.WriteWavFile StreamID, Recording.SampleInt, Recording.Frames, Recording.Format, CHANNELS, HERTZ
                                    MiniAudio.CloseWavfile StreamID
                            Else
                                    Print "RECORD"
                                    Recording.Clear
                                    WritePointer=0
                                    MiniAudio.StartDevice()
                            EndIf
                    EndIf  
        Flip 0
    Until AppTerminate()
    Miniaudio.CloseDevice()
    End
     
     
    Function MyCallBack(a%, PlayBackBuffer:Int Ptr, RecordingBuffer:Int Ptr, Frames:Int)
            If WritePointer > (HERTZ*60*CHANNELS) Then WritePointer=0
     
            For Local i:Int=0 To Frames-1
                    For Local j:Int=0 To CHANNELS-1
                            ' fetch the samples:
                            Local value:Int = RecordingBuffer[i*CHANNELS + j]
                           
                            'and transfer it to the TAudioSample:
                            Recording.SampleInt[WritePointer+i*CHANNELS + j] = value               
                    Next
                    ' now route the 8 capture channels to only 2 playbak channels as you like:
                    ' to prevent Distortion we divide each sample volume by 2
                    Local valueL:Int = RecordingBuffer[8*i+0]/2 + RecordingBuffer[8*i+1]/2 + RecordingBuffer[8*i+2]/2 + RecordingBuffer[8*i+3]/2
                    Local valueR:Int = RecordingBuffer[8*i+4]/2 + RecordingBuffer[8*i+5]/2 + RecordingBuffer[8*i+6]/2 + RecordingBuffer[8*i+7]/2
                    PlayBackBuffer[2*i+0] = valueL
                    PlayBackBuffer[2*i+1] = valueR
            Next
        WritePointer = WritePointer + Frames*CHANNELS
    End Function
     
     
    Function DrawScreen()
            ...
    End Function