/*
		Process a user whose password has expired
		-----------------------------------------
*/

#version        $50
#reserve        6
#copyright      "Expired.cmd      Written By Stephen J. Carden Copyright 1995 K-Products"
#address        $7000

#include        runtime.h
#include        bbs_pro.h



/*              layout of record for editing purposes   */
/*              -------------------------------------   */



main()
{
	apply_mask_3();
	helpfile ("EXPIRED");
	cr_lf();
	echos ("Press any key to continue...");
	get_key();
	cr_lf();
}




apply_mask_3 ()
{
	read_user_record ( 3 );
	u_tlcall  = t_tlcall;
	u_tlday   = t_tlday;
	u_dlratio = t_dlratio;
#asm {
		ldy     #0
.app:   lda     t_seclvl,y
	sta     u_seclvl,y
	iny
	cpy     #36
	bne     .app
	}
}




read_user_record ( int recno )
{
	byte error_occurred;
	if ( ck_range ( recno ) != OK ) {
		echose("Error reading userlog!");
		reset_bbs();
	}
	MIOsuspend();
	close_ulog();
	error_occurred = 1;                                                             /* assume error */
	if ( open_ulog() == OK )
		if ( read_user ( recno ) == OK )
			error_occurred = 0;                                             /* it worked OK */
	close_ulog ();
	MIOresume();
	if ( error_occurred ) {
		echose("Error reading userlog!");
		reset_bbs();
    }
}