%SYSTEMROUTINESPEC INITSERVICES
!?1  %EXTERNALINTEGERFNSPEC OUTSTREAM
%EXTERNALROUTINE PAINITLPUT(%INTEGER WRK,TEMP)
!?1  %INTEGER OS
!?1  OS=OUTSTREAM
!?1  SELECTOUTPUT(0)
!?1  PRINTSTRING('ENTERING INITLPUT')
!?1  NEWLINE
!?1  SELECTOUTPUT(OS)
!
INITSERVICES
%END
!
%EXTERNALROUTINE PAGIVELPUTITEMS(%INTEGERNAME ERRORFLAG, %C
            %STRINGNAME MAINENTRYNAME)
!?1  %INTEGER OS
!?1  OS=OUTSTREAM
!?1  SELECTOUTPUT(0)
!?1  PRINTSTRING('ENTERINGGIVELPUTITEMS')
!?1  SELECTOUTPUT(OS)
!
ERRORFLAG=0
MAINENTRYNAME='PASCMAIN'
%END; ! GIVELPUTITEMS
%ENDOFFILE