C-FOCAL,1969 01.01 S M(0)=60;S M(7)=10 01.02 S XF=0;F R=1,6;S M(R+7*XF)=M(R-1+7*XF)+30 01.03 S XF=1;F R=1,6;S M(R+7*XF)=M(R-1+7*XF)+5 01.10 *;A R,XF;F R=0,4;F XF =0,1;A A(R+5*XF) 01.11 *;T ! 01.20 A CN;I (CN-6)1.3,1.4,1.4 01.30 F R=0,4;D 2.0 01.31 GOTO 1.2 01.40 F R=0,4;D 3.0 01.50 F R=0,4;T !;D 4.0 01.60 S S=0;S XF=2;F R=0,4;S S=A(R+5*XF)+S 01.70 S C=0;S XF=3;F R=0,4;S C=A(R+5*XF)+C 01.80 S B=0;S XF=4;F R=0,4;S B=A(R+5*XF)+B 01.90 T !,!,"SALES",S," COLLECTIONS",C," BALANCE",B 01.91 T !,"G 1.92,ON,R";Q 01.92 F R=0,4;F XF=0,4,4;T A(R+5*XF) 01.93 Q 02.10 S XF=0;I (A(R+5*XF)-CN)2.7,2.2,2.7 02.20 A TR;I (TR)2.3,2.8,2.5 02.30 S XF=2;S A(R+5*XF)=A(R+5*XF)+TR 02.40 GOTO 2.2 02.50 S XF=3;S A(R+5*XF)=A(R+5*XF)+TR 02.60 GOTO 2.2 02.70 R 02.80 S R=5 03.10 S XF=1;S A(R+5*(XF+3))=A(R+5*XF)+A(R+5*(XF+1))+A(R+5*(XF+2)) 04.10 F XF=0,3;T %6.02,A(R+5*XF)," " 04.20 F I=0,6;D 5.0 04.30 S XF=4;T %6.02,A(R+5*XF) 04.40 I (TH)4.6,4.6,4.5 04.50 T !,"PAY OR DIE" 04.60 T !;R 04.70 S XF=4;S SC=.0125*A(R+5*XF) 04.80 T !,"PAY OR DIE";T !,"SVC CHG",SC 04.90 S A(R+5*XF)=A(R+5*XF)+SC;S I=7 05.10 S J=0;S XF=1;I (A(R+5*XF))5.2,5.4,5.4 05.20 I (A(R+5*XF)+M(I+7*J))5.3,5.5,5.5 05.30 I (I-6)5.31;S MP=A(R+5*XF)/6;GOTO 5.6 05.31 R 05.40 S TH=0;S I=7;T " ";R 05.50 S J=1;S XF=3;S MP=M(I+7*J) 05.60 I (A(R+5*XF)-MP)5.7,5.4,5.4 05.70 S XF=4;S SC=.0125*A(R+5*XF) 05.80 S TH=1;T SC," " 05.90 S A(R+5*XF)=A(R+5*XF)+SC;S I=7 *x