SUBROUTINE FSALRM
      call x11cloche
      END
c-----------------------------------------------------
      integer*2 function int2(i)
      int2 = i
      end