home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine 1996 / ARCHIVE_96.iso / discs / gerald / 6_02 / DutchCal / Kalender
Text File  |  1992-03-24  |  16KB  |  1,111 lines
  1. %OP%VS4.12 (10-Feb-92), Gerald Fitton, R4000 2915 6625 6368 
  2. %OP%TNN
  3. %OP%JUY
  4. %OP%DP0
  5. %OP%IRN
  6. %OP%LPf.
  7. %OP%PL62
  8. %OP%TM4
  9. %OP%HM0
  10. %OP%FM0
  11. %OP%BM0
  12. %OP%LM4
  13. %OP%FX160
  14. %OP%FY160
  15. %OP%FS12000
  16. %OP%PT3
  17. %OP%PDfx80
  18. %OP%PN0.254
  19. %OP%WC2,2262,44,1748,13,0,0,1
  20. %OP%FR0,1
  21. %CO:A,11,72%%R%Computer Kalender                voor het Jaar
  22. %C%Copyright ABACUS TRAINING
  23. %C%door Gerald L Fitton
  24.  
  25.  
  26.  
  27. %H1%Week
  28.  
  29. Zondag
  30. Maandag
  31. Dinsdag
  32. Woensdag
  33. Donderdag
  34. Vrijdag
  35. Zaterdag
  36.  
  37.  
  38.  
  39.  
  40. %H1%Week
  41.  
  42. Zondag
  43. Maandag
  44. Dinsdag
  45. Woensdag
  46. Donderdag
  47. Vrijdag
  48. Zaterdag
  49.  
  50.  
  51.  
  52.  
  53. %H1%Week
  54.  
  55. Zondag
  56. Maandag
  57. Dinsdag
  58. Woensdag
  59. Donderdag
  60. Vrijdag
  61. Zaterdag
  62.  
  63.  
  64.  
  65.  
  66. %H1%Week
  67.  
  68. Zondag
  69. Maandag
  70. Dinsdag
  71. Woensdag
  72. Donderdag
  73. Vrijdag
  74. Zaterdag
  75. %CO:B,4,61%
  76.  
  77.  
  78.  
  79.  
  80. %C%%H1%Januari
  81. %V%%R%if(X7>0,1,0)
  82.  
  83. %V%%R%if(C9-7<1," ",C9-7)
  84. %V%%R%if(C10-7<1," ",C10-7)
  85. %V%%R%if(C11-7<1," ",C11-7)
  86. %V%%R%if(C12-7<1," ",C12-7)
  87. %V%%R%if(C13-7<1," ",C13-7)
  88. %V%%R%if(C14-7<1," ",C14-7)
  89. %V%%R%if(C15-7<1," ",C15-7)
  90.  
  91.  
  92.  
  93. %C%%H1%April
  94. %V%%R%if(P9>V7-20,R7,R7+1)
  95.  
  96. %V%%R%if(C22-7<1," ",C22-7)
  97. %V%%R%if(C23-7<1," ",C23-7)
  98. %V%%R%if(C24-7<1," ",C24-7)
  99. %V%%R%if(C25-7<1," ",C25-7)
  100. %V%%R%if(C26-7<1," ",C26-7)
  101. %V%%R%if(C27-7<1," ",C27-7)
  102. %V%%R%if(C28-7<1," ",C28-7)
  103.  
  104.  
  105.  
  106. %C%%H1%Juli
  107. %V%%R%if(P22>V10-20,R20,R20+1)
  108.  
  109. %V%%R%if(C35-7<1," ",C35-7)
  110. %V%%R%if(C36-7<1," ",C36-7)
  111. %V%%R%if(C37-7<1," ",C37-7)
  112. %V%%R%if(C38-7<1," ",C38-7)
  113. %V%%R%if(C39-7<1," ",C39-7)
  114. %V%%R%if(C40-7<1," ",C40-7)
  115. %V%%R%if(C41-7<1," ",C41-7)
  116.  
  117.  
  118.  
  119. %C%%H1%October
  120. %V%%R%if(P35>V13-20,R33,R33+1)
  121.  
  122. %V%%R%if(C48-7<1," ",C48-7)
  123. %V%%R%if(C49-7<1," ",C49-7)
  124. %V%%R%if(C50-7<1," ",C50-7)
  125. %V%%R%if(C51-7<1," ",C51-7)
  126. %V%%R%if(C52-7<1," ",C52-7)
  127. %V%%R%if(C53-7<1," ",C53-7)
  128. %V%%R%if(C54-7<1," ",C54-7)
  129. %CO:C,3,57%
  130.  
  131.  
  132.  
  133.  
  134.  
  135. %V%%R%B7+1
  136.  
  137. %V%%R%X5
  138. %V%%R%C9+1
  139. %V%%R%C10+1
  140. %V%%R%C11+1
  141. %V%%R%C12+1
  142. %V%%R%C13+1
  143. %V%%R%C14+1
  144.  
  145.  
  146.  
  147.  
  148. %V%%R%B20+1
  149.  
  150. %V%%R%X8
  151. %V%%R%C22+1
  152. %V%%R%C23+1
  153. %V%%R%C24+1
  154. %V%%R%C25+1
  155. %V%%R%C26+1
  156. %V%%R%C27+1
  157.  
  158.  
  159.  
  160.  
  161. %V%%R%B33+1
  162.  
  163. %V%%R%X11
  164. %V%%R%C35+1
  165. %V%%R%C36+1
  166. %V%%R%C37+1
  167. %V%%R%C38+1
  168. %V%%R%C39+1
  169. %V%%R%C40+1
  170.  
  171.  
  172.  
  173.  
  174. %V%%R%B46+1
  175.  
  176. %V%%R%X14
  177. %V%%R%C48+1
  178. %V%%R%C49+1
  179. %V%%R%C50+1
  180. %V%%R%C51+1
  181. %V%%R%C52+1
  182. %V%%R%C53+1
  183. %CO:D,3,54%
  184.  
  185.  
  186.  
  187.  
  188.  
  189. %V%%R%C7+1
  190.  
  191. %V%%R%C9+7
  192. %V%%R%C10+7
  193. %V%%R%C11+7
  194. %V%%R%C12+7
  195. %V%%R%C13+7
  196. %V%%R%C14+7
  197. %V%%R%C15+7
  198.  
  199.  
  200.  
  201.  
  202. %V%%R%C20+1
  203.  
  204. %V%%R%C22+7
  205. %V%%R%C23+7
  206. %V%%R%C24+7
  207. %V%%R%C25+7
  208. %V%%R%C26+7
  209. %V%%R%C27+7
  210. %V%%R%C28+7
  211.  
  212.  
  213.  
  214.  
  215. %V%%R%C33+1
  216.  
  217. %V%%R%C35+7
  218. %V%%R%C36+7
  219. %V%%R%C37+7
  220. %V%%R%C38+7
  221. %V%%R%C39+7
  222. %V%%R%C40+7
  223. %V%%R%C41+7
  224.  
  225.  
  226.  
  227.  
  228. %V%%R%C46+1
  229.  
  230. %V%%R%C48+7
  231. %V%%R%C49+7
  232. %V%%R%C50+7
  233. %V%%R%C51+7
  234. %V%%R%C52+7
  235. %V%%R%C53+7
  236. %V%%R%C54+7
  237. %CO:E,3,51%
  238.  
  239.  
  240.  
  241.  
  242.  
  243. %V%%R%D7+1
  244.  
  245. %V%%R%D9+7
  246. %V%%R%D10+7
  247. %V%%R%D11+7
  248. %V%%R%D12+7
  249. %V%%R%D13+7
  250. %V%%R%D14+7
  251. %V%%R%D15+7
  252.  
  253.  
  254.  
  255.  
  256. %V%%R%D20+1
  257.  
  258. %V%%R%D22+7
  259. %V%%R%D23+7
  260. %V%%R%D24+7
  261. %V%%R%D25+7
  262. %V%%R%D26+7
  263. %V%%R%D27+7
  264. %V%%R%D28+7
  265.  
  266.  
  267.  
  268.  
  269. %V%%R%D33+1
  270.  
  271. %V%%R%D35+7
  272. %V%%R%D36+7
  273. %V%%R%D37+7
  274. %V%%R%D38+7
  275. %V%%R%D39+7
  276. %V%%R%D40+7
  277. %V%%R%D41+7
  278.  
  279.  
  280.  
  281.  
  282. %V%%R%D46+1
  283.  
  284. %V%%R%D48+7
  285. %V%%R%D49+7
  286. %V%%R%D50+7
  287. %V%%R%D51+7
  288. %V%%R%D52+7
  289. %V%%R%D53+7
  290. %V%%R%D54+7
  291. %CO:F,3,48%
  292.  
  293.  
  294.  
  295.  
  296.  
  297. %V%%R%E7+1
  298.  
  299. %V%%R%if((E9+7>31)|(E9=0)," ",E9+7)
  300. %V%%R%if((E10+7>31)|(E10=0)," ",E10+7)
  301. %V%%R%if((E11+7>31)|(E11=0)," ",E11+7)
  302. %V%%R%if((E12+7>31)|(E12=0)," ",E12+7)
  303. %V%%R%if((E13+7>31)|(E13=0)," ",E13+7)
  304. %V%%R%if((E14+7>31)|(E14=0)," ",E14+7)
  305. %V%%R%if((E15+7>31)|(E15=0)," ",E15+7)
  306.  
  307.  
  308.  
  309.  
  310. %V%%R%E20+1
  311.  
  312. %V%%R%if((E22+7>30)|(E22=0)," ",E22+7)
  313. %V%%R%if((E23+7>30)|(E23=0)," ",E23+7)
  314. %V%%R%if((E24+7>30)|(E24=0)," ",E24+7)
  315. %V%%R%if((E25+7>30)|(E25=0)," ",E25+7)
  316. %V%%R%if((E26+7>30)|(E26=0)," ",E26+7)
  317. %V%%R%if((E27+7>30)|(E27=0)," ",E27+7)
  318. %V%%R%if((E28+7>30)|(E28=0)," ",E28+7)
  319.  
  320.  
  321.  
  322.  
  323. %V%%R%E33+1
  324.  
  325. %V%%R%if((E35+7>31)|(E35=0)," ",E35+7)
  326. %V%%R%if((E36+7>31)|(E36=0)," ",E36+7)
  327. %V%%R%if((E37+7>31)|(E37=0)," ",E37+7)
  328. %V%%R%if((E38+7>31)|(E38=0)," ",E38+7)
  329. %V%%R%if((E39+7>31)|(E39=0)," ",E39+7)
  330. %V%%R%if((E40+7>31)|(E40=0)," ",E40+7)
  331. %V%%R%if((E41+7>31)|(E41=0)," ",E41+7)
  332.  
  333.  
  334.  
  335.  
  336. %V%%R%E46+1
  337.  
  338. %V%%R%if((E48+7>31)|(E48=0)," ",E48+7)
  339. %V%%R%if((E49+7>31)|(E49=0)," ",E49+7)
  340. %V%%R%if((E50+7>31)|(E50=0)," ",E50+7)
  341. %V%%R%if((E51+7>31)|(E51=0)," ",E51+7)
  342. %V%%R%if((E52+7>31)|(E52=0)," ",E52+7)
  343. %V%%R%if((E53+7>31)|(E53=0)," ",E53+7)
  344. %V%%R%if((E54+7>31)|(E54=0)," ",E54+7)
  345. %CO:G,3,45%
  346.  
  347.  
  348.  
  349.  
  350.  
  351. %V%%R%if(D9<V5-20,F7+1,)
  352.  
  353. %V%%R%if((F9+7>31)|(F9=0)," ",F9+7)
  354. %V%%R%if((F10+7>31)|(F10=0)," ",F10+7)
  355. %V%%R%if((F11+7>31)|(F11=0)," ",F11+7)
  356. %V%%R%if((F12+7>31)|(F12=0)," ",F12+7)
  357. %V%%R%if((F13+7>31)|(F13=0)," ",F13+7)
  358. %V%%R%if((F14+7>31)|(F14=0)," ",F14+7)
  359. %V%%R%if((F15+7>31)|(F15=0)," ",F15+7)
  360.  
  361.  
  362.  
  363.  
  364. %V%%R%if(D22<V8-20,F20+1,)
  365.  
  366. %V%%R%if((F22+7>30)|(F22=0)," ",F22+7)
  367. %V%%R%if((F23+7>30)|(F23=0)," ",F23+7)
  368. %V%%R%if((F24+7>30)|(F24=0)," ",F24+7)
  369. %V%%R%if((F25+7>30)|(F25=0)," ",F25+7)
  370. %V%%R%if((F26+7>30)|(F26=0)," ",F26+7)
  371. %V%%R%if((F27+7>30)|(F27=0)," ",F27+7)
  372. %V%%R%if((F28+7>30)|(F28=0)," ",F28+7)
  373.  
  374.  
  375.  
  376.  
  377. %V%%R%if(D35<V11-20,F33+1,)
  378.  
  379. %V%%R%if((F35+7>31)|(F35=0)," ",F35+7)
  380. %V%%R%if((F36+7>31)|(F36=0)," ",F36+7)
  381. %V%%R%if((F37+7>31)|(F37=0)," ",F37+7)
  382. %V%%R%if((F38+7>31)|(F38=0)," ",F38+7)
  383. %V%%R%if((F39+7>31)|(F39=0)," ",F39+7)
  384. %V%%R%if((F40+7>31)|(F40=0)," ",F40+7)
  385. %V%%R%if((F41+7>31)|(F41=0)," ",F41+7)
  386.  
  387.  
  388.  
  389.  
  390. %V%%R%if(D48<V14-20,F46+1,)
  391.  
  392. %V%%R%if((F48+7>31)|(F48=0)," ",F48+7)
  393. %V%%R%if((F49+7>31)|(F49=0)," ",F49+7)
  394. %V%%R%if((F50+7>31)|(F50=0)," ",F50+7)
  395. %V%%R%if((F51+7>31)|(F51=0)," ",F51+7)
  396. %V%%R%if((F52+7>31)|(F52=0)," ",F52+7)
  397. %V%%R%if((F53+7>31)|(F53=0)," ",F53+7)
  398. %V%%R%if((F54+7>31)|(F54=0)," ",F54+7)
  399. %CO:H,6,42%
  400.  
  401.  
  402. %V%%R%if(N1<5,"False"," ")
  403.  
  404. %C%%H1%Februari
  405. %V%%R%if(D9>V5-20,F7,F7+1)
  406.  
  407. %V%%R%if(I9-7<1," ",I9-7)
  408. %V%%R%if(I10-7<1," ",I10-7)
  409. %V%%R%if(I11-7<1," ",I11-7)
  410. %V%%R%if(I12-7<1," ",I12-7)
  411. %V%%R%if(I13-7<1," ",I13-7)
  412. %V%%R%if(I14-7<1," ",I14-7)
  413. %V%%R%if(I15-7<1," ",I15-7)
  414.  
  415.  
  416.  
  417. %C%%H1%Mei
  418. %V%%R%if(D22>V8-20,F20,F20+1)
  419.  
  420. %V%%R%if(I22-7<1," ",I22-7)
  421. %V%%R%if(I23-7<1," ",I23-7)
  422. %V%%R%if(I24-7<1," ",I24-7)
  423. %V%%R%if(I25-7<1," ",I25-7)
  424. %V%%R%if(I26-7<1," ",I26-7)
  425. %V%%R%if(I27-7<1," ",I27-7)
  426. %V%%R%if(I28-7<1," ",I28-7)
  427.  
  428.  
  429.  
  430. %C%%H1%Augustus
  431. %V%%R%if(D35>V11-20,F33,F33+1)
  432.  
  433. %V%%R%if(I35-7<1," ",I35-7)
  434. %V%%R%if(I36-7<1," ",I36-7)
  435. %V%%R%if(I37-7<1," ",I37-7)
  436. %V%%R%if(I38-7<1," ",I38-7)
  437. %V%%R%if(I39-7<1," ",I39-7)
  438. %V%%R%if(I40-7<1," ",I40-7)
  439. %V%%R%if(I41-7<1," ",I41-7)
  440.  
  441.  
  442.  
  443. %C%%H1%November
  444. %V%%R%if(D48>V14-20,F46,F46+1)
  445.  
  446. %V%%R%if(I48-7<1," ",I48-7)
  447. %V%%R%if(I49-7<1," ",I49-7)
  448. %V%%R%if(I50-7<1," ",I50-7)
  449. %V%%R%if(I51-7<1," ",I51-7)
  450. %V%%R%if(I52-7<1," ",I52-7)
  451. %V%%R%if(I53-7<1," ",I53-7)
  452. %V%%R%if(I54-7<1," ",I54-7)
  453. %CO:I,3,36%
  454.  
  455.  
  456.  
  457.  
  458.  
  459. %V%%R%H7+1
  460.  
  461. %V%%R%X6
  462. %V%%R%I9+1
  463. %V%%R%I10+1
  464. %V%%R%I11+1
  465. %V%%R%I12+1
  466. %V%%R%I13+1
  467. %V%%R%I14+1
  468.  
  469.  
  470.  
  471.  
  472. %V%%R%H20+1
  473.  
  474. %V%%R%X9
  475. %V%%R%I22+1
  476. %V%%R%I23+1
  477. %V%%R%I24+1
  478. %V%%R%I25+1
  479. %V%%R%I26+1
  480. %V%%R%I27+1
  481.  
  482.  
  483.  
  484.  
  485. %V%%R%H33+1
  486.  
  487. %V%%R%X12
  488. %V%%R%I35+1
  489. %V%%R%I36+1
  490. %V%%R%I37+1
  491. %V%%R%I38+1
  492. %V%%R%I39+1
  493. %V%%R%I40+1
  494.  
  495.  
  496.  
  497.  
  498. %V%%R%H46+1
  499.  
  500. %V%%R%X15
  501. %V%%R%I48+1
  502. %V%%R%I49+1
  503. %V%%R%I50+1
  504. %V%%R%I51+1
  505. %V%%R%I52+1
  506. %V%%R%I53+1
  507. %CO:J,3,33%
  508.  
  509.  
  510.  
  511.  
  512.  
  513. %V%%R%I7+1
  514.  
  515. %V%%R%I9+7
  516. %V%%R%I10+7
  517. %V%%R%I11+7
  518. %V%%R%I12+7
  519. %V%%R%I13+7
  520. %V%%R%I14+7
  521. %V%%R%I15+7
  522.  
  523.  
  524.  
  525.  
  526. %V%%R%I20+1
  527.  
  528. %V%%R%I22+7
  529. %V%%R%I23+7
  530. %V%%R%I24+7
  531. %V%%R%I25+7
  532. %V%%R%I26+7
  533. %V%%R%I27+7
  534. %V%%R%I28+7
  535.  
  536.  
  537.  
  538.  
  539. %V%%R%I33+1
  540.  
  541. %V%%R%I35+7
  542. %V%%R%I36+7
  543. %V%%R%I37+7
  544. %V%%R%I38+7
  545. %V%%R%I39+7
  546. %V%%R%I40+7
  547. %V%%R%I41+7
  548.  
  549.  
  550.  
  551.  
  552. %V%%R%I46+1
  553.  
  554. %V%%R%I48+7
  555. %V%%R%I49+7
  556. %V%%R%I50+7
  557. %V%%R%I51+7
  558. %V%%R%I52+7
  559. %V%%R%I53+7
  560. %V%%R%I54+7
  561. %CO:K,3,30%
  562.  
  563.  
  564.  
  565.  
  566.  
  567. %V%%R%J7+1
  568.  
  569. %V%%R%J9+7
  570. %V%%R%J10+7
  571. %V%%R%J11+7
  572. %V%%R%J12+7
  573. %V%%R%J13+7
  574. %V%%R%J14+7
  575. %V%%R%J15+7
  576.  
  577.  
  578.  
  579.  
  580. %V%%R%J20+1
  581.  
  582. %V%%R%J22+7
  583. %V%%R%J23+7
  584. %V%%R%J24+7
  585. %V%%R%J25+7
  586. %V%%R%J26+7
  587. %V%%R%J27+7
  588. %V%%R%J28+7
  589.  
  590.  
  591.  
  592.  
  593. %V%%R%J33+1
  594.  
  595. %V%%R%J35+7
  596. %V%%R%J36+7
  597. %V%%R%J37+7
  598. %V%%R%J38+7
  599. %V%%R%J39+7
  600. %V%%R%J40+7
  601. %V%%R%J41+7
  602.  
  603.  
  604.  
  605.  
  606. %V%%R%J46+1
  607.  
  608. %V%%R%J48+7
  609. %V%%R%J49+7
  610. %V%%R%J50+7
  611. %V%%R%J51+7
  612. %V%%R%J52+7
  613. %V%%R%J53+7
  614. %V%%R%J54+7
  615. %CO:L,3,27%
  616.  
  617.  
  618.  
  619.  
  620.  
  621. %V%%R%if(J9<=V6-14,K7+1,)
  622.  
  623. %V%%R%if((K9+7>V6)|(K9=0)," ",K9+7)
  624. %V%%R%if((K10+7>V6)|(K10=0)," ",K10+7)
  625. %V%%R%if((K11+7>V6)|(K11=0)," ",K11+7)
  626. %V%%R%if((K12+7>V6)|(K12=0)," ",K12+7)
  627. %V%%R%if((K13+7>V6)|(K13=0)," ",K13+7)
  628. %V%%R%if((K14+7>V6)|(K14=0)," ",K14+7)
  629. %V%%R%if((K15+7>V6)|(K15=0)," ",K15+7)
  630.  
  631.  
  632.  
  633.  
  634. %V%%R%K20+1
  635.  
  636. %V%%R%if((K22+7>31)|(K22=0)," ",K22+7)
  637. %V%%R%if((K23+7>31)|(K23=0)," ",K23+7)
  638. %V%%R%if((K24+7>31)|(K24=0)," ",K24+7)
  639. %V%%R%if((K25+7>31)|(K25=0)," ",K25+7)
  640. %V%%R%if((K26+7>31)|(K26=0)," ",K26+7)
  641. %V%%R%if((K27+7>31)|(K27=0)," ",K27+7)
  642. %V%%R%if((K28+7>31)|(K28=0)," ",K28+7)
  643.  
  644.  
  645.  
  646.  
  647. %V%%R%K33+1
  648.  
  649. %V%%R%if((K35+7>31)|(K35=0)," ",K35+7)
  650. %V%%R%if((K36+7>31)|(K36=0)," ",K36+7)
  651. %V%%R%if((K37+7>31)|(K37=0)," ",K37+7)
  652. %V%%R%if((K38+7>31)|(K38=0)," ",K38+7)
  653. %V%%R%if((K39+7>31)|(K39=0)," ",K39+7)
  654. %V%%R%if((K40+7>31)|(K40=0)," ",K40+7)
  655. %V%%R%if((K41+7>31)|(K41=0)," ",K41+7)
  656.  
  657.  
  658.  
  659.  
  660. %V%%R%K46+1
  661.  
  662. %V%%R%if((K48+7>30)|(K48=0)," ",K48+7)
  663. %V%%R%if((K49+7>30)|(K49=0)," ",K49+7)
  664. %V%%R%if((K50+7>30)|(K50=0)," ",K50+7)
  665. %V%%R%if((K51+7>30)|(K51=0)," ",K51+7)
  666. %V%%R%if((K52+7>30)|(K52=0)," ",K52+7)
  667. %V%%R%if((K53+7>30)|(K53=0)," ",K53+7)
  668. %V%%R%if((K54+7>30)|(K54=0)," ",K54+7)
  669. %CO:M,3,24%
  670.  
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677. %V%%R%if((L9+7>V6)|(L9=0)," ",L9+7)
  678. %V%%R%if((L10+7>V6)|(L10=0)," ",L10+7)
  679. %V%%R%if((L11+7>V6)|(L11=0)," ",L11+7)
  680. %V%%R%if((L12+7>V6)|(L12=0)," ",L12+7)
  681. %V%%R%if((L13+7>V6)|(L13=0)," ",L13+7)
  682. %V%%R%if((L14+7>V6)|(L14=0)," ",L14+7)
  683. %V%%R%if((L15+7>V6)|(L15=0)," ",L15+7)
  684.  
  685.  
  686.  
  687.  
  688. %V%%R%if(J22<V9-20,L20+1,)
  689.  
  690. %V%%R%if((L22+7>31)|(L22=0)," ",L22+7)
  691. %V%%R%if((L23+7>31)|(L23=0)," ",L23+7)
  692. %V%%R%if((L24+7>31)|(L24=0)," ",L24+7)
  693. %V%%R%if((L25+7>31)|(L25=0)," ",L25+7)
  694. %V%%R%if((L26+7>31)|(L26=0)," ",L26+7)
  695. %V%%R%if((L27+7>31)|(L27=0)," ",L27+7)
  696. %V%%R%if((L28+7>31)|(L28=0)," ",L28+7)
  697.  
  698.  
  699.  
  700.  
  701. %V%%R%if(J35<V12-20,L33+1,)
  702.  
  703. %V%%R%if((L35+7>31)|(L35=0)," ",L35+7)
  704. %V%%R%if((L36+7>31)|(L36=0)," ",L36+7)
  705. %V%%R%if((L37+7>31)|(L37=0)," ",L37+7)
  706. %V%%R%if((L38+7>31)|(L38=0)," ",L38+7)
  707. %V%%R%if((L39+7>31)|(L39=0)," ",L39+7)
  708. %V%%R%if((L40+7>31)|(L40=0)," ",L40+7)
  709. %V%%R%if((L41+7>31)|(L41=0)," ",L41+7)
  710.  
  711.  
  712.  
  713.  
  714. %V%%R%if(J48<V15-20,L46+1,)
  715.  
  716. %V%%R%if((L48+7>30)|(L48=0)," ",L48+7)
  717. %V%%R%if((L49+7>30)|(L49=0)," ",L49+7)
  718. %V%%R%if((L50+7>30)|(L50=0)," ",L50+7)
  719. %V%%R%if((L51+7>30)|(L51=0)," ",L51+7)
  720. %V%%R%if((L52+7>30)|(L52=0)," ",L52+7)
  721. %V%%R%if((L53+7>30)|(L53=0)," ",L53+7)
  722. %V%%R%if((L54+7>30)|(L54=0)," ",L54+7)
  723. %CO:N,6,21%%V%%R%1992
  724.  
  725.  
  726.  
  727.  
  728. %C%%H1%Maart 
  729. %V%%R%if(I9>V6-20,K7,K7+1)
  730.  
  731. %V%%R%if(O9-7<1," ",O9-7)
  732. %V%%R%if(O10-7<1," ",O10-7)
  733. %V%%R%if(O11-7<1," ",O11-7)
  734. %V%%R%if(O12-7<1," ",O12-7)
  735. %V%%R%if(O13-7<1," ",O13-7)
  736. %V%%R%if(O14-7<1," ",O14-7)
  737. %V%%R%if(O15-7<1," ",O15-7)
  738.  
  739.  
  740.  
  741. %C%%H1%Juni
  742. %V%%R%if(J22>V9-20,L20,L20+1)
  743.  
  744. %V%%R%if(O22-7<1," ",O22-7)
  745. %V%%R%if(O23-7<1," ",O23-7)
  746. %V%%R%if(O24-7<1," ",O24-7)
  747. %V%%R%if(O25-7<1," ",O25-7)
  748. %V%%R%if(O26-7<1," ",O26-7)
  749. %V%%R%if(O27-7<1," ",O27-7)
  750. %V%%R%if(O28-7<1," ",O28-7)
  751.  
  752.  
  753.  
  754. %C%%H1%September
  755. %V%%R%if(J35>V12-20,L33,L33+1)
  756.  
  757. %V%%R%if((N1=1752)|(O35-7<1)," ",O35-7)
  758. %V%%R%if((N1=1752)|(O36-7<1)," ",O36-7)
  759. %V%%R%if((N1=1752),1,if((O37-7<1)," ",O37-7))
  760. %V%%R%if((N1=1752),2,if((O38-7<1)," ",O38-7))
  761. %V%%R%if(O39-7<1," ",O39-7)
  762. %V%%R%if(O40-7<1," ",O40-7)
  763. %V%%R%if(O41-7<1," ",O41-7)
  764.  
  765.  
  766.  
  767. %C%%H1%December
  768. %V%%R%if(J48>V15-20,L46,L46+1)
  769.  
  770. %V%%R%if(O48-7<1," ",O48-7)
  771. %V%%R%if(O49-7<1," ",O49-7)
  772. %V%%R%if(O50-7<1," ",O50-7)
  773. %V%%R%if(O51-7<1," ",O51-7)
  774. %V%%R%if(O52-7<1," ",O52-7)
  775. %V%%R%if(O53-7<1," ",O53-7)
  776. %V%%R%if(O54-7<1," ",O54-7)
  777. %CO:O,3,15%
  778.  
  779.  
  780.  
  781.  
  782.  
  783. %V%%R%N7+1
  784.  
  785. %V%%R%X7
  786. %V%%R%O9+1
  787. %V%%R%O10+1
  788. %V%%R%O11+1
  789. %V%%R%O12+1
  790. %V%%R%O13+1
  791. %V%%R%O14+1
  792.  
  793.  
  794.  
  795.  
  796. %V%%R%N20+1
  797.  
  798. %V%%R%X10
  799. %V%%R%O22+1
  800. %V%%R%O23+1
  801. %V%%R%O24+1
  802. %V%%R%O25+1
  803. %V%%R%O26+1
  804. %V%%R%O27+1
  805.  
  806.  
  807.  
  808.  
  809. %V%%R%N33+1
  810.  
  811. %V%%R%X13
  812. %V%%R%O35+1
  813. %V%%R%O36+1
  814. %V%%R%O37+1
  815. %V%%R%O38+1
  816. %V%%R%O39+1
  817. %V%%R%O40+1
  818.  
  819.  
  820.  
  821.  
  822. %V%%R%N46+1
  823.  
  824. %V%%R%X16
  825. %V%%R%O48+1
  826. %V%%R%O49+1
  827. %V%%R%O50+1
  828. %V%%R%O51+1
  829. %V%%R%O52+1
  830. %V%%R%O53+1
  831. %CO:P,3,12%
  832.  
  833.  
  834.  
  835.  
  836.  
  837. %V%%R%O7+1
  838.  
  839. %V%%R%O9+7
  840. %V%%R%O10+7
  841. %V%%R%O11+7
  842. %V%%R%O12+7
  843. %V%%R%O13+7
  844. %V%%R%O14+7
  845. %V%%R%O15+7
  846.  
  847.  
  848.  
  849.  
  850. %V%%R%O20+1
  851.  
  852. %V%%R%O22+7
  853. %V%%R%O23+7
  854. %V%%R%O24+7
  855. %V%%R%O25+7
  856. %V%%R%O26+7
  857. %V%%R%O27+7
  858. %V%%R%O28+7
  859.  
  860.  
  861.  
  862.  
  863. %V%%R%O33+1
  864.  
  865. %V%%R%O35+7
  866. %V%%R%O36+7
  867. %V%%R%O37+7
  868. %V%%R%O38+7
  869. %V%%R%O39+7
  870. %V%%R%O40+7
  871. %V%%R%O41+7
  872.  
  873.  
  874.  
  875.  
  876. %V%%R%O46+1
  877.  
  878. %V%%R%O48+7
  879. %V%%R%O49+7
  880. %V%%R%O50+7
  881. %V%%R%O51+7
  882. %V%%R%O52+7
  883. %V%%R%O53+7
  884. %V%%R%O54+7
  885. %CO:Q,3,9%
  886.  
  887.  
  888.  
  889.  
  890.  
  891. %V%%R%P7+1
  892.  
  893. %V%%R%P9+7
  894. %V%%R%P10+7
  895. %V%%R%P11+7
  896. %V%%R%P12+7
  897. %V%%R%P13+7
  898. %V%%R%P14+7
  899. %V%%R%P15+7
  900.  
  901.  
  902.  
  903.  
  904. %V%%R%P20+1
  905.  
  906. %V%%R%P22+7
  907. %V%%R%P23+7
  908. %V%%R%P24+7
  909. %V%%R%P25+7
  910. %V%%R%P26+7
  911. %V%%R%P27+7
  912. %V%%R%P28+7
  913.  
  914.  
  915.  
  916.  
  917. %V%%R%P33+1
  918.  
  919. %V%%R%if((P35+7>30)|(P35=0)," ",P35+7)
  920. %V%%R%if((P36+7>30)|(P36=0)," ",P36+7)
  921. %V%%R%if((P37+7>30)|(P37=0)," ",P37+7)
  922. %V%%R%if((P38+7>30)|(P38=0)," ",P38+7)
  923. %V%%R%if((P39+7>30)|(P39=0)," ",P39+7)
  924. %V%%R%if((P40+7>30)|(P40=0)," ",P40+7)
  925. %V%%R%if((P41+7>30)|(P41=0)," ",P41+7)
  926.  
  927.  
  928.  
  929.  
  930. %V%%R%P46+1
  931.  
  932. %V%%R%P48+7
  933. %V%%R%P49+7
  934. %V%%R%P50+7
  935. %V%%R%P51+7
  936. %V%%R%P52+7
  937. %V%%R%P53+7
  938. %V%%R%P54+7
  939. %CO:R,3,6%
  940.  
  941.  
  942.  
  943.  
  944.  
  945. %V%%R%Q7+1
  946.  
  947. %V%%R%if((Q9+7>31)|(Q9=0)," ",Q9+7)
  948. %V%%R%if((Q10+7>31)|(Q10=0)," ",Q10+7)
  949. %V%%R%if((Q11+7>31)|(Q11=0)," ",Q11+7)
  950. %V%%R%if((Q12+7>31)|(Q12=0)," ",Q12+7)
  951. %V%%R%if((Q13+7>31)|(Q13=0)," ",Q13+7)
  952. %V%%R%if((Q14+7>31)|(Q14=0)," ",Q14+7)
  953. %V%%R%if((Q15+7>31)|(Q15=0)," ",Q15+7)
  954.  
  955.  
  956.  
  957.  
  958. %V%%R%Q20+1
  959.  
  960. %V%%R%if((Q22+7>30)|(Q22=0)," ",Q22+7)
  961. %V%%R%if((Q23+7>30)|(Q23=0)," ",Q23+7)
  962. %V%%R%if((Q24+7>30)|(Q24=0)," ",Q24+7)
  963. %V%%R%if((Q25+7>30)|(Q25=0)," ",Q25+7)
  964. %V%%R%if((Q26+7>30)|(Q26=0)," ",Q26+7)
  965. %V%%R%if((Q27+7>30)|(Q27=0)," ",Q27+7)
  966. %V%%R%if((Q28+7>30)|(Q28=0)," ",Q28+7)
  967.  
  968.  
  969.  
  970.  
  971. %V%%R%Q33+1
  972.  
  973. %V%%R%if((Q35+7>30)|(Q35=0)," ",Q35+7)
  974. %V%%R%if((Q36+7>30)|(Q36=0)," ",Q36+7)
  975. %V%%R%if((Q37+7>30)|(Q37=0)," ",Q37+7)
  976. %V%%R%if((Q38+7>30)|(Q38=0)," ",Q38+7)
  977. %V%%R%if((Q39+7>30)|(Q39=0)," ",Q39+7)
  978. %V%%R%if((Q40+7>30)|(Q40=0)," ",Q40+7)
  979. %V%%R%if((Q41+7>30)|(Q41=0)," ",Q41+7)
  980.  
  981.  
  982.  
  983.  
  984. %V%%R%if(Q46=52,1,Q46+1)
  985.  
  986. %V%%R%if((Q48+7>31)|(Q48=0)," ",Q48+7)
  987. %V%%R%if((Q49+7>31)|(Q49=0)," ",Q49+7)
  988. %V%%R%if((Q50+7>31)|(Q50=0)," ",Q50+7)
  989. %V%%R%if((Q51+7>31)|(Q51=0)," ",Q51+7)
  990. %V%%R%if((Q52+7>31)|(Q52=0)," ",Q52+7)
  991. %V%%R%if((Q53+7>31)|(Q53=0)," ",Q53+7)
  992. %V%%R%if((Q54+7>31)|(Q54=0)," ",Q54+7)
  993. %CO:S,3,3%
  994.  
  995.  
  996.  
  997.  
  998.  
  999. %V%%R%if(P9<V7-20,R7+1,)
  1000.  
  1001. %V%%R%if((R9+7>31)|(R9=0)," ",R9+7)
  1002. %V%%R%if((R10+7>31)|(R10=0)," ",R10+7)
  1003. %V%%R%if((R11+7>31)|(R11=0)," ",R11+7)
  1004. %V%%R%if((R12+7>31)|(R12=0)," ",R12+7)
  1005. %V%%R%if((R13+7>31)|(R13=0)," ",R13+7)
  1006. %V%%R%if((R14+7>31)|(R14=0)," ",R14+7)
  1007. %V%%R%if((R15+7>31)|(R15=0)," ",R15+7)
  1008.  
  1009.  
  1010.  
  1011.  
  1012. %V%%R%if(P22<V10-20,R20+1,)
  1013.  
  1014. %V%%R%if((R22+7>30)|(R22=0)," ",R22+7)
  1015. %V%%R%if((R23+7>30)|(R23=0)," ",R23+7)
  1016. %V%%R%if((R24+7>30)|(R24=0)," ",R24+7)
  1017. %V%%R%if((R25+7>30)|(R25=0)," ",R25+7)
  1018. %V%%R%if((R26+7>30)|(R26=0)," ",R26+7)
  1019. %V%%R%if((R27+7>30)|(R27=0)," ",R27+7)
  1020. %V%%R%if((R28+7>30)|(R28=0)," ",R28+7)
  1021.  
  1022.  
  1023.  
  1024.  
  1025. %V%%R%if(P35<V13-20,R33+1,)
  1026.  
  1027. %V%%R%if((R35+7>30)|(R35=0)," ",R35+7)
  1028. %V%%R%if((R36+7>30)|(R36=0)," ",R36+7)
  1029. %V%%R%if((R37+7>30)|(R37=0)," ",R37+7)
  1030. %V%%R%if((R38+7>30)|(R38=0)," ",R38+7)
  1031. %V%%R%if((R39+7>30)|(R39=0)," ",R39+7)
  1032. %V%%R%if((R40+7>30)|(R40=0)," ",R40+7)
  1033. %V%%R%if((R41+7>30)|(R41=0)," ",R41+7)
  1034.  
  1035.  
  1036.  
  1037.  
  1038. %V%%R%if(P48<V16-20,if(R46=52,1,),)
  1039.  
  1040. %V%%R%if((R48+7>31)|(R48=0)," ",R48+7)
  1041. %V%%R%if((R49+7>31)|(R49=0)," ",R49+7)
  1042. %V%%R%if((R50+7>31)|(R50=0)," ",R50+7)
  1043. %V%%R%if((R51+7>31)|(R51=0)," ",R51+7)
  1044. %V%%R%if((R52+7>31)|(R52=0)," ",R52+7)
  1045. %V%%R%if((R53+7>31)|(R53=0)," ",R53+7)
  1046. %V%%R%if((R54+7>31)|(R54=0)," ",R54+7)
  1047. %CO:T,20,0%%CO:U,10,31%
  1048.  
  1049.  
  1050.  
  1051. Januari
  1052. Februari
  1053. Maart
  1054. April
  1055. Mei
  1056. Juni
  1057. Juli
  1058. Augustus
  1059. September
  1060. October
  1061. November
  1062. December
  1063. %CO:V,6,21%%JR% Dagen
  1064.    per
  1065. Maand
  1066.  
  1067. %V%%R%31
  1068. %V%%R%if((N1>1752)&(mod(N1,400)=0|(mod(N1,4)=0&mod(N1,100)<>0))|((N1<1753)&(mod(N1,4)=0)),29,28)
  1069. %V%%R%31
  1070. %V%%R%30
  1071. %V%%R%31
  1072. %V%%R%30
  1073. %V%%R%31
  1074. %V%%R%31
  1075. %V%%R%if(N1=1752,19,30)
  1076. %V%%R%31
  1077. %V%%R%30
  1078. %V%%R%31
  1079. %CO:W,6,15% Dagen
  1080.   tot
  1081. Maand
  1082.  
  1083. %V%%R%int(mod(if(N1<1753,N1*365+int((N1-1)/4)+5,0)+if(N1>1752,(N1-1752)*365+int((N1-1-1752)/4)-int((N1-1-1700)/100)+int((N1-1-1600)/400),0),7)+0.5)
  1084. %V%%R%int(W5+V5+0.5)
  1085. %V%%R%int(W6+V6+0.5)
  1086. %V%%R%int(W7+V7+0.5)
  1087. %V%%R%int(W8+V8+0.5)
  1088. %V%%R%int(W9+V9+0.5)
  1089. %V%%R%int(W10+V10+0.5)
  1090. %V%%R%int(W11+V11+0.5)
  1091. %V%%R%int(W12+V12+0.5)
  1092. %V%%R%int(W13+V13+0.5)
  1093. %V%%R%int(W14+V14+0.5)
  1094. %V%%R%int(W15+V15+0.5)
  1095. %CO:X,7,9%   Eerste
  1096.   Zondag
  1097.  in Mnd
  1098.  
  1099. %V%%R%8-int(mod(W5,7)+0.5)
  1100. %V%%R%8-int(mod(W6,7)+0.5)
  1101. %V%%R%8-int(mod(W7,7)+0.5)
  1102. %V%%R%8-int(mod(W8,7)+0.5)
  1103. %V%%R%8-int(mod(W9,7)+0.5)
  1104. %V%%R%8-int(mod(W10,7)+0.5)
  1105. %V%%R%8-int(mod(W11,7)+0.5)
  1106. %V%%R%8-int(mod(W12,7)+0.5)
  1107. %V%%R%if(N1=1752,17,8-int(mod(W13,7)+0.5))
  1108. %V%%R%8-int(mod(W14,7)+0.5)
  1109. %V%%R%8-int(mod(W15,7)+0.5)
  1110. %V%%R%8-int(mod(W16,7)+0.5)
  1111. %CO:Y,2,2%