IDENTIFICATION DIVISION.
PROGRAM-ID. IDEONE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 HELLO PIC XXXXXXXXXXXXXX VALUE 'HELLO, WORLD'.
PROCEDURE DIVISION.
MOVE FUNCTION LOWER-CASE(HELLO) TO HELLO.
DISPLAY HELLO
STOP RUN.
SURFTlRJRklDQVRJT04gRElWSVNJT04uClBST0dSQU0tSUQuIElERU9ORS4KREFUQSBESVZJU0lPTi4KV09SS0lORy1TVE9SQUdFIFNFQ1RJT04uCjAxIEhFTExPIFBJQyBYWFhYWFhYWFhYWFhYWCBWQUxVRSAnSEVMTE8sIFdPUkxEJy4KUFJPQ0VEVVJFIERJVklTSU9OLgpNT1ZFIEZVTkNUSU9OIExPV0VSLUNBU0UoSEVMTE8pIFRPIEhFTExPLgpESVNQTEFZIEhFTExPClNUT1AgUlVOLgo=