| /programs/develop/oberon07/Source/STRINGS.ob07 |
|---|
| 92,6 → 92,29 |
| END IntToStr; |
| PROCEDURE hexdgt (n: BYTE): BYTE; |
| BEGIN |
| IF n < 10 THEN |
| n := n + ORD("0") |
| ELSE |
| n := n - 10 + ORD("A") |
| END |
| RETURN n |
| END hexdgt; |
| PROCEDURE IntToHex* (x: INTEGER; VAR str: ARRAY OF CHAR; n: INTEGER); |
| BEGIN |
| str[n] := 0X; |
| WHILE n > 0 DO |
| str[n - 1] := CHR(hexdgt(x MOD 16)); |
| x := x DIV 16; |
| DEC(n) |
| END |
| END IntToHex; |
| PROCEDURE copy* (src: ARRAY OF CHAR; VAR dst: ARRAY OF CHAR; spos, dpos, count: INTEGER); |
| BEGIN |
| WHILE count > 0 DO |