600 REM ......THIS IS FILE "DOFW.BAS" ......
610 REM   ******************************************************
620 REM   **   COMPUTES ONLY THE DAY OF WEEK, 1900-2100       **
625 REM   **   VALID OVER RANGE  1900 MAR 01  TO  2100 FEB 28 **
630 REM   ******************************************************
640 
650  
700 FOR I=1 TO 7   :   READ DAY$(I)   :   NEXT I
800 DATA SUNDAY,MONDAY,TUESDAY,WEDNESDAY,THURSDAY,FRIDAY,SATURDAY
810 
900 PRINT "  YYYY/MM/DD"
910 INPUT Y,M,D
1000 M=M-2
1010 IF M>0 GO TO 1040
1020 M=M+12
1030 Y=Y-1
1040 DOFW=INT(Y*5/4) + INT(M*31/12) + D -1
1050 DOFW=DOFW - INT(DOFW/7)*7 + 1
1060 PRINT DAY$(DOFW)
1070 END
 