\START82\
\COMMENT=Calcule Frequences, FCC et FCD jcm 99/2004
\NAME=FREQ
\FILE=D:\WINLINK\SAV_JC~1\FREQ.82P
:ClrHome
:Disp "  FREQUENCES"
:Disp "  FCC ET FCD"
:Disp "   JCM 2004"
:Disp "      ***
:Disp " (APRES AVOIR"
:Disp " QUITTE, TAPEZ"
:Disp "STAT PUIS EDIT)"
:Pause 
:ClrHome
:ClrList (\L1\,\L2\,\L3\,\L4\,\L5\,\L6\)
: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\->\\L1\(N)
:End
:
:sum \L1\\->\S
:For(I,1,N-1)
:\L1\(I)*100/S\->\F
:F\->\\L2\(I)
:End
:
:dim \L1\\->\J
:\L2\(1)\->\\L3\(1)
:For(I,2,J)
:\L3\(I-1)\->\K
:K+\L2\(I)\->\\L3\(I)
:End
:J\->\dim \L4\
:\L2\(J)\->\\L4\(J)
:For(I,1,J-1)
:\L4\(J-I+1)\->\K
:K+\L2\(J-I)\->\\L4\(J-I)
:End
:ClrHome
:Input "NB DECIMALES :",D
:Fix D
:Disp ""
:Disp "CF TABLEAUX"
\STOP82\
