home *** CD-ROM | disk | FTP | other *** search
/ RUN Flagazine Extra: Special 3 / run-special-3.zip / FEEST.BAS < prev    next >
BASIC Source File  |  1989-11-24  |  1KB  |  41 lines
  1. 100 REM VERANDERLIJKE FEESTDAGEN - MONOCHROOM
  2. 110 CLS:KEY OFF
  3. 120 PRINT "Berekening veranderlijke feestdagen"
  4. 130 PRINT:INPUT "Welk jaar";JJ
  5. 140 IF JJ<1583 OR JJ>32767 THEN 130
  6. 150 A=JJ-(19*INT(JJ/19)):B=INT(JJ/100)
  7. 160 C=JJ-100*INT(B):D=INT(B/4)
  8. 170 E=B-(4*D):F=INT((B+8)/25)
  9. 180 G=INT((B-F+1)/3)
  10. 190 H=INT((19*A)+B-D-G+15)-30*INT(((19*A)+B-D-G+15)/30)
  11. 200 I=INT(C/4):K=C-(4*I)
  12. 210 L=INT(32+(2*E)+(2*I)-H-K)-7*INT((32+(2*E)+(2*I)-H-K)/7)
  13. 220 M=INT((A+(11*H)+(22*L))/451)
  14. 230 M1=H+L-(7*M)+114:N=INT(M1/31)
  15. 240 NP=31*N:P=M1-NP:PA=P+1
  16. 250 GV=PA-2:IF N=3 THEN GV$="maart"
  17. 260 IF N=4 THEN GV$="april"
  18. 270 IF PA=1 AND N=4 THEN GV=30:GV$="maart"
  19. 280 IF PA=2 AND N=4 THEN GV=31:GV$="maart"
  20. 290 HV=PA+39:HV$="mei"
  21. 300 IF PA=22 AND N=3 THEN HV=PA+8:HV$="april"
  22. 310 IF N=3 AND PA>22 THEN HV=HV-61
  23. 320 IF N=4 THEN HV=PA+9
  24. 330 IF N=4 AND PA>22 THEN HV=PA-22:HV$="juni"
  25. 340 PI=HV+10:PI$="mei"
  26. 350 IF HV=30 AND HV$="april" THEN PI=HV-20:PI$="mei"
  27. 360 IF HV>21 AND HV$="mei" THEN PI=HV-21:PI$="juni"
  28. 370 IF HV<22 THEN PI=HV+10:PI$="mei"
  29. 380 IF HV<22 AND N=4 AND PA>22 THEN PI$="juni"
  30. 390 IF N=3 THEN A$="maart"
  31. 400 IF N=4 THEN A$="april"
  32. 410 PRINT:PRINT "Goede Vrijdag ",GV;GV$
  33. 420 PRINT "Eerste Paasdag ",PA;A$
  34. 430 PRINT "Tweede Paasdag ",PA+1;A$
  35. 440 PRINT "Hemelvaart ",,HV;HV$
  36. 450 PRINT "Eerste Pinksterdag ",PI;PI$
  37. 460 PRINT "Tweede Pinksterdag ",PI+1;PI$
  38. 470 LOCATE 17,1:PRINT "Toets <Enter>"
  39. 480 WHILE INKEY$<>CHR$(13):WEND:END
  40.  
  41.