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