CFPIO MODULE                                                                 INC
C'-'                                                                        VALP
 NR1                                                                         JNN
NR31  *USE E FORMAT                                                          SBB
T                                                                            SUB
 FP10                                                                        J L
 LLREAL  *10.0                                                              CHAR
NUMBER  *NUMBER:=NUMBER+FRACTION                                             LSS
NENT INCH  *SKIP 'E'                                                         ICP