10 DIM MA$(12):GOSUB 200:GOTO 8000
200 OPEN "I",1,"DAT":INPUT #1,DAT$:CLOSE 1
210 M=VAL(MID$(DAT$,4,2)):FOR I=1 TO M:READ MA$(I):NEXT I
240 RETURN
900 DATA "januari","februari","maart","april","mei","juni","juli"
910 DATA "augustus","september","oktober","november","december"
8000 PRINT CHR$(12);TAB(20);"AFSLUITEN VAN DE MAAND.":PRINT TAB(20);STRING$(23,"="):PRINT
8010 PRINT:PRINT"De totaal bedragen van de rubrieken worden nu op schijf gezet."
8020 PRINT:PRINT"De totaal bedragen worden een jaar bewaard en bij diverse utili-ty programma's gebruikt."
8030 OPEN "I",1,"RUBRIEK"
8040 IF EOF(1) THEN CLOSE 1:PRINT"Er zijn geen rubrieken ingevoerd.":GOTO 8280
8050 OPEN "O",2,"RUB"+LEFT$(MA$(M),3)+RIGHT$(DAT$,2)
8060 INPUT #1,A:WRITE #2,A
8070 WHILE NOT EOF(1)
8080 INPUT #1,RUBR$,RUBRBED
8090 PRINT TAB(10);RUBR$;TAB(40);:PRINT USING "F#####.##";RUBRBED
8100 WRITE #2,RUBR$,RUBRBED
8110 WEND
8120 CLOSE 1,2
8130 OPEN "I",1,"RUBRIEK"
8140 OPEN "O",2,"HULP"
8150 INPUT #1,A:WRITE #2,A
8160 WHILE NOT EOF(1)
8170 INPUT #1,RUBR$,RUBRBED:RUBRBED=0
8180 WRITE #2,RUBR$,RUBRBED
8190 OPEN "O",3,LEFT$(RUBR$,4)
8200 CLOSE 3
8210 WEND
8220 CLOSE 1,2
8230 KILL "RUBRIEK"
8240 NAME "HULP" AS "RUBRIEK"
8250 OPEN "O",1,"INKOMST"
8260 WRITE #1,0
8270 CLOSE 1
8280 OPEN "O",1,"INKSPE"
8290 CLOSE 1
8300 RUN "MENU"
 "RUBRIEK"
8250 OPEN "O",1,"INKOMST"
8260 WRITE #1,0
8270 CLOSE 1