DEFINITION MODULE mtest; FROM Strings IMPORT String; FROM SYSTEM IMPORT ADDRESS; PROCEDURE ConvertChar(ch:CHAR):INTEGER; PROCEDURE HexChar(i:INTEGER):CHAR; PROCEDURE Convert(s:String):ADDRESS; PROCEDURE WriteHex(c:CARDINAL;VAR string1,string2:String); PROCEDURE DoRandom(start,end:ADDRESS; errorlimit:INTEGER; save,dowrite,message:BOOLEAN); PROCEDURE DoLinear(start,end:ADDRESS; errorlimit:INTEGER; save,dowrite,message:BOOLEAN); PROCEDURE DoBits(start,end:ADDRESS; errorlimit:INTEGER; save,dowrite,message:BOOLEAN); END mtest.