COMMON ICHAR(7),ISW,ISLIDE
 1	WRITE(4,800)
 800	FORMAT(' SLIDE NUMBER:',$)
	READ(4,900)ISLIDE
 900	FORMAT(I2)
	CALL PROJ
	WRITE(4,950)
 950	FORMAT(' SLIDE LOADED')
	GO TO 1
	END