subroutine PEN (iwhich) c c sets line width according to the supplied integer (1-6) c logical*1 plcmd(30) encode (30,11,plcmd) iwhich,10 11 format('stroke newpath 'i1' setlinewidth'a1) call sendl(plcmd,30) return end