7 lines
107 B
Plaintext
7 lines
107 B
Plaintext
BEGIN
|
|
FILE F(KIND=REMOTE);
|
|
EBCDIC ARRAY E[0:11];
|
|
REPLACE E BY "HELLO WORLD!";
|
|
WRITE(F, *, E);
|
|
END.
|