' ' Day of week ' dim days(0 to 6), mons(1 to 12) for m=0 to 6 : read days(m) : next m for m=1 to 12 : read mons(m) : next m data "Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday" data "January","February","March","April","May","June","July","August","September","October","November","December" split date$,"/",v m=val(v(1)) d=val(v(0)) y=val(v(2)) ?"Today is "; goto 11 10 rem input "Date (M/D/Y)? ",ln$ if ln$=0 then stop split ln$,"/,",v if ubound(v)>1 then if len(v(2)) then y=val(v(2)) if ubound(v)>0 then if len(v(1)) then d=val(v(1)) if len(v(0)) then m=val(v(0)) 11 rem ?days((1461*(y+4800+(m-14)\12)\4+367*(m-2-12*((m-14)\12))\12-3*((y+4900+(m-14)\12)\100)\4+d)%7);", ";mons(m);" ";d;", ";y goto 10