C
C FUNCTION IWOS8W (V1A) - SIMULATES AN "IWRITW" USING THE PDP-8 OS8
C BLOCK STRUCTURE
C
	FUNCTION IWOS8W(WCNT,BUFF,BLK,ICHAN)
	INTEGER WCNT,BUFF(1),BLK
C USE "IOS8" FUNCTION WITH WRITE CODE ("376)
	IWOS8W=IOS8("376,WCNT,BUFF,BLK,ICHAN)
	RETURN
	END
