PureBasic

Code : Tout sélectionner

Global  MOIS.i, jour.i, heure.i, minutes.i, secondes.i, jsem.i, mbp.i,oldParallaxe.i, <= ERREUR ???
        centrey.d,centrex.d,derx.d,dery.d,
        ls.d,ll.d,lu.d,
        T.d, T0.d

Code : Tout sélectionner

Global  MOIS.i, jour.i, heure.i, minutes.i, secondes.i, jsem.i, mbp.i,oldParallaxe.i,
        centrey.d,centrex.d,derx.d,dery.d,
        ls.d,ll.d,lu.d,
        T.d, T0.d

Code : Tout sélectionner

Global MOIS.i, jour.i, heure.i, minutes.i, secondes.i, jsem.i, mbp.i,oldParallaxe.i
Global centrey.d,centrex.d,derx.d,dery.d, ls.d,ll.d,lu.d, T.d, T0.d

Code : Tout sélectionner

   "27° Gémeaux "  +Chr(10)+
       "        « Grande étendue de terre, bien cultivée.» "  +Chr(10)+
       "        Esprit large, ouvert et gai, au corps sain, appréciant vivement les beautés de la nature; épris "  +Chr(10)+
       "        d'occupations rustiques, vie réussie, grande famille, beaucoup d'amis; existence davantage "  +Chr(10)+
       "        physique qu'intellectuelle ou spirituelle, bien que les reflets de ces préoccupations soient "  +Chr(10)+
       "        apparents et le portent au bien.  ",
       "28° Gémeaux "  +Chr(10)+
       "        « Ciel sombre plein de nuages chassés par le vent; un vol de merles.» "  +Chr(10)+
       "        Caractère pessimiste, abandonne de nombreux projets par manque de confiance ou de "  +Chr(10)+
       "        persévérance. Le cerveau est rempli d'une succession infinie d'idées et plans mais il est "  +Chr(10)+
       "        constamment entouré de doute et de défiance. Caractère faible, facilement dérouté, prolixe et "  +Chr(10)+
       "        versatile, dépourvu de continuité. On aura beaucoup de rêves : aucun ne se réalisera. Pour cette "  +Chr(10)+
       "        raison, on manquera de confiance en soi et dans ses espérances. ",
       "29° Gémeaux "  +Chr(10)+
       "        « Un loup qui suit un mouton le long d'un sentier écarté.» "  +Chr(10)+
       "        Caractère rusé, capable d'intrigues et de tromperies; on ne fera une association qu'en vue d'un "  +Chr(10)+
       "        accaparement ultérieur. On vit sur le bonheur des autres, avec un grand pouvoir de persuasion "  +Chr(10)+
       "        qui ne mérite aucune confiance. "
cancer:
Data.s "0° Cancer "+Chr(10)+ 																	; <= blocage ici !!
       "        « Une vigne avec beaucoup de fruits pend au soleil, sur un vieux mur, un jour d'été.» "  +Chr(10)+
       "        Tendres sympathies et forts attachements, capacité à se dévouer entièrement à celui qu'on "  +Chr(10)+
       "        aime; caractère fécond en bonnes actions, de dispositions heureuses et satisfaites, qui sait "  +Chr(10)+
       "        apprécier les bonnes choses de la vie et les utiliser avec sagesse. On fera un bon mariage, l'on "  +Chr(10)+
       "        demeurera souvent et longtemps au même lieu, uni par de forts liens avec son pays et sa "  +Chr(10)+
       "        famille.  ",
       "1° Cancer "  +Chr(10)+
       "        « Un chien debout sur un os dépouillé; en face de lui, deux chiens à moitié morts de faim.» "  +Chr(10)+
       "        Caractère très égoïste et jaloux, inutile à ses amis, écornifleur. Le caractère est indolent, son "  +Chr(10)+
       "        manque d'énergie est suppléé par la finesse et la subtilité, aussi trouve-t-on toujours les "  +Chr(10)+
       "        moyens de vivre mais on achète son confort au moindre prix et l'on est souvent une espèce de "  +Chr(10)+
       "        mendiant respectable.  ",
       "2° Cancer "  +Chr(10)+
       "        « Une femme assise dans une attitude éplorée, les vêtements en désordre, les cheveux "  +Chr(10)+
       "        dépeignés, tenant à la main plusieurs fleurs fanées parmi lesquelles lis et roses.» "  +Chr(10)+
       "        Inclinations fatales aux passions fortes, existence sujette à l'influence du sexe opposé et, si "  +Chr(10)+
       "        l'on est extrêmement prudent dans ses relations, on s'attirera des ennuis pouvant aller jusqu'à "  +Chr(10)+
       "        la honte; quelqu'un de faible volonté et forts sentiments, capable de dominer la raison et "  +Chr(10)+
       "        l'expérience.  ",

Code : Tout sélectionner

Restore belier:  
For i=0 To 29
  Read.s Volasfera(i);
Next i

Restore taureau: 
For i=30 To 59
  Read.s Volasfera(i);
Next i

Restore gemeaux: 
For i=60 To 89
  Read.s Volasfera(i);
Next i

Restore cancer: 
For i=90 To 119
  Read.s Volasfera(i);
Next i

Restore lion: 
For i=120 To 149
  Read.s Volasfera(i);
Next i

Restore vierge: 
For i=150 To 179
  Read.s Volasfera(i);
Next i

Restore balance: 
For i=180 To 209
  Read.s Volasfera(i);
Next i

Restore scorpion: 
For i=210 To 239
  Read.s Volasfera(i);
Next i

Restore sagittaire: 
For i=240 To 269
  Read.s Volasfera(i);
Next i

Restore capricorne: 
For i=270 To 299
   Read.s Volasfera(i);
Next i


Restore verseau: 
For i=300 To 329
  Read.s Volasfera(i);
Next i

Restore poissons: 
For i=330 To 359
  Read.s Volasfera(i);
Next i