subroutine penup C C This subroutine causes the pen to go up at its current location C or in the case of CRTs to turn the beam off C common/init/ilun,factor,imode,ipenst ipenst=1 return end