5 GOTO 405
10  REM **** BEPALING DAG VAN DE WWEK ***
20 REM  A.H.V. DE DATUM WORDT DE DAG VAN DE WEEK BEPAALD
30 DATA ZONDAG,MAANDAG,DINSDAG,WOENSDAG,DONDERDAG,VRIJDAG
40 DATA ZATERDAG
50 PRINT CHR$(27)"E"
60 PRINT
70 PRINT"**** BEPALING DAG VAN DE WEEK ****"
80 PRINT
90 PRINT"DATUM : DAG,MND,JAAR,DD,MM,JJJJ ";
100 INPUT D,M,J
110 IF (D <1) OR (D>31) THEN 90
120 IF (M<1)  OR (M>12) THEN 90
130 IF (J<1700) OR (J> 3000) THEN 90
140 REM ** REDDEN VAN ORGINELE DATUM **
150 M2=M
160 J2=J
170 REM ** BEREKENING **
180 IF M >2 THEN 210
190 J=J-1
200 M=M+12
210 E=INT(J/100)
220 Y=J-E*100
230 A=INT(2.6001 *(M-2)-.2)+D+Y+INT(Y/4)+INT(E/4)-2*E
240 A=A-INT(A/7)*7+1
250 REM ** BIJZOEKEN VAN DE NAAM VAN DE MAAND **
260 RESTORE
270 FOR I=1 TO A
280 READ A$
290 NEXT I
300 REM *** UITVOER VAN DE GEGEVENS ***
310 PRINT CHR$(27)"E"
320 PRINT TAB(10)"**** DAG VAN DE MAAND ****"
330 PRINT
340 PRINT TAB(10)"DATUM :"D;"-";M2;"-";J2
350 PRINT TAB(10)"DE BIJBEHORENDE DAG IS :";A$
360 PRINT
370 PRINT:PRINT:PRINT
380  PRINT"WILT U NOG VERDER MET PROGAMMA DATUM  " 
385 B$="NEE = TERUG NAAR MASTER PROGAMMA " :GOSUB 500
390 IF S=2 THEN CHAIN "ADMIN"
400 GOTO 10
405 PRINT CHR$(27)"E"
410 PRINT"*** BEPALING VAN DE DAG VAN DE WEEK ***"
414 PRINT:PRINT
430 PRINT:
440 PRINT"AFHANKELIJK VAN DE DATUM WORDT DE DAG VAN DE WEEK BEPAALD"
450 GOTO 10
500 REM **** JA/NEE ****
510 PRINT B$+ "  <JA/NEE>";
520 INPUT L$ : L$ =LEFT$(L$,1) :S=0
530 IF L$="J" THEN S =1
540 IF L$="N" THEN S =2
550 IF S=0 THEN 510
560 RETURN
EE>";
520 INPUT L$ : L$ =LEFT$(L$,1) :S=0
530 IF L$="J" THEN S =1
540 IF L$="N" THEN S =2
550 IF S=0 THEN 