C-PS/8 FOCAL, 1971
 1.01 S B=0
 1.02 S A=FADC(4);T A,!
 1.05 S B=B+1; I (B-20)1.02,1.02,1.20
 1.20 Q