$TITLE  TWO-VARIABLE-PROGRAM
$OFFUPPER
* This program solves a simple two variable LP
*

 VARIABLES
       Z       total profit

  POSITIVE VARIABLES 
       XB 
       XC ;

  EQUATIONS
       COST        define objective function maximimizing profit
       TIME        Inequality constraint
       BLIMIT      Upper bound B 
       CLIMIT      Upper bound C ;

  COST ..        Z  =E=  25*XB + 30*XC;

  TIME ..        (1/200)*XB + (1/140)*XC  =L= 40;

  BLIMIT ..      XB =L= 6000;

  CLIMIT ..      XC =L= 4000;

  MODEL  TWOVAR /ALL/ ;

  SOLVE TWOVAR USING LP MAXIMIZING Z ;

  DISPLAY XB.L, XB.M, XC.L, XC.M ;