CL

CL is the command language used by the IBM AS/400
The program will NOT loop forever, but it will send the message "Hello
World." to the AS/400's status line at the bottom of the screen and leave it
there.

HELLO:   PGM
         SNDPGMMSG MSGID(CPF9898) MSGF(QCPFMSG) +
           MSGDATA('Hello World') TOPGMQ(*PRV) MSGTYPE(*COMP)
         RETURN
         ENDPGM

submitted by: bloomqst@nauticom.net (Steve Bloomquist)