PROGRAM MAPIOP C C N. A. Bourgeois, Jr. 23-Feb-88/23-May-88. C C Map the I/O page to the program space, then remap the simulated RMON C to the program space. C IERR = MPIOPS () IF (IERR .EQ. 0) STOP 'Job is not privileged' CALL MPRMPS TYPE *,'All done' TYPE * C CALL EXIT END