11 lines
293 B
Text
11 lines
293 B
Text
PRINT FNformat(PI, 9, 3)
|
|
PRINT FNformat(-PI, 9, 3)
|
|
END
|
|
|
|
DEF FNformat(n, sl%, dp%)
|
|
LOCAL @%
|
|
@% = &1020000 OR dp% << 8
|
|
IF n >= 0 THEN
|
|
= RIGHT$(STRING$(sl%,"0") + STR$(n), sl%)
|
|
ENDIF
|
|
= "-" + RIGHT$(STRING$(sl%,"0") + STR$(-n), sl%-1)
|