MODULE TBadUtf8Big; VAR ExitCode : INTEGER; VAR u : UCHAR; BEGIN u := U'�'; ExitCode := 0 END TBadUtf8Big.