(******************************************************************************
*                                TEXT1   .DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose :TO provide simple text output AND retrival                         *
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*         Version Date : 12/6/91                                              *
******************************************************************************)
DEFINITION MODULE TEXT1;

PROCEDURE settext(x,y,c:CARDINAL  ) ;
PROCEDURE getname(x,y:INTEGER;s:ARRAY OF CHAR;VAR n :ARRAY OF CHAR );
PROCEDURE getreal(x,y:INTEGER;s:ARRAY OF CHAR;VAR r :REAL );
PROCEDURE getint(x,y:INTEGER;s:ARRAY OF CHAR;VAR i :INTEGER );

END TEXT1.