C/

C/COPYRIGHT (C) 1975
C/DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

C/

C/THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY

C/ON A SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH

C/THE INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS

C/SOFTWARE, OR ANY OTHER COPIES THEREOF, MAY NOT BE PRO-

C/VIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

C/EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO

C/THESE LICENSE TERMS.  TITLE TO AND OWNERSHIP OF THE

C/SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC.

C/

C/THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE

C/WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COM-

C/MITMENT BY DIGITAL EQUIPMENT CORPORATION.

C/

C/DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY

C/OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
C

C ROLF HUBERT

C EDIT #001 SCR 4/16/75 FIX C/ IN SOURCE FROM COPYRIGHT

C EDIT #002 SCR 9/19/75 COPYRIGHT

	SUBROUTINE VECTOR(ISCALE,IX,IY)

	X=IX*ISCALE

	Y=IY*ISCALE

	JX=IABS(IX)

	JY=IABS(IY)

	IF((IX.GE.0).AND.(IY.GE.0))GO TO 1

	IF((IX.LE.0).AND.(IY.GE.0))GO TO 2

	IF((IX.LE.0).AND.(IY.LE.0))GO TO 3

	IF((IX.GE.0).AND.(IY.LE.0))GO TO 4
1	IF(JX.GT.JY)GO TO 5

	Y1=ISCALE

	Y2=Y1

	GO TO 10

5	X1=ISCALE

	X2=X1

	GO TO 20

2	IF(JX.GT.JY)GO TO 6

	Y1=ISCALE

	Y2=Y1

	GO TO 10

6	X1=-ISCALE

	X2=X1

	GO TO 20

3	IF(JX.GT.JY)GO TO 7

	Y1=-ISCALE

	Y2=Y1

	GO TO 10

7	X1=-ISCALE

	X2=X1

	GO TO 20

4	IF(JX.GT.JY)GO TO 8

	Y1=-ISCALE

	Y2=Y1

	GO TO 10

8	X1=ISCALE

	X2=X1

20	AM=Y/X

	DO 100 I=1,JX

	Y2=AM*X2

	IF(Y2.LT.0.)Y2=Y2-1.

	Y2=Y2+.5

	KX=X2

	KY=Y2

	IA=NUVAL(0,KX,KY)

	CALL VECT1(IA)

	X2=X1+X2

100	CONTINUE

	CALL VECT2

	RETURN

10	AM=X/Y

	DO 200 I=1,JY

	X2=AM*Y2

	IF(X2.LT.0.)X2=X2-1.

	X2=X2+.5

	KX=X2

	KY=Y2

	IA=NUVAL(0,KX,KY)

	CALL VECT1(IA)

	Y2=Y1+Y2

200	CONTINUE

	CALL VECT2

	RETURN

	END
