\START92\
\COMMENT=
\NAME=primfreq
\FILE=PRIMFREQ.9XP
()
Prgm
\(C)\ keine Parametereingabe, Dialogfenster!
Lokal  i,k,kk,list
Dialog
Titel  "primaere Haeufigkeitsverteilung"
Text  "Urdatenliste sortiert? Ja!"
Abfrage  "Name Variationsreihe",list
EndDlog
Ausdr(list)\->\list1
1\->\i

1\->\k

L\o..\EA
Zeige  "======================================"
Zeige  "Einen Moment bitte,  ... in Arbeit ..."
Zeige  "======================================"
EntfVar  list2,list3
list1[1]\->\list2[1]

1\->\list3[1]

While  k<dim(list1)
k+1\->\k

If list1[k]=list1[k-1] Then
list3[i]+1\->\list3[i]

Else
i+1\->\i

list1[k]\->\list2[i]

1\->\list3[i]

EndIf
EndWhile
Zeige  "Primfreq ist beendet."
EndPrgm

\STOP92\