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,'"',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,'"',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