17 lines
287 B
Text
17 lines
287 B
Text
%TITLE 'HELLO_WORLD'
|
|
MODULE HELLO_WORLD (IDENT='V1.0', MAIN=HELLO_WORLD,
|
|
ADDRESSING_MODE (EXTERNAL=GENERAL)) =
|
|
BEGIN
|
|
|
|
LIBRARY 'SYS$LIBRARY:STARLET';
|
|
|
|
EXTERNAL ROUTINE
|
|
LIB$PUT_OUTPUT;
|
|
|
|
GLOBAL ROUTINE HELLO_WORLD =
|
|
BEGIN
|
|
LIB$PUT_OUTPUT(%ASCID %STRING('Hello World'))
|
|
END;
|
|
|
|
END
|
|
ELUDOM
|