Return to helper.66 CVS log

Up to [Research Unix] / researchv10dc / cmd / matlab

Annotation of researchv10dc/cmd/matlab/helper.66, revision 1.1.1.1

1.1       root        1:       SUBROUTINE HELPER(H)
                      2:       INTEGER H(4)
                      3: C
                      4: C     HANDLE HELP FILE
                      5: C     H = KEY WORD, FORMAT 4A1
                      6: C
                      7: C     FORTRAN 66 VERSION USING SEQUENTIAL ACCESS
                      8: C     ASSUMES THE HELP TEXT FILE IS ATTACHED TO THE UNIT HIO
                      9: C     WHICH IS SET IN SUBROUTINE MATLAB AND STORED IN COMMON
                     10: C     SEE THE COMMENTED OPEN STATEMENT BELOW
                     11: C
                     12:       INTEGER ALFA(52),ALFB(52),ALFL,CASE
                     13:       INTEGER DDT,ERR,FMT,LCT(4),LIN(1024),LPT(6),RIO,WIO,RTE,WTE,HIO
                     14:       INTEGER SYM,SYN(4),BUF(256),CHAR,FLP(2),FIN,FUN,LHS,RHS,RAN(2)
                     15:       COMMON /ALFS/ ALFA,ALFB,ALFL,CASE
                     16:       COMMON /IOP/ DDT,ERR,FMT,LCT,LIN,LPT,RIO,WIO,RTE,WTE,HIO
                     17:       COMMON /COM/ SYM,SYN,BUF,CHAR,FLP,FIN,FUN,LHS,RHS,RAN
                     18:       INTEGER HIO,LRECL,BLANK,CMD(4,17),CMDL
                     19:       DATA LRECL/80/,BLANK/1H /,CMDL/17/
                     20:       DATA CMD/
                     21:      $  12,21,14,10, 14,21,28,14, 14,23,13,36, 14,33,18,29,
                     22:      $  15,24,27,36, 17,14,21,25, 18,15,36,36, 21,24,23,16,
                     23:      $  27,14,29,30, 28,14,22,18,
                     24:      $  28,17,24,27, 32,17,10,29, 32,17,18,21,
                     25:      $  32,17,24,36, 32,17,34,36, 21,10,21,10, 15,30,12,20/
                     26:   101 FORMAT(80A1)
                     27:   102 FORMAT(1X,80A1)
                     28: C
                     29: C     INITIALIZATION INDICATED BY H(1) = 0
                     30: C     READ AND ECHO THE FIRST LINE
                     31: C
                     32:       IF (H(1) .NE. 0) GO TO 80
                     33: C     OPEN(UNIT=HIO,FILE='HELP',ACCESS='SEQUENTIAL',STATUS='OLD')
                     34:       REWIND HIO
                     35:       READ(HIO,101,END=89) (BUF(I),I=1,LRECL)
                     36:       GO TO 86
                     37: C
                     38: C     SPECIAL CASE, HELP FOLLOWED BY BLANK.  GIVE GENERAL HELP.
                     39: C
                     40:    80 IF (H(1) .NE. BLANK) GO TO 83
                     41:       WRITE(WTE,180)
                     42:       IF (WIO .NE. 0) WRITE(WIO,180)
                     43:   180 FORMAT(1X,'Type HELP followed by ...'
                     44:      $  /1X,'INTRO   (To get started)'
                     45:      $  /1X,'NEWS    (recent revisions)')
                     46:       H(1) = 0
                     47:       CALL FUNS(H)
                     48:       CALL PRNTID(CMD,CMDL-2)
                     49:       WRITE(WTE,181)
                     50:       IF (WIO .NE. 0) WRITE(WIO,181)
                     51:   181 FORMAT(1X,'ANS   EDIT  FILE  FUN   MACRO')
                     52:       WRITE(WTE,182) (ALFA(I),I=38,ALFL)
                     53:       IF (WIO .NE. 0) WRITE(WIO,182) (ALFA(I),I=38,ALFL)
                     54:   182 FORMAT(1X,17(A1,1X)/)
                     55:       GO TO 98
                     56: C
                     57:    83 REWIND HIO
                     58:    84 READ(HIO,101,END=89) (BUF(I),I=1,LRECL)
                     59:       DO 85 I = 1, 4
                     60:         IF (H(I) .NE. BUF(I)) GO TO 84
                     61:    85 CONTINUE
                     62:    86 WRITE(WTE,102)
                     63:       IF (WIO .NE. 0) WRITE(WIO,102)
                     64:    87 K = LRECL + 1
                     65:    88 K = K - 1
                     66:       IF (BUF(K) .EQ. BLANK) GO TO 88
                     67:       WRITE(WTE,102) (BUF(I),I=1,K)
                     68:       IF (WIO .NE. 0) WRITE(WIO,102) (BUF(I),I=1,K)
                     69:       READ(HIO,101) (BUF(I),I=1,LRECL)
                     70:       IF (BUF(1) .EQ. BLANK) GO TO 87
                     71:       GO TO 98
                     72: C
                     73:    89 WRITE(WTE,189) (H(I),I=1,4)
                     74:   189 FORMAT(1X,'SORRY, NO HELP ON ',4A1)
                     75: C
                     76:    98 RETURN
                     77:       END

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.