10 HE=0:BL$=STRING$(64,32):GOSUB 20:GOTO 2000
20 OPEN "O",1,"HLP":WRITE #1,0: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
410 FR$="Onbekende opdracht!!! 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
2000 PRINT CHR$(12):PRINT TAB(29);"MENU.":PRINT TAB(29);"=====":PRINT:PRINT
2010 PRINT"U kunt kiezen uit de volgende opdrachten:":PRINT:PRINT
2020 PRINT TAB(12);"1.  Invoer inkomsten.":PRINT
2030 PRINT TAB(12);"2.  Invoer uitgaven.":PRINT
2040 PRINT TAB(12);"3.  Printen.":PRINT
2050 PRINT TAB(12);"4.  Veranderen van de planning.":PRINT
2060 PRINT TAB(12);"5.  Bewaren eindgegevens rubrieken bij einde maand.":PRINT
2070 PRINT TAB(12);"6.  Veranderen aantal rubrieken.":PRINT
2080 PRINT TAB(12);"7.  Einde programma.":PRINT
2090 PRINT TAB(12);"8.  Help.":PRINT
2100 PRINT:PRINT"Wat is uw opdracht (1...8)? ";:A$=INPUT$(1)
2110 GOSUB 250:IF HE=1 THEN 2210
2120 NR=VAL(A$):IF NR<1 OR NR>8 THEN GOSUB 410:GOTO 2100
2130 ON NR GOTO 2140,2150,2160,2170,2180,2190,2200,2210
2140 RUN "INVOERIN"
2150 RUN "INVOERUI"
2160 RUN "PRINT"
2170 RUN "VERAPLAN"
2180 RUN "AFSLUIT"
2190 RUN "VERARUBR"
2200 RUN "EIND"
2210 RUN "HELP"
 "INVOERUI"
2160 RUN "PRINT"
2170 RUN "VERAPLAN"
2180 RUN "AFSLUIT"
2190 RUN "VERARUBR"
2200 RUN "EIND"
2210 RUN