()0TRR7C-PS/8 FOCAL, 1971?MB%NAI (X(I)-X(J))7.03,7.03,7.02?MB8NBS TX=X(I);S X(I)=X(J);S X(J)=TX?MCJNCS J=J+1;I (J-N)7.01,7.01,7.04?MC\NDS I=I+1;I (I-K)7.05,7.05,7.06?MC&NES J=I+1;G 7.01?ME)NFR?MC5PBT "E2",!!;G 8.01?MPCQ?MGLDAS SB=0;S J=1?MDZDIS CT=SB+SW;S
ST=CT+SG;S XB=G-1;S MB=SB/XB?MDFAS XW=0;S J=1?MD.FBS XW=XW+(N(J)-1)?MD<FCI (G-J)3.05,3.05,3.04?MEFFDS J=J+1;G 3.02?MQOFES MW=SW/XW;S XR=MB/MW;S BW=XB+XW;S TT=BW+1;T ,!!!!!!?ME;BS X=0?MC*PAA "M
"E;I (E-2)8.03,1.31,1.31?MF-B$F J=1,G;T "MEAN OF GROUP",J,":";A M(J);S X=X+(N(J)*M(J))/S?MF^DC?MF!DD?MRTDES SW=0?MF*DG?MDBDH?MC9B	S SG=S*(X)^2?MG
HFA "MORE
"AN;I (AN-0YES)4.07,1.31,4.07?MF[DBF J=1,G;S SB=SB+N(J)*(M(J)-X)^2?MBTHGT "GOODBYE"!!;Q?MG<BBC     MODIFIED BY JOHN HUISMAN?MS.BCC     OMSI SOFTWARE DEVELOPMENT GROUP?MHUBE?MH2BFC     THIS PROGRAM REQUIRES THAT YOU KNOW THE MEANS ?MIQBGC AND VARIANCES OF 
HE GROUPS YOU WISH TO WORK ON.  TO ?MI*BHC GET THIS INFORMATION, SIMPLY RUN 	STAT1	.?MI-BI?MJJBJC     THE PROGRAM USES THE FOLLOWING ABBREVIATIONS:?MJMBK?MJ$BLC ** SSB - SUM OF SQUARES BETWEEN GROUPS?MJ=BMC ** DFB - DEGREES OF FREEDOM BETWEEN GROUPS?MKXBN
 ** MSB - MEAN SQUARE DIFFERENCE BETWEEN GROUPS?MK/BOC ** SSW - SUM OF SQUARES WITHIN GROUPS?MLHBPC ** DFW - DEGREES OF FREEDOM WITHIN GROUPS?MLBQC ** MSW - MEAN SQUARE DIFFERENCE WITHIN GROUPS?ML8BRC          USING THE POOLED VARIANCE?MMPBSC ** SCT - SO-
ALLED TOTAL SUM OF SQUARES?MM*BTC ** SCF - SO-CALLED TOTAL DEGREES OF FREEDOM?MQ>BUC ** SSG - GRAND MEAN SUM OF SQUARES?MNRBWC ** SST - TOTAL SUM OF DEGREES?MN	BXC ** DFT - TOTAL DEGREES OF FREEDOM?MS*BYC ** FR  - F-RATIO (F-STATISTIC)?MSTB\T "YOU DO NOT 
AVE ENOUGH FEATURES."?MEB!F J=1,G;T "NUMBER IN GROUP",J,":";A N(J);S S=S+N(J)?MN:B[I (FITR(/5)-(/5)) 1.28,1.31,1.28?MOOB T %1.0 !!!;A "NUMBER OF GROUPS:"G;S S=0?MP-HBT "SSW":6,SW,!"DFW":6,XW,!"MSW":6,MW,!?MQ(HCT "SCT":6,CT,!"SCF":6,BW,!?MF6HET "DFT":6,TT,
;T "FR":6,XR,!!!?MPWHAT %6.04 "SSB":6,SB,!"DFB":6,XB,!"MSB":6,MB,!?MP=HDT "SSG":6,SG,!"ODF":6,1,!"SST":6,ST,!?MM?BVC ** ODF - OVERALL DEGREES OF FREEDOM?MF	DFF J=1,G;T "VARIANCE OF GROUP",J,":";A V(J);S SW=SW+(N(J)-1)*V(J)?MG*BAC     FROM STAT2 BY M.J. MC
KEOWN (DECUS: FOCAL8-16)?MS>B]T "RESTART FOCAL WITH FEATURE 3."!!;Q?MO,BZE?MHRBDC     LAST CHANGE: 9/9/71?MPB
S X=FOUT(1);F K=1,25;S X=FOUT(24)?MBZL S STAT2?M?);F K=1,25;S X=FOUT(24)?!;Q? CHANGE: 8/7/71?CAL8-16)?MV(J)?M?M?MAXXA^YK	ATZ^YASRXJK&XJXJATATATATATATYKVZP=ATATATAT"UAT^ZBATXJYH,HM"U%LL?,XM%M1L5L&K2L1L$L9LLLLLLLLLLZ[T^TNFTMNTZRRLYHDHKX^

Note: Lines longer than 256 characters were wrapped