Figure 6: Sample code with new comment form

  //  Prototypes
D DayofWeek       PR             1  0
D  VarDate                        D

  //  Standalone variables
D DayNbr          S              5  0

 /Free
  // Calculate total pay for employee
  Chain(ne) EmployeeID Employees;
  If %Found;               // If employee active, calculate total pay
      Eval(h) TotalPay = (RegHours * Rate) + (OvtHours * Rate * 1.5);
  Endif;
 /End-free