C	PLOT8 IS AN CALCOMP COMPATIBLE SET OF PLOTTING
C	SUBROUTINES FOR SEVERAL PLOTTER/DISPLAY INTER-
C	FACES, WITH THE FOLLOWING ENTRYPOINTS :
C
C	PLOTS	:	INITIALIZE THE PLOTTER/DISPLAY
C	PLOT	:	MOVE THE PEN TO A NEW POSITION
C	FACTOR	:	SET A NEW DISPLAY SCALE FACTOR
C	WHERE	:	GET X/Y-COORD AND SCALE VALUES
C	SYMBOL	:	PLOT ALFA CHARACTERS & SYMBOLS
C
	SUBROUTINE PLOT ( XPAGE , YPAGE , IPEN )
C
	IF(IPEN) 100,200,200
100	OLDX = XPAGE
	OLDY = YPAGE
200	IX = XPAGE * 20.
	IY = YPAGE * 20.
	CALL VECTOR ( IX , IY , IPEN )
	RETURN
	END