%EXTERNALROUTINE PASSTR(%STRING(28) STR)
PRINTSTRING('ENTERING IMP PASSTR')
NEWLINE
PRINTSTRING(STR)
NEWLINE
%END
%ENDOFFILE