PROCEDURE AUFBAU
* aufbau: aufbau des ges. Bildes
@ 3,0 clear
@ 21,0 say strich + strich
@ 24,0 say "„-ndern  l-”schen  e-infgen  g-ruppe  dru-cken";
+ "  anz-eigen  ende"
if schneu=1
   az=20
else
   az=3
endif
zwaufzei=aufzei
aufzei=0
do while .t.
   aufzei=aufzei+1
   if az>19
      if schneu=0
      wait "     Weiter mit ENTER ..."
      endif
      @ 3,0 clear
      @ 21,0 say strich + strich
      @ 24,0 say "„-ndern  l-”schen  e-infgen  g-ruppe  dru-cken";
      + "  anz-eigen  ende"
      z=merkzei
      az=18
      do while .t.
         z=z-1
         if z>9
            tabf="t"+str(z,2,0)
           else
            tabf="t"+str(z,1,0)
         endif
         if &tabf=space(125)
            loop
           else
            exit
         endif
      enddo
      do while .t.
         @ az,0 say str(z,2,0) + " " + substr(&tabf,4,68)
         az=az-1
         if az<4
            exit
         endif
         z=z-1
         if z>9
            tabf="t"+str(z,2,0)
           else
            tabf="t"+str(z,1,0)
         endif
       enddo
   az=20
   aufzei=merkzei
   exit
   endif
   if aufzei>9
      tabf="t"+str(aufzei,2,0)
   else
      tabf="t"+str(aufzei,1,0)
   endif
   if &tabf=space(125)
      exit
   endif
   @ az,0 say str(aufzei,2,0) + " " + substr(&tabf,4,68)
   az=az+1
enddo
sumrech=0
rechzei=0
do while .t.
rechzei=rechzei+1
if rechzei>9
   tabf="t"+str(rechzei,2,0)
 else
   tabf="t"+str(rechzei,1,0)
endif
if &tabf=space(125)
   exit
endif
sumrech=sumrech+val(substr(&tabf,62,8))
enddo
@ 3,72 say str(sumrech,8,2)
zaufzei=aufzei-1
aufzei=aufzei-1
letz=aufzei-1
schaufbau=1
return