
    /* EPC Imp to C Translation Release 4 Version Apr 95 */


#include "imptoc.h"

main() {
int i,j,p;
 
 selectoutput(0);
 
 i=1000;
 j=1006;
 
{
static unsigned char *fred;
static int fred_dim_1;
fred = (unsigned char *)malloc(((j)-(i)+1) * sizeof(unsigned char ) );
fred -= i;
for (fred_dim_1 = i; fred_dim_1 <= j; fred_dim_1++) {
/* Assign initialised elements if any */
}
{
static unsigned char fred_data[]  = {1,2,2,2,3,4};
int fred_inels = 0;
for (fred_dim_1 = i; fred_dim_1 <= j; fred_dim_1++) {
if (fred_inels == 6) break;
fred[fred_dim_1] = fred_data[fred_inels++];
}
}

 
 for (p=i; p<=j; p++) {
 fprintf(out_file, "%s", "fred(");
 fprintf(out_file, "%1d",p);
 fprintf(out_file, "%s", ") is ");
 fprintf(out_file, "%1d",fred [p]);
 fprintf(out_file, "%s", "\n");
}
}
exit(0);
}

/* end of automatic translation */

