C DATAPLAN-FOCAL73
 1.01 T "ITERATIVE BERECHNUNG VON E",!
 1.10 S ST=2; S SP=3; S D=1
 1.20 S E=ST; S I=1
 1.25 T I, E, D,!
 1.30 I (FLOG(E)-1) 2.1,4.1,3.1
 2.10 S E=E+D
 2.20 S D=D/2
 2.25 S I=I+1
 2.30 G 1.25
 3.10 S E=E-D
 3.20 G 2.2
 4.10 T "NACH MEINEN BERECHNUNGEN LIEGT DER WERT VON E BEI: ",E,!
 4.15 T "ES SOLLTE ABER NAEHER BEI: ",FEXP(1)," LIEGEN!",!
 4.20 S DI=E-FEXP(1)
 4.30 T "DIES IST EINE ABWEICHUNG VON: ",DI
 4.40 S P=DI/FEXP(1)
 4.50 T " ODER: ",P," %",!