* Passwd checking.
start	movem.l	a0-a6/d0-d7,-(a7)
	lea	dosname,a1
	move.l	4,a6
	jsr	-408(a6)	;open dos.library
	move.l	d0,a6
	move.l	#openname,d1
	move.l	#1005,d2
	jsr	-30(a6)		;open window
	tst.l	d0
	beq	openerr
	move.l	d0,d1
        move.l	d0,window
	move.l	#buffer,d2
	move.l	passwd_length,d3
	jsr	-42(a6)		;read passwd
	lea	passwd,a1
	lea	buffer,a2
	move.l	passwd_length,d0
check	move.b	(a1)+,d1
        bclr	#7,d1
	cmp.b	(a2)+,d1
	bne.s	falsepasswd
	dbf	d0,check
	bsr	closewindow
	movem.l	(a7)+,a0-a6/d0-d7
	rts
falsepasswd
	bsr	closewindow
openerr	moveq.l	#10,d1
	movem.l	(a7)+,a0-a6/d0-d7
	jsr	-144(a6)	;exit

closewindow
	move.l	window,d1
	jsr	-36(a6)
	rts
dosname	dc.b	'dos.library',0
openname
	dc.b	'CON:100/50/170/21/Enter Password',0
	even
window	dc.l	0
passwd	dc.b	'S'+$80,'e'+$80,'c'+$80,'r'+$80,'e'+$80,'t'+$80
	even
passwd_length
	dc.l	6
buffer	ds.b	80