how to know if prog was started from home or cas ?

[toshk]

i think the easy way is to pick the different behaviors in results of a common function under CAS and Home;
eg;
Home;
TYPE(coeff("y","y"))==4;
CAS
TYPE(coeff("y","y"))==6;
and set Flag accordingly;

#cas
ccc():=
BEGIN
BB:=coeff(x/7); // under HOME [0.142857142857,0] and CAS [1/7,0] and denominator of the first element will determine where you are
BC:=CAS.coeff("x/7","'x'"); //exploit a bug of the function when numerator is available in the function "x/7" it does not executes at all. But it should evaluate under Home and fails under CAS
BD:=TYPE(BB);
BE:=denom(BB(1));
END;
#end