01.01 E
01.05 S L=100;*
01.10 T !;S P=P+1
01.20 A S;I (S-0STOP)1.3,1.6
01.30 S G=J+L*K;S Z=FNEW(G,S);I (K-3)1.4,1.5
01.40 S K=K+1;G 1.2
01.50 S K=0;S J=J+1;I (J*4-P*72)1.2,1.1
01.60 *;T !!;S N=J;F K=0,3;D 1.95;F J=0,N-1;S G=J+L*K;D 2;D 5;D 6
01.65 F K=0,3;D 3
01.70 T !"NUMBER OF PATIENTS ATTENDING"%2,N,!
01.75 F K=0,3;T !;D 8;F G=1,H(K);D 1.9;F B=LS(K),HS(K);D 7
01.80 T !;D 8;Q
01.90 T !;S Z=Z-1;T Z;S SP=(LS(K)-K*25-5)*2+1;D 4.5
01.95 S LS(K)=25+K*25

02.10 S L1(K)=L1(K)+FNEW(G);S M(K)=M(K)+[FNEW(G)]^2
02.15 S B=FITR(FNEW(G)/10+.5)+K*25;S Z(B)=Z(B)+1;I (H(K)-Z(B))2.2;R
02.20 S H(K)=Z(B)

03.10 S MB=L1(K)/N;S SD=FSQT[(M(K)-L1(K)^2/N)/(N-1)]
03.20 I (K-1)3.4,3.5;I (K-3)3.6;T "STANDING DIASTOLIC
03.25 D 4;R
03.40 T "LYING SYSTOLIC    
03.45 D 4;R
03.50 T "LYING DIASTOLIC   
03.55 D 4;R
03.60 T "STANDING SYSTOLIC 
03.65 D 4

04.10 S SP=10;D 4.5;T %1,K+1;S SP=7;D 4.5;T %5.02,MB
04.20 S SP=5;D 4.5;T %4.02,SD,!;R
04.50 F P=1,SP;T " "

05.10 I (HS(K)-B)5.2;R
05.20 S HS(K)=B

06.10 I (B-LS(K))6.2;R
06.20 S LS(K)=B

07.10 I (Z(B)-Z)7.2,7.3,7.3
07.20 T "  ";R
07.30 T "X "

08.10 S Z=H(K)+1;I (K),8.4;F P=1,55;T "-"
08.20 T !"     50        100       150       200       250"!
08.25 T "HISTOGRAM OF ";S K=K-1;D 3.2;T " B.P."!;S K=K+1
08.40 T !;R
*
x