end junbad FORTRAN CLI library

junbad

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

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

DESCRIPTION

           _,.-----.,_              
         ,-~           ~-.          
       ,^___           ___^.        
      /~"   ~"   .   "~   "~\       
     Y  ,--._    I    _.--.  Y      
     | Y     ~-. | ,-~     Y |      
     | |        }:{        | |      
     j l       / | \       ! l      
  .-~  (__,.--" .^. "--.,__)  ~-.   
 (           / / | \ \           )  
  \.____,   ~  \/"\/  ~   .____,/   
   ^.____                 ____.^    
      | |T ~\  !   !  /~ T| |       
      | |l   _ _ _ _ _   !| |       
      | l \/V V V V V V\/ j |       
      l  \ \|_|_|_|_|_|/ /  !       
       \  \[T T T T T TI/  /        
        \  `^-^-^-^-^-^`  /         
         \               /          
          \.           ,/           
            "^-.___,-^"             
 

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 seebad call junbad(4) end #endif

NOTES

FILES
libJSU.a


!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine junbad(i) !@(#) print eye-catching ASCII graphic (skull) ! some compilers use \ as an escape character, so change \ to \\ ! if have problems call jun(i,' _,.-----.,_ ') call jun(i,' ,-~ ~-. ') call jun(i,' ,^___ ___^. ') call jun(i,' /~" ~" . "~ "~\ ') call jun(i,' Y ,--._ I _.--. Y ') call jun(i,' | Y ~-. | ,-~ Y | ') call jun(i,' | | }:{ | | ') call jun(i,' j l / | \ ! l ') call jun(i,' .-~ (__,.--" .^. "--.,__) ~-. ') call jun(i,' ( / / | \ \ ) ') call jun(i,' \.____, ~ \/"\/ ~ .____,/ ') call jun(i,' ^.____ ____.^ ') call jun(i,' | |T ~\ ! ! /~ T| | ') call jun(i,' | |l _ _ _ _ _ !| | ') call jun(i,' | l \/V V V V V V\/ j | ') call jun(i,' l \ \|_|_|_|_|_|/ / ! ') call jun(i,' \ \[T T T T T TI/ / ') call jun(i,' \ `^-^-^-^-^-^` / ') call jun(i,' \ / ') call jun(i,' \. ,/ ') call jun(i,' "^-.___,-^" ') return end