+_ ZMODE.BAS+_ A-Z +_:@(0,0)(;_:25;_ load dim a with data, dim c is used to find mode<;_:F;_ A(20),C(20,2)P ;_ I=1 20Q Y_ A(I)Rs_Zv_ 5,6,7,4,5,6,3,5,6,8dv_ 6,7,8,5,4,5,5,3,5,2nv_:x$v_ sort data into descending orderv_:v_ J=2 20: K=1 19_ A(J)>A(K) A(J),A(K):(`:.`:7.` draw histogram and load dim c with count and data.`:>.`"No."(10)"FREQUENCY" (30)"SCALE"(128)"=1"::COUNT=1:T=1 |` J=1 20 ` A(J-1)=A(J) COUNT=COUNT+1a A(J-1)>A(J)Pa A(J-1) (10)(COUNT,128)aC(T,1)=COUNTaC(T,2)=A(J-1)bT=T+1 3bCOUNT=1"?b ,?b68Bb A(20) (10) (COUNT,128):C(T,1)=COUNT:C(T,2)=A(J-1)@b:Jb find modeTb:^b:: J=1 Th!c C(J,1)>C(J-1,1) MDE=C(J,2)rc|c"MODE"(10)MDEc:c find meanc: c I=1 20cAVERAGE=AVERAGE+A(I)&d)dAVERAGE=AVERAGE/20Dd"MEAN"(10)AVERAGE\d:\d find sample range\d:&\dRANGE=A(1)-A(20):"RANGE"(10)RANGEd:%d find sample standard deviationd: d I=1 20dX=A(I)-AVERAGE:X=X*X eTTAL=TTAL+X:(eTTAL=TTAL/19:SSD=(TTAL)Re"SSD"(11);"#.###";SSD&oe:0'oe find skewness and generate message:oe:DoeSKEW=(AVERAGE-MDE)/SSDNGe SKEW >=-1 SKEW<=1 MESSAGE$=" NORMAL" : MESSAGE$=" NON-NORMAL"X8e"SKEW"(11)"#.###";SKEW;: MESSAGE$+" DISTRIBUTION"SKEW >=-1 SKEW<=1 MESSAGE$="