// PROGRAM print

#include "TrueBASIC.h"
int main();
void initial(FILE **FP1_, double *x);
void add(double *x);
void output(FILE *FP1_, double x);

int main()
{
    double x;
    FILE *FP1_;

    initial(&FP1_, &x);
    add(&x);
    output(FP1_, x);

    return 0;
}

void initial(FILE **FP1_, double *x)
{
    (*FP1_) = fopen("prn", "w");
    (*x) = 150;
}

void add(double *x)
{
    (*x) += 200;
}

void output(FILE *FP1_, double x)
{
    fprintf(FP1_, "%f\n", x);
}