10 B=0:HE=0:BL$=STRING$(64,32):GOSUB 20:GOTO 9000
20 OPEN "O",1,"HLP":WRITE #1,5:CLOSE 1: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
390 FR$="Het antwoord moet 'J' of 'N' zijn!!! Nog eens.....":GOTO 460
430 FR$="Het antwoord moet 'T', 'V' of 'S' zijn!!! Nog eens.....":GOTO 460
440 FR$="Wel een getal invullen!!! 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
9000 PRINT CHR$(12);TAB(19);"VERANDEREN VAN RUBRIEKEN.":PRINT TAB(19);STRING$(25,"="):PRINT
9010 PRINT:PRINT"Wilt u aan de bestaande rubrieken andere rubrieken toevoegen    (J/N)? ";
9020 A$=INPUT$(1):GOSUB 250:IF HE=1 THEN 9710
9030 IF A$="N" OR A$="n" THEN 9090
9040 IF A$<>"J" THEN IF A$<>"j" THEN GOSUB 390:PRINT CHR$(23);:GOTO 9010
9050 B=0:V=0:PRINT:LINE INPUT "Hoeveel rubrieken wilt u toevoegen? ";B$
9060 HE$=B$:GOSUB 260:IF HE=1 THEN 9710
9070 IF ASC(B$)<48 OR ASC(B$)>57 THEN GOSUB 440:GOTO 9050
9080 B=VAL(B$)
9090 OPEN "I",1,"RUBRIEK"
9100 IF EOF(1)THEN CLOSE:GOTO 9160
9110 INPUT #1,A
9120 DIM RUBR$(A+B+2),RUBRBED(A+B+2),PLAN$(A+B+2),PLANBED(A+B+2)
9130 FOR I=1 TO A
9140 INPUT #1,RUBR$(I),RUBRBED(I)
9150 NEXT I
9160 CLOSE 1
9170 PRINT CHR$(12);"De volgende rubrieken zijn aanwezig:":PRINT
9180 T=INT(A/2):IF T<>A/2 THEN T1=1 ELSE T1=0
9190 FOR I=1 TO T:IF I<10 THEN PRINT " ";
9200 PRINT"  ";I;"  ";RUBR$(I);TAB(32);I+T+T1;"  ";RUBR$(I+T+T1)
9210 NEXT I:IF T1=1 AND I<10 THEN PRINT"   ";I;"  ";RUBR$(I)
9220 IF T1=1 AND I>9 THEN PRINT"  ";I;"  ";RUBR$(I)
9230 PRINT:PRINT"Wilt u rubrieken (T)oevoegen of (V)erwijderen of (S)toppen? ";
9240 A$=INPUT$(1):GOSUB 250:IF HE=1 THEN 9710
9250 IF A$="V" OR A$="v" THEN 9390
9260 IF A$="S" OR A$="s" THEN 9490
9270 IF A$<>"T" THEN IF A$<>"t" THEN GOSUB 430:GOTO 9230
9280 A=A+1:PRINT:LINE INPUT "Wat is de naam van de nieuwe rubriek? ";RUBR$(A)
9290 HE$=RUBR$(A):GOSUB 260:IF HE=1 THEN 9710
9300 RUBRBED(A)=0:GOSUB 9360
9310 PRINT:PRINT"Meer toevoegingen (J/N)? ";:A$=INPUT$(1)
9320 GOSUB 250:IF HE=1 THEN 9710
9330 IF A$="J" OR A$="j" THEN 9280
9340 IF A$="N" OR A$="n" THEN 9230
9350 GOSUB 390:GOTO 9310
9360 OPEN "O",1,LEFT$(RUBR$(A),4)
9370 CLOSE 1
9380 RETURN
9390 PRINT:LINE INPUT "Welke rubriek wilt u verwijderen? (nummer!!) ";IT$
9400 HE$=IT$:GOSUB 260:IF HE=1 AND V=0 THEN 9710
9410 IF HE=1 THEN 9490
9420 IT=VAL(IT$):IF IT <1 OR IT>A THEN GOSUB 440:GOTO 9390
9430 RUBR$(IT)="Zzz":RUBRBED=0:V=V+1
9440 PRINT:PRINT"Wilt u nog meer rubrieken verwijderen (J/N)? ";
9450 A$=INPUT$(1):GOSUB 250:IF HE=1 THEN 9710
9460 IF A$="J" OR A$="j" THEN 9390
9470 IF A$<>"N" THEN IF A$<>"n" THEN GOSUB 390:GOTO 9440
9480 GOTO 9230
9490 FOR I=1 TO A-1:FOR J=I+1 TO A
9500 IF RUBR$(I)<RUBR$(J) THEN 9520
9510 SWAP RUBR$(I),RUBR$(J):SWAP RUBRBED(I),RUBRBED(J)
9520 NEXT J:NEXT I:A=A-V
9530 OPEN "O",1,"RUBRIEK"
9540 WRITE #1,A
9550 FOR I=1 TO A
9560 WRITE #1,RUBR$(I),RUBRBED(I)
9570 NEXT I
9580 CLOSE 1
9590 OPEN "I",1,"PLANRUBR"
9600 WHILE NOT EOF(1)
9610 B=B+1:INPUT #1,PLAN$(B),PLANBED(B)
9620 WEND
9630 CLOSE 1:I=1
9640 OPEN "O",1,"PLANRUBR"
9650 FOR J=1 TO B
9660 IF RUBR$(I)=PLAN$(J) THEN WRITE #1,PLAN$(J),PLANBED(J):GOTO 9690
9670 NEXT J
9680 WRITE #1,RUBR$(I),0
9690 IF I<A THEN I=I+1:GOTO 9650
9700 CLOSE 1
9710 IF HE=1 THEN RUN "HELP"
9720 RUN "MENU"
XT J
9680 WRITE #1,RUBR$(I),0
9690 IF I<A THEN I=I+1:GOTO 9650