10 HE=0:TOT1=0:TOT2=0:BL$=STRING$(64,32):BS$=STRING$(9,"-"):GOSUB 20:GOTO 7000
20 OPEN "O",1,"HLP":WRITE #1,4:CLOSE 1:RETURN
250 PRINT A$;:IF A$="H" OR H$="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
390 FR$="Het antwoord moet 'J' of 'N' zijn!!! 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
7000 PRINT CHR$(12);TAB(18);"VERANDEREN VAN DE PLANNING.":PRINT TAB(18);STRING$(27,"="):PRINT:PRINT
7010 PRINT"Er wordt steeds per rubriek getoond wat er gepland was om uit tegeven. Daarna kan dit bedrag worden veranderd."
7020 PRINT"Een RETURN laat het bedrag zoals het was ingevoerd.":PRINT
7030 OPEN "I",1,"PLANRUBR"
7040 OPEN "O",2,"HULP"
7050 IF EOF(1) THEN CLOSE 1,2:PRINT"Er is geen planning ingevoerd.":GOTO 7280
7060 PRINT TAB(31);"Gepland";TAB(50);"Nieuw":PRINT STRING$(64,45)
7070 WHILE NOT EOF(1)
7080 INPUT #1,PLAN$,PLANBED
7090 IF HE=1 THEN BEDR$="":GOTO 7120
7100 PRINT PLAN$;TAB(30);:PRINT USING "F#####.##";PLANBED;:PRINT TAB(49);:INPUT BEDR$
7110 GOSUB 260:IF HE=1 THEN BEDR$=""
7120 IF BEDR$="" THEN BEDR$=STR$(PLANBED)
7130 BEDR=VAL(BEDR$)
7140 IF HE=1 THEN 7170
7150 PRINT TAB(48);CHR$(23);:PRINT USING "F#####.##";BEDR
7160 TOT1=TOT1+PLANBED:TOT2=TOT2+BEDR
7170 WRITE #2,PLAN$,BEDR
7180 WEND
7190 IF HE=0 THEN PRINT TAB(30);BS$;TAB(48);BS$:PRINT"Te besteden per maaand was:";TAB(30);:PRINT USING "F#####.##";TOT1;:PRINT TAB(43);"Nu:  ";:PRINT USING "F#####.##";TOT2
7200 CLOSE 1,2
7210 KILL "PLANRUBR"
7220 NAME "HULP" AS "PLANRUBR"
7230 IF HE=1 THEN RUN "HELP"
7240 PRINT:PRINT"Wilt u de planning nog veranderen (J/N)? ";:A$=INPUT$(1)
7250 GOSUB 250:IF HE=1 THEN 7230
7260 IF A$="J" OR A$="j" THEN PRINT CHR$(12);:GOTO 7010
7270 IF A$<>"N" THEN IF A$<>"n" THEN GOSUB 390:GOTO 7240
7280 RUN "MENU"
IF A$="J" OR A$="j" THEN PRINT CHR$(12);:GOTO 7010
7270 IF A$<>"N" THEN