Hello World Program

BEGIN

FILE F (KIND=REMOTE);

EBCDIC ARRAY E [0:11];

REPLACE E BY "HELLO WORLD!";

WHILE TRUE DO

BEGIN

WRITE (F, *, E);

END;

END.

Previous slide

Back to first slide

View graphic version