- fread(memory, sizeof(WORD), memsize, fp);
+ progprop->end = progprop->start +
+ fread(memory, sizeof(WORD), memsize-progprop->start, fp);
+ if(progprop->end == memsize) {
+ setcerr(201, NULL); /* Load object file - full of COMET II memory */
+ fprintf(stderr, "Execute error - %d: %s\n", cerr->num, cerr->msg);
+ status = false;
+ }