(PC-1211) Engineering format

[robve]

A quick-and-dirty combination of the two programs to display scientific or engineering notation with a given number of digits (0 to 9):

Code:

1 "=" AREAD X: INPUT "SCI#";O: PRINT USING LEFT$("##.#########",O+3)+"^";X: END
2 IF X<>0 INPUT "ENG#";O: USING "###########."+LEFT$("#########",O): O=3*INT(LOG ABS X/3): PRINT X/10^O;"E"+STR$ O: END
3 USING: PRINT X: END

DEF= to display the current value scientific notation with the specified SCI# digits. Press ENTER (to skip SCI#) to display in engineering with the specified ENG# digits. Press ENTER to display normally "as is" .

Won't work on the PC-1211 but should work on all other PC that have 24 character wide LCDs.

- Rob