Compiler code for pascal10