RGUTBIG ;CAIRO/PLS - Print a banner in large letters;04-Sep-1998 11:26;DKM
 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
 ;=================================================================
 ; Prints RGBIG to the current output device in large letters.
 ; Inputs:
 ;   RGBIG = Big letter string
 ;   RGRPT = # times to repeat (default=2)
 ;   RGTXT = Full text string (optional)
 ;=================================================================
ENTRY(RGBIG,RGRPT,RGTXT) ;
 N RGLT,RGFS,RGZ,RGZ1,RGLEN,RGPF,RGLN
 S RGFS="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789,-/.!#'$()*+?\=^&%"
 S:$D(RGTXT) RGTXT=$$RPT^RGUT("*"_RGTXT,$G(IOM,80)\($L(RGTXT)+1))
 S RGLEN=$L(RGBIG),RGRPT=$G(RGRPT,2)
 W !
 F RGLT=1:1:RGRPT D
 .W !
 .F RGZ=1:8:65 D
 ..W !
 ..F RGZ1=1:1:RGLEN D
 ...S RGLN=$F(RGFS,$E(RGBIG,RGZ1))-1
 ...S RGPF=$P($T(TBL+RGLN),";;",2,99)
 ...W $E(RGPF,RGZ,RGZ+7)
 ...W:RGZ1<RGLEN ?(RGZ1*12)
 .W !!,$G(RGTXT)
 Q
TBL ;; Table of character "raster images"
 ;; AAAAAA AA    AAAA    AAAAAAAAAAAAAAAAAAAA    AAAA    AAAA    AA
 ;;BBBBBBB BB    BBBB    BBBBBBBBB BBBBBBB BB    BBBB    BBBBBBBBB
 ;;CCCCCCCCCC      CC      CC      CC      CC      CC      CCCCCCCC
 ;;DDDDDD  DD   DD DD    DDDD    DDDD    DDDD    DDDD   DD DDDDDD
 ;;EEEEEEEEEE      EE      EEEEEE  EEEEEE  EE      EE      EEEEEEEE
 ;;FFFFFFFFFF      FF      FFFFFF  FFFFFF  FF      FF      FF
 ;;GGGGGGGGGG      GG      GG  GGGGGG  GGGGGG    GGGG    GGGGGGGGGG
 ;;HH    HHHH    HHHH     HHHHHHHHHHHHHHHHHHH    HHHH    HHHH    HH
 ;;IIIIIIII   II      II      II      II      II      II   IIIIIIII
 ;;JJJJJJJJ    JJ      JJ      JJ      JJ      JJ  JJ  JJ  JJJJJJ
 ;;KK    KKKK   KK KK  KK  KKKK    KKKK    KK  KK  KK   KK KK    KK
 ;;LL      LL      LL      LL      LL      LL      LL      LLLLLLLL
 ;;MM    MMMMM  MMMM MMMM MMM MM MMMM    MMMM    MMMM    MMMM    MM
 ;;N     NNNN    NNNNN   NNNN N  NNNN  N NNNN   NNNNN    NNNN     N
 ;; OOOOOO OO    OOOO    OOOO    OOOO    OOOO    OOOO    OO OOOOOO
 ;;PPPPPPP PP    PPPP    PPPPPPPPP PP      PP      PP      PP
 ;; QQQQQQ QQ    QQQQ    QQQQ    QQQQ  Q QQQQ   Q Q QQQQQQ        Q
 ;;RRRRRRR RR    RRRR    RRRRRRRRR RR RR   RR  RR  RR   RR RR    RR
 ;;SSSSSSSSSS      SS      SSSSSSSSSSSSSSSS      SS      SSSSSSSSSS
 ;;TTTTTTTT   TT      TT      TT      TT      TT      TT      TT
 ;;UU    UUUU    UUUU    UUUU    UUUU    UUUU    UUUUUUUUUU UUUUUU
 ;;VV    VVVV    VVVV    VVVV    VV VV  VV  VV  VV   VVVV     VV
 ;;WW    WWWW    WWWW    WWWW    WWWW    WWWW WW WWWWW  WWWWW    WW
 ;;XX    XXXX    XX XX  XX   XXXX     XX     XXXX   XX  XX XX    XX
 ;;YY    YY YY  YY   Y  Y     YY      YY      YY      YY      YY
 ;;ZZZZZZZZZZZZZZZZ     ZZ     ZZ    ZZ      ZZ    ZZZZZZZZZZZZZZZZ
 ;;
 ;;  0000 0 00  00 00   00000  0 0000 0  00000   00 00  00 0 0000
 ;;   11     111    1111      11      11      11      11   1111111
 ;;  2222   22  22 22    22      22    22    22     22     2222222
 ;;3333333      33     33   33333       33       33     33 33333
 ;;      44     444   44 44 44   44 4444444      44      44      44
 ;;5555555555      55      5555555       55      55     55 555555
 ;;   666   66  66 66      66      66 6666 666   66 66   66  6666
 ;;77777777      77     77    77      77     77     77      77
 ;;  8888   88  88 88  88   8888   88  88  88    88 88  88   8888
 ;;  99999 99    9999    99 9999999      99      99     99   9999
 ;;                                         ''        '      '
 ;;                        ----------------
 ;;              //     //     //    //      //      //
 ;;                                         ....    ....    ....
 ;;    !!     !!      !!      !!     !!               ....    ....
 ;;  #  #  ########  #  #  ########  #  #
 ;;
 ;;   $$   $$$$$$$$$$ $$   $$$$$$$$   $$ $$$$$$$$$$   $$
 ;;   ((     ((     ((     ((      ((       ((       ((
 ;;   ))      ))        ))       ))      ))     ))     ))    ))
 ;;*  **  * * ** *   ****  ********  ****   * ** * *  **  *
 ;;           ++      ++   ++++++++++++++++   ++      ++
 ;;  ???   ??   ??      ??     ??     ??      ??     ....    ....
 ;;         \\       \\       \\       \\       \\       \\
 ;;        ================       =================
 ;;    ^      ^^^    ^^ ^^  ^^   ^^
 ;; &&&    &   &   &   &    &&&  &  &&& && &   &&  &   &&   &&&   &
 ;;  %    % % %  %   %  %      %      %      %  %   %  % % %     %