\START92\
\COMMENT=
\NAME=secufreq
\FILE=SECUFREQ.9XP
()
Prgm
\(C)\ keine  Parameterliste!
Lokal k,l,x
EntfVar list4,list5
Folge(\(-)\.5+x,x,0,GanzZahl(list2[Dim(list2)])+1,1)\->\list4

0\->\list4[1]

Folge(0,x,0,GanzZahl(list2[Dim(list2)])+1,1)\->\list5

For k,1,Dim(list1),1
GanzZahl(list1[k])+2\->\l

list5[l]+1\->\list5[l]

EndFor
list5[2]\->\list5[1]

L\o..\EA
Zeige "======================================"
Zeige "Secufreq ist beendet."
Zeige "======================================"
EndPrgm
\STOP92\