*Do,i,0.01,QDICKE

/TITLE,Quaderhoehe 0.00-%i%

			NSEL,S,LOC,Z,0,i

			ESLN,S
			NSEL,S,,,1,150000	!***Konturplot des Modells
			/PNUM,NODE
			PLNS,TEMP
       
			/AUTO,1			!***BILDGRÖßE ANS FENSTER
			/REP,FAST		!***ANPASSEN
        
			/SHOW,JPEG
			JPEG,QUAL,100
			JPEG,ORIENT,HORIZ
			JPEG,COLOR,2
			JPEG,TMOD,1		!***BILD WIRD GESCHOSSEN
			/GFILE,1200
			!*
			/REPLOT

			!
			/SHOW,CLOSE
			/DEVICE,VECTOR,0
        

*ENDDO