PROR PROGRAM TEST TYPE 1000 1000 FORMAT(' HELLO') STOP END