	SUBROUTINE PLOT(X,Y,I)
	TYPE*,'!PLOT(',X,Y,I
	RETURN
	END
	SUBROUTINE AXIS(X,Y,ITITLE,NCHAR,AXLEN,ANG,FIR,DEL)
	CHARACTER*1 ITITLE(1)
	N=IABS(NCHAR)
	TYPE 4,X,Y,(ITITLE(I),I=1,N),ANG,FIR,DEL,NCHAR
4	FORMAT(' !AXIS(',2F10.2,'"',<N>A1,'"',3F10.2,I4)
	RETURN
	END
	SUBROUTINE NUMBER(X,Y,H,THENUM,ANG,NDEC)
	N=IABS(NDEC)
	TYPE 4,X,Y,H,THENUM,ANG,NDEC
4	FORMAT(' !NUMBER(',3F10.2,G,F10.2,I4)
	RETURN
	END
	SUBROUTINE SYMBOL(X,Y,H,ITITLE,ANG,NCHAR)
	CHARACTER*1 ITITLE(1)
	N=IABS(NCHAR)
	IF(NCHAR.GT.0) TYPE 4,X,Y,H,(ITITLE(I),I=1,N),ANG,NCHAR
4	FORMAT(' !SYMBOL(',3F10.2,'"',<N>A1,'"',F10.2,I4)
	RETURN
	END
	SUBROUTINE START(X,Y)
	TYPE*,'!START(',X,Y
	RETURN
	END
	SUBROUTINE END(X)
	TYPE*,'!END(',X
	RETURN
	END
	SUBROUTINE FACTOR(X)
	TYPE*,'!FACTOR(',X
	RETURN
	END
	SUBROUTINE PAGE
	TYPE*,'!PAGE'
	RETURN
	END
	SUBROUTINE PEN(I)
	TYPE*,'!PEN(',I
	RETURN
	END
	SUBROUTINE TICKS(A,B,C,D)
	TYPE*,'!TICKS(',A,B,C,D
	RETURN
	END
