# Average array values
average number[256] data, number count -> number:
   local number i; number sum; end;
   i = 0;
   sum = 0;
   while i < count;
       sum = sum + data[i];
       i = i + 1;
   end;
   return sum / count;
end;

# Read an array, return the size of the data read

readArray number[256] data -> number:
   local number c; number i; end; 
   [print "Count? "];
   c = [read];
   if c > 0;
       if c > 256;
           [ print "ERROR: Buffer overflow!\n"];
           return 0;
       else
           i = c;
           until i = 0;
               [print ">"];
               data[c - i] = [ read ];
               i = i - 1;
           end;
       end;
		
       return c;
   end;
	
   if c = 0;
       # do nothing
   else
       [ print "ERROR: Count is negative!\n"];
   end;
   return 0;
end;

start:
   local number c; number[256] d; end;
   c = [readArray d];
   if c > 0;
       [print "Average value: "];
       [write [average d,c]];
       [print "\n"];
   end;
end;