10 BL$=STRING$(64,32):GOSUB 20:GOTO 5000
20 OPEN "O",1,"HLP":WRITE #1,1:CLOSE 1
30 OPEN "O",1,"PRNT":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
400 FR$="Het antwoord moet 'S' of 'P' zijn!!! Nog eens.....":GOTO 460
420 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
500 PRINT:PRINT"Wilt u een afdruk op het (S)cherm of op (P)apier? ";:A$=INPUT$(1)
510 GOSUB 250:IF HE=1 THEN 5210
520 IF A$="S" OR A$="s" THEN 550
530 IF A$<>"P" THEN IF A$<>"p" THEN GOSUB 400:GOTO 500
540 OPEN "O",1,"PRNT":WRITE #1,1:CLOSE 1
550 RETURN
5000 PRINT CHR$(12):PRINT TAB(28);"PRINTEN.":PRINT TAB(28);"========":PRINT:PRINT
5010 PRINT"U kunt kiezen uit de volgende opdrachten:":PRINT:PRINT
5020 PRINT TAB(12);"1.  Printen van de boekmaand.":PRINT
5030 PRINT TAB(12);"2.  Printen uitgaven per rubriek van de boekmaand.":PRINT
5040 PRINT TAB(12);"3.  Printen boekmaand en de vorige maand.":PRINT
5050 PRINT TAB(12);"4.  Printen boekmaand met vergelijking planning.":PRINT
5060 PRINT TAB(12);"5.  Printen planning met vergelijking totaal."
5070 PRINT TAB(16);"(Alleen als nr 5 van het 'MENU' gebruikt is.)":PRINT
5080 PRINT TAB(12);"6.  Klaar met printen.":PRINT
5090 PRINT TAB(12);"7.  Help.":PRINT
5100 PRINT:PRINT"Wat is uw opdracht (1...7)? ";:A$=INPUT$(1)
5110 GOSUB 260:IF HE=1 THEN 5210
5120 NR=VAL(A$):PRINT NR$:IF NR<1 OR NR>7 THEN GOSUB 420:GOTO 5100
5130 IF NR<6 THEN GOSUB 500
5140 ON NR GOTO 5150,5160,5170,5180,5190,5200,5210
5150 RUN "BOEKM"
5160 RUN "UITGRUBR"
5170 RUN "BOEKVOOR"
5180 RUN "BOEKPLAN"
5190 RUN "PLANTOT"
5200 RUN "MENU"
5210 RUN "HELP"
 "BOEKM"
5160 RUN "UITGRUBR"