I=1
 1	CONTINUE
 	PAUSE 
	CALL SSW(0,I)
	WRITE(4,100)I
100	FORMAT(1X,I4)
	GO TO 1