SUBROUTINE PENUP c c This routine puts the pen up on HIPLOT DMPL plotters. C 9-Nov-82 DVJensen modified to keep track thru HIPLOT common C of current up/down status of the pen. C - sends characters to the plotter thru PLTOUT subr. c COMMON /HIPLOT/ UP LOGICAL*1 UP,UPCHAR DATA UPCHAR/'U'/ c IF (UP) RETURN CALL PLTOUT(UPCHAR,1) UP = .TRUE. RETURN END