10 BL$=STRING$(64,32):Y$="-":GOSUB 20:GOSUB 200:GOTO 1050
20 OPEN "O",1,"HLP":WRITE #1,6:CLOSE 1:RETURN
200 OPEN "I",1,"DAT":INPUT #1,DAT$:CLOSE 1
240 RETURN
260 IF HE$="HELP" OR HE$="Help" OR HE$="help" THEN HE=1
270 RETURN
300 FR$="Wel iets invullen!!!":GOTO 460
310 FR$="Denk er om.... 8 karakters invullen, dus bijv. '01.02.81'.":GOTO 460
320 FR$="Het jaar is niet goed!!! Nog eens.....":GOTO 460
330 FR$="De maand is niet goed!!! Nog eens.....":GOTO 460
340 FR$="De dag is niet goed!!! Nog eens....."
460 PRINT:FOR I=1 TO 4:PRINT FR$
470 FOR J=1 TO 300:NEXT J:PRINT CHR$(23);BL$
480 FOR J=1 TO 100:NEXT J:PRINT CHR$(23);:NEXT I
490 FOR I=1 TO 3:PRINT CHR$(23);:NEXT I:PRINT:RETURN
900 DATA "januari","februari","maart","april","mei","juni","juli"
910 DATA "augustus","september","oktober","november","december"
920 DATA "zondag","maandag","dinsdag","woensdag","donderdag"
930 DATA "vrijdag","zaterdag"
940 DATA 31,28,31,30,31,30,31,31,30,31,30,31
1000 IF M<=2 THEN J=J-1:M=M+13
1010 IF M<13 THEN M=M+1
1020 DAG=INT(365.25*J)+INT(30.6001*M)+D
1030 DNR%=INT(7*((DAG+5)/7-INT((DAG+5)/7))+.1)
1040 NU$=D$(DNR%):RETURN
1050 PRINT CHR$(12)
1060 PRINT TAB(29);"DATUM.":PRINT TAB(29);"======"
1070 PRINT:PRINT:PRINT
1080 DIM D$(6),AD(12),MND$(12)
1090 FOR I=1 TO 12:READ MND$(I):NEXT I
1100 FOR I=0 TO 6:READ D$(I):NEXT I
1110 FOR I=1 TO 12:READ AD(I):NEXT I
1120 LINE INPUT"Wat is de datum vandaag?  (dd-mm-jj) ";DATUM$
1130 HE$=DATUM$:GOSUB 260:IF HE=1 THEN RUN "HELP"
1140 IF LEN(DATUM$)=0 THEN GOSUB 300:GOTO 1120
1150 IF LEN(DATUM$)<>8 THEN GOSUB 310:GOTO 1120
1160 JA$=RIGHT$(DATUM$,2):IF VAL(JA$)<83 THEN GOSUB 320:GOTO 1120
1170 MA$=MID$(DATUM$,4,2):IF VAL(MA$)<1 OR VAL(MA$)>12 THEN GOSUB 330:GOTO 1120
1180 IF VAL(DA$)=29 AND VAL(MA$)=2 AND INT(VAL(JA$)/4)<>VAL(JA$)/4 THEN GOSUB 340:GOTO 1120
1190 DA$=LEFT$(DATUM$,2):IF VAL(DA$)<1 OR VAL(DA$)>AD(VAL(MA$)) THEN GOSUB 340:GOTO 1120
1200 DATUM$=DA$+"-"+MA$+"-"+JA$
1210 J=VAL(JA$):M=VAL(MA$):D=VAL(DA$)
1220 OPEN "O",1,"DAT":WRITE #1,DATUM$,AD(M):CLOSE 1
1230 IF J<100 THEN J=J+1900
1240 GOSUB 1000
1250 VDAG=DAG:PDAG$=NU$
1260 J=VAL(JA$):IF J<100 THEN J=J+1900:M=1:D=1
1270 GOSUB 1000
1280 IF DNR<>0 THEN D=D+1:GOTO 1270
1290 WNR=INT((VDAG-DAG)/7)+1
1300 PRINT:PRINT"Het is ";PDAG$;VAL(DA$);MND$(VAL(MA$));" ";"19";JA$;","
1310 PRINT:PRINT"ofwel ";PDAG$;" ";DATUM$;"  ";"weeknr:";WNR;CHR$(8);"."
1320 PRINT:PRINT"De laatste run was op d.d ";DAT$;".":PRINT
1330 FOR I=1 TO 2000:NEXT
1340 RUN "MENU"
nr:";WNR;CHR$(8);"."
1320 PRINT:PRINT"De laatst