subroutine pendn C C This subroutine causes the pen to go down at its current location C or in the case of CRTs to turn the beam on. C common/init/ilun,factor,imode,ipenst ipenst=0 return end