DISPLAY
  As for case L100, but with optional value of RATEXP
 
  ENDDIS
#$L100
mesg(Insert desired value of RATEXP, currently :ratexp:
READVDU(RATEXP,REAL,:RATEXP:)
TEXT(WSR, 1D Population; RATEXP=:RATEXP:  
EX(F25 )=   4.671E-01; EX(F24 )=   7.313E-02; EX(F23 )=   3.696E-02
EX(F22 )=   2.691E-02; EX(F21 )=   2.213E-02; EX(F20 )=   1.944E-02
EX(F19 )=   1.782E-02; EX(F18 )=   1.682E-02; EX(F17 )=   1.620E-02
EX(F16 )=   1.583E-02; EX(F15 )=   1.564E-02; EX(F14 )=   1.554E-02
EX(F13 )=   1.549E-02; EX(F12 )=   1.543E-02; EX(F11 )=   1.531E-02
EX(F10 )=   1.510E-02; EX(F9  )=   1.475E-02; EX(F8  )=   1.428E-02
EX(F7  )=   1.369E-02; EX(F6  )=   1.304E-02; EX(F5  )=   1.239E-02
EX(F4  )=   1.183E-02; EX(F3  )=   1.148E-02; EX(F2  )=   1.250E-02
EX(F1  )=   9.122E-02; EX(MNSQ)=   3.547E-01; EX(AVER)=   7.390E-01
EX(RATE)=   1.000E+00