!*
%EXTERNALROUTINE QPUT(%INTEGER I,J,K,L)
      PRINTSTRING("QPUT")
      WRITE(I,4)
      WRITE(J,4)
      WRITE(K,4)
      WRITE(L,4)
      NEWLINE
%END;! dummy QPUT
!*
%ENDOFFILE