home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / FORTRAN / SUPERT87.ZIP / HELP.FOR < prev    next >
Encoding:
Text File  |  1986-12-15  |  1.5 KB  |  53 lines
  1.       SUBROUTINE HELP(ILVL)
  2.       CHARACTER*72 INFO
  3.     character*8 hlpfil(60),fname
  4.       DATA NCMDS/59/
  5. C     ***INSERT DATA STATEMENTS FOR POINTERS TO HELP2 HERE.             1989
  6. c23456
  7.     data hlpfil/'COMM1','COMM02','COMM03','COMM04','COMM05','COMM06',
  8.      1'COMM07','COMM08','COMM09','COMM10','COMM11','COMM12','COMM13',
  9.      2'COMM14','COMM15','COMM16','COMM17','COMM18','COMM19','COMM20',
  10.      3'COMM21','COMM22','COMM23','COMM24','COMM011','COMM012',
  11.      4'COMM041','COMM042','COMM051','COMM052','COMM061','COMM062',
  12.      5'COMM063','COMM071','COMM091','COMM092','COMM093','COMM0101',
  13.      6'COMM0111','COMM0121','COMM0181','COMM0191','COMM0192','COMM0193',
  14.      7'COMM0194','COMM0201','COMM0202','COMM0203','COMM0204','COMM0205',
  15.      8'COMM0206','COMM0207','COMM0211','COMM0212','COMM0221','COMM0222',
  16.      9'GEN01','GEN02','GEN03','GEN04'/
  17.  
  18.       IF(ILVL.eq.7777) then
  19.  
  20.       WRITE(*,1)
  21. 1     FORMAT(' Which command would you like information about? ')
  22.       READ(*,*,ERR=9,END=99)JCM
  23.       IF(JCM.LE.0.AND.JCOMM.GT.NCMDS) return
  24.     WRITE(*,*) hlpfil(JCM)
  25.     fname=hlpfil(JCM)
  26.  
  27.     else
  28.  
  29.     fname=hlpfil(ilvl)
  30.  
  31.     endif
  32.  
  33.     OPEN(2,FILE=fname,FORM='FORMATTED',status='OLD',
  34.      1iostat=iohelp)
  35.  
  36.     if(iohelp.ne.0) then
  37.     write(*,5000) hlpfil(Jcm),iohelp
  38. 5000    format(' help file ',a,' is Not on Line, reason =',i6)
  39.     return
  40.     endif
  41.  
  42.     CALL CPAGE
  43.  
  44. 4000  READ(2,2,ERR=90,end=90)INFO
  45.       WRITE(*,*)INFO
  46. 2     FORMAT(A)
  47.       GO TO 4000
  48.  
  49. 90    close(2)
  50. 9    return
  51. 99    STOP
  52.       END
  53.