100 	DEFINE
110 F1,	A6
120 F2,	D3
130 F3,	A1
140 	INPUT $KREF/2
150 	SORT 3/3,4,5
160 	KEY F1,F2
170 	OUTPUT $KREF/2
180 	END