%@@!@@ +  DAY OF THE WEEK - REQUEST USER INPUT$$ (ENTER 0,0,0 TO END PROGRAM)( MONTH,DAY,YEAR2 ;- TEST FOR END OF PROGRAM<AFAPAZ A`c--- NEED TO ADJUST INPUT FOR CALCULATONS?d!@A0m- ADJUST INPUTn6-%@x6-&@- CALCULATE DAY NUMBER[[6-%@$%P:?`$+%@,,%%P:'@,&P:'A,%P:'A,%@336-P:+'@&P:'@,,$@%?P,88- FIND CORRECT DAY NUMBER, TRANSLATE TO DAY, PRINT!A SATURDAY A@!@A SUNDAY A@!@A@ MONDAY A@!@Ap TUESDAY A@!@A  WEDNESDAY" A@,!@A06 THURSDAY@ A@J FRIDAYT ]- RESTART PROGRAM^ @@h D:DAYOFWK