FORTRAN CLI library

junbuster

NAME
junbuster -- fill in a character array with a message and call jun() to print an eye-catching image.

SYNOPSIS/USAGE
      SUBROUTINE junbuster(i)
      i  ! the I/O flag to pass on to JUN()

DESCRIPTION

                       __---__
                    _-       _--______
               __--( /     \ )XXXXXXXXXXXXX_
             --XXX(   O   O  )XXXXXXXXXXXXXXX-
            /XXX(       U     )        XXXXXXX\
          /XXXXX(              )--_  XXXXXXXXXXX\
         /XXXXX/ (      O     )   XXXXXX   \XXXXX\
         XXXXX/   /            XXXXXX   \__ \XXXXX----
         XXXXXX__/          XXXXXX         \__----  -
 ---___  XXX__/          XXXXXX      \__         ---
   --  --__/   ___/\  XXXXXX            /  ___---=
     -_    ___/    XXXXXX              '--- XXXXXX
       --\/XXX\ XXXXXX                      /XXXXX
         \XXXXXXXXX                        /XXXXX/
          \XXXXXX                        _/XXXXX/
            \XXXXX--__/              __-- XXXX/
             --XXXXXXX---------------  XXXXX--
                \XXXXXXXXXXXXXXXXXXXXXXXX-
                  --XXXXXXXXXXXXXXXXXX-

You can make your own jun routine, in which case the I parameter would probably be a unit number to print to, or see the description of JUN() for a meaning for the I/O flag.

EXAMPLE
#ifdef TESTPRG90 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC program seebuster call junbuster(4) end #endif

NOTES

FILES
libJSU.a


!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine junbuster(i) !@(#) print eye-catching ASCII graphic (ghostbuster) ! some compilers use \ as an escape character, so change \ to \\ ! if have problems call jun(i,' __---__') call jun(i,' _- _--______') call jun(i,' __--( / \ )XXXXXXXXXXXXX_') call jun(i,' --XXX( O O )XXXXXXXXXXXXXXX-') call jun(i,' /XXX( U ) XXXXXXX\') call jun(i,' /XXXXX( )--_ XXXXXXXXXXX\') call jun(i,' /XXXXX/ ( O ) XXXXXX \XXXXX\') call jun(i,' XXXXX/ / XXXXXX \__ \XXXXX----') call jun(i,' XXXXXX__/ XXXXXX \__---- -') call jun(i,' ---___ XXX__/ XXXXXX \__ ---') call jun(i,' -- --__/ ___/\ XXXXXX / ___---=') call jun(i,' -_ ___/ XXXXXX ''--- XXXXXX') call jun(i,' --\/XXX\ XXXXXX /XXXXX') call jun(i,' \XXXXXXXXX /XXXXX/') call jun(i,' \XXXXXX _/XXXXX/') call jun(i,' \XXXXX--__/ __-- XXXX/') call jun(i,' --XXXXXXX--------------- XXXXX--') call jun(i,' \XXXXXXXXXXXXXXXXXXXXXXXX-') call jun(i,' --XXXXXXXXXXXXXXXXXX-') return end