DEADSOFTWARE
GIT
/
REPO
/
FRED-BOY
Projects
/
dsw-obn.git
/ blob
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Исправлен цикл REPEAT, исправлено использование HUGEINT как индекса массива
[dsw-obn.git]
/
Test.obn
1
MODULE
Test
;
2
3
IMPORT
CPStrings
,
Out
;
4
5
VAR
6
s
:
ARRAY
80
OF
CHAR
;
7
8
BEGIN
9
CPStrings
.
IntToString
(
123456789
,
s
);
10
Out
.
String
(
s
);
Out
.
Ln
;
11
CPStrings
.
RealToString
(
321.123456
,
s
);
12
Out
.
String
(
s
);
Out
.
Ln
;
13
END
Test
.