Listing: 1 MODULE QBadExit; 2 VAR ExitCode : INTEGER; 3 BEGIN 4 ExitCode := 1; 5 EXIT ***** ^ qbe backend: construct not supported in scalar subset 6 END QBadExit. 1 error