; Get the day of the week example by Prof.;Graphics 320,240,0,2SetBuffer BackBuffer()dday$=Input$("What day were you born? ")mmonth$=Input$("What month were you born? ")yyear$=Input$("What year were you born? ")ClsDay$=GetDayOfTheWeek(dday$,mmonth$,yyear$) ; <- Put any date in hereText 10,10,Day$FlipWaitKey()EndFunction GetDayOfTheWeek$(day,month,year) ; Returns the day of the week. ; day, month & year are integers i.e. 15 04 2004 a=(14-month)/12 y=year-a m=month+(12*a)-2 d=(day+y+(y/4)-(y/100)+(y/400)+((31*m)/12))Mod 7 ;Ooouch! Select d Case 0:Weekday$="Sunday - bonny and blithe, and good and gay" Case 1:Weekday$="Monday - Fair of face" Case 2:Weekday$="Tuesday - Full of grace" Case 3:Weekday$="Wednesday - Full of woe" Case 4:Weekday$="Thursday - Far to go" Case 5:Weekday$="Friday - Loving and giving" Case 6:Weekday$="Saturday - Work for a living" Default:Weekday="" End Select Return Weekday$End Function