FQPrint    O    F   80        Printer

     D Unedited        S              8S 2
     D Edited          S              8S 2

     D PhoneBefore     S             10S 0
     D PhoneAfter      S             10S 0

     C                   Eval      UnEdited = 567
     C                   Eval      Edited = 567
     C                   Except    first
     C                   Except    second
     C                   Except    third
     C                   Except    fourth
     C                   Except    fifth
     C                   Except    sixth
     C                   Except    seventh
     C                   Except    eighth
     C                   Except    ninth

     C                   Eval      UnEdited = 123456
     C                   Eval      Edited = 123456
     C                   Except    tenth

     C                   Eval      UnEdited = 567
     C                   Eval      Edited = 567
     C                   Except    eleventh

     C                   Eval      UnEdited = -567
     C                   Eval      Edited = -567
     C                   Except    twelvth
     C                   Except    thirteenth

     C                   Eval      UnEdited = 567
     C                   Eval      Edited = 567
     C                   Except    twelvth
     C                   Except    thirteenth

     C                   Eval      UnEdited = -567
     C                   Eval      Edited = -567
     C                   Except    fourteenth

     C                   Eval      PhoneBefore = 7145551212
     C                   Eval      PhoneAfter =  7145551212
     C                   Except    fifteenth
     C                   Except    sixteenth

     C                   Eval      UnEdited = 567
     C                   Eval      Edited = 567
     C                   Except    seventeent

     C                   Eval      UnEdited = 000000.07
     C                   Eval      Edited = 000000.07
     C                   Except    eighteenth

     C                   Eval      *InLr = *On

     OQPrint    E            First       1  1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '        '

     OQPrint    E            Second         1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '      .  '

     OQPrint    E            Third          1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 ' 0    .  '

     OQPrint    E            Fourth         1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '0         .  '

     OQPrint    E            Fifth          1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '      &  '

     OQPrint    E            Sixth          1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '     *.  '

     OQPrint    E            Seventh        1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '*         .  '

     OQPrint    E            Eighth         1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '     $0.  '

     OQPrint    E            Ninth          1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '$      .  '

     OQPrint    E            Tenth          1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '   ,   .  '

     OQPrint    E            Eleventh       1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '   ,   .  '

     OQPrint    E            Twelvth        1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '        -'

     OQPrint    E            Thirteenth     1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '        CR'

     OQPrint    E            Fourteenth     1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '         Negative'

     OQPrint    E            Fifteenth      1
     O                                           15 'UnEdited:  '
     O                       PhoneBefore
     O                                           45 'Edited:  '
     O                       PhoneAfter             '   -   -    '

     OQPrint    E            Sixteenth      1
     O                                           15 'UnEdited:  '
     O                       PhoneBefore
     O                                           45 'Edited:  '
     O                       PhoneAfter             '0AREA&   &NO.&   -    '

     OQPrint    E            Seventeent     1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '$      &DOLLARS&  &CTS'

     OQPrint    E            Eighteenth     1
     O                                           15 'UnEdited:  '
     O                       UnEdited
     O                                           45 'Edited:  '
     O                       Edited                 '$      &DOLLARS&  &CTS'