10 DIM c$(12):FOR i=1 TO 3:READ t$(i):NEXT:FOR i=1 TO 12:READ c$(i):NEXT
20 GOTO 1000
110 MODE 2:PRINT"              A S T R O L O G I E      L U N A I R E":PRINT:PRINT:PRINT"Donnez votre date de naissance":PRINT
130 INPUT"JOUR    JJ: ";d
140 INPUT"MOIS    MM: ";m
160 INPUT"ANNEE AAAA: ";Y
170 IF M<3 THEN M=M+12:Y=Y-1
180 RETURN
210 T=INT(365.25*y)+INT(30.5*(m+1))+d-694038
220 t=t/36525
230 la=350.737486+1236*t*360
240 la=la+307*t+6*t/60
250 la=la+51.18*t/3600-5.17*t*t/3600
255 la=la-INT(la/360)*360
260 la=INT(la+0.5)
280 RETURN
310 PRINT:PRINT
320 PRINT"PHASE LUNAIRE ="LA" DEGRES"
325 GOSUB 360
330 PRINT:PRINT"appuyez sur une touche":CALL &BB18
350 RETURN
360 IF la<225 AND la>104 THEN t=1:IF la<113 THEN c=1 ELSE IF la<143 THEN c=2 ELSE IF la<173 THEN c=3 ELSE IF la <203 THEN c=4 ELSE c=5
370 IF la<345 AND la>224 THEN t=2:IF la<233 THEN c=5 ELSE IF la<263 THEN c=6 ELSE IF la<293 THEN c=7 ELSE IF la<323 THEN c=8 ELSE c=9
380 IF la>344 OR la<105 THEN t=3:IF la>344 THEN c=9 ELSE IF la<23 THEN c=10 ELSE IF la<53 THEN c=11 ELSE IF la<83 THEN c=12 ELSE c=1
390 PRINT:PRINT"Vous etes du type ":PRINT:PRINTt$(t):PRINT:PRINT"Et de la categorie des ":PRINT:PRINTc$(c):PRINT:RETURN
1000 GOSUB 110:GOSUB 210:GOSUB 310:GOTO 1000:END
1020 DATA SOCIALISTE - Il aime vivre en communaute - Les mots-cles qui le definissent le  mieux sont comparer - choisir et combiner - La cooperation est un facteur       dominant dans sa vie mais il connait aussi rivalite et envie
1030 DATA CONSERVATEUR - Il sait que la lumiere s'en va mais aussi qu'elle revient        - Il est prudent - sur de lui et aime tout controler
1040 DATA INDIVIDUALISTE - Il a de l'energie et aime travailler seul -  Est tres          volontaire et nullement decourage par l'inconfort physique
1050 DATA SECOURISTES - Qui assument des responsabilites que les autres ignorent          - Ils sont attentifs aux autres
1060 DATA CHEVALIERS - Qui sont des aventuriers intrepides toujours a la recherche de     nouveautes a explorer - Idealistes ils ont un solide sens de l'honneur
1070 DATA REVOLUTIONNAIRES - Qui ne se satisfont pas du monde tel qu'il est - Ils ont     tendance a voir le mauvais cote des choses et veulent transformer le monde
1080 DATA COORDINATEURS - Qui aiment la compagnie des autres mais se sentent 'plus        egaux' que leurs compagnons - ils sont romantiques et tres attaches a la        vie de famille
1090 DATA SPIRITUALISTES - Qui ont l'air de venir d'une autre planete - Philosophes ils   aiment propescter l'inconnu et l'etrange
1100 DATA APOTRES - Qui ne sont pas des createurs eux-memes mais diffusent les idees      d'autrui dans le monde
1110 DATA CHEFS - Qui prennent aussi des responsabilites mais c'est pour diriger la vie   et les actions d'autrui - Ils vont de l'avant la ou la majorite prefere se      tenir prudemment sur la reserve
1120 DATA ARBITRES - Qui aiment superviser les actions des autres - Ils ne prejugent pas  des resultats mais lorsqu'ils ont pris enu decision ils entendent la faire      respecter
1130 DATA PROPHETES - Qui contemplent le monde d'en haut apportant la sagesse du passe    - Ils ne sont bien sur pas toujours ecoutes
1140 DATA PIONNIERS - Qui sont des chercheurs toujours a l'avant-garde - La conviction    qu'ils mettent a atteindre leur but peut les faire paraitre bornes
1150 DATA REALISTES - Qui ont une perception du monde tres terre a terre - Ils se plaisenta penser que tout peut s'expliquer en termes purement physiques
1160 DATA ARTISTES - Qui transforment la matiere de facon creative - ils creent des       objets d'art - de nouveaux produits et d'une facon generale sont des innovateurs