       module module1
       beginline loop1 module2
       gas=0
       cln=0
       msc=0
       rst=0
       sas=0
       sb1=0
       tb1=0
       do while (pc_nextline_sts)
           gas=gas+pc_star(pc_line(loop1)\&gas)
           cln=cln+pc_star(pc_line(loop1)\&cleaners)
           msc=msc+pc_star(pc_line(loop1)\&misc)
           rst=rst+pc_star(pc_line(loop1)\&rest)
           sas=sas+pc_star(pc_line(loop1)\&ss)
           parameter ignore nofind
           sb1=sb1+pc_star(pc_line(loop1)\&b1)
           if(eq(pc_ignore_sts,0)) tb1=tb1+1
           parameter ignore find
           nextline loop1 module2
       end do
       print "gas = pc_calc(gas) ave = pc_calc(gas/12)"
       print "cln = pc_calc(cln) ave = pc_calc(cln/12)"
       print "msc = pc_calc(msc) ave = pc_calc(msc/12)"
       print "rst = pc_calc(rst) ave = pc_calc(rst/12)"
       print "sas = pc_calc(sas) ave = pc_calc(sas/12)"
       if(ne(tb1,0)) print "sb1 = pc_calc(sb1) ave = pc_calc(sb1/tb1)"
       end

       module module2
       save\0305.c1
       save\0306.c1
       save\0307.c1
       save\0308.c1
       save\0309.c1
       save\0310.c1
       save\0311.c1
       save\0312.c1
       save\0401.c1
       save\0402.c1
       save\0403.c1
       save\0404.c1
       end
