\START92\
\COMMENT= Primäre Häufigkeitsverteilung 30.01.98 J.Garten
\NAME=hprim
\FILE=HPRIM.92P
()
Prgm
Local  i,k
1\->\i
1\->\k
l1[1]\->\l2[1]
1\->\l3[1]
While  k<dim(l1)
 k+1\->\k
 If l1[k]=l1[k-1] Then
  l3[i]+1\->\l3[i]
 Else
  i+1\->\i
  l1[k]\->\l2[i]
  1\->\l3[i]
 EndIf
EndWhile
EndPrgm

\STOP92\