%NOLIST

3400	READ #FILE.NO,REC.NO%;W1$,L1,L1$,L2,L2$,L4(1),L4(2),B,C2,L6,D(1),\
	D(2),D(3),D(4),D(5),D(6),D(7),D(8),D(9),D(10),D(11),D(12),D(13)
	RETURN
3450	PRINT #FILE.NO,REC.NO%;W1$,L1,L1$,L2,L2$,L4(1),L4(2),B,C2,L6,D(1),\
	D(2),D(3),D(4),D(5),D(6),D(7),D(8),D(9),D(10),D(11),D(12),D(13)
	RETURN

%LIST