Rev 7983 | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
7983 | leency | 1 | (* |
7597 | akron1 | 2 | BSD 2-Clause License |
3 | |||
8859 | leency | 4 | Copyright (c) 2018-2021, Anton Krotov |
7597 | akron1 | 5 | All rights reserved. |
6 | *) |
||
7 | |||
8 | MODULE CONSOLE; |
||
9 | |||
10 | IMPORT UTILS, STRINGS; |
||
11 | |||
12 | |||
13 | PROCEDURE String* (s: ARRAY OF CHAR); |
||
14 | VAR |
||
15 | i: INTEGER; |
||
16 | |||
17 | BEGIN |
||
18 | i := 0; |
||
19 | WHILE (i < LEN(s)) & (s[i] # 0X) DO |
||
20 | UTILS.OutChar(s[i]); |
||
21 | INC(i) |
||
22 | END |
||
23 | END String; |
||
24 | |||
25 | |||
7693 | akron1 | 26 | PROCEDURE Int* (x: INTEGER); |
7597 | akron1 | 27 | VAR |
7693 | akron1 | 28 | s: ARRAY 24 OF CHAR; |
7597 | akron1 | 29 | |
30 | BEGIN |
||
7693 | akron1 | 31 | STRINGS.IntToStr(x, s); |
7597 | akron1 | 32 | String(s) |
33 | END Int; |
||
34 | |||
35 | |||
7693 | akron1 | 36 | PROCEDURE Int2* (x: INTEGER); |
37 | BEGIN |
||
38 | IF x < 10 THEN |
||
7597 | akron1 | 39 | String("0") |
40 | END; |
||
7693 | akron1 | 41 | Int(x) |
7597 | akron1 | 42 | END Int2; |
43 | |||
44 | |||
45 | PROCEDURE Ln*; |
||
46 | BEGIN |
||
47 | String(UTILS.eol) |
||
7693 | akron1 | 48 | END Ln; |
7597 | akron1 | 49 | |
50 | |||
51 | PROCEDURE StringLn* (s: ARRAY OF CHAR); |
||
52 | BEGIN |
||
53 | String(s); |
||
54 | Ln |
||
55 | END StringLn; |
||
56 | |||
57 | |||
7693 | akron1 | 58 | PROCEDURE IntLn* (x: INTEGER); |
59 | BEGIN |
||
60 | Int(x); |
||
7597 | akron1 | 61 | Ln |
62 | END IntLn; |
||
63 | |||
64 | |||
7693 | akron1 | 65 | PROCEDURE Int2Ln* (x: INTEGER); |
66 | BEGIN |
||
67 | Int2(x); |
||
7597 | akron1 | 68 | Ln |
69 | END Int2Ln; |
||
70 | |||
71 | |||
8859 | leency | 72 | PROCEDURE Dashes*; |
73 | BEGIN |
||
74 | StringLn("------------------------------------------------") |
||
75 | END Dashes; |
||
76 | |||
77 | |||
7983 | leency | 78 | END CONSOLE.>> |