C-------------------------------------------------------------------
C  SESSION LESEN
C-------------------------------------------------------------------

      CALL G7MLSO (STKOBJ,IANOBJ,IER,*999)

      DO I1 = 1,IANOBJ
	CALL GUSREA (STKOBJ,I1,JOBJ,IER,*999)

	CALL G7MORG (JOBJ,LMAX,METHOD,LORG,ORIGIN,IER,*999)

	WRITE (INFO(7:9),'(I3)') I1
	INFO(10:14) = ' VON '
	WRITE (INFO(15:17),'(I3)') IANOBJ

	WRITE (6,*) INFO
	WRITE (6,*) ORIGIN(9:78)
	WRITE (6,*) ' '


	CALL G7MLOM (JOBJ,STKMDLO,IANMDLO,IER,*999)

	CALL GUSREA (STKMDLO,1,JMDLO,IER,*999)
	CALL G7MSWA (MNUM,JMDLO,LIMAGE,LAXIS,IER,*999)
	CALL PTNS (IZURUE)

      ENDDO