FORTRAN CLI library

jundragon

NAME
jundragon -- fill in a character array with a message and call jun()

SYNOPSIS/USAGE
      SUBROUTINE jundragon(i,a)
      i  ! the I/O flag to pass on to JUN()
      a  ! message of 8 32-character strings

DESCRIPTION

Prints out a pretty message shaped like a dragon puffing smoke

EXAMPLE
#ifdef TESTPRG90 !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC program seedragon character*32 a(8) a(1)='Puff, the magic dragon----------' a(2)='lived by the sea----------------' a(3)='and frolicked in the Autumn mist' a(4)='in a land called----------------' a(5)='Honiley_________________________' a(6)='--------------------------------' a(7)='--------------------------------' a(8)='--------------------------------' call jundragon(4,a) end subroutine jun(i,msg) character*(*) msg write(6,'(a)')msg return end #endif \=/, _-===-_-====-_-===-_-==========-_-====-_ | @___oo ( Puff, the magic dragon---------- )_ /\ /\ / (___,,,}_--= lived by the sea---------------- ) ) /^\) ^\/ _) =__ and frolicked in the Autumn mist ) ) /^\/ _) (_ in a land called---------------- ) ) _ / / _) ( Honiley------------------------- ) /\ )/\/ || | )_) (_ -------------------------------- ) < > |(,,) )__) ( -------------------------------- ) || / \)___)\ ( --------------------------------__) | \____( )___) )___ -==-_____-=====-_____-=====-___== \______(_______;;; __;;;

NOTES

FILES
libJSU.a


!CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC subroutine jundragon(i,a) !@(#) print eye-catching ASCII graphic (dragon) with message character*32 a(8) character*80 b(11) write(b(01),1)' \=/, _-===-_-====-_-===-_-==========-_-====-_' write(b(02),1)' | @___oo ( ',a(01),' )_' write(b(03),1)' /\ /\ / (___,,,}_--= ',a(02),' )' write(b(04),1)' ) /^\) ^\/ _) =__ ',a(03),' )' write(b(05),1)' ) /^\/ _) (_ ',a(04),' )' write(b(06),1)' ) _ / / _) ( ',a(05),' )' write(b(07),1)' /\ )/\/ || | )_) (_ ',a(06),' )' write(b(08),1)'< > |(,,) )__) ( ',a(07),' )' write(b(09),1)' || / \)___)\ ( ',a(08),'__)' write(b(10),1)' | \____( )___) )___ -==-_____-=====-_____-=====-___==' write(b(11),*)' \______(_______;;; __;;;' 1 format(a,a,a) do i10=1,11 call jun(i,b(i10)) enddo end subroutine jundragon !CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC