ANEW --BANNER--                               \  Wil Baden  2003-02-23

\  *******************************************************************
\  *                                                                 *
\  *  Wil Baden  2002-08-07                                          *
\  *                                                                 *
\  *  BANNER                                                         *
\  *                                                                 *
\  *     Display short phrase in ####   ###   ####                   *
\  *                             #   #   #   #                       *
\  *                             #   #   #   #                       *
\  *                             ####    #   #                       *
\  *                             #   #   #   #  ##                   *
\  *                             #   #   #   #   #                   *
\  *                             ####   ###   #### letters.          *
\  *                                                                 *
\  *******************************************************************

\  Using: USES:  NUMBER  Char>Upper

\  BANNER			( str len -- )
\     Display short phrase in BIG letters.

CREATE Banner-Matrix

HEX  USES:  NUMBER C,

    00 00 00 00 00 00 00 00  20 20 20 20 20 00 20 00
    50 50 50 00 00 00 00 00  50 50 F8 50 F8 50 50 00
    20 78 A0 70 28 F0 20 00  C0 C8 10 20 40 98 18 00
    40 A0 A0 40 A8 90 68 00  30 30 10 20 00 00 00 00
    20 40 80 80 80 40 20 00  20 10 08 08 08 10 20 00
    20 A8 70 20 70 A8 20 00  00 20 20 70 20 20 00 00
    00 00 00 30 30 10 20 00  00 00 00 70 00 00 00 00
    00 00 00 00 00 30 30 00  00 08 10 20 40 80 00 00

    70 88 98 A8 C8 88 70 00  20 60 20 20 20 20 70 00
    70 88 08 30 40 80 F8 00  F8 10 20 30 08 88 70 00
    10 30 50 90 F8 10 10 00  F8 80 F0 08 08 88 70 00
    38 40 80 F0 88 88 70 00  F8 08 10 20 40 40 40 00
    70 88 88 70 88 88 70 00  70 88 88 78 08 10 E0 00
    00 60 60 00 60 60 00 00  00 60 60 00 60 60 40 00
    10 20 40 80 40 20 10 00  00 00 F8 00 F8 00 00 00
    40 20 10 08 10 20 40 00  70 88 10 20 20 00 20 00

    70 88 A8 B8 B0 80 78 00  20 50 88 88 F8 88 88 00
    F0 88 88 F0 88 88 F0 00  70 88 80 80 80 88 70 00
    F0 48 48 48 48 48 F0 00  F8 80 80 F0 80 80 F8 00
    F8 80 80 F0 80 80 80 00  78 80 80 80 98 88 78 00
    88 88 88 F8 88 88 88 00  70 20 20 20 20 20 70 00
    08 08 08 08 08 88 78 00  88 90 A0 C0 A0 90 88 00
    80 80 80 80 80 80 F8 00  88 D8 A8 A8 88 88 88 00
    88 88 C8 A8 98 88 88 00  70 88 88 88 88 88 70 00

    F0 88 88 F0 80 80 80 00  70 88 88 88 A8 90 68 00
    F0 88 88 F0 A0 90 88 00  70 88 80 70 08 88 70 00
    F8 20 20 20 20 20 20 00  88 88 88 88 88 88 70 00
    88 88 88 88 88 50 20 00  88 88 88 A8 A8 D8 88 00
    88 88 50 20 50 88 88 00  88 88 50 20 20 20 20 00
    F8 08 10 20 40 80 F8 00  78 40 40 40 40 40 78 00
    00 80 40 20 10 08 00 00  F0 10 10 10 10 10 F0 00
    00 00 20 50 88 00 00 00  00 00 00 00 00 00 00 F8

etc  DECIMAL

: BANNER                    ( str len -- )
    8 0 DO  CR                      ( str len)
        2dup BOUNDS ?DO             ( . .)
            I C@  Char>Upper  BL -  0 MAX ( . . char)
            8 *  Banner-Matrix +  J +  C@ ( . . row)
            2 7 DO
                dup 1 I LSHIFT AND
                    IF  ." #"  ELSE  ."  "  THEN
            -1 +LOOP  DROP          ( . .)
        LOOP                        ( str len)
    LOOP  2DROP ;

S" DRAFT" BANNER

\  Thanks to Marcel Hendrix.

\\   //   \\   //   \\   //   \\   //   \\   //   \\   //   \\   //   \\