%BEGIN
%LONGLONGREAL A,B,R1,R2
%INTEGERFNSPEC DXR(%LONGLONGREALNAME TOP,%LONGLONGREAL BTM)
%INTEGER I
      A=7; A=A/3
      B=15
      B=B/7
      R1=A/B
R2=A
      I=DXR(R2,B)
      WRITE(I,1)
      PRINTFL(R1,15)
      PRINTFL(R2,15)
      PRINTFL(R1-R2,5)
%INTEGERFN DXR(%LONGLONGREALNAME TOP,%LONGLONGREAL BOTTOM)
%LONGREAL X
%LONGLONGREAL APPROX,CORRN
      X=BOTTOM
      APPROX=1.0/X
      CORRN=2.0-APPROX*BOTTOM
      PRINTFL(CORRN-1,5)
      APPROX=APPROX*CORRN
      CORRN=2-0-APPROX*BOTTOM
      APPROX=APPROX*CORRN
      PRINTFL(CORRN-1.0,5)
      TOP=TOP*APPROX
      %RESULT=0
%END
%ENDOFPROGRAM