%EXTERNALROUTINE PASSTR(%STRING(9) MESS,%INTEGER INT)
PRINTSTRING('ENTERING PASSTR')
NEWLINE
PRINTSTRING(MESS.'   ')
WRITE(INT,4)
NEWLINE
MESS='BYE'
%END
%ENDOFFILE