C      ROACH   RWK-ICD   7/17/75
	DIMENSION KOUNT(20,20),IMOVE(8),JMOVE(8),IBUG(20,20)
	IMOVE(1)=-1
	IMOVE(2)=0
	IMOVE(3)=1
	IMOVE(4)=1
	IMOVE(5)=1
	IMOVE(6)=0
	IMOVE(7)=-1
	IMOVE(8)=-1
	JMOVE(1)=1
	JMOVE(2)=1
	JMOVE(3)=1
	JMOVE(4)=0
	JMOVE(5)=-1
	JMOVE(6)=-1
	JMOVE(7)=-1
	JMOVE(8)=0
50	READ(1,6)N,M,K,L
6	FORMAT(4(' ? 'I3))
	IF(N-K)200,201,201
201	IF(M-L)200,202,202
202	IF(N-20)203,203,200
203	IF(M-20)204,204,200
200	WRITE(1,7)
7	FORMAT('INPUT ERROR--TRY AGAIN')
	GO TO 50
204	NM=N*M
	DO501 I=1,N
	DO300 J=1,M
	IBUG(J,I)=-1312
300	KOUNT(I,J)=0
501	IBUG(M+1,I)=0
	XMVS=1
	IZERO=1
	KOUNT(K,L)=1
	IBUG(L,K)=-1376
	KBUG=K
	LBUG=L
305	KK=IRAN(8)
	KTBUG=KBUG+IMOVE(KK)
	LL=IRAN(8)
	LTBUG=LBUG+JMOVE(LL)
	IF(KTBUG-N)301,301,305
301	IF(LTBUG-M)302,302,305
302	IF(KTBUG)305,305,303
303	IF(LTBUG)305,305,304
304	KBUG=KTBUG
	LBUG=LTBUG
	IF(KOUNT(KBUG,LBUG))306,306,307
3
301	IF(LTBUG-M)302,302,305
302	IF(KTBUG)305,305,303
303	IF(LTBUG)305,305,304
304	KBUG=KTBUG
	LBUG=LTBUG
	IF(KOUNT(KBUG,LBUG))306,306,307
306	IZERO=IZERO+1
	IBUG(LBUG,KBUG)=-1184
307	KOUNT(KBUG,LBUG)=KOUNT(KBUG,LBUG)+1
	IF(IZERO-NM)401,400,400
401	XMVS=XMVS +1.
	CALL DISP9(LBUG*16,256-KBUG*16,'R')
	DO 502 I=1,N
502	CALL DISP9(8,256-I*16,IBUG(1,I))
	IF(XMVS-20000.)305,305,400
400	WRITE(3,70)N,M,K,L,XMVS
70	FORMAT(4I10,F10.0)
	DO 69 I=1,N
69	WRITE(3,71)(KOUNT(I,J),J=1,M)
71	FORMAT(20I5)
	GO TO 50
	END