	.even
create:
	jsr	r5,fndindex		/record existent?
	j.number
	0f				/if yes,error
	3f				/if no, allow creation
0:
	jsr	r5,mesg
	<3ERROR; RECORD ALREADY EXISTENT4\n\0>
	.even
	jmp	9f
3:
	jsr	r5,mesg			/print title prompt
	<TITLE?\n\0>
	.even
	mov	$"ti,bline
	jsr	r5,screate
	tst	r0
	beq	3b
3:
	jsr	r5,mesg			/print location prompt
	<LOC?\n\0>
	.even
	mov	$"lo,bline
	jsr	r5,screate
	tst	r0
	beq	3b
3:
	jsr	r5,mesg			/print case1 prompt
	<CASE1?\n\0>
	.even
	mov	$"c1,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if case1 not supplied
3:
	jsr	r5,mesg			/print case2 prompt
	<CASE2?\n\0>
	.even
	mov	$"c2,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
4:
	jsr	r5,mesg			/print opening date prompt
	<OPENED?\n\0>
	.even
	mov	$"od,bline
	jsr	r5,screate
	tst	r0
	beq	4b
3:
	jsr	r5,mesg			/print deadline prompt
	<DEADLINE?\n\0>
	.even
	mov	$"dd,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if deadline not supplied
3:
	jsr	r5,mesg			/print deadline code prompt
	<DEADLINE CODE?\n\0>
	.even
	mov	$"dc,bline
	jsr	r5,screate
	tst	r0
	beq	3b
4:
	jsr	r5,mesg			/print attorney prompt
	<ATTNY?\n\0>
	.even
	mov	$"at,bline
	jsr	r5,screate
	tst	r0
	beq	4b
3:
	jsr	r5,mesg			/print supervisor prompt
	<SUPERVISOR?\n\0>
	.even
	mov	$"su,bline
	jsr 	r5,screate
	tst	r0
	beq	3b
3:
	jsr	r5,mesg			/print director prompt
	<DIRECTOR?\n\0>
	.even
	mov	$"di,bline
	jsr	r5,screate
	tst	r0
	beq	3b
3:
	jsr	r5,mesg			/print origin1 prompt
	<ORIGIN1?\n\0>
	.even
	mov	$"o1,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if origin1 not supplied
3:
	jsr	r5,mesg			/print origin2 prompt
	<ORIGIN2?\n\0>
	.even
	mov	$"o2,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if origin2 not supplied
3:
	jsr	r5,mesg			/print origin3 prompt
	<ORIGIN3?\n\0>
	.even
	mov	$"o3,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if origin3 not supplied
3:
	jsr	r5,mesg			/print origin4 prompt
	<ORIGIN4?\n\0>
	.even
	mov	$"o4,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
4:
	jsr	r5,mesg			/print author1 prompt
	<AUTHOR1?\n\0>
	.even
	mov	$"a1,bline
	jsr	r5,screate
	tst	r0
	beq	4b			/branch if error
	bgt	4f			/branch if author1 not supplied
3:
	jsr	r5,mesg			/print author2 prompt
	<AUTHOR2?\n\0>
	.even
	mov	$"a2,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if author2 not supplied
3:
	jsr	r5,mesg			/print author3 prompt
	<AUTHOR3?\n\0>
	.even
	mov	$"a3,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
	bgt	4f			/branch if author3 not supplied
3:
	jsr	r5,mesg			/print author4 prompt
	<AUTHOR4?\n\0>
	.even
	mov	$"a4,bline
	jsr	r5,screate
	tst	r0
	beq	3b			/branch if error
4:
	jsr	r5,mesg
	<\nCREATION COMPLETED\n\0>
	.even
9:
	rts	r5			/return
	.even
/"screate" subroutine does repetitive things required during
/creation of each job record field
/
screate:
	clrb	eflag
	movb	$'/,bline+2
	mov	$bline+3,r0
	jsr	r5,readline
	cmp	no.chars,$1
	bne	0f
	mov	$1,r0
	br	9f
0:
	movb	$1,lflag
	jsr	r5,interpreter
	tstb	eflag
	bne	0f
	movb	$1,cflag		/record has changed
	mov	$-1,r0
	br	9f
0:
	clr	r0			/r0 = 0 indicates error
	jsr	r5,mesg
	<3INPUT ERROR4\n\0>
	.even
9:
	rts	r5			/return
