Enter Library Home Page FORTRAN CLI library

jubig

NAME
jubig - write out 10-character string in large block letters
SYNOPSIS/USAGE
      SUBROUTINE JUBIG(STRING,IOUNIT)
      CHARACTER*10 STRING
      INTEGER IOUNIT
DESCRIPTION

Given a string up to 10 characters long, JUBIG() writes out the string left-justified in large block letters 10 lines tall between columns 2 and 131.

This can be used to make banners in program output files; it is also handy for making attention-catching notices in interactive programs. The routine has been used to make large delivery banners on fixed-type printers and to make eye-readable headers on microfiche.

EXAMPLE
      program demo
      call jubig('NOTICE',6)
      END

would produce:

 NN      NN    OOOOOOOO    TTTTTTTTTT   IIIIIIIIII    CCCCCCCC    EEEEEEEEEE
 NNN     NN   OOOOOOOOOO   TTTTTTTTTT   IIIIIIIIII   CCCCCCCCCC   EEEEEEEEEE
 NNNN    NN   OO     OOO       TT           II       CC       C   EE
 NN NN   NN   OO    O OO       TT           II       CC           EE
 NN  NN  NN   OO   O  OO       TT           II       CC           EEEEE
 NN  NN  NN   OO  O   OO       TT           II       CC           EEEEE
 NN   NN NN   OO O    OO       TT           II       CC           EE
 NN    NNNN   OOO     OO       TT           II       CC       C   EE
 NN     NNN   OOOOOOOOOO       TT       IIIIIIIIII   CCCCCCCCCC   EEEEEEEEEE
 NN      NN    OOOOOOOO        TT       IIIIIIIIII    CCCCCCCC    EEEEEEEEEE
NOTES
FILES
this routine is available in the library libCLI.a