"Cleber" wrote:
Quote:
Where to obtain a program free of calculator in Pick Basic? |
I'm not sure if this is what you mean but try this:
TCLREAD CMD
CMD = OCONV(CMD,'G1 999') ; * eliminate the verb, assume cataloged
OPEN 'WORK' TO F.WORK ELSE STOP ; * this is my BP file
PROG = "CRT ":CMD
WRITE PROG ON F.WORK,'CALC.':@PORT
EXECUTE "COMPILE WORK CALC.":@PORT CAPTURING OUT RETURNING ERR
IF ERR # 241 THEN
CRT "Invalid calculation"
STOP
END
EXECUTE "RUN WORK CALC.":@PORT
DELETE F.WORK,'CALC.':@PORT
Compile-catalog that as CALC. For D3, use (OF) options for Flash
compilation with floating point accuracy. Then you can do this:
calc (2^(34/2))*(8-(34/3))
If you want functions, accumulators, or other enhancements they will
need to be coded.
HTH
T