h12714
s 00000/00000/00012
d D 1.4 83/02/17 15:09:30 tes 4 3
c did'nt really need it
e
s 00002/00002/00010
d D 1.3 83/02/03 15:54:20 mjb 3 2
c fixed common name collision
e
s 00002/00002/00010
d D 1.2 83/01/20 16:43:35 tes 2 1
c added character record buffer and last character register
e
s 00012/00000/00000
d D 1.1 83/01/20 10:46:16 tes 1 0
c date and time created 83/01/20 10:46:16 by tes
e
u
tes
mjb
U
t
T
I 1
define(`FONTxDESCRIPTION',388)
define(`FONTxJUNK',67)
define(`MAXxVECTOR',20)

integer hfile, fdpos, cdpos, nfonts,
D 3
	cfont, fnttbl(194), cfscal, cfbase, cftop, cfwdth,
E 3
I 3
	chfont, fnttbl(194), cfscal, cfbase, cftop, cfwdth,
E 3
	hcolor, hjust, vjust, hsize, vsize, rotatn,
D 2
	vecknt, vecbuf(40)
E 2
I 2
	vecknt, vecbuf(40), lstchr, chrbuf (100)
E 2
common /hshcom/ hfile, fdpos, cdpos, nfonts,
D 3
	        cfont, fnttbl, cfscal, cfbase, cftop, cfwdth,
E 3
I 3
	        chfont, fnttbl, cfscal, cfbase, cftop, cfwdth,
E 3
	        hcolor, hjust, vjust, hsize, vsize, rotatn,
D 2
	        vecknt, vecbuf(40)
E 2
I 2
	        vecknt, vecbuf, lstchr, chrbuf
E 2
E 1
