Graphics 640,480,16,2
SetBuffer BackBuffer()

.wh

Print \"Bitte gebe das Datum im Format TT.MM.JJJJ ein! Danke\"
Datum$ = Input(\"Datum: \")

dot1 = Instr(Datum$,\".\")
dot2 = Instr(Datum$,\".\",dot1+1)
t  = Mid$(Datum$,1,dot1-1)
m  = Mid$(Datum$,dot1+1,dot2-1)
jh = Mid$(Datum$,dot2+1,-1)

j = jh Mod 100
jh = Int ( jh / 100 ) 


If m < 3 Then 
	m = m + 12 
	If j = 0 Then 
		j = 99
		If jh = 0 Then jh = 0 Else jh = jh - 1 
	Else
		j = j - 1 
	EndIf 
EndIf 	


wt = t + Int((m + 1) * 26 / 10 )
wt = wt + Int(5 * j / 4) + Int( jh / 4 )
wt = wt - ( 2 * Jh ) - 1 
wt = wt Mod 7

;If wt < 1 Then wt = wt + 7
 
Select wt 

	Case 0
		Print \"Der \" + Datum$ + \" ist ein Sonntag\"
	Case 1
		Print \"Der \" + Datum$ + \" ist ein Montag\"
	Case 2
		Print \"Der \" + Datum$ + \" ist ein Dienstag\"
	Case 3
		Print \"Der \" + Datum$ + \" ist ein Mittwoch\"
	Case 4 
		Print \"Der \" + Datum$ + \" ist ein Donnerstag\"
	Case 5
		Print \"Der \" + Datum$ + \" ist ein Freitag\"
	Case 6
		Print \"Der \" + Datum$ + \" ist ein Samstag\"
	Default 
		Print wt
End Select 

Print \"Nochmal? Drück die 1 \"
Print 
Print 
Print

FlushKeys 

While Not KeyHit(1) 
If KeyHit(2) Then FlushKeys : Goto wh
Wend 
End