SUBROUTINE JUBIG(STRING,IOUNIT) CHARACTER*10 STRING INTEGER IOUNIT
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.
program demo call jubig('NOTICE',6) END
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
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.
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.