// DIE's signature file
// Author: hypn0 <hypn0@mail.ru>

init("compiler","IBM PC Pascal");

function detect(bShowType,bShowVersion,bShowOptions)
{
    if(MSDOS.compareEP("b8....8ed88c06....fa8ed0268b1e....2bd881fb....7e..bb....d1e3"))
    {
        sVersion="2.00";
        sOptions="1987";
        bDetected=1;
    }
    else if(MSDOS.compareEP("b8....8ed88bd08c06....268b1e....891e....2bd8f7c3....75..b1..d3e3"))
    {
        sVersion="2.50";
        sOptions="1987";
        bDetected=1;
    }
    else if(MSDOS.compareEP("ba....b4..b0..8cc98ed9cd21"))
    {
        sVersion="2.00";
        sOptions="1987";
        bDetected=1;
    }
    else if(MSDOS.compareEP("b8....8ed88c06....ba....d1eab9....2bcad1ea"))
    {
        sVersion="1.00";
        sOptions="1981";
        bDetected=1;
    }
    else if(MSDOS.compareEP("2e8e1e....8cd08cdb2bc3d1e0"))
    {
        sVersion="2.20";
        sOptions="1987";
        bDetected=1;
    }

    return result(bShowType,bShowVersion,bShowOptions);
}
