%%s 0/0/0
%%d D 1.1 25-Mar-82 12:01:50 v1.1 1 0
%%c Version 1.1 is the Spring 1982 Distribution of the LBL/Hughes release
%%c of the Software Tools Virtual Operating System software and documentation.
%%T
%%I 1
#-h- bigchar         2059  asc  25-mar-82 07:20:53  v1.1 (sw-tools v1.1)
 ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789()#-*/.,|?': +=_<>^!;%@\~[]{}&





 AAA 
A   A
AAAAA
A   A
A   A
BBBB 
B   B
BBBB 
B   B
BBBB 
 CCCC
C    
C    
C    
 CCCC
DDDD 
D   D
D   D
D   D
DDDD 
EEEEE
E    
EEEEE
E    
EEEEE
FFFFF
F    
FFFFF
F    
F    
 GGG 
G    
G  GG
G   G
 GGG 
H   H
H   H
HHHHH
H   H
H   H
IIIII
  I  
  I  
  I  
IIIII
    J
    J
    J
J   J
 JJJ 
K   K
K K  
KK   
K K  
K   K
L    
L    
L    
L    
LLLLL
M   M
MM MM
M M M
M   M
M   M
N   N
NN  N
N N N
N  NN
N   N
OOOOO
O   O
O   O
O   O
OOOOO
PPPP 
P   P
PPPP 
P    
P    
 QQQ 
Q   Q
Q Q Q
Q  QQ
 QQQ 
RRRR 
R   R
RRRR 
R  R 
R   R
 SSSS
S    
 SSS 
    S
SSSS 
TTTTT
  T  
  T  
  T  
  T  
U   U
U   U
U   U
U   U
 UUU 
V   V
V   V
V   V
 V V 
  V  
W   W
W   W
W W W
WW WW
W   W
X   X
 X X 
  X  
 X X 
X   X
Y   Y
 Y Y 
  Y  
  Y  
  Y  
ZZZZZ
   Z 
  Z  
 Z   
ZZZZZ
 000 
0   0
0   0
0   0
 000 
  1  
 11  
  1  
  1  
 111 
 2222
2   2
  22 
 2   
22222
3333 
    3
 333 
    3
3333 
   4 
 4 4 
44444
   4 
   4 

55555
5    
5555 
    5
5555 
  6  
 6   
 666 
6   6
 666 
77777
   7 
  7  
 7   
7    
 888 
8   8
 888 
8   8
 888 
 999 
9   9
 999 
  9  
 9   
   ( 
  (  
  (  
  (  
   ( 
 )   
  )  
  )  
  )  
 )   
 # # 
#####
 # # 
#####
 # # 
     
     
=====
     
     
* * *
 *** 
*****
 *** 
* * *
    /
   / 
  /  
 /   
/    
     
     
     
 ..  
 ..  
     
     
     
 ,,  
  ,  
 []  
 []  
 []  
 []  
 []  
 ??? 
?   ?
   ? 
  ?  
  ?  
 ""  
 ""  
     
     
     
     
 ::  
     
 ::  
     
     
     
     
     
     
     
  +  
 +++ 
  +  
     
     
 === 
     
 === 
     
     
     
     
     
=====
   < 
  <  
 <   
  <  
   < 
 >   
  >  
   > 
  >  
 >   
  /\ 
 /  \
     
     
     
  !! 
  !! 
  !! 
     
  !! 
  ;; 
  ;; 
     
  ;; 
   ; 
%   %
   % 
  %  
 %     
%   %
@@@@@
@ @ @
@ @@@
@    
@@@@@
\    
 \   
  \  
   \ 
    \
/\  /
  \/  
     
     
     
[[[[[
[    
[    
[    
[[[[[
]]]]]
    ]
    ]
    ]
]]]]]
  {{{
  {  
{{   
  {  
  {{{
}}}  
  }  
   } 
  }  
}}}  
 &&& 
 & & 
  &  
 & & 
&&& &
#-h- cbanner          157  asc  25-mar-82 07:20:54  v1.1 (sw-tools v1.1)
 common / cbannr / lchars(MAXLINESIZE), alpha(6, MAXLINESIZE, 5)

 character lchars	# large characters
 character alpha	# representation of large characters
#-h- banner.r        2174  asc  25-mar-82 07:20:55  v1.1 (sw-tools v1.1)
#-h- main             422  asc  25-mar-82 07:20:38  v1.1 (sw-tools v1.1)
 define(MAXLINESIZE,133)
 define(WIDTH,132)

 subroutine main

 character buf(MAXLINE)
 integer n
 integer getlin, getarg

 call query("usage:  banner [string].")
 call lodchr			# load character set
 if (getarg(1, buf, MAXLINE) != EOF)
    call bigout(buf, STDOUT)
 else
    for (n=getlin(buf, STDIN); n != EOF; n=getlin(buf, STDIN))
        {
        buf(n) = EOS
        call bigout(buf, STDOUT)
        }

 return
 end
#-h- bigout           677  asc  25-mar-82 07:20:39  v1.1 (sw-tools v1.1)
subroutine bigout(buf, out)

character buf(ARB)
character cupper
filedes out
integer n, i, j, k
integer index, length

include cbanner

n = length(buf)
if (n > arith(WIDTH,/,7))
    n = arith(WIDTH,/,7)
call putch(NEWLINE, out)        # blank line
for (i=1; i <= 5; i=i+1)
    {
    for (j=1; j <= n; j=j+1)
        {
        k = index(lchars, cupper(buf(j)))
        if (k == 0)
            k = index(lchars, BLANK)
        if (j > 1)
            {
            call putch(BLANK, out)
            call putch(BLANK, out)
            }
        call putlin(alpha(1, k, i), out)
        }
    call putch(NEWLINE, out)
    }
call putch(NEWLINE, out)        # blank line

return
end
#-h- lodchr           856  asc  25-mar-82 07:20:40  v1.1 (sw-tools v1.1)
 subroutine lodchr

 character file(FILENAMESIZE), buf(MAXLINE), path(arith(3,*,FILENAMESIZE))
 integer int, n, i, ind sub, j
 integer open, getlin, loccom

 include cbanner

 string chrset "bigchar"
 string suffix NO_SUFFIX

 call impath(path)
 if (loccom(chrset, path, suffix, file) != ASCII)
     call error("Cannot locate big character set file.")
 int = open(file, READ)
 if (int == ERR)
    call cant(file)
 n = getlin(buf, int)
 if (n >= MAXLINESIZE)
    n = MAXLINESIZE
 buf(n) = EOS
 call scopy(buf, 1, lchars, 1)
 i = 0
 for (n=getlin(buf,int); n != EOF; n = getlin(buf,int))
    {
    ind = i / 5 + 1
    if (ind > MAXLINESIZE)
	break
    sub = mod (i, 5) + 1
    i = i + 1
    for (j = n; j <= 5; j=j+1)
	buf(j) = BLANK
    for (j=1; j <= 5; j=j+1)
	alpha(j, ind, sub) = buf(j)
    alpha(j, ind, sub) = EOS
    }
 call close(int)

 return
 end
#-h- banner.fmt       686  asc  25-mar-82 07:20:57  v1.1 (sw-tools v1.1)
.so ~bin/manhdr
.hd Banner (1) 16-Mar-82
generate large banner lines
.sy
banner [string]
.ds
`banner' formats the specified text strings into large
banner lines on standard output.  If a command argument is specified,
then that string is output; otherwise, standard input is read, with
each line being displayed on standard output, until an EOF is detected.
Each character is printed in a 7 x 7 window, with the character occupying
the central 5 x 5 portion.  The file `~bin/bigchar' can be consulted for
the format of the character file.
.fl
~bin/bigchar
.sa

.di
If a character is detected which has no correspondence in
the character file, a blank is displayed.
.au
Joe Sventek
.bu

%%E 1