%BEGIN
%ROUTINESPEC INTPROC (%INTEGERNAME FRED)
%ROUTINESPEC STRPROC(%STRING(64) JIM)
%INTEGER INTFRED
%STRING(63) STRJIM
INTFRED=4
STRJIM=" A STRING "
INTPROC(INTFRED)
STRPROC(STRJIM)
%ROUTINE INTPROC(%INTEGERNAME INT)
WRITE(INT,4)
NEWLINE
%END
%ROUTINE STRPROC(%STRING(64) STR)
PRINTSTRING(STR)
NEWLINE
%END
%ENDOFPROGRAM