File STAT12.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

C-PS/8 FOCAL, 1971
 2.10 A !!!!,"ANALYSIS ",LI;IF (LI-12)2.2,4.30,2.2
 2.20 L R SORT 2.15
 4.26 S X=(X(FITR((N1+1)/2))+X(FITR((N1+2)/2)))/2
 4.30 C
 4.32 A "VARIABLES  ",BA,BE,!
 4.34 S VP=-1;S N1=0;S VT=0;F I=1,N;D 11
 4.36 S B=BA;S BA=BE;F I=1,N;D 11
 4.38 F I=1,N1;D 10
 4.40 D 4.26;S ME=X;S VT=B;D 13
 4.42 T !,%4.00,A1,A2,J
 4.44 S VT=BE;D 13;D 4.42;G 2.1
10.05 S J=N1
10.10 S X1=X(100*VT+I);S X2=X(100*VT+J)
10.20 I (X1-X2)10.4,10.3,10.3
10.30 S X(100*VT+I)=X2;S X(100*VT+J)=X1
10.35 S X(100*VP+I)=X(100*VP+I);S X(100*VP+J)=X(100*VP+J);D 10.6
10.40 S J=J-1; I (J-I)10.9,10.9,10.1
10.60 S X1=X(100*VP+I);S X(100*VP+I)=X(100*VP+J);S X(100*VP+J)=X1
10.90 R
11.10 I (X(BA*100+I)-SA)11.2,11.9,11.2
11.20 S N1=N1+1;S X(100*VT+N1)=X(BA*100+I)
11.90 R
13.10 S A1=0;S A2=0;S I=0;S J=0
13.15 S I=I+1; I (I-N)13.2,13.2;R
13.20 I (X(VT*100+I)-SA) 13.25,13.15,13.25
13.25 S J=J+1;I (X(VT*100+I)-ME)13.3,13.4,13.4
13.30 S A1=A1+1;G 13.15
13.40 S A2=A2+1;G 13.15



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search