begin
recordformat  stackfm( string(255) idname,
 integer var no,
 byteinteger aform, base,
 byteinteger type, form, scope, dim,
 integer disp, extdisp,
          format, size, pbase, extra )
          
record(stackfm) lhs,rhs

routine swap
 record(stackfm) temp
 temp = lhs
 lhs = rhs
 rhs = temp
end { of "swap" }

endofprogram