welche Sprache ist das?

[frankx]

Hellihello,

kann mir jemand sagen, was das ist/welche Sprache?

*function modulo10    && Pruefziffer wird nach dem MODULO10-Verfahren berechnet
parameters m_knummer
z=len(m_knummer)
k=0
j=2
pz=""
do while z>0
 i=j*val(subs(m_knummer,z,1))
 if i>=10
  i=i-9
 endif
 k=k+i
 if j=2
  j=1
 elseif j=1
  j=2
 endif
 z--
enddo
k=10-(10*((k/10)-int(k/10)))
if k=10
 pz="0"
else
 pz=str(k,1)
endif
return(pz)

Dank und Gruß,

frankx