JOB FORTRANHWLD,:xxxx,T####
#
#     FORTRAN 66 'HELLO WORLD' PROGRAM
#
INPUT SOURCE FWLD(1/FORT)
      LIST
      MAP
      SEND TO (SEMICOMPILED)
      DUMP ON (PROGRAM TEST)
      PROGRAM(FWLD)
      COMPACT DATA
      OUTPUT 1 = TY0
      END
      MASTER HWLD
      WRITE(1,100)
      STOP
 100  FORMAT(11HHELLO WORLD)
      END
      FINISH
****
FORCOMP *IDFWLD
LISTFILE FWLDCOMPLIST,*LP,PA
LOAD PROGRAM FWLD
ENTER 0
LISTDIR
ENDJOB ALL
####
