REMARK	*********************************\
		*  JOBFILE.BAS    JOB FILE I/O  *\
		*  4/10/79            8:00 PM   *\
		*********************************




1100	READ #Y6,X0;W(1),W(2)						REMARK    ****    READ JOB RECORD    ****
	IF W(2)=0 THEN\
	READ #Y6,X0;W(1),W(2),W1$,W1(1),W1(2),W2$(1),W2$(2)\		REMARK  IF EMPLOYEE NUMBER = 0, READ HEADER FIELDS;
	ELSE\								REMARK  OTHERWISE, READ DETAIL FIELDS
	READ #Y6,X0;W(1),W(2),W2(1),W2(2),W2(3),W2(4),W2(5),\
	W2(6),W2(7),W2(8),W2(9),W2(10),W2(11),W2(12),W2(13),W2(14)

	RETURN


1110	IF W(2)=0 THEN\							REMARK    ****    WRITE JOB RECORD    ****
	PRINT #Y6,X0;W(1),W(2),W1$,W1(1),W1(2),W2$(1),W2$(2) \		REMARK  IF EMPLOYEE NUMBER = 0, WRITE HEADER FIELDS;
	ELSE\								REMARK  OTHERWISE, WRITE DETAIL FIELDS
	PRINT #Y6,X0;W(1),W(2),W2(1),W2(2),W2(3),W2(4),W2(5),\
	W2(6),W2(7),W2(8),W2(9),W2(10),W2(11),W2(12),W2(13),W2(14)

	RETURN