subroutine SIZ (isize) c c sets the size of characters according to the supplied integer (0-15) c logical*1 plcmd(41) c (isize is also used by SMBL, so it is returned unaltered) isiz1=irnd(3.2*isize+1) encode (41,11,plcmd) isiz1,10 11 format('/Helvetica findfont 'i2' scalefont setfont'a1) call sendl(plcmd,41) return end