(******************************************************************************
*                                1       .MOD                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose :                                                                   *
*                                                                             *
*                                                                             *
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*                                                                             *
*                                                                             *
*                                                                             *
*                                                                             *
*                                                                             *
*                                                                             *
*                                                                             *
*                                                                             *
*         Version Date : 23 Feb 1989                                          *
*                                                                             *
******************************************************************************)

MODULE ;

IMPORT ;
FROM  IMPORT ;

CONST

TYPE

VAR


BEGIN
	initprog;
	getinput;
	doinput;
	WHILE again DO
		getinput;
		doinput;
	END;
	closeprog;
END .