Task

Write two equal-sized numerical arrays 'x' and 'y' to
a two-column text file named 'filename'.

The first column of the file contains values from an 'x'-array with a
given 'xprecision', the second -- values from 'y'-array with 'yprecision'.

For example, considering:

   x = {1, 2, 3, 1e11};
   y = {1, 1.4142135623730951, 1.7320508075688772, 316227.76601683791}; 
                                                          /* sqrt(x) */
   xprecision = 3;
   yprecision = 5;

The file should look like:

   1    1
   2    1.4142
   3    1.7321
   1e+011   3.1623e+005

This task is intended as a subtask for Measure relative performance of sorting algorithms implementations.




      DIM x(3), y(3)
      x() = 1, 2, 3, 1E11
      FOR i% = 0 TO 3
        y(i%) = SQR(x(i%))
      NEXT
 
      xprecision = 3
      yprecision = 5
 
      outfile% = OPENOUT("filename.txt")
      IF outfile%=0 ERROR 100, "Could not create file"
 
      FOR i% = 0 TO 3
        @% = &1000000 + (xprecision << 8)
        a$ = STR$(x(i%)) + CHR$(9)
        @% = &1000000 + (yprecision << 8)
        a$ += STR$(y(i%))
        PRINT #outfile%, a$ : BPUT #outfile%, 10
      NEXT
 
      CLOSE #outfile%