home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / easter12.zip / EASTER.BAS next >
BASIC Source File  |  1993-05-04  |  582b  |  20 lines
  1. 10 'PROGRAM EASTER   ' {By D. Engler ver 1.2  5-4-93}
  2. 25  INPUT X          ' { 4-digit year }
  3. 30  A=X MOD 19
  4. 35  B=X MOD 4
  5. 40  C=X MOD 7
  6. 45  D=(19*A+24) MOD 30
  7. 50  E=(2*B+4*C+6*D+5) MOD 7
  8. 51  F = 0            ' correction for centuries
  9. 52     IF X < 2500 THEN F = 3
  10. 53     IF X < 2300 THEN F = 2
  11. 54     IF X < 2200 THEN F = 1
  12. 55     IF X < 2100 THEN F = 0
  13. 56     IF X < 1900 THEN F = 6
  14. 57     IF X < 1800 THEN F = 5
  15. 58     IF X < 1700 THEN F = 4
  16. 60  E = (2 * B + 4 * C + 6 * D + 5 + F) MOD 7
  17. 55  E=22+D+E
  18. 60  M=3:IF E>31 THEN M=4:E=E-31
  19. 65  PRINT M;"-";E;"-";X
  20.