Library of programs

[Carlos295pz]

Code:


#pragma mode(separator(.,;) integer(h32))
SYSTEM_LIB;

EXPORT RCL_SETTINGS()
BEGIN
LOCAL l;
l:=HVars("Mode");
HAngle:=l(1);HFormat:=l(2);
HSeparator:=l(3);HDigits:=l(4);
HComplex:=l(5);Entry:=l(6);
Base:=l(7);Bits:=l(8);Signed:=l(9);
END;

EXPORT STO_SETTINGS()
BEGIN
HVars("Mode"):={HAngle,HFormat,HSeparator,HDigits,HComplex,Entry,Base,Bits,Signed};
END;