30 DIM j(12),s$(12):GOSUB 700:MODE 2:PAPER 1:PEN 0:LOCATE 1,14 50 INPUT "JOUR,MOIS,ANNEE DE NAISSANCE      ",J,M,A 60 IF A>1899 THEN A=A-1900 70 IF A<0 OR A>99 THEN 50 80 N=A*365+INT(ABS((A-1)/4)) 90 IF A/4=INT(A/4) AND A<>0 THEN J(2)=29 ELSE J(2)=28 100 FOR I=1 TO M-1:N=N+J(I):NEXT 110 N=N+J 200 FOR I=1 TO 101 210 S=S+1 220 READ P:C=C+T(P) 230 IF N<C THEN S=S-1:GOTO 260 240 NEXT 250 STOP 260 FOR I=I+1 TO 101:READ P:NEXT 270 E=S:S=S-INT(S/12)*12:E=E-INT(E/10)*10 280 IF S=0 THEN S=12 290 IF E=0 THEN E=10 400 CLS:PRINT:PRINT "                        ASTROLOGIE CHINOISE                                     ":PRINT:PRINT 410 PRINT"VOUS ETES DU SIGNE DU "S$(S)"" 420 PRINT 430 PRINT ""A+1900" EST UNE ANNEE  "E$(E)" "Y$(E)"":PRINT 450 PRINT"VOUS ETES DONC UN     " S$(S)" "E$(E)"":PRINT 470 PRINT"LE "S$(S)" EST:" 480 FOR I=1 TO (S-1)*10:READ A$:NEXT:PRINT:PRINT" * "; 500 FOR I=1 TO 5 510 READ A$:PRINT ""A$" * "; 520 NEXT 530 PRINT:PRINT:PRINT"MAIS AUSSI:":PRINT:PRINT" * "; 540 FOR I=1 TO 5 550 READ A$:PRINT ""A$" * "; 560 NEXT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT"                        APPUYEZ SUR UNE TOUCHE                                  " 570 A$=INKEY$:IF A$="" THEN 570 ELSE RUN 700 FOR I= 1 TO 12:READ J(I):NEXT 710 DATA 31,28,31,30,31,30,31,31,30,31,30,31 720 FOR I=1 TO 12:READ S$(I):NEXT 730 DATA RAT,BOEUF,TIGRE,CHAT,DRAGON,SERPENT,CHEVAL,BOUC,SINGE,COQ,CHIEN,COCHON 740 FOR I=1 TO 10 STEP 2:READ E$(I):E$(I+1)=E$(I):NEXT 750 DATA DE METAL,D'EAU,DE BOIS,DE FEU,DE TERRE 760 FOR I=1 TO 10:READ Y$(I):NEXT 770 DATA FROID,CHAUD,NATURELLE,VIVE,ALLUME,LATENT,ALLUME,LATENT,INCULTE,CULTIVEE 780 T(0)=353:T(1)=354:T(2)=355:T(3)=383:T(4)=384:T(5)=385:T(6)=31 790 RETURN 800 DATA 6,4,1,2,3,1,2,4,1,2,4,1 810 DATA 4,1,1,4,1,2,4,2,4,1,1,4 820 DATA 1,2,4,1,2,4,1,3,1,2,4,2 830 DATA 1,4,1,4,1,1,4,2,1,5,1,1 840 DATA 4,1,4,1,2,4,1,2,4,1,3,2 850 DATA 1,4,2,1,4,2,0,4,2,4,1,2 860 DATA 4,1,1,4,1,4,1,2,4,2,1,4 870 DATA 1,4,1,1,4,2,2,4,1,1,3,2 880 DATA 4,1,2,4,1 890 DATA ENERGIQUE,METICULEUX, SOCIABLE,HUMORISTE,SENTIMENTAL,AGITE,JOUEUR,INQUIET,ENNUYEUX,SOUPCONNEUX 910 DATA TRAVAILLEUR,FIER,ELOQUENT,ORIGINAL,TENACE,LENT,AUTORITAIRE,VINDICATIF,JALOUX,LOURDAUD 930 DATA GENEREUX,COURAGEUX,SENSIBLE,PROFOND,ACTIF,VANITEUX,QUERELLEUR,TEMERAIRE,EMPORTE,ENTETE 950 DATA DISCRET,RAFFINE,VERTUEUX,AMBITIEUX,INGENIEUX,PEDANT,SUSCEPTIBLE,DISTANT,SECRET,TORTUEUX 970 DATA SCRUPULEUX,PERSPICACE,CHANCEUX,AUTONOME,INFLUENT,INFLEXIBLE,EXIGEANT,IRRITABLE,INFATUE,INSATISFAIT 990 DATA SAGE,CULTIVE,INTUITIF,ELEGANT,PHILOSOPHE,PRESOMPTEUX,POSSESSIF,FLEGMATIQUE,EXTRAVAGANT,VOLAGE 1010 DATA AIMABLE,HABILE,INDEPENDANT,SENSUEL,ENJOUE,EGOISTE,FAIBLE,IMPATIENT,INSENSIBLE,IMPITOYABLE 1030 DATA CREATIF,INTELLIGENT,DOUX,SIMPLE,ALTRUISTE,CAPRICIEUX,INEXACT,INDISCRET,DEPENDANT,INDISCIPLINE 1050 DATA SPIRITUEL,SUBTIL,ADROIT,PASSIONNE,FASCINANT,RUSE,INFIDELE,MALHONNETE,VANITEUX,DISSIMULATEUR 1070 DATA FRANC,SINCERE,AMUSANT,ENTHOUSIASTE,AVENTUREUX,MANIAQUE,MEFIANT,DEPENSIER,VANTARD,ACERBE 1090 DATA LOYAL,ATTENTIF,LUCIDE,FIDELE,MODESTE,CRITIQUE,PESSIMISTE,MORALISATEUR,RESERVE,CYNIQUE 1110 DATA INDULGENT,CONSCIENCIEUX,DECISIF,PACIFIQUE,AIMANT,NAIF,CREDULE,ENTETE,DESARME,TERRE A TERRE