; v1.11
;
; Changes password for a remote user...
;
	.Z80
	ASEG
	ORG	100H
;
	JP	START
;
VER::	DB	1
VERR::	DB	11
;
	INCLUDE	EMXHDR.MAC
;
	INCLUDE	GETTIM.MAC
;
START::	LD	A,(SYSDRV)
	LD	E,A
	LD	C,LOGDRV
	CALL	BDOS		; Log to system
	LD	A,(SYSUSR)
	LD	E,A
	LD	C,LOGUSR
	CALL	BDOS		; Log to system
	CALL	READ
;
MENU::	CALL	PRINT
	DB	CR,LF
	DB	'PASSCHG - v',0
	LD	HL,(VER)
	CALL	PVER
	JP	PASS
;.....
;
READ::
	LD	HL,USERS
	CALL	OPEN
	LD	HL,(USREC)
	PUSH	HL
	LD	HL,USRLEN
	LD	(RRSZ),HL
	POP	HL
	CALL	GET
	RET
;
WRITE::	LD	HL,(RRNO)
	CALL	PUT
	CALL	PRINT
	DB	CR,LF,LF
	DB	'Done....'
	DB	CR,LF,0
;
EXIT::	CALL	CLOSE
	XOR	A
	LD	(4),A
	LD	E,A
	LD	C,LOGDRV
	CALL	BDOS
	XOR	A
	LD	E,A
	LD	C,LOGUSR
	CALL	BDOS
;
	JP	0000H		; Reboot
;
PASS::	CALL	PRINT
	DB	CR,LF,LF
	DB	'Password now: ',0
	LD	HL,PSWORDF
	LD	B,10
	CALL	PRINTL
	CALL	PRINT
	DB	CR,LF
	DB	'New password (return to exit)? ',0
	LD	A,0
	LD	D,A
	LD	C,20H
	LD	B,10
	CALL	INPUT
	OR	A
	JP	Z,WRITE
	CP	6
	JP	C,ERR
	LD	HL,INBUF
	LD	DE,PSWORDF
	LD	BC,10
	LDIR
	JP	PASS
;
ERR::	CALL	PRINT
	DB	CR,LF,BEL
	DB	'Must be at least 6 characters...',0
	JP	PASS
;
	END