SPL,L,O,M 
!     NAME:   RP..
!     SOURCE: 92070-18030 
!     RELOC:  92070-16030 
!     PGMR:   M.L.K.
! 
!  ***************************************************************
!  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
!  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
!  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
!  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
!  ***************************************************************
! 
! 
      NAME RP..(7) "  92070-1X030  REV.1941  790712"
! 
!  EXTERNAL SUBROUTINES 
      LET .DFER     BE SUBROUTINE,EXTERNAL
      LET EXEC      BE SUBROUTINE,EXTERNAL
      LET IDRPL     BE SUBROUTINE,EXTERNAL
      LET IER.      BE SUBROUTINE,EXTERNAL,DIRECT 
      LET MSS.      BE SUBROUTINE,EXTERNAL
      LET OPEN.     BE SUBROUTINE,EXTERNAL
      LET PR.IT     BE SUBROUTINE,EXTERNAL
!  EXTERNAL INTEGERS
      LET .E.R      BE INTEGER,EXTERNAL 
      LET %FWBG     BE INTEGER,EXTERNAL 
      LET BUF.      BE INTEGER,EXTERNAL 
      LET I.BUF     BE INTEGER,EXTERNAL 
      LET N.OPL     BE INTEGER,EXTERNAL 
! 
! 
RP..: SUBROUTINE(NUM,PRAM,ERR) GLOBAL 
      LET ERR       BE INTEGER                   !ERROR CODE
      LET NUM       BE INTEGER                   !PARAMETER COUNT 
      LET PRAM(64)  BE INTEGER                   !PARSED PARAMETERS 
! 
      IF PRAM(1) # 3  THEN[                      \IF 1ST PRAM NOT ASCII 
ER56:    ERR_ 56;                                \SET BAD PARAMETER 
         RETURN]                                 !AND RETURN
      IF PRAM(5) = 0  THEN[                      \IF 2ND PRAM NULL
         FOR I_ 1 TO 4  DO[                      \ COPY PARM 1 TO 
         PRAM(I+4)_ PRAM(I)]]                    ! PARM 2 
      IF PRAM(5) # 3  THEN GOTO ER56             !IF 2ND PRAM NOT ASCII 
                                                 !ERROR 56
! 
      OPEN.(I.BUF,PRAM(2),N.OPL,5)               !OPEN & FORCE TO TYPE 1
      IER.                                       !TEST FOR READ ERRORS
      IDRPL(I.BUF,ERR,PRAM(6),1)                 !PERMANENT RP
      TEMP_ .B.                                  !GET ID ADDRESS
      IF ERR = 40  THEN[                         \IF SOMEONE THERE
         MSS.(40);                               \PRINT ERROR 40
         PR.IT(TEMP,1);                          \PRINT PROGRAM NAME
         ERR_ 0]                                 !DON'T RE-ISSUE ERROR
      EXEC(100034K,PRAM(6))                      !TRY AND LOAD IT 
      RETURN                                     !ALL DONE
      RETURN                                     !JUST IN CASE OF ERROR 
      END 
      END 
      END$
                                                                        