home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d594 / analyrimsrc.lha / AnalyRimSrc / AnaRimSrcDoc.Zoo / helpgen.for < prev    next >
Text File  |  1991-10-01  |  1KB  |  58 lines
  1. c Before use, must define HELP database in RIM
  2. c   DEFINE HELPDB
  3. c   OWNER NONE
  4. c   ATTRIBUTES
  5. c   KEY3 TEXT 3
  6. c   VERBAGE TEXT VAR
  7. c   COMMAND TEXT 20
  8. c   RELATIONS
  9. c   HELP WITH KEY3 VERBAGE COMMAND
  10. c   END
  11. c   EXIT
  12. c
  13. c THEN run this. To compile, first append all the RIM sources
  14. c except the main program.
  15. c
  16.       PROGRAM HELPIN(tape=24,err=1)
  17.       INTEGER*4 TUPLE(28)
  18.     Character*4 ctuple(28)
  19.     Equivalence (ctuple(1),tuple(1))
  20.     INTEGER*4 HENDC,HENDD
  21.     CHARACTER*4 CHENDC,CHENDD
  22.     EQUIVALENCE(HENDC,CHENDC),(HENDD,CHENDD)
  23.       REAL*8 DBNAME
  24.       REAL*8 RNAME
  25.     CHARACTER*8 CRNAME,CDBNAM
  26.     EQUIVALENCE(CRNAME,RNAME),(CDBNAM,DBNAME)
  27.     DATA CHENDC/'ENDC'/,CHENDD/'ENDD'/
  28.       CDBNAM = 'HELPDB'
  29.       CRNAME = 'HELP'
  30.       CALL RMOPEN(DBNAME)
  31.       CALL RMFIND(1,RNAME)
  32.       TUPLE(2) = 8
  33.     OPEN(2,FILE='HELPTXT.DAT',STATUS='OLD')
  34.     1 CONTINUE
  35.       READ (2,10)TUPLE(1)
  36.    10 FORMAT(A4)
  37.       READ (2,20)(TUPLE(I),I=3,7)
  38.    20 FORMAT(5A4)
  39.    50 CONTINUE
  40.       TUPLE(9) = 0
  41.       CALL GETL(TUPLE(10),TUPLE(8))
  42. C      IF(TUPLE(10).EQ.HENDC) GOTO 1
  43. C      IF(TUPLE(10).EQ.HENDD) GOTO 1000
  44.       IF(cTUPLE(10).EQ.'ENDC') GOTO 1
  45.       IF(cTUPLE(10).EQ.'ENDD') GOTO 1000
  46. C *** DEBUG
  47.     WRITE(9,6700)TUPLE(10),TUPLE(10)
  48. 6700    FORMAT(1X,' TUPLE=',A4,' HEX=',I12)
  49. c    IF(TUPLE(10).EQ.1128549957)GOTO 1
  50. c    IF(TUPLE(10).EQ.1145327173)GOTO 1000
  51. C ***
  52.       CALL RMLOAD(1,TUPLE)
  53.       GO TO 50
  54.  1000 CONTINUE
  55.       CALL RMCLOS
  56.       STOP
  57.       END
  58.