- CIAUBIG ;MSC/IND/PLS - Print a banner in large letters;04-May-2006 08:19;DKM
- ;;1.2;CIA UTILITIES;;Mar 20, 2007
- ;;Copyright 2000-2006, Medsphere Systems Corporation
- ;=================================================================
- ; Prints CIABIG to the current output device in large letters.
- ; Inputs:
- ; CIABIG = Big letter string
- ; CIARPT = # times to repeat (default=2)
- ; CIATXT = Full text string (optional)
- ;=================================================================
- ENTRY(CIABIG,CIARPT,CIATXT) ;
- N CIALT,CIAFS,CIAZ,CIAZ1,CIALEN,CIAPF,CIALN
- S CIAFS="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789,-/.!#'$()*+?\=^&%"
- S:$D(CIATXT) CIATXT=$$REPEAT^XLFSTR("*"_CIATXT,$G(IOM,80)\($L(CIATXT)+1))
- S CIALEN=$L(CIABIG),CIARPT=$G(CIARPT,2)
- W !
- F CIALT=1:1:CIARPT D
- .W !
- .F CIAZ=1:8:65 D
- ..W !
- ..F CIAZ1=1:1:CIALEN D
- ...S CIALN=$F(CIAFS,$E(CIABIG,CIAZ1))-1
- ...S CIAPF=$P($T(TBL+CIALN),";;",2,99)
- ...W $E(CIAPF,CIAZ,CIAZ+7)
- ...W:CIAZ1<CIALEN ?(CIAZ1*12)
- .W !!,$G(CIATXT)
- 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
- ;; '' ' '
- ;; ----------------
- ;; // // // // // //
- ;; .... .... ....
- ;; !! !! !! !! !! .... ....
- ;; # # ######## # # ######## # #
- ;;
- ;; $$ $$$$$$$$$$ $$ $$$$$$$$ $$ $$$$$$$$$$ $$
- ;; (( (( (( (( (( (( ((
- ;; )) )) )) )) )) )) )) ))
- ;;* ** * * ** * **** ******** **** * ** * * ** *
- ;; ++ ++ ++++++++++++++++ ++ ++
- ;; ??? ?? ?? ?? ?? ?? ?? .... ....
- ;; \\ \\ \\ \\ \\ \\
- ;; ================ =================
- ;; ^ ^^^ ^^ ^^ ^^ ^^
- ;; &&& & & & & &&& & &&& && & && & && &&& &
- ;; % % % % % % % % % % % % % % % %
- CIAUBIG ;MSC/IND/PLS - Print a banner in large letters;04-May-2006 08:19;DKM
- +1 ;;1.2;CIA UTILITIES;;Mar 20, 2007
- +2 ;;Copyright 2000-2006, Medsphere Systems Corporation
- +3 ;=================================================================
- +4 ; Prints CIABIG to the current output device in large letters.
- +5 ; Inputs:
- +6 ; CIABIG = Big letter string
- +7 ; CIARPT = # times to repeat (default=2)
- +8 ; CIATXT = Full text string (optional)
- +9 ;=================================================================
- ENTRY(CIABIG,CIARPT,CIATXT) ;
- +1 NEW CIALT,CIAFS,CIAZ,CIAZ1,CIALEN,CIAPF,CIALN
- +2 SET CIAFS="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789,-/.!#'$()*+?\=^&%"
- +3 IF $DATA(CIATXT)
- SET CIATXT=$$REPEAT^XLFSTR("*"_CIATXT,$GET(IOM,80)\($LENGTH(CIATXT)+1))
- +4 SET CIALEN=$LENGTH(CIABIG)
- SET CIARPT=$GET(CIARPT,2)
- +5 WRITE !
- +6 FOR CIALT=1:1:CIARPT
- Begin DoDot:1
- +7 WRITE !
- +8 FOR CIAZ=1:8:65
- Begin DoDot:2
- +9 WRITE !
- +10 FOR CIAZ1=1:1:CIALEN
- Begin DoDot:3
- +11 SET CIALN=$FIND(CIAFS,$EXTRACT(CIABIG,CIAZ1))-1
- +12 SET CIAPF=$PIECE($TEXT(TBL+CIALN),";;",2,99)
- +13 WRITE $EXTRACT(CIAPF,CIAZ,CIAZ+7)
- +14 IF CIAZ1<CIALEN
- WRITE ?(CIAZ1*12)
- End DoDot:3
- End DoDot:2
- +15 WRITE !!,$GET(CIATXT)
- End DoDot:1
- +16 QUIT
- TBL ;; Table of character "raster images"
- +1 ;; AAAAAA AA AAAA AAAAAAAAAAAAAAAAAAAA AAAA AAAA AA
- +2 ;;BBBBBBB BB BBBB BBBBBBBBB BBBBBBB BB BBBB BBBBBBBBB
- +3 ;;CCCCCCCCCC CC CC CC CC CC CCCCCCCC
- +4 ;;DDDDDD DD DD DD DDDD DDDD DDDD DDDD DD DDDDDD
- +5 ;;EEEEEEEEEE EE EEEEEE EEEEEE EE EE EEEEEEEE
- +6 ;;FFFFFFFFFF FF FFFFFF FFFFFF FF FF FF
- +7 ;;GGGGGGGGGG GG GG GGGGGG GGGGGG GGGG GGGGGGGGGG
- +8 ;;HH HHHH HHHH HHHHHHHHHHHHHHHHHHH HHHH HHHH HH
- +9 ;;IIIIIIII II II II II II II IIIIIIII
- +10 ;;JJJJJJJJ JJ JJ JJ JJ JJ JJ JJ JJJJJJ
- +11 ;;KK KKKK KK KK KK KKKK KKKK KK KK KK KK KK KK
- +12 ;;LL LL LL LL LL LL LL LLLLLLLL
- +13 ;;MM MMMMM MMMM MMMM MMM MM MMMM MMMM MMMM MMMM MM
- +14 ;;N NNNN NNNNN NNNN N NNNN N NNNN NNNNN NNNN N
- +15 ;; OOOOOO OO OOOO OOOO OOOO OOOO OOOO OO OOOOOO
- +16 ;;PPPPPPP PP PPPP PPPPPPPPP PP PP PP PP
- +17 ;; QQQQQQ QQ QQQQ QQQQ QQQQ Q QQQQ Q Q QQQQQQ Q
- +18 ;;RRRRRRR RR RRRR RRRRRRRRR RR RR RR RR RR RR RR RR
- +19 ;;SSSSSSSSSS SS SSSSSSSSSSSSSSSS SS SSSSSSSSSS
- +20 ;;TTTTTTTT TT TT TT TT TT TT TT
- +21 ;;UU UUUU UUUU UUUU UUUU UUUU UUUUUUUUUU UUUUUU
- +22 ;;VV VVVV VVVV VVVV VV VV VV VV VV VVVV VV
- +23 ;;WW WWWW WWWW WWWW WWWW WWWW WW WWWWW WWWWW WW
- +24 ;;XX XXXX XX XX XX XXXX XX XXXX XX XX XX XX
- +25 ;;YY YY YY YY Y Y YY YY YY YY YY
- +26 ;;ZZZZZZZZZZZZZZZZ ZZ ZZ ZZ ZZ ZZZZZZZZZZZZZZZZ
- +27 ;;
- +28 ;; 0000 0 00 00 00 00000 0 0000 0 00000 00 00 00 0 0000
- +29 ;; 11 111 1111 11 11 11 11 1111111
- +30 ;; 2222 22 22 22 22 22 22 22 22 2222222
- +31 ;;3333333 33 33 33333 33 33 33 33333
- +32 ;; 44 444 44 44 44 44 4444444 44 44 44
- +33 ;;5555555555 55 5555555 55 55 55 555555
- +34 ;; 666 66 66 66 66 66 6666 666 66 66 66 6666
- +35 ;;77777777 77 77 77 77 77 77 77
- +36 ;; 8888 88 88 88 88 8888 88 88 88 88 88 88 8888
- +37 ;; 99999 99 9999 99 9999999 99 99 99 9999
- +38 ;; '' ' '
- +39 ;; ----------------
- +40 ;; // // // // // //
- +41 ;; .... .... ....
- +42 ;; !! !! !! !! !! .... ....
- +43 ;; # # ######## # # ######## # #
- +44 ;;
- +45 ;; $$ $$$$$$$$$$ $$ $$$$$$$$ $$ $$$$$$$$$$ $$
- +46 ;; (( (( (( (( (( (( ((
- +47 ;; )) )) )) )) )) )) )) ))
- +48 ;;* ** * * ** * **** ******** **** * ** * * ** *
- +49 ;; ++ ++ ++++++++++++++++ ++ ++
- +50 ;; ??? ?? ?? ?? ?? ?? ?? .... ....
- +51 ;; \\ \\ \\ \\ \\ \\
- +52 ;; ================ =================
- +53 ;; ^ ^^^ ^^ ^^ ^^ ^^
- +54 ;; &&& & & & & &&& & &&& && & && & && &&& &
- +55 ;; % % % % % % % % % % % % % % % %
