C-PS/8 FOCAL, 1971
 1.01 C BASIS-UMWANDLUNG
 1.04 E
 1.05 A "WANDLUNG ZAHL ",D," VON BASIS ",B1," AUF BASIS ",B2,!!
 1.10 S I=1
 1.20 S E=D/(10^I)
 1.21 S R2=FITR((E+.0000001-FITR(E))*10)
 1.30 S ANS=ANS+R2*B1^(I-1)
 1.31 S R2=R2*10^(I-1)
 1.40 S D=FITR(D)-FITR(R2)
 1.41 I (D)1.5,1.5,1.42
 1.42 S I=I+1
 1.43 G 1.2
 1.50 S J=20
 1.60 S I=ANS
 1.70 S A=I/B2
 1.80 S I=FITR(A)
 1.90 I (-A)1.91,1.94
 1.91 S D(J)=(A-I)*B2
 1.92 S J=J-1
 1.93 G 1.7
 1.94 F L=J-20,-1;T %1,D(21+L)
 1.95 T %,!!
 1.96 G 1.04
25.05 01.05 A "WANDLUNG DER ZAHL ",D," VON DER BASIS ",B
,," AUF BASIS ",B2,!