@@@@@@@@@@@@@
C-FOCAL,1969

01.05 E
01.10 A "NUMBER OF ",?LEVELS?; F A=1,1,LE;D 5.0
01.20 T !; A ?AG?; A ?BG?;S B=10;G 1.3
01.26 S B=B-1; IF (B) 3.1,3.1,1.3
01.30 S QQ=0;S PR=0;S PQ=0;S QR=0;S PP=0;S DD=0;S NU=0
01.40 F A=1,1,LE; F C=1,1,OB(A); D 10.0
01.50 S N= PP*QQ-PQ*PQ
01.52 IF (N) 1.6,1.54,1.6
01.54 T " DIVERGES, N=0",; G 3.4
01.60 S AA=(QQ*PR-PQ*QR)/N
01.70 S AB=(PP*QR-PQ*PR)/N
01.80 S BG=BG+AB; S AG=AG-AA
01.90 IF (FABS<(AA)/AG>-0.001) 1.94,1.26,1.26
01.94 IF (FABS<(AB)/BG>-0.001)2.2,1.26,1.26

02.20 S NU=0; F A=1,1,LE; F C=1,1,OB(A);D 10.0; D 6.2
02.30 T !!,"VARIABLE   MEAN        S.D.          S.E.M.
02.32 T %8.04
02.35 S Q=DD/(NU-2)
02.40 T !,,"A    ",AG,FSQT(Q*QQ/N),FSQT(Q*QQ/(N*(NU-1)))
02.50 T !, "B    ",BG, FSQT(Q*PP/N),FSQT(Q*PP/(N*(NU-1)))
02.70 T !!,"TOTAL -----------  ",FSQT(Q)
02.75 T !, "COV.   ", Q*PQ/N
02.80 T !!," D.F.", %2.00,NU-2
02.85 Q

03.10 T !," 10 VALUES
03.15 T %,
03.20 T !,"A",AG,!,"B",BG,!,"SHALL I CONTINUE ?"
03.30 A B; IF (B-155)1.2,3.4,1.2
03.40 T "DO YOU WANT TO TRY AGAIN ?"; A B
03.50 IF (B-155)1.2,2.85,1.2
03.60 Q

05.10 T !, %2.00, " LEVEL NO",A,"  DOSAGE"
05.20 A X(A); T "OBSERVATIONS"; A OB(A),!;F B=1,1,OB(A);D 6.1

06.10 S NU=NU+1; A Y(NU)
06.20 S DD=DD+(R-AB*Q-AA*P)^2

10.05 S NU=NU+1
10.10 S P=1/(1+BG/X(A)); S Q=AG/((1+BG/X(A))*(BG+X(A)))
10.20 S R= AG/(1+BG/X(A))-Y(NU)
10.30 S QQ=QQ+Q*Q; S PR=PR+P*R;S PQ=PQ+P*Q; S PP=PP+P*P
10.40 S QR=QR+R*Q;
*@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@