10 B=0:BS$=STRING$(19,"-"):GOSUB 50:GOSUB 800
20 IF A=0 THEN 11000
30 ON A GOTO 11280,11140,11160,11440,11540,11040
50 OPEN "I",1,"HLP":INPUT #1,A:CLOSE 1:RETURN
800 PRINT CHR$(12);TAB(29);"HELP.":PRINT TAB(29);"=====":PRINT:PRINT:RETURN
810 PRINT"Druk op een toets.";:A$=INPUT$(1):PRINT CHR$(12):PRINT CHR$(17);:RETURN
11000 PRINT"Algemene opmerking:":PRINT BS$:PRINT"Bij vragen die de computer afdrukt en die met 'ja' of 'nee' moe-"
11010 PRINT"ten worden beantwoord, wordt alleen de 'J' of de 'N' ingetoetst.Wordt bij de vraag de eerste letter tussen haakjes geplaatst,"
11020 PRINT"zoals bijv. bij (V)erwijderen, dan wordt de vraag beantwoord    door alleen deze eerste letter in te toetsen zonder de 'RETURN'-"
11030 PRINT"toets te gebruiken.":GOTO 11050
11040 PRINT:PRINT
11050 PRINT"Bij alle vragen kan er 'HELP' of 'Help'  worden ingetoetst. Het"
11060 PRINT"programma bewaart dan alle reeds ingevoerde gegevens en geeft   daarna uitleg van het stukje programma. Na het lezen van de"
11070 PRINT"tekst, wordt teruggegaan naar het programmadeel waarmee men be- zig is."
11080 PRINT"Door bij het 'MENU' keuze 8 in te typen, komt alle informatie ophet scherm. Daarna wordt teruggegaan naar het 'MENU'.":PRINT
11090 PRINT:PRINT"Bij 'DATUM' wordt gevraagd naar de datum waarmee gewerkt wordt. Dit kan de actuele datum zijn, of de datum waarop bijv. de maand"
11100 PRINT"wordt afgesloten. Het programma laat daarna zien op welke datum voor het laatst met het programma is gewerkt."
11110 PRINT:PRINT:PRINT
11120 IF A>0 THEN 11620
11130 GOSUB 810:PRINT:PRINT
11140 PRINT"Bij optie 1: 'INVOER INKOMSTEN' worden alle inkomsten geboekt.  Meteen na de keuze van optie 1 worden ";
11150 GOTO 11180
11160 PRINT"Bij optie 2: 'INVOER UITGAVEN' worden de uitgaven geboekt. De":PRINT"met optie 6 ingevoerde ";
11170 PRINT"rubrieken worden als een menu getoond. Na":PRINT"keuze van de gewenste rubriek worden ";
11180 PRINT"de boekingen van de lopen-","de maand getoond. Hierna worden achtereenvolgens gevraagd:":PRINT TAB(5);"1. Datum."
11190 PRINT TAB(5);"2. Omschrijving.":PRINT TAB(5);"3. Bedrag.":PRINT"Door bij 'datum' een S in te typen wordt de invoer gestopt en"
11200 PRINT"wordt teruggegaan naar het menu.":PRINT"Om een gegeven te veranderen moet bij 'datum' een V worden inge-
11210 PRINT"typt. Op het scherm worden dan alle ingevoerde gegevens afge-   drukt met een regelnummer er voor. Daarna wordt gevraagd welke"
11220 PRINT"regel veranderd moet worden. Daarna worden weer de 'datum', de  'omschrijving' en het 'bedrag' gevraagd."
11230 PRINT"Moet er een regel vervallen, dan moet er achter 'datum' een 'V' worden ingetypt.":PRINT"De omschrijving mag bestaan uit ";
11240 PRINT"maximaal 45 tekens.":PRINT"Het bedrag mag niet negatief zijn en niet groter dan f 9999.99.":PRINT
11250 IF A=0 AND B=0 THEN B=1:GOSUB 810:PRINT:PRINT:GOTO 11160
11260 IF A=0 THEN GOSUB 810
11270 IF A>0 THEN 11620
11280 PRINT"'PRINTEN' kent een sub-menu, dat wordt getoond als optie 3 wordtgekozen. Tevens heeft men de keuze om de afdruk op het scherm of"
11290 PRINT"op papier te maken.":PRINT
11300 PRINT"De sub-optie 1: 'PRINTEN VAN DE BOEKMAAND' drukt een overzicht  af van de eindbedragen van de rubrieken.":PRINT
11310 PRINT"Sub-optie 2: 'PRINTEN UITGAVEN PER RUBRIEK VAN DE BOEKMAAND'    geeft een overzicht van de uitgaven per rubriek.":PRINT
11320 PRINT"Sub-optie 3: 'PRINTEN BOEKMAAND EN DE VORIGE MAAND' geeft een   overzicht van de eindbedragen van de rubrieken van de lopende"
11330 PRINT"maand.":PRINT
11340 PRINT"Sub-optie 4: 'PRINTEN BOEKMAAND MET VERGELIJKING PLANNING'toont een overzicht van de eindbedragen van de lopende maand en een"
11350 PRINT"ingevoerde planning.":PRINT
11360 PRINT"De opties 1 tot en met 4 van PRINTEN kunnen ook tijdens de lo-  pende maand gebruikt worden en geven dan een tussenresultaat.":PRINT
11370 IF A>0 THEN GOSUB 810:PRINT:PRINT
11380 PRINT"Sub-optie 5:'PRINTEN PLANNING MET VERGELIJKING TOTAAL' geeft eenoverzicht van de uitgaven (eindbedragen rubrieken) vanaf januari"
11390 PRINT"tot en met de lopende maand. Deze bedragen worden vergeleken metde geplande uitgaven vanaf januari tot en ";
11400 PRINT"met de lopende maand.":PRINT
11410 PRINT"N.B. Deze optie kan ALLEEN worden gebruikt ALS DE MAAND IS AFGE-SLOTEN (zie optie 5 van het menu).":PRINT
11420 IF A>0 THEN 11620
11430 GOSUB 810
11440 PRINT"Bij optie 4: 'VERANDEREN VAN DE PLANNING' kan een uitgavenplan  ingevoerd worden. In de eerste kolom wordt de rubriek getoond,"
11450 PRINT"in de tweede kolom het geplande bedrag. In de derde kolom kan   het veranderde bedrag worden ingetypt. Wordt er een RETURN gege-"
11460 PRINT"ven, dan wordt het bedrag niet veranderd.":PRINT
11470 IF A>0 THEN 11620
11480 IF A=0 THEN PRINT
11490 PRINT"Bij optie 5: 'BEWAREN EINDGEGEVENS BIJ EINDE MAAND' worden alle bedragen per rubriek opgeteld. Dit eindbedrag wordt per rubriek "
11500 PRINT"op schijf bewaard en kan bij optie 3 gebruikt worden.":PRINT
11510 PRINT"N.B. De rubrieken worden na het wegschrijven van de eindbedragenten behoeve van de nieuwe maand op nul gezet.":PRINT
11520 IF A>0 THEN 11620
11530 IF A=0 THEN PRINT
11540 PRINT"Bij optie 6: 'VERANDEREN AANTAL RUBRIEKEN' kunnen rubrieken wor-den toegevoegd of verwijderd. Bij het voor de eerste keer ge-"
11550 PRINT"bruiken van KASSA moet dit programma als eerste gebruikt worden.Dit om de diverse rubrieken zoals levensmiddelen, kleding, gas,"
11560 PRINT"licht, water, etc. etc. in te voeren.":PRINT
11570 IF A>0 THEN 11620
11580 IF A=0 THEN PRINT
11590 PRINT"Aan het einde van het programma worden de rubrieken, waarin ver-anderingen zijn aangebracht, op een 'back-up' schijf vastgelegd."
11600 PRINT"Daarom moet de schijf met de naam 'back-up kassa' in de B-drive,dit is de bovenste drive, worden ";
11610 PRINT"geplaatst.":PRINT
11620 PRINT"Druk op een toets.";:A$=INPUT$(1):PRINT
11630 IF A=0 THEN RUN "MENU"
11640 ON A GOTO 11650,11660,11670,11680,11690,11700
11650 RUN "PRINT"
11660 RUN "INVOERIN"
11670 RUN "INVOERUI"
11680 RUN "VERAPLAN"
11690 RUN "VERARUBR"
11700 RUN "DATUM"

11650 RUN "PRINT"
11660 RUN "INVOE