source: WorldVistAEHR/trunk/r/ZZREGIONAL-A1C-A5C-CRHD-RGED-RGUT-RGWB-RG/RGUTBIG.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 4.2 KB
RevLine 
[613]1RGUTBIG ;CAIRO/PLS - Print a banner in large letters;04-Sep-1998 11:26;DKM
2 ;;2.1;RUN TIME LIBRARY;;Mar 22, 1999
3 ;=================================================================
4 ; Prints RGBIG to the current output device in large letters.
5 ; Inputs:
6 ; RGBIG = Big letter string
7 ; RGRPT = # times to repeat (default=2)
8 ; RGTXT = Full text string (optional)
9 ;=================================================================
10ENTRY(RGBIG,RGRPT,RGTXT) ;
11 N RGLT,RGFS,RGZ,RGZ1,RGLEN,RGPF,RGLN
12 S RGFS="ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789,-/.!#'$()*+?\=^&%"
13 S:$D(RGTXT) RGTXT=$$RPT^RGUT("*"_RGTXT,$G(IOM,80)\($L(RGTXT)+1))
14 S RGLEN=$L(RGBIG),RGRPT=$G(RGRPT,2)
15 W !
16 F RGLT=1:1:RGRPT D
17 .W !
18 .F RGZ=1:8:65 D
19 ..W !
20 ..F RGZ1=1:1:RGLEN D
21 ...S RGLN=$F(RGFS,$E(RGBIG,RGZ1))-1
22 ...S RGPF=$P($T(TBL+RGLN),";;",2,99)
23 ...W $E(RGPF,RGZ,RGZ+7)
24 ...W:RGZ1<RGLEN ?(RGZ1*12)
25 .W !!,$G(RGTXT)
26 Q
27TBL ;; Table of character "raster images"
28 ;; AAAAAA AA AAAA AAAAAAAAAAAAAAAAAAAA AAAA AAAA AA
29 ;;BBBBBBB BB BBBB BBBBBBBBB BBBBBBB BB BBBB BBBBBBBBB
30 ;;CCCCCCCCCC CC CC CC CC CC CCCCCCCC
31 ;;DDDDDD DD DD DD DDDD DDDD DDDD DDDD DD DDDDDD
32 ;;EEEEEEEEEE EE EEEEEE EEEEEE EE EE EEEEEEEE
33 ;;FFFFFFFFFF FF FFFFFF FFFFFF FF FF FF
34 ;;GGGGGGGGGG GG GG GGGGGG GGGGGG GGGG GGGGGGGGGG
35 ;;HH HHHH HHHH HHHHHHHHHHHHHHHHHHH HHHH HHHH HH
36 ;;IIIIIIII II II II II II II IIIIIIII
37 ;;JJJJJJJJ JJ JJ JJ JJ JJ JJ JJ JJJJJJ
38 ;;KK KKKK KK KK KK KKKK KKKK KK KK KK KK KK KK
39 ;;LL LL LL LL LL LL LL LLLLLLLL
40 ;;MM MMMMM MMMM MMMM MMM MM MMMM MMMM MMMM MMMM MM
41 ;;N NNNN NNNNN NNNN N NNNN N NNNN NNNNN NNNN N
42 ;; OOOOOO OO OOOO OOOO OOOO OOOO OOOO OO OOOOOO
43 ;;PPPPPPP PP PPPP PPPPPPPPP PP PP PP PP
44 ;; QQQQQQ QQ QQQQ QQQQ QQQQ Q QQQQ Q Q QQQQQQ Q
45 ;;RRRRRRR RR RRRR RRRRRRRRR RR RR RR RR RR RR RR RR
46 ;;SSSSSSSSSS SS SSSSSSSSSSSSSSSS SS SSSSSSSSSS
47 ;;TTTTTTTT TT TT TT TT TT TT TT
48 ;;UU UUUU UUUU UUUU UUUU UUUU UUUUUUUUUU UUUUUU
49 ;;VV VVVV VVVV VVVV VV VV VV VV VV VVVV VV
50 ;;WW WWWW WWWW WWWW WWWW WWWW WW WWWWW WWWWW WW
51 ;;XX XXXX XX XX XX XXXX XX XXXX XX XX XX XX
52 ;;YY YY YY YY Y Y YY YY YY YY YY
53 ;;ZZZZZZZZZZZZZZZZ ZZ ZZ ZZ ZZ ZZZZZZZZZZZZZZZZ
54 ;;
55 ;; 0000 0 00 00 00 00000 0 0000 0 00000 00 00 00 0 0000
56 ;; 11 111 1111 11 11 11 11 1111111
57 ;; 2222 22 22 22 22 22 22 22 22 2222222
58 ;;3333333 33 33 33333 33 33 33 33333
59 ;; 44 444 44 44 44 44 4444444 44 44 44
60 ;;5555555555 55 5555555 55 55 55 555555
61 ;; 666 66 66 66 66 66 6666 666 66 66 66 6666
62 ;;77777777 77 77 77 77 77 77 77
63 ;; 8888 88 88 88 88 8888 88 88 88 88 88 88 8888
64 ;; 99999 99 9999 99 9999999 99 99 99 9999
65 ;; '' ' '
66 ;; ----------------
67 ;; // // // // // //
68 ;; .... .... ....
69 ;; !! !! !! !! !! .... ....
70 ;; # # ######## # # ######## # #
71 ;;
72 ;; $$ $$$$$$$$$$ $$ $$$$$$$$ $$ $$$$$$$$$$ $$
73 ;; (( (( (( (( (( (( ((
74 ;; )) )) )) )) )) )) )) ))
75 ;;* ** * * ** * **** ******** **** * ** * * ** *
76 ;; ++ ++ ++++++++++++++++ ++ ++
77 ;; ??? ?? ?? ?? ?? ?? ?? .... ....
78 ;; \\ \\ \\ \\ \\ \\
79 ;; ================ =================
80 ;; ^ ^^^ ^^ ^^ ^^ ^^
81 ;; &&& & & & & &&& & &&& && & && & && &&& &
82 ;; % % % % % % % % % % % % % % % %
Note: See TracBrowser for help on using the repository browser.