/**********************************************************************/

   /* calculate ACTUAL and VARIANCE                       */
actual=sum(of qtr1--qtr4);                                  
variance=budget-actual;                                     
                                                            
   /* calculate EXPENSES and NET                          */
expenses=sum(of salary--utility);                           
net=revenue-expenses;                                       
                                                            
   /* calculate all values for SUMMARY page               */
summary=sum(of sales--service);                             


/**********************************************************************/


do j=1 to  numcols();                         
   do i=1 to  numrows();                      
                                              
      /*clears all highlights*/               
      call hilite(i,j,'yellow','none');       
                                              
      /* highlights cell if blank*/           
      if table(i,j)=_blank_ then              
          call hilite(i,j,'yellow','reverse');
   end;                                       
end;                                          


/**********************************************************************/