+ SUBROUTINE DOWN
+ INTEGER PEN,PENX
+ COMMON /PENSTA/PEN,PENX
+ IF (PEN.EQ.0) CALL PL$PD
+ PEN=1
+ PENX=PENX+1
+ RETURN
+ END
+C
+ SUBROUTINE UP
+ INTEGER PEN,PENX
+ COMMON /PENSTA/PEN,PENX
+ IF (PEN.EQ.1) CALL PL$PU
+ PEN=0
+ PENX=PENX+1
+ RETURN
+ END