COMMON LANF,NOTE,FNAM,LK,L
	DIMENSION NOTE(13,148),FNAM(3),LK(6,148),L(149)
	ISTL=1026
	CALL RTAPE(1,-ISTL,149,L)
	LANF=L(149)
	CALL IOPEN('RKB1','ABIGKS')
	DO 10 K1=LANF,148
10	READ(4,20)(NOTE(K2,K1),K2=1,3),IX,IX,LK(6,K1),IX
20	FORMAT(7I3)
	CALL CHAIN('AB3ERS')
	END