\start83P\
\comment=Program file 12/09/04, 12:13
\protected=FALSE
\name=CLT
\file=C:\MYTIDATA\CLT.TXT
ClrList L\1\
ClrList L\2\
ClrList L\3\
Disp "MEDIAN? Y=1, N=0"
Input D
Disp "SAMPLE SIZE"
Input N
Disp "HOW MANY SAMPLES"
Input M
1\->\J
Lbl A
1\->\I
0\->\C
Lbl B
rand\->\X
Y\1\+C\->\C
If D=1
Y\1\\->\L\3\(I)
IS>(I,N)
Goto B
C/N\->\L\1\(J)
If D=0
Goto E
1-Var Stats L\3\
Med\->\L\2\(J)
ClrList L\3\
Lbl E
IS>(J,M)
Goto A
1-Var Stats L\1\


\stop83P\