10 HE=0:TOT=0:BL$=STRING$(64,32):GOSUB 20:GOSUB 200:GOTO 3000
20 OPEN "O",1,"HLP":WRITE #1,2:CLOSE 1:RETURN
200 OPEN "I",1,"DAT":INPUT #1,DAT$,D:CLOSE 1
240 RETURN
250 PRINT A$;:IF A$="H" OR A$="h" THEN LINE INPUT B$:HE$=A$+B$ ELSE PRINT:GOTO 270
260 IF HE$="HELP" OR HE$="Help" OR HE$="help" THEN HE=1
270 RETURN
350 FR$="Deze datum bestaat niet!!! Nog eens.....":GOTO 460
360 FR$="Het bedrag":GOTO 450
390 FR$="Het antwoord moet 'J' of 'N' zijn!!! Nog eens.....":GOTO 460
410 FR$="Het regelnummer":GOTO 450
450 FR$=FR$+" is niet goed!!! Nog eens....."
460 PRINT:FOR I=1 TO 4:PRINT FR$
470 FOR J=1 TO 300:NEXT J:PRINT CHR$(23);BL$
480 FOR J=1 TO 100:NEXT J:PRINT CHR$(23);:NEXT I
490 FOR I=1 TO 4:PRINT CHR$(23);:NEXT I:PRINT:RETURN
3000 PRINT CHR$(12);TAB(23);"INVOER INKOMSTEN.":PRINT TAB(23);STRING$(17,61):PRINT:PRINT
3010 PRINT"Actuele datum: ";LEFT$(DAT$,5);TAB(51);"Boekjaar 19";RIGHT$(DAT$,2)
3020 PRINT STRING$(64,45)
3030 OPEN "I",1,"INKOMST"
3040 IF EOF(1) THEN 3070
3050 INPUT #1,INK
3060 IF INK<>0 THEN PRINT"Tot nu toe is aan inkomsten geboekt F";INK
3070 CLOSE 1
3080 OPEN "I",1,"INKSPE"
3090 OPEN "O",2,"HULP"
3100 IF INK=0 THEN 3160
3110 WHILE NOT EOF(1)
3120 INPUT #1,DA,OMS$,BED
3130 PRINT USING "###";DA;:PRINT"  ";OMS$;TAB(56);:PRINT USING "F#####.##";BED:TOT=TOT+BED
3140 WRITE #2,DA,OMS$,BED
3150 WEND
3160 PRINT:PRINT"U kunt nu gegevens invoeren. Om te stoppen moet de letter 'S'   worden ingetypt, voor veranderen de letter 'V'."
3170 PRINT:LINE INPUT "Datum, S of V: ";DA$:HE$=DA$:GOSUB 260
3180 IF HE=1 THEN 3340
3190 IF DA$="S" OR DA$="s" THEN 3330
3200 IF DA$="V" OR DA$="v" THEN 3340
3210 DA=VAL(DA$):IF DA<1 OR DA>D THEN GOSUB 350:GOTO 3170
3220 LINE INPUT "Omschrijving:  ";OMS$:HE$=OMS$:GOSUB 260
3230 IF HE=1 THEN 3340
3240 OMS$=LEFT$(OMS$,45)
3250 LINE INPUT "Bedrag:        ";BED$:HE$=BED$:GOSUB 260
3260 IF HE=1 THEN 3340
3270 BED=VAL(BED$):IF BED<.01 OR BED>9999.99 THEN GOSUB 360:PRINT:GOTO 3250
3280 FOR I=1 TO 3:PRINT CHR$(23);BL$;CHR$(23);:NEXT I
3290 PRINT CHR$(23);:PRINT USING "###";DA;:PRINT"  ";OMS$;TAB(56);:PRINT USING "F#####.##";BED
3300 TOT=TOT+BED
3310 WRITE #2,DA,OMS$,BED
3320 GOTO 3170
3330 PRINT:PRINT"Er is nu voor";TOT;"aan inkomsten geboekt."
3340 CLOSE 1,2
3350 OPEN "O",1,"INKOMST"
3360 WRITE #1,TOT
3370 CLOSE 1
3380 KILL "INKSPE"
3390 NAME "HULP" AS "INKSPE"
3400 IF DA$="V" OR DA$="v" THEN 3440
3410 IF HE=1 THEN RUN "HELP"
3420 FOR I=1 TO 1000:NEXT I
3430 RUN "MENU"
3440 PRINT CHR$(12);:J=0:TOT=0
3450 OPEN "I",1,"INKSPE"
3460 WHILE NOT EOF(1)
3470 J=J+1
3480 INPUT #1,DA,OMS$,BED
3490 PRINT USING "###";J;:PRINT USING "###";DA;:PRINT " ";OMS$;TAB(55);:PRINT USING "F#####.##";BED
3500 WEND
3510 CLOSE 1
3520 PRINT:PRINT"Om een regel te verwijderen moet achter 'datum' de letter 'V'   worden ingetypt."
3530 PRINT:PRINT"Welke regel wilt u veranderen (1...";RIGHT$(STR$(J),LEN(STR$(J))-1);")? ";
3540 LINE INPUT R$:HE$=R$:GOSUB 260:IF HE=1 THEN 3410
3550 R=VAL(R$):IF R<1 OR R>J THEN GOSUB 410:GOTO 3530
3560 PRINT:LINE INPUT "Datum of V:   ";VDA$:HE$=VDA$:GOSUB 260
3570 IF HE=1 THEN 3410
3580 IF VDA$="V" OR VDA$="v" THEN 3660
3590 VDA=VAL(VDA$):IF VDA<1 OR VDA>D THEN GOSUB 350:GOTO 3560
3600 LINE INPUT "Omschrijving: ";VOMS$:HE$=VOMS$:GOSUB 260
3610 IF HE=1 THEN 3410
3620 VOMS$=LEFT$(VOMS$,45)
3630 LINE INPUT "Bedrag:       ";VBED$:HE$=VBED$:GOSUB 260
3640 IF HE=1 THEN 3410
3650 VBED=VAL(VBED$):IF VBED<.01 OR VBED>9999.99 THEN GOSUB 360:PRINT:GOTO 3630
3660 I=0
3670 OPEN "I",1,"INKSPE"
3680 OPEN "O",2,"HULP"
3690 WHILE NOT EOF(1)
3700 I=I+1
3710 INPUT #1,DA,OMS$,BED
3720 IF I=R AND VDA$="V" OR VDA$="v" THEN 3750
3730 IF I=R THEN WRITE #2,VDA,VOMS$,VBED:GOTO 3750
3740 WRITE #2,DA,OMS$,BED
3750 WEND
3760 CLOSE 1,2
3770 KILL "INKSPE"
3780 NAME "HULP" AS "INKSPE"
3790 PRINT:PRINT"Wilt u nog meer veranderen (J/N)? ";:A$=INPUT$(1)
3800 GOSUB 250:IF HE=1 THEN 3410
3810 IF A$="N" OR A$="n" THEN PRINT CHR$(12):GOTO 3080
3820 IF A$<>"J" THEN IF A$<>"j" THEN GOSUB 390:GOTO 3790
3830 FOR I=1 TO 5:PRINT CHR$(23);BL$;CHR$(23);:NEXT I
3840 GOTO 3560
20 IF A$<>"J" THEN IF A$<>"j" THEN GOSUB 390:GOTO 3790
3830 FOR I=1 TO 5:PRINT CHR$(23);BL$;CHR$(2