MaddinMV

           perform varying i from 1 by 1 until i > 10

           if schalter = 0

                       then add summe to i

                          move 1 to schalter

                            else if schalter = 1

                              then subtract i from summe

                                 move 0 to schalter

                                 end-if

           end-if

           end-perform.

           display summe.

       ende.

           stop run.

	perform vaying i from 1 by 1 until i <= 10

	if schalter = 0

		then 

			add i to summe

			move 1 to schalter

		else

			if schalter = 1

				then subtract i from summe

				move 0 to schalter

			end-if

	end-if

	end-perform.

	display summe.

	ende.

	stop run.

also bei ende. und stop run. bin ich mir nicht sicher....kenns nur mit end-section. oder nur end. ka.

bye