\start83\
\comment=Program file 06/16/09, 17:08
\name=FREQ
\file=C:\MYTIDATA\FREQ.TXT
ClrHome
Disp "  FREQUENCES"
Disp "  FCC ET FCD"
Disp "   JCM 2009"
Disp "      ***
Disp " (APRES AVOIR"
Disp " QUITTE, TAPEZ"
Disp "STAT PUIS EDIT)"
Pause 
ClrHome
ClrList (L\1\,L\2\,L\3\,L\4\,L\5\,L\6\)
1\->\A
0\->\N
Disp "   EFFECTIFS"
Disp "   (-1=FIN)"
Fix 0
While A\!=\\(-)\1
N+1\->\N
Output(4,11,"N")
Output(4,12,N)
Input "= ",A
If A\!=\\(-)\1
A\->\L\1\(N)
End

sum(L\1\)\->\S
For(I,1,N-1)
L\1\(I)*100/S\->\F
F\->\L\2\(I)
End

dim(L\1\)\->\J
L\2\(1)\->\L\3\(1)
For(I,2,J)
L\3\(I-1)\->\K
K+L\2\(I)\->\L\3\(I)
End
J\->\dim(L\4\
L\2\(J)\->\L\4\(J)
For(I,1,J-1)
L\4\(J-I+1)\->\K
K+L\2\(J-I)\->\L\4\(J-I)
End
ClrHome
Input "NB DECIMALES :",D
Fix D
Disp ""
Disp "TOTAL EFFECTIF=",S
Disp ""
Disp "CF TABLEAUX"

\stop83\

