function killaccount(accountno)

% Tar bort konto nr accountnr ur REG om ett sådant finns

global REG

accountno = accountno(1);

if ~isnumeric(accountno)
	error('Kontonumret är ej ett tal.');
elseif mod(accountno,1)
	error('Kontonumret är ej ett heltal.');
elseif accountno<1||accountno>REG.maxaccount
	error(['Kontonumret ligger ej mellan 1 och '...
		num2str(REG.maxaccount), '.']);
end
recno = regfind(accountno);
if recno==-1
	error(['Det finns inget konto med nummer '...
		num2str(accountno)]);
else
	disp('Ska följande konto dödas?');
	fn = fieldnames(REG.account);
	for index = 1:numel(REG.account)
		disp([fn{index} ': ' ...
			getfield(REG.account(recno),fn{index})]);
	end
	answer = input('Svara ''J'' för ja: ','s');
	if upper(answer)~='J'
		disp('Kontot tas ej bort.');
	else
		REG.account = REG.account([1:recno-1 recno+1:end]);
		disp('Kontot är dödat.');
	end
end

