mirror of
https://github.com/vishapoberon/vipak.git
synced 2026-04-05 20:42:26 +00:00
15 lines
291 B
Modula-2
15 lines
291 B
Modula-2
MODULE vpkTest;
|
|
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 vpkTest.
|