>L
      PROGRAM epsilon
C
      DOUBLE a
      FORMAT (E10.8,/)
      a = 1.0
      DO WHILE ( ( a + 1.0 ) > 1.0 )
        WRITE (6,0) a
        a = a / 2.0
      END DO
      END
\

    ELECTRIDE 2.0   S. Oliver 2014, 2015
    with content Microchip and GNU
    Trial PIC32MX170B version 1.9X


    (G) Get
    (S) Save
    (R) Run
    (L) List

>R

      PROGRAM epsilon
C
      DOUBLE a
      FORMAT (E10.8,/)
      a = 1.0
      DO WHILE ( ( a + 1.0 ) > 1.0 )
      WRITE (6,0) a
      a = a / 2.0
      END DO
      END
\

1.00000000e+00
5.00000000e-01
2.50000000e-01
1.25000000e-01
6.25000000e-02
3.12500000e-02
1.56250000e-02
7.81250000e-03
3.90625000e-03
1.95312500e-03
9.76562500e-04
4.88281250e-04
2.44140625e-04
1.22070313e-04
6.10351563e-05
3.05175781e-05
1.52587891e-05
7.62939453e-06
3.81469727e-06
1.90734863e-06
9.53674316e-07
4.76837158e-07
2.38418579e-07
1.19209290e-07
5.96046448e-08
2.98023224e-08
1.49011612e-08
7.45058060e-09
3.72529030e-09
1.86264515e-09
9.31322575e-10
4.65661287e-10
2.32830644e-10
1.16415322e-10
5.82076609e-11
2.91038305e-11
1.45519152e-11
7.27595761e-12
3.63797881e-12
1.81898940e-12
9.09494702e-13
4.54747351e-13
2.27373675e-13
1.13686838e-13
5.68434189e-14
2.84217094e-14
1.42108547e-14
7.10542736e-15
3.55271368e-15
1.77635684e-15
8.88178420e-16
4.44089210e-16
2.22044605e-16