disable_sekuhara
{

	FCHARSET('Shift_JIS')

	FOPEN('satori_savedata.txt','r')
	_arr = IARRAY()

	while 1 {
		_txt = FREAD('satori_savedata.txt')
		if _txt == -1 {
			break
		}
		_arr ,= _txt
	}

	FCLOSE('satori_savedata.txt')

	_n = ARRAYSIZE(_arr)

	for _i = 0 ; _i < _n ; _i++ {
		if '＄セクハラ回数' _in_ _arr[_i] {
			_arr[_i] = '＄セクハラ回数' + CHR(11) + '０'
		}
	}

	FOPEN('satori_savedata.txt','w')

	for _i = 0 ; _i < _n ; _i++ {
		FWRITE('satori_savedata.txt',_arr[_i])
	}

	FCLOSE('satori_savedata.txt')

}