---

Manual Reference Pages  - juntrolls (3m_messages)

---

NAME

juntrolls(3f) - [M_messages] print an eye-catching bulletin (LICENSE:PD)

SYNOPSIS/USAGE

     SUBROUTINE juntrolls(where,a)

      character(len=*)  :: where  ! the I/O flag to pass on to JOURNAL()
      character(len=21) :: a(4)

CONTENTS

Description
Examples
Author
License

DESCRIPTION

Sample output:

    >          \|||/
    >          (o o)
    > ;~~~~ooO~~(_)~~~~~~~~~;
    > |                     |
    > |                     |
    > |                     |
    > |_____________________|
    > ’~~~~~~~~~~~~~~~~Ooo~~’
    >         |  |  |
    >         ~~~ ~~~
    >          || ||
    >         ooO Ooo

See the description of JOURNAL() for a meaning for the I/O flag.

EXAMPLES

Sample program:

   program demo_juntrolls
   use M_messages, only : juntrolls
      call juntrolls(’s’,[         &
         ’Please ...           ’,  &
         "   don’t feed        ",  &
         ’   the               ’,  &
         ’   TROLLS!           ’   &
         ])
   end program demo_juntrolls

AUTHOR

John S. Urban

LICENSE

Public License

---