USGS InfoBank program -- helper

Expanded Description

Topic

Description

Name

helper

Synopsis

/infobank/programs/dbase/misc/infobank/helper.for

Description

  Subroutine to display help information for InfoBank.

AUTHOR

  Clint Steele     1/27/95

Reads

              read (5, '(a2)', end = 99) SubTopic
              read (5, '(a2)', end = 99) SubTopic
              read (5, '(a2)', end = 99) SubTopic
              read (5, '(a2)', end = 99) SubTopic
              read (5, '(a2)', end = 99) SubTopic

Writes

Opens

      open (unit = 79,
     *      file   = TempName(1:Length),
     *      access = 'SEQUENTIAL',
     *      carriagecontrol = 'LIST',
     *      form   = 'FORMATTED',
     *      status = 'OLD',
     *      readonly,
     *      shared)

Calls

      call stringlen (Topic, TopicLength)
      call stringlen (Type,  TypeLength)
              call openhelp ('ACTIVITYIDS.USAGE')
              call moreinfo (79)
              call openhelp ('ACTIVITYIDS.DEFINITION')
              call moreinfo (79)
              call stringlen (SubTopic, SubTopicLength)
              call changecase ('CAPITALS', SubTopic)
                  call openhelp ('SHIPS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('PLACES.DEFINITION')
                  call moreinfo (79)
                  call commenter ('SHIP/PLACES HELP')
              call openhelp ('SHIPS.USAGE')
              call moreinfo (79)
              call openhelp ('SHIPS.DEFINITION')
              call moreinfo (79)
              call openhelp ('EMAIL.USAGE')
              call moreinfo (79)
              call openhelp ('EMAIL.DEFINITION')
              call moreinfo (79)
              call openhelp ('CONSTRAINMENU.USAGE')
              call moreinfo (79)
              call openhelp ('CONSTRAINMENU.DEFINITION')
              call moreinfo (79)
              call stringlen (SubTopic, SubTopicLength)
              call changecase ('CAPITALS', SubTopic)
                  call commenter ('Whatnow Menu Help')
                  call openhelp ('AREA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ACTIVITYIDS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('YEAR.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SHIPS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('NAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('MAG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('BATH.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SEIS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CAMERA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CREW.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('LINE.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METERING.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('PORTS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SAMPLES.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('STATIONS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('OVERVIEWS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SCATTERED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRIDDED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('POLY.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ARC.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ANALOG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METADATA.DEFINITION')
                  call moreinfo (79)
              call openhelp ('WHATNOWMENU.USAGE')
              call moreinfo (79)
              call openhelp ('WHATNOWMENU.DEFINITION')
              call moreinfo (79)
              call openhelp ('SEARCHMENU.USAGE')
              call moreinfo (79)
              call openhelp ('SEARCHMENU.DEFINITION')
              call moreinfo (79)
              call stringlen (SubTopic, SubTopicLength)
              call changecase ('CAPITALS', SubTopic)
                  call commenter ('Search Menu Help')
                  call openhelp ('AREA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ACTIVITYIDS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('YEAR.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SHIPS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('NAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('MAG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('BATH.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SEIS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CAMERA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CREW.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('LINE.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METERING.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('PORTS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SAMPLES.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('STATIONS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('OVERVIEWS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SCATTERED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRIDDED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('POLY.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ARC.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ANALOG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METADATA.DEFINITION')
                  call moreinfo (79)
              call openhelp ('MAILFILEMENU.USAGE')
              call moreinfo (79)
              call openhelp ('MAILFILEMENU.DEFINITION')
              call moreinfo (79)
              call stringlen (SubTopic, SubTopicLength)
              call changecase ('CAPITALS', SubTopic)
                  call commenter ('Search Menu Help')
                  call openhelp ('AREA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ACTIVITYIDS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('YEAR.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SHIPS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('NAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('MAG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('BATH.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SEIS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CAMERA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CREW.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('LINE.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METERING.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('PORTS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SAMPLES.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('STATIONS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('OVERVIEWS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SCATTERED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRIDDED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('POLY.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ARC.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ANALOG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METADATA.DEFINITION')
                  call moreinfo (79)
              call openhelp ('OUTPUTMENU.USAGE')
              call moreinfo (79)
              call openhelp ('OUTPUTMENU.DEFINITION')
              call moreinfo (79)
              call stringlen (SubTopic, SubTopicLength)
              call changecase ('CAPITALS', SubTopic)
                  call commenter ('Output Menu Help')
                  call openhelp ('AREA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ACTIVITYIDS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('YEAR.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SHIPS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('NAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRAV.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('MAG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('BATH.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SEIS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CAMERA.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('CREW.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('LINE.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METERING.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('PORTS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SAMPLES.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('STATIONS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('OVERVIEWS.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('SCATTERED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('GRIDDED.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('POLY.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ARC.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('ANALOG.DEFINITION')
                  call moreinfo (79)
                  call openhelp ('METADATA.DEFINITION')
                  call moreinfo (79)
      call stringlen (FileName, Length)
      call stringlen (TempName, Length)

Accessibility FOIA Privacy Policies and Notices

U.S. Department of the Interior | U.S. Geological Survey
URL: http://walrus.wr.usgs.gov/infobank/programs/dbase/misc/infobank/helper.doc.html
Page Contact Information: InfoBank staff
Page Last Modified: Thu Mar 22 03:04:18 PDT 2012 (chd)