home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / misc1 / cal-yr.bas < prev    next >
BASIC Source File  |  1985-12-25  |  1KB  |  33 lines
  1. 10 CLS: DEFINT A-Z
  2. 20 DIM BD(28),DA(12,7,6),DM(12),M$(12)
  3. 30 FOR T=1 TO 12: READ DM(T): NEXT
  4. 40 FOR T=1 TO 28: READ BD(T-1): NEXT
  5. 50 FOR T=1 TO 12: READ M$(T): NEXT
  6. 60 INPUT "WHAT YEAR "; Y
  7. 70 X=Y-14: IF X<0 THEN 60
  8. 80 X= Y - (INT(X/28)*28 +14)
  9. 90 IF Y/4 = INT(Y/4) THEN DM(2)=29 ELSE DM(2)=28
  10. 100 C2=1:CO=BD(X)-1
  11. 110   FOR T=1 TO 12
  12. 120 C3=C3+1:CO=CO+1:DA(T,CO,C2)=C3:IF CO=7 THEN CO=0:C2=C2+1
  13. 130 IF C3<>DM(T) THEN 120 ELSE C3=0:C2=1
  14. 140   NEXT:  PRINT
  15. 150   FOR T=1 TO 12 STEP 3
  16. 160 LOCATE,10: PRINT M$(T) TAB(37) M$(T+1) TAB(63) M$(T+2): PRINT
  17. 180 PRINT "    S  M  T  W  T  F  S" TAB(29) "  S  M  T  W  T  F  S" TAB(55)        "  S  M  T  W  T  F  S"
  18. 190     FOR TR=1 TO 6
  19. 200       FOR TRR=1 TO 3
  20. 210 LOCATE ,(TRR-1)*26+2: PRINT " ";
  21. 220         FOR TT=1 TO 7
  22. 230 D=DA(T+TRR-1,TT,TR)
  23. 240 IF D=0 THEN D$="   ": GOTO 260
  24. 250 D$=RIGHT$(" "+STR$(D),3)
  25. 260 PRINT D$;
  26. 270         NEXT
  27. 280       NEXT:  PRINT
  28. 290     NEXT
  29. 300   NEXT
  30. 310 END
  31. 320 DATA 31,28,31,30,31,30,31,31,30,31,30,31,3,4,5,7,1,2,3,5,6,7,1,3,4,5,6,1,2,3,4,6,7,1,2,4,5,6,7,2," JANUARY ","FEBRUARY","  MARCH  ","  APRIL  ","  MAY  ", "  JUNE  ","  JULY  "," AUGUST ","SEPTEMBER","OCTOBER","NOVEMBER"
  32. 330 DATA "DECEMBER "
  33.