10 *FX6 20 @%=6 30 MODE7 40 VDU23,1,0;0;0;0; 50 PROCsc 60 VDU23,1,1;0;0;0; 70 CLS:INPUTTAB(5,8)"Name -†"NAME$ 80 CLS:PRINT"‡"CHR$157""NAME$" "CHR$156 90 VDU28,3,22,36,7 100 M=27 110 N=51 120 M=M-1:N1=N:N=N-1 130 DIMU(N),A(M),J$(M),B(M),C(M) 140 CLS:VDU23,1,1;0;0;0;:FORI=0TOM 150 READJ$(I):B(I)=-1:C(I)=-1 160 NEXTI 170 C1=0:S1=0 180 FORJ=0TON 190 READC$:C1$=C$ 200 PRINTC$;TAB(27); 210 REPEAT 220 A=GET-48 230 UNTILA>=0ANDA<=9 240 PRINT;A:SOUND0,-15,10,1 250 U(J)=A 260 C1=C1+U(J):S1=S1+U(J)*U(J) 270 NEXTJ 280 VDU23,1,0;0;0;0;:CLS:PRINTTAB(8,5)""CHR$157"ˆ‡PLEASE WAIT ‰"CHR$156 290 C1=C1/N1 300 X=S1/N1-C1*C1 310 IFABS(X)>1THEN350 320 VDU23,1,0;0;0;0;:CLS:PRINTTAB(0,5)" Please try again, but this time‰ vary your responses.‰"''SPC7""CHR$157"‡ˆPRESS SPACE ‰"CHR$156:REPEATUNTILGET=32 330 RESTORE 340 GOTO140 350 FORI=0TOM 360 C2=0:S2=0:P2=0 370 READD$ 380 FORJ=0TON 390 D=VAL(MID$(D$,J+1,1)) 400 C2=C2+D 410 S2=S2+D*D 420 P2=P2+D*U(J) 430 NEXTJ 440 C2=C2/N1 450 Y=SQR(S2/N1-C2*C2) 460 Z=P2/N1-C1*C2 470 A(I)=INT(1000*Z/X/Y+.5) 480 A=LEN(STR$(A(I))) 490 E=INT(A(I)*0.012+11):B=B(E) 500 IFB=-1THENB(E)=I:GOTO550 510 IFA(B)