/****************************************************************/
/*	dexpno			12.01.1999 by A. Asano		*/
/****************************************************************/
/*	Short Description :					*/
/*	Program to change to a new experiment number.		*/
/****************************************************************/
/*	Keywords :						*/
/*	SREGLST							*/
/****************************************************************/
/*	Description/Usage :					*/
/*	Program to change to a new experiment number. The	*/
/*	target experiment number may be entered on the command	*/
/*	line, the default is the before experiment number.	*/
/****************************************************************/
/*	Author(s) :						*/
/*	Name		: Joost A. B. Lohman			*/
/*	Organisation	: Bruker Spectrospin ltd		*/
/*	Email		: j.lohman@bruker.co.uk			*/
/****************************************************************/
/*	Name		Date	Modification:			*/
/*	jab		920130	created				*/
/****************************************************************/
/*
$Id: iexpno,v 1.1.4.1 1998/05/29 16:05:29 eng Exp $
*/

GETCURDATA
if ( (i1 = atoi(cmd)) == 0 )
{
  DEXPNO
}
else
  expno = i1;
VIEWDATA
QUIT