// PROGRAM tasks
// サブルーチンの使用例 

#include "TrueBASIC.h"
int main();
void initial(double *x, double *y);
void add(double x, double y, double *sum);
void multiply(double x, double y, double *product);

int main()
{
    double product, sum, x, y;

    // 変数がどのように受け渡されるかに注目
    initial(&x, &y);                        // 変数の初期化
    add(x, y, &sum);                        // 2つの変数の和
    multiply(x, y, &product);
    printf("sum = %f    product = %f\n", sum, product);

    return 0;
}                                           // 主プログラムの終了

void initial(double *x, double *y)
{
    char Stmp1_[_LBUFF_];

    printf("? ");
    fgets(Stmp1_, _LBUFF_, stdin);
    sscanf(Stmp1_, "%lg", x);
    printf("? ");
    fgets(Stmp1_, _LBUFF_, stdin);
    sscanf(Stmp1_, "%lg", y);
}

void add(double x, double y, double *sum)
{
    (*sum) = x + y;
}

void multiply(double x, double y, double *product)
{
    (*product) = x*y;
}