nothing really works

This commit is contained in:
Ruben Shekspir 2019-04-15 10:06:09 +04:00
parent 3c59d73914
commit 1a573a5c83
3 changed files with 104 additions and 0 deletions

15
test.Mod Normal file
View file

@ -0,0 +1,15 @@
MODULE test;
IMPORT Out;
VAR
string: POINTER TO ARRAY OF CHAR;
BEGIN
NEW(string, 42);
string[1] := "a";
Out.Char(string[1]);
Out.Ln();
Out.Int(ORD(string[1]), 10);
Out.Ln();
Out.Int(ORD(string[2]), 10);
Out.Ln();
COPY("Gago", string);
END test.