Ça ne sert absolument à rien, sauf à perdre son temps !

rem ============================================================================
'     Calcul du nombre d'atomes que contient notre univers
rem ============================================================================
dim Masse_Etoile : Masse_Etoile = 2*power(10,33) : ' Masse en grammes d'une étoile moyenne
dim Nb_Atomes_Gramme  : Nb_Atomes_Gramme  = .5 * power(10,24) : ' Nombre d'atomes contenus dans un un gramme de matière
Dim Nb_Atomes_Etoile  : Nb_Atomes_Etoile  = Masse_Etoile * Nb_Atomes_Gramme : ' Nombre d'atomes dans une étoile
dim Nb_Etoile_galaxie : Nb_Etoile_Galaxie = power(10,11) : ' notre galaxie contient environ 100 milliards d'étoiles
dim Nb_Atomes_Galaxie : Nb_atomes_galaxie = Nb_Etoile_Galaxie * Nb_Atomes_Etoile : ' Nombre d'atomes dans notre galaxie
dim Nb_Galaxies : Nb_Galaxies = power(10,12) : ' Notre univers contient environ un milier de milliards de galaxies
dim Nb_Total_Atomes : Nb_Total_Atomes = Nb_Galaxies * Nb_Atomes_Galaxie
dim t$
application_title  "Calcul concernant Notre Univers dans sa partie accessible à nos yeux"
hide 0
t$ = "Masse (en grammes) d'une étoile moyenne (comme notre Soleil) : " + str$(Masse_Etoile) + chr$(13)
t$ = t$ + "Nombre d'atomes contenus dans un gramme de matière : " + str$(Nb_Atomes_Gramme) + chr$(13)
t$ = t$ + "Nombre d'atomes dans une étoile : " + str$(Nb_Atomes_Etoile) + chr$(13)
t$ = t$ + "Nombre d'étoiles dans notre Galaxie : " + str$(Nb_Etoile_Galaxie) + chr$(13)
t$ = t$ + "Nombre d'atomes dans notre galaxie : " + str$(Nb_Atomes_Galaxie) + chr$(13)
t$ = t$ + "Nombre de galaxies dans notre Univers : " + str$(Nb_Galaxies) + chr$(13)
t$ = t$ + "=====================================================================" + chr$(13)
t$ = t$ + " Le nombre total estimé d'atomes dans notre Univers"
t$ = t$ + chr$(13) +"(dans sa partie accessible à nos yeux) est : "
t$ = t$ + str$(Nb_Total_Atomes) + " atomes"
t$ = t$ + chr$(13) + "Ce nombre est réellement gigantesque !!" + chr$(13)+chr$(13)
t$ = t$ + "Bien que les mathématiques puissent parler des nombres dont l'exposant dépassent" + chr$(13)
t$ = t$ + "plusieurs milliards de chiffres, de tels nombres sont dénués de sens physique!" +chr$(13)
t$ = t$ + str$(Nb_Total_Atomes) + " atomes dans notre Univers est incontestablement GIGANTESQUE !!!"
message t$
terminate
rem ===========================================================================