10 DIM MA$(12):GOSUB 200:GOTO 5200
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
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"
5200 TOT=0:PRINT CHR$(12);:GOSUB 600:PRINT TAB(14);"Overzicht van ";MA$(M);" 19";RIGHT$(DAT$,2);"."
5210 PRINT:PRINT:PRINT TAB(5);"Rubriek:":PRINT TAB(5);"--------":PRINT
5220 OPEN "I",1,"RUBRIEK"
5230 INPUT #1,A
5240 WHILE NOT EOF(1)
5250 INPUT #1,RUBR$,RUBRBED
5260 PRINT TAB(10);RUBR$;TAB(40);:PRINT USING"F#####.##";RUBRBED:TOT=TOT+RUBRBED
5270 WEND
5280 CLOSE 1:PRINT TAB(41);"--------":PRINT TAB(20);"Totaal uitgaven";
5290 PRINT TAB(40);:PRINT USING "F#####.##";TOT
5300 OPEN "I",1,"INKOMST"
5310 IF EOF(1) THEN CLOSE 1:GOTO 5220
5320 INPUT #1,BED
5330 CLOSE 1
5340 PRINT TAB(10);"Inkomsten";TAB(40);:PRINT USING "F#####.##";BED
5350 PRINT TAB(41);"--------"
5360 PRINT TAB(20);"Saldo";TAB(40);:PRINT USING "F#####.##-";BED-TOT
5370 GOSUB 650
5380 IF PR=0 THEN PRINT:PRINT"Druk op een toets.";:A$=INPUT$(1)
5390 RUN "PRINT"
USING "F#####.##-";BED-TOT
5370 GO