C TEST OF HELPER SUBROUTINE BYTE NAME(31),STG(81) 100 WRITE(5,10) !GET HELP-FILE NAME 10 FORMAT('$Help file: ') READ(5,11,END=999)NCH,(NAME(I),I=1,NCH) 11 FORMAT(Q,80A1) NAME(NCH+1)=0 !APPEND TRAILING NULL 200 WRITE(5,12) !GET USER'S HELP STRING 12 FORMAT('$Help string: ') READ(5,11,END=900)NSTG,(STG(I),I=1,NSTG) STG(NSTG+1)=0 !APPEND TRAILING NULL IERR=NHELP(5,1,NAME,STG) !GET SOME HELP CALL IOLCCO(5) !CANCEL CONTROL-O IF THERE WAS ONE IF(IERR.EQ.1)GOTO 200 !TRY FOR SOME MORE WRITE(5,13)IERR.AND."377 !PRINT ERROR MESSAGE 13 FORMAT(' HLP returned ERROR ',O3) GOTO 200 ! & TRY AGAIN C 900 CLOSE(UNIT=5) !REALLOW TERMINAL INPUT AFTER CNTL-Z GOTO 100 !BACK FOR NEW FILE SPECIFICATION C 999 CALL EXIT !USER WANTS OUT END