10 DIM MA$(12):TOT1=0:TOT2=0:BS$=STRING$(9,"-"):GOSUB 200:GOTO 5700
200 OPEN "I",1,"DAT":INPUT #1,DAT$:CLOSE 1
210 M=VAL(MID$(DAT$,4,2)):FOR I=1 TO 12:READ MA$(I):NEXT I
230 N=M-1:IF M=1 THEN N=12:DAT$=LEFT$(DAT$,6)+RIGHT$(STR$(VAL(RIGHT$(DAT$,2))-1),2)
240 RETURN
380 PRINT"Er zijn geen gegevens aanwezig....":RETURN
600 OPEN "I",1,"PRNT":INPUT #1,PR:CLOSE 1
610 IF PR=1 THEN POKE 3,129
620 RETURN
650 POKE 3,0
660 RETURN
900 DATA "januari","februari","maart","april","mei","juni","juli"
910 DATA "augustus","september","oktober","november","december"
5700 PRINT CHR$(12);:GOSUB 600:PRINT TAB(18-(LEN(MA$(M))+LEN(MA$(N)))/2);
5710 PRINT"Overzicht uitgaven van ";MA$(N);" en ";MA$(M);".":PRINT:PRINT
5720 PRINT"Rubriek:";TAB(31-LEN(MA$(N))/2);MA$(N);TAB(56-LEN(MA$(M))/2);MA$(M)
5730 PRINT STRING$(64,45)
5740 OPEN "I",1,"RUB"+LEFT$(MA$(N),3)+RIGHT$(DAT$,2)
5750 OPEN "I",2,"RUBRIEK"
5760 IF EOF(1) AND EOF(2) THEN GOSUB 380:GOTO 6070
5770 IF EOF(1) THEN INPUT #2,RUBR2$,RUBRBED2:GOTO 5950
5780 INPUT #1,A
5790 INPUT #2,A1
5800 INPUT #1,RUBR1$,RUBRBED1
5810 IF EOF(2) THEN 5990
5820 INPUT #2,RUBR2$,RUBRBED2
5830 IF RUBR1$<=RUBR2$ THEN 5850
5840 GOTO 5910
5850 PRINT RUBR1$;TAB(26);:PRINT USING "F#####.##";RUBRBED1;:PRINT TAB(52);:TOT1=TOT1+RUBRBED1
5860 IF RUBR1$=RUBR2$ THEN X=1:PRINT USING "F#####.##";RUBRBED2:TOT2=TOT2+RUBRBED2 ELSE PRINT
5870 IF EOF(1) AND EOF(2) THEN 6030
5880 IF EOF(1) THEN 5950
5890 INPUT #1,RUBR1$,RUBRBED1
5900 IF X=1 THEN X=0:GOTO 5810 ELSE GOTO 5830
5910 PRINT RUBR2$;TAB(52);:PRINT USING "F#####.##";RUBRBED2:TOT2=TOT2+RUBRBED2
5920 IF EOF(2) THEN 5990
5930 INPUT #2,RUBR2$,RUBRBED2
5940 GOTO 5830
5950 PRINT RUBR2$;TAB(52);:PRINT USING "F#####.##";RUBRBED2:TOT2=TOT2+RUBRBED2
5960 IF EOF(2) THEN 6030
5970 INPUT #2,RUBR2$,RUBRBED2
5980 GOTO 5950
5990 PRINT RUBR1$;TAB(26);:PRINT USING "F#####.##";RUBRBED1:TOT1=TOT1+RUBRBED1
6000 IF EOF(1) THEN 6030
6010 INPUT #1,RUBR1$,RUBRBED1
6020 GOTO 5990
6030 PRINT TAB(26);BS$;TAB(52);BS$
6040 PRINT TAB(10);"Totaal";TAB(26);:PRINT USING "F#####.##";TOT1;:PRINT TAB(52);:PRINT USING "F#####.##";TOT2
6050 CLOSE 1,2
6060 GOSUB 650
6070 IF PR=0 THEN PRINT:PRINT"Druk op een toets.";:A$=INPUT$(1)
6080 RUN "PRINT"
#.##";TOT2
6050 CLOSE 1,2
6060 GOSUB 650
6070 IF PR=0 THEN PRI