      PROGRAM OUTPUT_HELP
      EXTERNAL MYOUTPUT,MYINPUT
      CALL LBR$OUTPUT_HELP(MYOUTPUT,,,'SYS$HELP:HELPLIB',,MYINPUT)
      END
C
      INTEGER*4 FUNCTION MYOUTPUT(STR)
      CHARACTER*(*) STR
      INTEGER*4 I
      CHARACTER*80 LINE
      INTEGER*4 LIB$PUT_OUTPUT
      DO 100 I=1,LEN(STR)
        LINE(81-I:81-I)=STR(I:I)
100   CONTINUE
      DO 200 I=LEN(STR)+1,80
        LINE(81-I:81-I)=' '
200   CONTINUE
      MYOUTPUT=LIB$PUT_OUTPUT(LINE)
      RETURN
      END
C
      INTEGER*4 FUNCTION MYINPUT(STR,PMT,RESLEN)
      INTEGER*4 RESLEN
      CHARACTER*(*) STR
      CHARACTER*(*) PMT
      INTEGER*4 LIB$GET_INPUT
      MYINPUT=LIB$GET_INPUT(STR,PMT//'? ? ? ? ',RESLEN)
      RETURN
      END
