Define(FileExists)
    CreateTransObject(CX_ASCII_FILE) Call(Exists)
;

Define(InitTelecom)
    T("Telefon", "Phone") -> phone
    T("Fax", "Fax") -> fax
    T("E-Mail", "E-Mail") -> eMail
    T("WWW", "WWW") -> www
    "CX_ROOTDIR\\bmp\\Phone.bmp" FileExists if
    {
        CreateTransObject(CX_BITMAP) -> phone
        "CX_ROOTDIR\\bmp\\Phone.bmp" phone Put
    }
    "CX_ROOTDIR\\bmp\\Fax.bmp" FileExists if
    {
        CreateTransObject(CX_BITMAP) -> fax
        "CX_ROOTDIR\\bmp\\Fax.bmp" fax Put
    }
    "CX_ROOTDIR\\bmp\\Email.bmp" FileExists if
    {
        CreateTransObject(CX_BITMAP) -> eMail
        "CX_ROOTDIR\\bmp\\Email.bmp" eMail Put
    }
    "CX_ROOTDIR\\bmp\\Www.bmp" FileExists if
    {
        CreateTransObject(CX_BITMAP) -> www
        "CX_ROOTDIR\\bmp\\Www.bmp" www Put
    }
;