M2compiler-V1/tests/w_str2.LST

Listing:

    1  MODULE WStr2;
    2  VAR s : ARRAY [1 .. 10] OF CHAR; ExitCode : INTEGER;
    3  BEGIN
    4    s := "ok";
    5    WriteString(s);
    6    WriteInt(8);
    7    ExitCode := 3
    8  END WStr2.

    0 errors