C	PROGRAM DRWTST.FT
C	--------------------
C
C
C	P. LEMKIN
C	NIH
C	BETHESDA, MD 20014
C
C
C	NOV 5, 1976
C
C
C	PURPOSE
C	-------
C	TEST BMOMNI BM/GP INTERFACE
C
C
	DIMENSION IFBW(20),JUNK(2047)
C
	READ(1,700)MEM
700	FORMAT('DRWTST.SV 11/8/76, DRAW IN BM# (0:7)?=',I1)
C
	NSIZE=1
	MWT3LINES=33
C	POSITION AND TURN ON BM2
	MWINDOW=7
	MRDFBW=22
	MPOST=5
	MMOVE=2
	MDRAW=3
	MGRFPEN=17
C
C	POST BM2 AT (384,384)
C	ZERO THE MEMORY
602	DO 601 I=1,2000
601	JUNK(I)=0
C
	DO 600 IY1=1,256,3
	IY=IY1-1
	CALL BMOMNI(MEM,0,0,IY,0,JUNK,MWT3LINES)
600	CONTINUE
C
	IX=384
	IY=384
	CALL BMOMNI(MEM,0,IX,IY,0,JUNK,MWINDOW)
	CALL BMOMNI(MEM,0, 0,0,0, JUNK,MPOST)
C
	IX0=128
	IY0=128
	R=100
	Y0=IY0
	X0=IX0
	DO 1000 I=1,361,NSIZE
	ANG=I-1
	RAD=ANG*(3.14159/180.0)
	IY=R*SIN(RAD)+Y0
	IX=R*COS(RAD)+X0
	CALL BMOMNI(MEM,0,IX0,IY0,0, JUNK,MMOVE)
	IZ=255
	CALL BMOMNI(MEM,0,IX,IY,IZ,JUNK,MDRAW)
1000	CONTINUE
	END