FORTRAN CLI library

junbat

NAME
junbat(3f) -- print an eye-catching image of a roach.

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

DESCRIPTION

                   .-                    .-
              _..-'(                       )`-.._
           ./'. '||\\.       (\_/)       .//||` .`\.
        ./'.|'.'||||\\|..    )o o(    ..|//||||`.`|.`\.
     ./'..|'.|| |||||\`````` '`"'` ''''''/||||| ||.`|..`\.
   ./'.||'.|||| ||||||||||||.     .|||||||||||| ||||.`||.`\.
  /'|||'.|||||| ||||||||||||{     }|||||||||||| ||||||.`|||`\
 '.|||'.||||||| ||||||||||||{     }|||||||||||| |||||||.`|||.`
'.||| ||||||||| |/'   ``\||``     ''||/''   `\| ||||||||| |||.`
|/' \./'     `\./         \!|\   /|!/         \./'     `\./ `\|
V    V         V          }' `\ /' `{          V         V    V
`    `         `               V               '         '    '

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 seepic call junbat(4) contains subroutine jun(i,string) character(len=*),intent(in) :: string write(*,*)string end subroutine jun end program seepic #endif

NOTES

FILES
libJSU.a


!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine junbat(i) !@(#) print eye-catching ASCII graphic (bat) call jun(i," .- .- ") call jun(i," _..-'( )`-.._ ") call jun(i," ./'. '||\\. (\_/) .//||` .`\. ") call jun(i," ./'.|'.'||||\\|.. )o o( ..|//||||`.`|.`\. ") call jun(i," ./'..|'.|| |||||\`````` '`v'` ''''''/||||| ||.`|..`\. ") call jun(i," ./'.||'.|||| ||||||||||||. .|||||||||||| ||||.`||.`\. ") call jun(i," /'|||'.|||||| ||||||||||||{ }|||||||||||| ||||||.`|||`\ ") call jun(i," '.|||'.||||||| ||||||||||||{ }|||||||||||| |||||||.`|||.` ") call jun(i," '.||| ||||||||| |/' ``\||`` ''||/'' `\| ||||||||| |||.` ") call jun(i," |/' \./' `\./ \!|\ /|!/ \./' `\./ `\| ") call jun(i," V V V }' `\ /' `{ V V V ") call jun(i," ` ` ` V ' ' ' ") end subroutine junbat