10 DIM MA$(12):ST$=STRING$(64,45):BS$=STRING$(9,"-"):GOSUB 200:GOTO 5400
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"
5400 PRINT CHR$(12);:GOSUB 600:PRINT TAB(3);"Overzicht inkomsten en uitgaven van de maand ";MA$(M);
5410 PRINT " 19";RIGHT$(DAT$,2);".":PRINT:PRINT
5420 OPEN "I",1,"INKSPE"
5430 PRINT TAB(27);"Inkomsten."
5440 IF EOF(1) THEN PRINT:PRINT"Er zijn deze maand geen inkomsten geboekt.":PRINT:GOTO 5520
5450 PRINT:PRINT"Datum";TAB(10);"Omschrijving";TAB(57);"Bedrag":PRINT ST$
5460 WHILE NOT EOF(1)
5470 INPUT #1,DA,OMS$,BED
5480 PRINT USING "###";DA;:PRINT TAB(9);OMS$;TAB(56);:PRINT USING "F#####.##";BED
5490 TOT=TOT+BED
5500 WEND
5510 PRINT TAB(56);BS$:PRINT TAB(56);:PRINT USING "F#####.##";TOT:TOT=0
5520 CLOSE 1:PRINT
5530 I=0:OPEN "I",1,"RUBRIEK"
5540 IF EOF(1) THEN PRINT"Er zijn geen rubrieken ingevoerd.":GOTO 5760
5550 INPUT #1,A:DIM RUBR$(A)
5560 WHILE NOT EOF(1)
5570 I=I+1:INPUT #1,RUBR$(I),RUBRBED
5580 WEND
5590 CLOSE 1
5600 FOR J=1 TO A
5610 PRINT TAB(32-LEN(RUBR$(J))/2);RUBR$(J)
5620 OPEN "I",1,LEFT$(RUBR$(J),4)
5630 IF EOF(1) THEN PRINT:PRINT"Op deze rubriek is deze maand niets geboekt.":PRINT:PRINT:GOTO 5740
5640 PRINT:PRINT"Datum";TAB(10)"Omschrijving";TAB(57);"Bedrag":PRINT ST$
5650 I=0
5660 WHILE NOT EOF(1)
5670 INPUT #1,DA,OMS$,BED
5680 PRINT USING "###";DA;:PRINT TAB(9);OMS$;TAB(56);:PRINT USING "F#####.##";BED
5690 TOT=TOT+BED
5700 I=I+1
5710 WEND
5720 IF I=1 THEN PRINT:PRINT:GOTO 5740
5730 PRINT TAB(56);BS$:PRINT TAB(56);:PRINT USING "F#####.##";TOT:TOT=0
5740 CLOSE 1
5750 NEXT J
5760 GOSUB 650:RUN "PRINT"
730 PRINT T