home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol163 / dow.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  692 b   |  24 lines
  1.     REM DOW.BAS  * PROGRAM TO FIGURE OUT THE DAY OF THE WEEK
  2.  
  3.     DIM D$(150)
  4.  
  5.     B$="312831303130313130313031"
  6.     C$="SUNDAY   MONDAY   TUESDAY  WEDNESDAYTHURSAY  FRIDAY   SATURDAY "
  7.     D$="JANUARY  FEBRUARY MARCH    APRIL    MAY      JUNE     "
  8.     D$=D$+"JULY     AUGUST   SEPTEMBEROCTOBER  NOVEMBER DECEMBER "
  9.  
  10. 60      CS=1:PRINT:INPUT "DATE <MMDDYY> ";LINE A$
  11.     M=VAL(LEFT$(A$,2)):D=VAL(MID$(A$,3,2)):Y=VAL(RIGHT$(A$,2))+1900
  12.     Y1=365.25*(Y-1)
  13.     IF Y/4=INT(Y/4) AND M<3 THEN CS=CS-1
  14.     M1=0
  15.     IF M=1 THEN 190
  16.     FOR X=1 TO M-1:M1=M1+VAL(MID$(B$,X*2-1,2)):NEXT X
  17.  
  18. 190     D1=D-1:T=Y1+M1+D1:T1=INT((T/7-INT(T/7))*7+.48)+CS
  19.     IF T1>7 THEN T1=T1-7
  20.     PRINT MID$(C$,T1*9-8,9);" ";MID$(D$,M*9-8,9);",";D;"19";Y
  21.     GOTO 60
  22.  
  23.  
  24.