MODULE TBadAsn;
VAR x : INTEGER; ExitCode : INTEGER;
BEGIN
  x := 3.14;
  ExitCode := 0
END TBadAsn.