! this is a comment
          module module1
          parameter maxexe 1000
          parameter stardef pcalc1.b1
          global sum
          x=1 ! comments
          y=2
          sum=pc_star(c:\for\pcalc1.b2\*car)+pc_star(*food)+pc_star(&misc)
          sum=sum+(pc_star(*car)+pc_star(*food))/2
          sum=sum+nint(pc_star(*car)+pc_star(*food)*x)
          sum=sum+pc_star(#staraccounts)+pc_star(#balance)+pc_star(#audit)
          sum=sum+pc_star(#ebal)+pc_star(#premonbal)+pc_star(#used)
          sum=sum+pc_star(#$cur)+pc_star(#etgt)+pc_star(#left)
          sum=sum+pc_star(#tottgt)+pc_star(#over)+pc_star(#)
          sum=sum+pc_star(#net)+pc_star(#revenue)+pc_star(#expense)
          sum=sum+x+1+pc_star(#dpay)
          print "dpay = pc_star(#dpay,f.2)"
          print "this is a message pc_star(*car,F10.2) pc_calc(sum,I10)"
          spawn dir pcalc.out
          newfile star.pcalc.out
          newfile pcalc.out
          write star.pcalc.out "cable + gas = pc_calc(pc_star(*cable)+pc_star(*gas),f.2) - utilities!"
          write pcalc.out "sum+1 = pc_calc(sum+1,I10) pc_date(today,yymmdd)"
          if(ne(pc_star(*car),0)) print "car = pc_star(*car,f)"
          if(eq(x,0)+ne(x,y)) goto next
          if(eq(x,0)*ne(x,y)) then
              sum=sum/3
              star car pc_calc(sum) *food - monthly living
          else if(eq(x,0)) then
          else
              sum=sum/4
          endif
          label next
          call module2
          sum=sum*2
          write pcalc.out "sum = pc_calc(sum,I10)"
          call module2 + next
          write pcalc.out "sum = pc_calc(sum,I10)"
          close pcalc.out
          beginline loop1 module3 + start
          beginline loop2 module4 + start
          label loop
              star pc_line(loop1) 10
              star pc_line(loop2) -5
          nextline loop1 module3 + end
          xxx=pc_nextline_sts
          nextline loop2 module4 + end
          if(pc_nextline_sts*xxx) goto loop
          beginline loop1 module3+start
          print "sum = pc_calc(sum) - begin do while"
          do while (pc_nextline_sts)
              sum=sum+1
              nextline loop1 module3 + end
          end do
          print "sum = pc_calc(sum) - end of do while"
          call c:\for\pcalc.pc2\module5 + start
          call module7 ( xxx = 10 )
          end

          module module2
          if(eq(sum,0)) return
          label next
          print "sum = pc_calc(sum,F.2)"
          end

          module module3
          label start
          jan
          feb
          mar
          apr
          may
          jun
          jul
          aug
          sep
          oct
          nov
          dec
          label end
          end

          module module4
          label start
          y2001
          y2002
          y2003
          y2004
          label end
          end

          module module7 ( xxx = value )
          print "xxx = pc_calc(xxx)"
          end
