command decsupply (constant domainvar)
{
if (ssh>=0) then
{
let it roots(supply(x), 100, Õ-200,200å);
let root it(1);
graphdomain root+domainvar 100-domainvar;
}
else
{
graphdomain domainvar 100-domainvar;
}
graph supply color grey width 2;
let ssh ssh-5;
if (ssh>=0) then
 {let it roots(supply(x), 100, Õ-200, 200å);
  let xint_supply it(1);
  graphdomain xint_supply+domainvar 100-domainvar;}
else
 {graphdomain domainvar 100-domainvar;}
graph supply color supcol width 2;
pencolor black;
Select "price";
cleartext;
Print "This decreases supply, or shifts the supply curve back.";
}


command incsupply (constant domainvar)
{
if (ssh>=0) then
{
let it roots(supply(x), 100, Õ-200,200å);
let root it(1);
graphdomain root+domainvar 100-domainvar;
}
else
{
graphdomain domainvar 100-domainvar;
}
graph supply color grey width 2;
let ssh ssh+5;
if (ssh>=0) then
 {let it roots(supply(x), 100, Õ-200, 200å);
  let xint_supply it(1);
  graphdomain xint_supply+domainvar 100-domainvar;}
else
 {graphdomain domainvar 100-domainvar;}
graph supply color supcol width 2;
pencolor black;
Select "price";
cleartext;
Print "This increases supply, or shifts the supply curve out.";
}

command drawsupply (constant domainvar)
{
if (ssh>=0) then
{
let it roots(supply(x), 100, Õ-200,200å);
let root it(1);
graphdomain root+domainvar 100-domainvar;
}
else
{
graphdomain domainvar 100-domainvar;
}
graph supply color supcol width 2;
}

command drawdemand (constant domainvar)
{
if (dsh<=25) then
{
let it roots(demand(x), 100, Õ-200,200å);
let root it(1);
graphdomain domainvar root-domainvar;
}
else
{graphdomain domainvar 100-domainvar;}
graph demand color demcol width 2;
}
