\START92\
\COMMENT=
\NAME=primfreq
\FILE=PRIMFREQ.89P
(list1)
Prgm
Local  i,k,kk
1\->\i

1\->\k

Disp  "SORT list1"
Pause  
DelVar  list2,list3
list1[1]\->\list2[1]

1\->\list3[1]

Lbl  p
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
dim(list1)\->\kk

If k<kk Then
Goto  p
EndIf
EndPrgm

\STOP92\