Directory of image this file is from
This file as a plain text file

()0F(BTC-PS/8 FOCAL, 1971?MB BAC BASIS-UMWANDLUNG?MFHBDE?MB*BJS I=1?MB3BTS E=D/(10^I)?MCGBUS R2=FITR((E+.0000001-FITR(E))*10)?MCUB^S ANS=ANS+R2*B1^(I-1)?MC B
S R2=R2*10^(I-1)?MC-B(S D=FITR(D)-FITR(R2)?MC9B)I (D)1.5,1.5,1.42?MDB*S I=I+1?MDFB+G 1.2?MDLB2S J=20?MDSB<S I=ANS?MDZCFS A=I/B2?MDCPS I=FITR(A)?MD.CZI (-A)1.91,1.94?MD9C[S D(J)=(A-I)*B2?MEC\S J=J-1?MEFC]G 1.7?MEUC^F L=J-20,-1;T %1,D(21+L)?ME[C
T %,!!?ME!C G 1.04?M2E01.05 A "WANDLUNG DER ZAHL ",D," VON DER BASIS ",B?,," AUF BASIS ",B2,!?MB$BEA "WANDLUNG ZAHL ",D," VON BASIS ",B1," AUF BASIS ",B2,!!?M!?L S BUM ?M?MG ZAHL ",D," VON BASIS ",B1," AUF BASIS ",B2,!!?GUD^I (25-P),1.6;G Q(S(P))?MG3D(T "
U"!;G 2.1;C RESET CHARACTER POINTER AND START OVER?MHQD2S P=P-FSGN(P-1);T "\";*3B 2 ?F3RGM+T^(7EKP+OCM+I" 7L
O*)>	*	B * ^ .,CI")*M7JCM2 K^2MNJ3P
A/EF "6*M/\B1*3B,.5R0"7*M.5B2.MJJ.2^1.MFJ.5B4.MFJ.1B4.MVJ.0R1.MFJ.7^2.MVJ.1^4.MVJ.7^4.MRJ.0B4.MRJ.0B4.MRJ.7R5.MFJ.1B6.MVJ.1B06M:J+BB,"M6J*JB/* B 2 R /OV . 7I.0F,"5*M3CGI" *M3IOA" *M3CGI" *M

Note: Lines longer than 256 characters were wrapped