Window (Caption = "MC68HC05B16 - parameters"; Align = h ; width = 400 ; height = 165)
{
    Button ( Caption = "Узнать размеры";  left = 5; top = 5 ; width = 270 ; height = 22 ; Proc = GetSize; )
    Group(c = "Новый размер";left=5;top=35;w=250;h=100)
    {
        list(c="Вкладка";left=110;top=20;w=100;items="Первая","Вторая","Активная в данный момент";value=0;name=ti)
        digit(c="Размер редактора";left=110;top=45;w=100;value=0;name=nz)
        button(c="Установить";left=20;top=70;width=70;height=25;proc=newsize)
    }
    Button(c="SaveTofile";left=300;t=5;h=25;w=90;proc = stof)
    list(c="Источник";left=330;top=50;w=100;items="Редактор","Внутренний буфер";value=0;name=datasource)
}


Editor
{
    (C ="EEPROM";size=256;mode=8;bytes=16)
    (c ="ROM";size=16104;mode=8;bytes=16)
}

$HOST

emem ebuf=0,rbuf=1,esel=2;

byte aaaa[32];

proc GetSize()
{
    var a;

    a = ESIZE1;print("\nРазмер первой вкладки: "+#i.a+" байт");
    a = ESIZE2;print("\nРазмер второй вкладки: "+#i.a+" байт");
    a = ESIZE3;print("\nРазмер активной в данный момент вкладки: "+#i.a+" байт");

    FileName = "hint.txt";
    a = FILEEXISTS;
    if(a) print("\nhint.txt существует");
    else  print("\nhint.txt не существует");
    FileName = "hint2.txt";
    a = FILEEXISTS;
    if(a) print("\nhint2.txt существует");
    else  print("\nhint2.txt не существует");

    FileName = "aaaaaa.bin";
    a = ESIZE1;
    SaveToFile(ebuf);
}

proc Newsize()
{
    var a;

    a = ti;
    if(a = 0) ESIZE1 = nz;
    if(a = 1) ESIZE2 = nz;
    if(a = 2) ESIZE3 = nz;
}

proc stof()
{
    var a;
    if(datasource = 0) 
    {
        FILENAME = "editor.bin";
        SaveToFile(ebuf);
    }
    else 
    {
        for(a = 0; a < 32; a++)
        {
            aaaa[a] = a;
        }
        FILENAME = "byteaaaa.bin";
        SaveToFile(aaaa);
    }
}


$Device