SUBROUTINE PNOTE
	IMPLICIT INTEGER(A-Z)
	BYTE STRING,PERIOD,COMMA
	BYTE ARROW
	COMMON/STRING/STRING(132),POINT,EPOINT
	COMMON/NUMBER/NUM(4)
	DATA PERIOD,COMMA/'.',','/
	DATA ARROW/'^'/
C
C	BEGIN EXECUTABLE CODE
C
	WRITE(4,100)
100	FORMAT('.NOTE')
	CALL GETNUM
	CALL GETREC(1,NUM(1))
	WHCHAR=1
	IF(STRING(1).EQ.ARROW)WHCHAR=3
	STRING(WHCHAR)=STRING(WHCHAR).AND."337
	CALL OUTPUT
	CALL GETREC(2,NUM(2))
	CALL OUTPUT
	CALL GETREC(1,NUM(4))
	EPOINT=EPOINT+1
	STRING(EPOINT)=PERIOD
	CALL OUTPUT
	WRITE(4,200)
200	FORMAT('.END NOTE')
	RETURN
	END