SUB	OPRIN.(B$)
	{FCSCOM.B4S}
	CALL SEK.(FCSWHO%,WHERE$)
	CALL PRINT.(FCSWHO%,B$)
	SUBEND