10 DIM MA$(12):TOT1=0:TOT2=0:BS$=STRING$(9,"-"):GOSUB 200:GOTO 6100
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"
6100 PRINT CHR$(12);:GOSUB 600:PRINT TAB(18-LEN(MA$(M)));"Overzicht uitgaven van "MA$(M);" en de planning.":PRINT:PRINT
6110 PRINT"Rubriek:";TAB(26);"gepland";TAB(44-LEN(MA$(M))/2);MA$(M);TAB(56)"verschil"
6120 PRINT STRING$(64,45)
6130 OPEN "I",1,"PLANRUBR"
6140 OPEN "I",2,"RUBRIEK"
6150 IF EOF(1) AND EOF(2) THEN GOSUB 380:GOTO 6460
6160 IF EOF(1) THEN INPUT #2,RUBR$,RUBRBED:GOTO 6340
6170 INPUT #2,A
6180 INPUT #1,PLAN$,PLANBED
6190 IF EOF(2) THEN 6380
6200 INPUT #2,RUBR$,RUBRBED
6210 IF PLAN$<=RUBR$ THEN 6230
6220 GOTO 6290
6230 PRINT PLAN$;TAB(25);:PRINT USING "F#####.##";PLANBED;:PRINT TAB(40);:TOT1=TOT1+PLANBED
6240 IF PLAN$=RUBR$ THEN X=1:PRINT USING "F#####.##";RUBRBED;:PRINT TAB(55);:PRINT USING "F#####.##-";PLANBED-RUBRBED:TOT2=TOT2+RUBRBED ELSE PRINT TAB(55);:PRINT USING "F#####.##";PLANBED
6250 IF EOF(1) AND EOF(2) THEN 6420
6260 IF EOF(1) THEN 6340
6270 INPUT #1,PLAN$,PLANBED
6280 IF X=1 THEN X=0:GOTO 6190 ELSE GOTO 6210
6290 PRINT RUBR$;TAB(40);:PRINT USING "F#####.##";RUBRBED;:PRINT TAB(55);:PRINT USING "F#####.##-";RUBRBED*-1;:PRINT "  (Niet gepland)":TOT2=TOT2+RUBRBED
6300 IF EOF(2) THEN 6380
6310 INPUT #2,RUBR$,RUBRBED
6320 IF RUBR$="Einde" THEN 6300
6330 GOTO 6210
6340 PRINT RUBR$;TAB(40);:PRINT USING "F#####.##";:PRINT TAB(55);:PRINT USING "F#####.##-";RUBR$*-1;:PRINT "  (Niet gepland)":RUBRBED:TOT2=TOT2+RUBRBED
6350 IF EOF(2) THEN 6420
6360 INPUT #2,RUBR$,RUBRBED
6370 GOTO 6340
6380 PRINT PLAN$;TAB(25);:PRINT USING "F#####.##";PLANBED:PRINT TAB(55);:PRINT USING "F#####.##";PLANBED":TOT1=TOT1+PLANBED
6390 IF EOF(1) THEN 6420
6400 INPUT #1,PLAN$,PLANBED
6410 GOTO 6380
6420 PRINT TAB(25);BS$;TAB(40);BS$;TAB(55);BS$
6430 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
6440 CLOSE 1,2
6450 GOSUB 650
6460 IF PR=0 THEN PRINT:PRINT"Druk op een toets.";:A$=INPUT$(1)
6470 RUN "PRINT"
;TOT1-TOT2
6440 CLOSE 1,2
6450 GOSUB 650
6460 IF PR=0 THEN PRINT:PRINT"Druk op e