      CALL TSPACE(0)
      CALL TSOPDS
      pause
      STOP
      END
