which day of the week

[eoredson]

You are correct. I think the weekdays in m$ and m2$ are off by a char. Try this instead:

Code: (Select All)

Rem determine day of week.

_ScreenMove _Middle

m1$ = "Sunday   Monday   Tuesday  WednesdayThursday Friday   Saturday "

m2$ = "Friday   Saturday Sunday   Monday   Tuesday  WednesdayThursday "

Do

  Print "Enter Month,Day,Year";: Input m%, d%, y%

  If m% = 0 And d% = 0 And y% = 0 Then End

  If m% < 3 Then m% = m% + 12: y% = y% - 1

  W% = ((13 * m% + 3) \ 5 + d% + y% + y% \ 4 - y% \ 100 + y% \ 400 + 1) Mod 7

  If y% < 1582 Or (y% = 1582 And m% <= 10 And d% <= 4) Then

      Print "Weekday is on: "; Mid$(m2$, 9 * W% + 1, 9)

  Else

      Print "Weekday is on: "; Mid$(m1$, 9 * W% + 1, 9)

  End If

Loop

End