/*--------------------------------------------------------------------------*
 * SOURCE C                                                                 *
 *                                                                          *
 *                        SYSTEME_SOLAIRE_POIDS  SSP  V1.0                  *
 *                        ~~~~~~~~~~~~~~~~~~~~~  ~~~  ~~~~                  *
 *                                                                          *
 *                        AUTEUR     S.M.                                   *
 *                        ~~~~~~     7 Rue des Archers                      *
 *                                   B-7000 MONS  ( BELGIQUE )              *
 *--------------------------------------------------------------------------*/

/*--------------------------------------------------------------------------*/

#include <stdio.h>

/*--------------------------------------------------------------------------*/

#ifdef  AMIGA
#define PRINTER "PRT:"
#endif
#ifndef AMIGA
#define PRINTER "LPT1"
#endif

#define WR(str) fwrite(str,strlen(str),1,stdout)

/*--------------------------------------------------------------------------*/
char   Nom[128] , *PtrNom = Nom , res;
double PoidsSoleil,PoidsMercure,PoidsVenus,PoidsTerre,PoidsLune;
double PoidsMars,PoidsJupiter,PoidsSaturne,PoidsUranus,PoidsNeptune;
FILE   *Output = NULL;
/*--------------------------------------------------------------------------*/

void main(void)
{
  WR("\n\n"\
     "\t=================================================================\n"\
     "\t==              TON POIDS DANS LE SYSTEME SOLAIRE              ==\n"\
     "\t=================================================================\n"\
     "\n");

  WR("\n");
  WR("Ton prénom ? ");
  gets(PtrNom);
  WR("\n");
  WR("Ton poids sur terre ? (EN GRAMMES !) ");
  scanf("%lg",&PoidsTerre);

  do
  {
    WR("\n");
    WR("Résultat sur (I)mprimante ou (E)cran ? ");
    scanf("%s",&res);
  }
  while(res != 'I' & res != 'i' & res != 'E' & res != 'e');

  PoidsSoleil  = (double) (189656 * PoidsTerre ) / 6770000;
  PoidsMercure = (double) (1924   * PoidsTerre ) / 6770000;
  PoidsVenus   = (double) (5952   * PoidsTerre ) / 6770000;
  PoidsLune    = (double) (1121   * PoidsTerre ) / 6770000;
  PoidsMars    = (double) (2575   * PoidsTerre ) / 6770000;
  PoidsJupiter = (double) (15838  * PoidsTerre ) / 6770000;
  PoidsSaturne = (double) (6264   * PoidsTerre ) / 6770000;
  PoidsUranus  = (double) (5378   * PoidsTerre ) / 6770000;
  PoidsNeptune = (double) (7614   * PoidsTerre ) / 6770000;

  if (res == 'e' | res == 'E' )
  {
    Output = stdout;
  }
  else
  {
    WR("\n\n\t\tUn instant : impression en cours sur IMPRIMANTE...\n\n");
    Output = fopen(PRINTER,"wb");
  }

  if (Output)
  {
    fprintf(Output,"\n\n"\
    "\t=================================================================\n"\
    "\t==              TON POIDS DANS LE SYSTEME SOLAIRE              ==\n"\
    "\t=================================================================\n"\
    "\n");
    fprintf(Output,""\
         "  Bienvenue , %s\n\n"\
         "  Voici ton poids sur :\n\n\n"\
         "  - Le Soleil     :  %8.2lf kg    |"\
         "  - Mercure       :  %8.2lf kg\n"\
         "                                    |\n"\
         "  - Venus         :  %8.2lf kg    |"\
         "  - La Terre      :  %8.2lf kg\n"\
         "                                    |\n"\
         "  - La Lune       :  %8.2lf kg    |"\
         "  - Mars          :  %8.2lf kg\n"\
         "                                    |\n"\
         "  - Jupiter       :  %8.2lf kg    |"\
         "  - Saturne       :  %8.2lf kg\n"\
         "                                    |\n"\
         "  - Uranus        :  %8.2lf kg    |"\
         "  - Neptune       :  %8.2lf kg\n\n"\
      ,PtrNom,PoidsSoleil,PoidsMercure,PoidsVenus,PoidsTerre/1000,PoidsLune\
      ,PoidsMars,PoidsJupiter,PoidsSaturne,PoidsUranus,PoidsNeptune);
    fprintf(Output,"  Au revoir ...\n\n");
    if (res == 'i' | res == 'I' )
      fclose(Output);
  }
}
/*--------------------------------------------------------------------------*/