INCLUDE 'MK3PIC.LDF'
	CALL THREAD
	call prtcur (1,5,'One',3,ierr)
	CALL BOX (1, 1, 24, 80, IERR)
	call box (1,10,'Two',3,ierr)
	CALL BOX (2, 3, 3, 34, IERR)
	CALL BOX (5, 3, 5, 76, IERR)
	CALL BOX (10, 3, 14, 76, IERR)
	call trmcon
	CALL PRTCUR (3, 5, 'SYSTEM ENG LTD.', 15, IERR)
	CALL WIDSIN (IERR)
	CALL VLINE (11, 12, 12, IERR)
	CALL VLINE (11, 44, 12, IERR)
	CALL VLINE (11, 53, 12, IERR)
	CALL VLINE (11, 62, 12, IERR)
	CALL VLINE (11, 71, 12, IERR)
	CALL DISBTH (IERR)
	CALL UNDON (IERR)
	CALL PRTCUR (3, 49, 'DAILY TIME SHEET', 16, IERR)
	CALL PRTCUR (6, 12, 'EMPLOYEE NAME', 13, IERR)
	CALL PRTCUR (6, 53, 'DEPARTMENT', 10, IERR)
	CALL PRTCUR (6, 69, 'DATE', 4, IERR)
	CALL PRTCUR (11, 5, 'JOB NO.', 7, IERR)
	CALL PRTCUR (11, 19, 'JOB DESCRIPTION', 15, IERR)
	CALL PRTCUR (11, 46, 'NORMAL', 6, IERR)
	CALL PRTCUR (11, 54, 'TIME+1/2', 8, IERR)
	CALL PRTCUR (11, 64, 'DOUBLE', 6, IERR)
	CALL PRTCUR (11, 72, 'TREBLE', 6, IERR)
	CALL BLNON (IERR)
	CALL PRTCUR (6, 38, 'CLOCK NUMBER', 12, IERR)
	CALL BLNOFF (IERR)
	CALL UNDOFF (IERR)
	CALL TRMCON
8	CALL REDREL (FSTR2, PAYBUF, , CLOCK, , , , IERR)
	IF (IERR.EQ.0) GOTO 9
	CALL TRMCON
	GOTO 8
9	CALL TRMCON
	CALL UNDON (IERR)
	CALL PRTCUR (6, 38, 'CLOCK NUMBER', 12, IERR)
	CALL BLNON (IERR)
	CALL PRTCUR (11, 5, 'JOB NO.', 7, IERR)
	CALL UNDOFF (IERR)
	CALL BLNOFF (IERR)
	CALL TRMCON
10	CALL REDREL (FSTR, JOBBUF, , JOBNO, , , , IERR)
	IF (IERR.EQ.0) GOTO 11
	CALL TRMCON
	GOTO 10
11	CALL TRMCON
	CALL UNDON (IERR)
	CALL PRTCUR (11, 5, 'JOB NO.', 7, IERR)
	CALL UNDOFF (IERR)
	CALL TRMCON
	CALL UNDON (IERR)
	CALL BLNON (IERR)
	CALL PRTCUR (11, 5, 'JOB NO.', 7, IERR)
	CALL UNDOFF (IERR)
	CALL BLNOFF (IERR)
	CALL TRMCON
	GOTO 10
	END