Jaký je to jazyk ?

Zdravím,
lze určit programovací jazyk jen podle kousku kódu ? Pokud ano, přikládám kousek kódu, snad mi jej někdo identifikuje. Předpokládám, že to je C, je mi to povědomé z dob, kdy jsem to měl ve škole, ale možná je to nějaká jeho variace (C++).

global int Pointer;
global int insertion;

function void Nemo96HD_Init(string Prefix,string DeviceName)
//************************************************ *****************************
// Funzione generale per l'inizializzazione del dispositivo Nemo 96 HD
// In ingresso:
//     Prefix : prefisso delle porte su cui operare.
//************************************************ *****************************
   SetNumGateValue(Prefix+"PrevTick",0,0);

   // Eventuale simulazione dei valori del dispositivo se č NemoD4Le[Demo]
    if (DeviceName=="NemoD4Le[Demo]") then
        RecipeExecute(Prefix+"Simulation","Simulation",fal se);
    end
end




function void Nemo96HD_Handler(string Prefix,int Ch,int Dev,string DeviceName)
//************************************************ *****************************
// Funzione generale per la gestione del dispositivo Nemo 96 HD
// In ingresso:
//     Prefix : prefisso delle porte su cui operare.
//************************************************ *****************************

    // Eventuale simulazione dei valori del dispositivo se č NemoD4Le[Demo]
    if (DeviceName=="NemoD4Le[Demo]") then
        Nemo96HD_Simulazione(Prefix,Ch,Dev);
    end

   int Pointer;
   int value;
   real KTAxKTV;
   int levelKTAxKTV;
   levelKTAxKTV=GetNumGateValue(Prefix+"levelKTAxKTV" ,0);
   int insertion=GetNumGateValue(Prefix+"Std_setup_word", 4);

   Pointer=GetNumGateValue(Prefix+"Pointer",0);
   if (Pointer<1 || Pointer>24) then
       SetNumGateValue(Prefix+"Pointer",0,1);
   end

   KTAxKTV=GetNumGateValue(Prefix+"KTA",0)*GetNumGate Value(Prefix+"KTV",0);

   if(KTAxKTV<10) then levelKTAxKTV=0; SetNumGateValue(Prefix+"levelKTAxKTV",0,0); end
   if(KTAxKTV>=10 && KTAxKTV<100) then levelKTAxKTV=1; SetNumGateValue(Prefix+"levelKTAxKTV",0,1); end
   if(KTAxKTV>=100 && KTAxKTV<1000) then levelKTAxKTV=2; SetNumGateValue(Prefix+"levelKTAxKTV",0,2); end
   if(KTAxKTV>=1000 && KTAxKTV<10000) then levelKTAxKTV=3; SetNumGateValue(Prefix+"levelKTAxKTV",0,3); end
   if(KTAxKTV>=10000) then levelKTAxKTV=4; SetNumGateValue(Prefix+"levelKTAxKTV",0,4); end