120,7 → 120,7 |
Char(0AX) |
END Ln; |
|
PROCEDURE FixReal*(x: LONGREAL; width, p: INTEGER); |
PROCEDURE _FixReal(x: LONGREAL; width, p: INTEGER); |
VAR e, len, i: INTEGER; y: LONGREAL; minus: BOOLEAN; |
BEGIN |
IF IsNan(x) OR IsInf(x) THEN |
200,7 → 200,7 |
DEC(p) |
END |
END |
END FixReal; |
END _FixReal; |
|
PROCEDURE Real*(x: LONGREAL; width: INTEGER); |
VAR e, n, i: INTEGER; minus: BOOLEAN; |
241,7 → 241,8 |
IF minus THEN |
x := -x |
END; |
FixReal(x, width, width - 3); |
Realp := Real; |
_FixReal(x, width, width - 3); |
Char("E"); |
IF e >= 0 THEN |
Char("+") |
259,6 → 260,12 |
END |
END Real; |
|
PROCEDURE FixReal*(x: LONGREAL; width, p: INTEGER); |
BEGIN |
Realp := Real; |
_FixReal(x, width, p) |
END FixReal; |
|
PROCEDURE Open*; |
TYPE |
|
282,6 → 289,4 |
res := KOSAPI.sysfunc2(70, sys.ADR(info)) |
END Open; |
|
BEGIN |
Realp := Real |
END Debug. |
END Debug. |