Subversion Repositories Kolibri OS

Rev

Rev 7983 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7983 Rev 8859
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-2019, Anton Krotov
 4 
    Copyright (c) 2018-2021, Anton Krotov
5 
    All rights reserved.
 5 
    All rights reserved.
Line 6... Line 6...
6 
*)
 6 
*)
Line 31... Line 31...
31 
    STRINGS.IntToStr(x, s);
 31 
    STRINGS.IntToStr(x, s);
32 
    String(s)
 32 
    String(s)
33 
END Int;
 33 
END Int;
Line 34... Line -...
34 
 
 - 
 
35 
 
 - 
 
36 
PROCEDURE Hex* (x, n: INTEGER);
 - 
 
37 
VAR
 - 
 
38 
    s: ARRAY 24 OF CHAR;
 - 
 
39 
 
 - 
 
40 
BEGIN
 - 
 
41 
    STRINGS.IntToHex(x, s, n);
 - 
 
42 
    String(s)
 - 
 
43 
END Hex;
 - 
 
44 
 
 34 
 
45 
 
 35 
 
46 
PROCEDURE Int2* (x: INTEGER);
 36 
PROCEDURE Int2* (x: INTEGER);
47 
BEGIN
 37 
BEGIN
48 
    IF x < 10 THEN
 38 
    IF x < 10 THEN
Line 77... Line 67...
77 
    Int2(x);
 67 
    Int2(x);
78 
    Ln
 68 
    Ln
79 
END Int2Ln;
 69 
END Int2Ln;
Line -... Line 70...
- 
 
 70 
 
- 
 
 71 
 
- 
 
 72 
PROCEDURE Dashes*;
- 
 
 73 
BEGIN
- 
 
 74 
    StringLn("------------------------------------------------")
- 
 
 75 
END Dashes;
80 
 
 76 
 
81 
 
 77