	"MerJeuVenSamDimLunMar"Str1
	"CaprVersPoisBeliTaurGemeCancLionVierBalaScorSagi"Str2
	"JanvFvrMarsAvriMai JuinJuilAotSeptOctoNoveDce"Str4
Lbl 0
	Menu("      Date      ","Entrer date 1",20,"Entrer date 2",30,"Voir dates",10,"Vendredis 13",40,"Biorythmes",50,"Fin",60)
Lbl 10
	ClrHome:1L:LL
Lbl 11
	Output(L,1,"-----Date  -----"):Output(L,11,(L+2)/3)
	L(4)S:Output(L+1,2,sub(Str1,1+3S,3))
	Output(L+1,6,L(1)):Output(L+1,9,L(2)):Output(L+1,12,L(3))
	L(5)Z:"Signe "+sub(Str2,4Z-3,4)Str3:Output(L+2,4,Str3)
	If L=1:Then
		4L:LL:Goto 11:End
	Output(7,1,"-----Ecart------")
	Output(8,11,"jours"):Output(8,2,abs(L(6)-L(6)))
	Pause 
	Goto 0
Lbl 20:1D:Goto 31
Lbl 30:2D
Lbl 31:ClrHome
	Input "Jour :",J
	If J0:Then
		Input "Mois :",M
		Input "Anne:",A
	Else
		getDateL:L(1)A:L(2)M:L(3)J
	End
	If M2
	Then:0X:A-1Z
	Else:iPart(.4M+2.3)X:AZ:End
	365A+31(M-1)+J+iPart(Z/4)-XF
	round(7*fPart((F-578191)/7),0)S
	100M+JZ
	If Z<121:Then:1Z:Goto 1:End
	If Z<220:Then:2Z:Goto 1:End
	If Z<321:Then:3Z:Goto 1:End
	If Z<420:Then:4Z:Goto 1:End
	If Z<521:Then:5Z:Goto 1:End
	If Z<622:Then:6Z:Goto 1:End
	If Z<723:Then:7Z:Goto 1:End
	If Z<823:Then:8Z:Goto 1:End
	If Z<923:Then:9Z:Goto 1:End
	If Z<1024:Then:10Z:Goto 1:End
	If Z<1123:Then:11Z:Goto 1:End
	If Z<1222:Then:12Z:Goto 1:End
	1Z
Lbl 1
	{J,M,A,S,Z,F}L
	If D=1:Then:LL:Else:LL:End
	Goto 0
Lbl 40
	ClrHome
	Disp "Les vendredis 13"
	Input "de l'anne:",A
	13J:Disp " "
	For(M,1,12)
		If M2
		Then:0X:A-1Z
		Else:iPart(.4M+2.3)X:AZ:End
		365A+31(M-1)+J+iPart(Z/4)-XF
		round(7*fPart((F-578191)/7),0)S
		If S=2:Disp "Vendredi 13 "+sub(Str4,4M-3,4)
	End
	Pause :Goto 0
Lbl 50
	GraphStyle(1,7)
	GraphStyle(2,1)
	GraphStyle(3,2)
	2*cos(1)P
	1.1Ymin:1.96Ymax:.25Yscl
	7Xmin:7Xmax:1Xscl:2Xres
	ClrDraw
	abs(L(6)-L(6))F
	fPart(F/23)*PA:P/23M
	"sin(MX+A)"Y
	fPart(F/28)*PB:P/28N
	"sin(NX+B)"Y
	fPart(F/33)*PC:P/33O
	"sin(OX+C)"Y
	DispGraph:100D:"%"Str0
	Text(0,30,"Physique  ",iPart(Dsin(A)),Str0)
	Text(6,30,"Emotions  ",iPart(Dsin(B)),Str0)
	Text(12,30,"Intellect  ",iPart(Dsin(C)),Str0)
	Text(42,0,"7 jours"):Text(42,67,"+7 jours")
	Pause :Goto 0
Lbl 60:ClrHome:Stop