10 DIM MA$(12):TOT1=0:TOT2=0:BS$=STRING$(9,"-"):GOSUB 200:GOTO 6500
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
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:WIDTH LPRINT 80
620 RETURN
650 POKE 3,0:WIDTH 64
660 RETURN
900 DATA "januari","februari","maart","april","mei","juni","juli"
910 DATA "augustus","september","oktober","november","december"
6500 PRINT CHR$(12);:GOSUB 600:PRINT TAB(8-LEN(MA$(M))/2);"Overzicht van de uitgaven van januari tot ";MA$(M);" 19";RIGHT$(DAT$,2);"."
6510 PRINT:PRINT
6520 PRINT"Rubriek";TAB(26);"gepland";TAB(40);"jan-";LEFT$(MA$(M),4);TAB(56);"verschil"
6530 PRINT STRING$(64,45)
6540 OPEN "I",1,"RUBRIEK"
6550 INPUT #1,A
6560 CLOSE 1
6570 DIM U$(A+1),U(A+1,13):I=1
6580 OPEN "I",1,"PLANRUBR"
6590 WHILE NOT EOF(1)
6600 INPUT #1,U$(I),U(I,0)
6610 U(I,0)=U(I,0)*M
6620 I=I+1
6630 WEND
6640 CLOSE 1
6650 U$(I)="Onbekend":U(I,0)=0
6660 FOR I=1 TO M
6670 OPEN "I",1,"RUB"+LEFT$(MA$(I),3)+RIGHT$(DAT$,2)
6680 INPUT #1,A
6690 INPUT #1,RUBR$,RUBRBED
6700 FOR J=1 TO A-1
6710 IF RUBR$=U$(J) THEN U(J,I)=RUBRBED:GOTO 6740
6720 NEXT J
6730 U(J,I)=RUBRBED
6740 IF NOT EOF(1) THEN 6690
6750 CLOSE 1
6760 NEXT I
6770 FOR I=1 TO A
6780 FOR J=1 TO M
6790 U(I,13)=U(I,13)+U(I,J)
6800 NEXT J
6810 NEXT I
6820 FOR I=1 TO A-1
6830 PRINT U$(I);TAB(25);:PRINT USING "F#####.##";U(I,0);:PRINT TAB(40);:PRINT USING "F#####.##";U(I,13);:PRINT TAB(55);:PRINT USING "F#####.##-";U(I,0)-U(I,13)
6840 TOT1=TOT1+U(I,O):TOT2=TOT2+U(I,13)
6850 NEXT I
6860 IF U(A,13)<>0 THEN PRINT U$(I),TAB(25);:PRINT USING "F#####.##";U(I,0);:PRINT TAB(40);:PRINT USING "F#####.##";U(I,13);:PRINT TAB(55);:PRINT USING "F#####.##-";U(I,0)-U(I,13)
6870 PRINT TAB(25);BS$;TAB(40);BS$;TAB(55);BS$
6880 PRINT TAB(9);"Totaal";TAB(25);:PRINT USING "F#####.##";TOT1;:PRINT TAB(40);:PRINT USING "F#####.##";TOT2;:PRINT TAB(55);:PRINT USING "F#####.##-";TOT1-TOT2
6890 PRINT:GOSUB 650
6900 IF PR=0 THEN PRINT"Druk op een toets.";:A$=INPUT$(1)
6910 RUN "PRINT"
ING "F#####.##-";TOT1-TOT2
6890 PRIN