// PROGRAM single_column
// 一列にデータを格納する

#include "TrueBASIC.h"
int main();

int main()
{
    double i, x, y;
    char file[_LBUFF_], Stmp1_[_LBUFF_];
    FILE *FP1_;
    FILE *FP2_;

    printf("name of file for data? ");
    fgets(Stmp1_, _LBUFF_, stdin);
    sscanf(Stmp1_, "%[^\n]", file);
    FP1_ = fopen(file, "w");
    for(i = 1; i <= 4; ++i)
    {
        x = i*i;
        fprintf(FP1_, "%f\n", x);           // データの列を出力
    }
    fclose(FP1_);
    FP2_ = fopen(file, "r");
    for(i = 1; i <= 4; ++i)
    {
        fgets(Stmp1_, _LBUFF_, FP2_);
        sscanf(Stmp1_, "%lg", &y);          // データの列の入力
        printf("%f\n", y);
    }
    // プログラム終了時にファイルは自動的にクローズされる
    fclose(FP2_);                           // 必須ではないが入れておく習慣を付けるとよい

    return 0;
}