jubig(1) - Fortran utility to make big block letters

JUBIG(STRING,IOUNIT)

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 columms 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.

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

A typical compile might look like:

    g77 -fno-backslash test_jubig.f jubig.f -o jubig_g77
    # or
    g95 test_jubig.f jubig.f -o jubig_g95

FILES

FORTRAN 77 source:jubig.f

References: none

Dependencies: none

Legal Restrictions: none

QA:test_jubig.f

Authors: John S. Urban

NB: "OMNIUM-GATHERIUM means MELANGE or FARRAGO (ie. a HODGEPODGE, HOTCHPOTCH, or GALLIMAUFRY)". It just means ODDS-AND-ENDS. I like the word. I like the irony that this definition is taken from an actual dictionary. The button used to say "FODDER". Hope that gives you an idea of what lays within.

Origins

In days gone by JUBIG(3F) was used to make large delivery banners on fixed-type printers and to make eye-readable headers on microfiche. I originally wrote it for a CDC SCOPE2 and NOS machine to make a banner page on printers that had a fixed font size. I still find it handy for program banners and to make a message that's hard to ignore.

Alternatives

If you are looking for a command instead of a procedure, the ultimate banner generator is probably the figlet(1) package. If you just miss the unix banner command you can probably use this Bourne shell script: banner.sh.

Created: 19971231