vipak/test.Mod
2019-04-15 10:06:09 +04:00

15 lines
No EOL
284 B
Modula-2

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.