DEFINITION MODULE DecBase;
(* 05.08.88/cn*)
FROM SYSTEM IMPORT BYTE,ADDRESS;
FROM M2File IMPORT FileType;

TYPE
 DecProc = PROC;
 ModKeys=ARRAY[0..2] OF CARDINAL;

PROCEDURE Do(Decode:DecProc; titleString, usage:ARRAY OF CHAR;
 fileType:FileType; msg,envName,locName:ADDRESS);

PROCEDURE Get(VAR v:ARRAY OF BYTE):BOOLEAN;
PROCEDURE GetPtr():ADDRESS;
PROCEDURE SetPtr(a:ADDRESS);

PROCEDURE OutC(c:CHAR);
PROCEDURE OutCard(c:LONGCARD);
PROCEDURE OutChar(c:CHAR);
PROCEDURE OutCondLn(last:INTEGER):BOOLEAN;
PROCEDURE OutHex(w:ARRAY OF BYTE);
PROCEDURE OutKey(k:ModKeys);
PROCEDURE OutInt(i:LONGINT);
PROCEDURE OutLn;
PROCEDURE OutLR(r:LONGREAL);
PROCEDURE OutS(s:ARRAY OF CHAR);

PROCEDURE WriteInFile(VAR fileName: ARRAY OF CHAR);
PROCEDURE Error(msg: ARRAY OF CHAR;rVal:LONGINT);

END DecBase.
