/*
  Example 3: acquiring data for use with another program,
             such as Lotus 1-2-3(tm), or a database manager.
*/
#include <ieee-c.h>
#include <stdio.h>

main ()
{
    FILE *datafile;
    int l,i;
    char r[80];

    initialize (21,0);

    datafile = fopen ("DATAFILE.PRN","w");

    for (i=0;i<100;i++)
    {
        enter (r,80,&l,16,&status);     /* read a value */
        fprintf (datafile,"%s\n",r);    /* store in the file */
    }

    fclose (datafile);
/*
 The data is now in the disk file.
 For Lotus 1-2-3, use the /File Import Numbers command to read the data. 
 For a database manager, use the appropriate import ASCII data command.
*/
}