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

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.