#include "fxlib.h"
#include "stdlib.h"
 
void PrintInt(int n)
{
    char str[20]="0";
    int i, l=0;
    for(i=n ; i ; i/=10)
        l++;
    for(i=n ; i ; i/=10)
        str[--l] = i%10+'0';
    Print(str);
}
 
int memclean(int nb)
{
    int i, j, size, key, plante, modulo;
    char **ptr=0;
        Bdisp_AllClr_VRAM();
        ptr = malloc(nb*sizeof(char*));
        for(i=0 ; i<nb ; i++) ptr[i]=0;
        key=1;
        size=0;
        modulo=128;
        while(key)
        {
            size++;
            for(i=0 ; i<nb ; i++)
            {
                free(ptr[i]);
                ptr[i]=0;
            }
            for(i=0 ; i<nb && key ; i++)
            {
                ptr[i]=malloc(size);
                if(!ptr[i]) key=0;
            }
            if(key)
            {
                for(i=0 ; i<nb ; i++)
                {
                    for(j=2 ; j<256 && ((int)ptr[i])%j==0 ; j*=2);
                    if(j < modulo) modulo = j;
                }
            }
        }
        plante = i;
        for(i=0 ; i<nb ; i++)
            free(ptr[i]);
        free(ptr);
 /*
       Bdisp_AllClr_VRAM();
        locate(1, 1);
        PrintInt(nb);
        Print(" buffers");
        locate(1, 2);
        PrintInt(size-1);
        Print(" octets chacun");
        locate(1, 3);
        PrintInt((size-1)*nb + 4*nb);
        Print(" octets au total");
        locate(1, 4);
        Print("Plante au n ");
        PrintInt(plante);
        locate(1, 5);
        Print("Adr multiples de ");
        PrintInt(modulo);
        GetKey(&key);
*/
    return 1;
}