begin
  recordformat unionfm(                    c
    (                                       c
      integer a, b                         c
      or                                   c
      byteinteger a0,a1,a2,a3, b0,b1,b2,b3 c
      or                                   c
      shortinteger aa,ab, ba,bb            c
      or                                   c
      longreal lr                          c
    ),                                      c
    longreal desc                          c
  )
endofprogram