%CONTROL X'0FFFFFFF'
!* RTEDINDUMS - FOR PASCAL 20 (RUNTIME)
!*
!* CONTAINS DUMMIES FOR :-
!*      DUMP
!*      SSMESS
!*      ONTRAPACT
!*      ONTRAPB
!*      INDIAG
!*      OPEHMESS
!*      NOMTIDYDESC
!*
!* T.MOORE    APRIL 1980
!*
%SYSTEMROUTINE DUMP
%END
 
%SYSTEMROUTINE SSMESS
%END
 
%SYSTEMROUTINE ONTRAPACT
%END
 
%SYSTEMROUTINE ONTRAPB
%END
 
%SYSTEMROUTINE INDIAG
%END
 
%SYSTEMROUTINE OPEHMESS
%END
 
%SYSTEMINTEGERFN NOMTIDYPROC
      %RESULT=0
%END
 
%ENDOFFILE