Rev 9646 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 9646 | Rev 9873 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | (* |
1 | (* |
| 2 | BSD 2-Clause License |
2 | BSD 2-Clause License |
| Line 3... | Line 3... | ||
| 3 | 3 | ||
| 4 | Copyright (c) 2018-2021, Anton Krotov |
4 | Copyright (c) 2018-2022, Anton Krotov |
| 5 | All rights reserved. |
5 | All rights reserved. |
| Line 6... | Line 6... | ||
| 6 | *) |
6 | *) |
| Line 57... | Line 57... | ||
| 57 | days: DAYS; |
57 | days: DAYS; |
| Line 58... | Line 58... | ||
| 58 | 58 | ||
| 59 | Params: ARRAY MAX_PARAM, 2 OF INTEGER; |
59 | Params: ARRAY MAX_PARAM, 2 OF INTEGER; |
| Line 60... | Line 60... | ||
| 60 | argc*: INTEGER; |
60 | argc*: INTEGER; |
| Line 61... | Line 61... | ||
| 61 | 61 | ||
| Line 62... | Line 62... | ||
| 62 | maxreal*: REAL; |
62 | maxreal*, inf*: REAL; |
| Line 535... | Line 535... | ||
| 535 | INC(n1) |
535 | INC(n1) |
| 536 | END |
536 | END |
| 537 | END |
537 | END |
| 538 | END; |
538 | END; |
| Line -... | Line 539... | ||
| - | 539 | ||
| 539 | 540 | inf := SYSTEM.INF(); |
|
| 540 | maxreal := 1.9; |
541 | maxreal := 1.9; |
| 541 | PACK(maxreal, 1023); |
542 | PACK(maxreal, 1023); |
| 542 | Console := TRUE; |
543 | Console := TRUE; |
| 543 | IF Console THEN |
544 | IF Console THEN |