10 ' P. Frietman Willebrordusweg 57 Oss 20 ' 30 'Dit programma drukt kalenders af met op de verjaardag het woordje jarig 40 'Met een verandering in de dataregel en een verandering op regel 280 is het programma geschikt voor ieder jaar. 50 PRINT CHR$(26) 60 LPRINT CHR$(15) 70 PRINT"Dit programma drukt jouw kalender af." 80 PRINT 90 INPUT"Hoe heet je";NAAM$ 100 PRINT 110 PRINT" 1> Januari" 120 PRINT" 2> Februari" 130 PRINT" 3> Maart" 140 PRINT" 4> April" 150 PRINT" 5> Mei" 160 PRINT" 6> Juni" 170 PRINT" 7> Juli" 180 PRINT" 8> Augustus" 190 PRINT" 9> September" 200 PRINT" 10> Oktober" 210 PRINT" 11> November" 220 PRINT" 12> December" 230 PRINT 240 INPUT"Typ het nummer van je geboortemaand in ",GEBOORTEMAAND 250 PRINT 260 INPUT"Typ het nummer van je geboortedag in ",GEBOORTEDAG 270 ' 280 'De waarde van DAG en DAG1 moet ieder jaar aangepast worden. 290 LET DAG = -6:LET DAG1 = -2 300 LPRINT TAB(40);CHR$(14); 310 LPRINT NAAM$;" krijgt deze kalender van" 320 LPRINT 330 LPRINT TAB(60);CHR$(14);"HCC CPM" 340 LPRINT TAB(60);CHR$(14);"--------" 350 LPRINT 360 READ JAAR 370 LPRINT TAB(68);CHR$(14);JAAR 380 LPRINT 390 FOR MAAND2 = 1 TO 6 400 LET MAAND = 2 * MAAND2 - 1 410 READ MAAND$,AANTALDAGEN,MAAND1$,AANTALDAGEN1 420 IF VLAG1 = 1 THEN LET DAG1 = -(-DAG + AANTALDAGEN - 28) 430 IF DAG1 <= -6 THEN LET DAG1 = DAG1 + 7 440 LPRINT TAB(35);CHR$(14);MAAND$;TAB(68);MAAND1$ 450 LPRINT 460 LPRINT TAB(15);" Z M D W D V Z"; 470 LPRINT TAB(80);" Z M D W D V Z" 480 LPRINT 490 IF AANTALDAGEN < AANTALDAGEN1 THEN MAX = AANTALDAGEN1 ELSE MAX = AANTALDAGEN 500 WHILE+ DAG < = MAX OR DAG1 < = MAX 510 LPRINT TAB(15); 520 FOR T = 1 TO 7 530 IF DAG = GEBOORTEDAG AND MAAND = GEBOORTEMAAND THEN LPRINT"JARIG ";:GOTO 590 540 IF DAG < = 0 OR DAG > AANTALDAGEN THEN 570 550 LPRINT USING" ## ";DAG; 560 GOTO 580 570 LPRINT" "; 580 IF DAG = AANTALDAGEN THEN HULP = 1 - T 590 LET DAG = DAG + 1 600 NEXT T 610 LPRINT TAB(80); 620 MAAND1 = MAAND + 1 630 FOR T = 1 TO 7 640 IF DAG1 = GEBOORTEDAG AND MAAND1 = GEBOORTEMAAND THEN LPRINT"JARIG ";:GOTO 700 650 IF DAG1 < = 0 OR DAG1 > AANTALDAGEN1 THEN 680 660 LPRINT USING" ## ";DAG1; 670 GOTO 690 680 LPRINT" "; 690 IF DAG1 = AANTALDAGEN1 THEN HULP1 = 1 - T 700 LET DAG1 = DAG1 + 1 710 NEXT T 720 WEND 730 LPRINT 740 LET DAG = HULP1 750 IF HULP1 = -6 THEN DAG = 1 760 VLAG1 = 1 770 NEXT MAAND2 780 END 790 DATA 1984,Januari,31,Februari,29,Maart,31,April,30 800 DATA Mei,31,Juni,30,Juli,31,Augustus,31 810 DATA September,30,Oktober,31,November,30,December,31 29,Maart,31,April,30 800 DATA Mei,31,Juni,30,Juli,31,Augustus,31 810 DATA September,30,Oktober,31,November